Programming Tool Box/SIMS_2.iso/bp_6_93/winword/wordvb3/form1.frm

Text File | 1993-01-05 | 13KB | 460 lines

VERSION 2.00
Begin Form Form1
   Caption         =   "Datenbank interner Briefverkehr"
   ClientHeight    =   6615
   ClientLeft      =   30
   ClientTop       =   1665
   ClientWidth     =   9270
   Height          =   7305
   Left            =   -30
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   ScaleHeight     =   6615
   ScaleWidth      =   9270
   Top             =   1035
   Width           =   9390
   WindowState     =   2  'Maximized
   Begin TextBox Speichern
      Height          =   285
      Left            =   5040
      TabIndex        =   35
      Top             =   6120
      Visible         =   0   'False
      Width           =   1215
   End
   Begin TextBox Close
      Height          =   285
      Left            =   6480
      TabIndex        =   34
      Top             =   6120
      Visible         =   0   'False
      Width           =   1215
   End
   Begin TextBox NeuerSatz
      Height          =   285
      Left            =   3720
      TabIndex        =   33
      Top             =   6120
      Visible         =   0   'False
      Width           =   1095
   End
   Begin CommandButton Wechsel
      Caption         =   "&Wechsel zu Word"
      Height          =   375
      Left            =   360
      TabIndex        =   32
      Top             =   5520
      Width           =   2535
   End
   Begin TextBox Text1
      DataField       =   "Nummer"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   10
      Left            =   7560
      TabIndex        =   10
      Text            =   "Text1"
      Top             =   960
      Width           =   975
   End
   Begin TextBox Text1
      DataField       =   "Betreff"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   11
      Left            =   360
      TabIndex        =   11
      Text            =   "Text1"
      Top             =   1560
      Width           =   8535
   End
   Begin TextBox Text1
      DataField       =   "Datei"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   9
      Left            =   6120
      TabIndex        =   9
      Text            =   "Text1"
      Top             =   960
      Width           =   1335
   End
   Begin TextBox Text1
      DataField       =   "Datum"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   8
      Left            =   4560
      TabIndex        =   8
      Text            =   "Text1"
      Top             =   960
      Width           =   1335
   End
   Begin TextBox Text1
      DataField       =   "Fax"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   7
      Left            =   3480
      TabIndex        =   7
      Text            =   "Text1"
      Top             =   960
      Width           =   855
   End
   Begin TextBox Text1
      DataField       =   "Telefon"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   6
      Left            =   2520
      TabIndex        =   6
      Text            =   "Text1"
      Top             =   960
      Width           =   855
   End
   Begin TextBox Text1
      DataField       =   "Gebaeude"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   5
      Left            =   1560
      TabIndex        =   5
      Text            =   "Text1"
      Top             =   960
      Width           =   855
   End
   Begin TextBox Text1
      DataField       =   "Abteilung"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   4
      Left            =   360
      TabIndex        =   4
      Text            =   "Text1"
      Top             =   960
      Width           =   855
   End
   Begin TextBox Text1
      DataField       =   "Nachname"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   3
      Left            =   5640
      TabIndex        =   3
      Text            =   "Text1"
      Top             =   360
      Width           =   3375
   End
   Begin TextBox Text1
      DataField       =   "Vorname"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   2
      Left            =   2520
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   360
      Width           =   2775
   End
   Begin CommandButton Loeschen
      Caption         =   "&L÷schen"
      Height          =   375
      Left            =   6240
      TabIndex        =   17
      Top             =   4920
      Width           =   1095
   End
   Begin CommandButton Sichern
      Caption         =   "&Sichern"
      Height          =   375
      Left            =   4800
      TabIndex        =   16
      Top             =   4920
      Width           =   1095
   End
   Begin CommandButton Neu
      Caption         =   "&Neu"
      Height          =   375
      Left            =   3240
      TabIndex        =   15
      Top             =   4920
      Width           =   1095
   End
   Begin CommandButton Kopieren
      Caption         =   "&Kopieren in Zwischenablage"
      Height          =   375
      Left            =   3240
      TabIndex        =   14
      Top             =   5520
      Width           =   2655
   End
   Begin CommandButton Einfuegen
      Caption         =   "&Einfⁿgen aus Zwischenablage"
      Height          =   375
      Left            =   6240
      TabIndex        =   13
      Top             =   5520
      Width           =   2775
   End
   Begin TextBox Text1
      DataField       =   "Text"
      DataSource      =   "Data1"
      Height          =   2535
      Index           =   12
      Left            =   360
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   12
      Text            =   "Text1"
      Top             =   2280
      Width           =   8655
   End
   Begin TextBox Text1
      DataField       =   "Titel"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   1
      Left            =   1560
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   360
      Width           =   615
   End
   Begin TextBox Text1
      DataField       =   "Anrede"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   0
      Left            =   360
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   360
      Width           =   975
   End
   Begin Data data1
      Caption         =   "Data1"
      Connect         =   ""
      DatabaseName    =   "C:\bp1\word\ablage.mdB"
      Exclusive       =   0   'False
      Height          =   495
      Left            =   360
      Options         =   0
      ReadOnly        =   0   'False
      RecordSource    =   "Briefe_Intern"
      Top             =   4920
      Width           =   2535
   End
   Begin Label Label3
      DataSource      =   "data1"
      Height          =   255
      Left            =   3480
      TabIndex        =   31
      Top             =   5040
      Width           =   375
   End
   Begin Label Label1
      Caption         =   "Lf. Nummer"
      Height          =   255
      Index           =   12
      Left            =   7560
      TabIndex        =   30
      Top             =   720
      Width           =   1095
   End
   Begin Label Label1
      Caption         =   "Inhalt"
      Height          =   255
      Index           =   11
      Left            =   360
      TabIndex        =   29
      Top             =   2040
      Width           =   735
   End
   Begin Label Label1
      Caption         =   "Betreff"
      Height          =   255
      Index           =   10
      Left            =   360
      TabIndex        =   28
      Top             =   1320
      Width           =   1695
   End
   Begin Label Label1
      Caption         =   "Datei"
      Height          =   255
      Index           =   9
      Left            =   6120
      TabIndex        =   27
      Top             =   720
      Width           =   615
   End
   Begin Label Label1
      Caption         =   "Datum"
      Height          =   255
      Index           =   8
      Left            =   4560
      TabIndex        =   26
      Top             =   720
      Width           =   735
   End
   Begin Label Label1
      Caption         =   "Fax"
      Height          =   255
      Index           =   7
      Left            =   3480
      TabIndex        =   25
      Top             =   720
      Width           =   615
   End
   Begin Label Label1
      Caption         =   "Telefon"
      Height          =   255
      Index           =   6
      Left            =   2520
      TabIndex        =   24
      Top             =   720
      Width           =   1695
   End
   Begin Label Label1
      Caption         =   "GebΣude"
      Height          =   255
      Index           =   5
      Left            =   1560
      TabIndex        =   23
      Top             =   720
      Width           =   855
   End
   Begin Label Label1
      Caption         =   "Abteilung"
      Height          =   255
      Index           =   4
      Left            =   360
      TabIndex        =   22
      Top             =   720
      Width           =   855
   End
   Begin Label Label1
      Caption         =   "Nachname"
      Height          =   255
      Index           =   3
      Left            =   5640
      TabIndex        =   21
      Top             =   120
      Width           =   1095
   End
   Begin Label Label1
      Caption         =   "Vorname"
      Height          =   255
      Index           =   2
      Left            =   2520
      TabIndex        =   20
      Top             =   120
      Width           =   855
   End
   Begin Label Label1
      Caption         =   "Titel"
      Height          =   255
      Index           =   1
      Left            =   1560
      TabIndex        =   19
      Top             =   120
      Width           =   495
   End
   Begin Label Label1
      Caption         =   "Anrede"
      Height          =   255
      Index           =   0
      Left            =   360
      TabIndex        =   18
      Top             =   120
      Width           =   735
   End
   Begin Menu Men_Datei
      Caption         =   "&Datei"
      Begin Menu Men_Ende
         Caption         =   "&Ende"
      End
   End
End

Sub Close_Change ()
    Static flag
    If flag = 0 Then
        data1.Recordset.MoveLast
        data1.Recordset.Update
        text1(12).Text = Clipboard.GetText()
        text1(0).SetFocus
        flag = 1
    Else
        flag = 0
    End If
End Sub

Sub Einfuegen_Click ()
      text1(12).Text = Clipboard.GetText()
End Sub

Sub Kopieren_Click ()
    Clipboard.Clear
    Clipboard.SetText text1(12).SelText
End Sub

Sub Loeschen_Click ()
    If data1.Recordset.BOF = False Then
        data1.Recordset.Delete
        data1.Recordset.MovePrevious
        text1(0).SetFocus
    End If
End Sub

Sub Men_Ende_Click ()
    End
End Sub

Sub Neu_Click ()
    If data1.Recordset.BOF Then
        data1.Recordset.AddNew
        text1(10) = 1
    Else
        data1.Recordset.MoveLast
        n_num = data1.Recordset("Nummer")
        data1.Recordset.AddNew
        text1(10) = n_num + 1
    End If
       text1(0).SetFocus
End Sub

Sub NeuerSatz_Change ()
    Static flag
    If flag = 0 Then
        data1.Recordset.MoveLast
        n_num = data1.Recordset("Nummer")
        data1.Recordset.AddNew
        text1(10) = n_num + 1
        flag = 1
    Else
        flag = 0
    End If
End Sub

Sub Sichern_click ()
    data1.Recordset.Update
    data1.Recordset.MoveLast
    text1(0).SetFocus
End Sub

Sub Speichern_Change ()
    Static flag
    If flag = 0 Then
      data1.Recordset.Update
        flag = 1
    Else
        flag = 0
    End If
End Sub

Sub Wechsel_Click ()
     AppActivate "Microsoft Word"
End Sub