Chip: Windows 2000 Professional Resource Kit/W2KPRK.iso/apps/crystal/disk18/Xvb366._/Xvb366.

Visual Basic Form | 1999-08-23 | 15.2 KB | 501 lines

VERSION 5.00
Begin VB.Form frmCustomer
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Customer"
   ClientHeight    =   5925
   ClientLeft      =   615
   ClientTop       =   675
   ClientWidth     =   6720
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5925
   ScaleWidth      =   6720
   ShowInTaskbar   =   0   'False
   Tag             =   "Customer"
   Begin VB.CommandButton cmdClose
      Cancel          =   -1  'True
      Caption         =   "&Close"
      Default         =   -1  'True
      Height          =   300
      Left            =   5520
      TabIndex        =   37
      Top             =   5180
      Width           =   1035
   End
   Begin VB.CommandButton cmdGrid
      Caption         =   "&Grid"
      Height          =   300
      Left            =   4440
      TabIndex        =   36
      Tag             =   "&Grid"
      Top             =   5180
      Width           =   975
   End
   Begin VB.CommandButton cmdUpdate
      Caption         =   "&Update"
      Height          =   300
      Left            =   3360
      TabIndex        =   35
      Tag             =   "&Update"
      Top             =   5180
      Width           =   975
   End
   Begin VB.CommandButton cmdRefresh
      Caption         =   "&Refresh"
      Height          =   300
      Left            =   2280
      TabIndex        =   34
      Tag             =   "&Refresh"
      Top             =   5180
      Width           =   975
   End
   Begin VB.CommandButton cmdDelete
      Caption         =   "&Delete"
      Height          =   300
      Left            =   1200
      TabIndex        =   33
      Tag             =   "&Delete"
      Top             =   5180
      Width           =   975
   End
   Begin VB.CommandButton cmdAdd
      Caption         =   "&Add"
      Height          =   300
      Left            =   120
      TabIndex        =   32
      Tag             =   "&Add"
      Top             =   5180
      Width           =   975
   End
   Begin VB.Data Data1
      Align           =   2  'Align Bottom
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "Customer"
      Top             =   5580
      Width           =   6720
   End
   Begin VB.TextBox txtFields
      DataField       =   "Fax"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   15
      Left            =   2040
      MaxLength       =   20
      TabIndex        =   31
      Top             =   4840
      Width           =   3375
   End
   Begin VB.TextBox txtFields
      DataField       =   "Phone"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   14
      Left            =   2040
      MaxLength       =   20
      TabIndex        =   29
      Top             =   4520
      Width           =   3375
   End
   Begin VB.TextBox txtFields
      DataField       =   "Postal Code"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   13
      Left            =   2040
      MaxLength       =   10
      TabIndex        =   27
      Top             =   4200
      Width           =   3375
   End
   Begin VB.TextBox txtFields
      DataField       =   "Country"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   12
      Left            =   2040
      MaxLength       =   15
      TabIndex        =   25
      Top             =   3880
      Width           =   3375
   End
   Begin VB.TextBox txtFields
      DataField       =   "Region"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   11
      Left            =   2040
      MaxLength       =   15
      TabIndex        =   23
      Top             =   3560
      Width           =   3375
   End
   Begin VB.TextBox txtFields
      DataField       =   "City"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   10
      Left            =   2040
      MaxLength       =   20
      TabIndex        =   21
      Top             =   3240
      Width           =   3375
   End
   Begin VB.TextBox txtFields
      DataField       =   "Address2"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   9
      Left            =   2040
      MaxLength       =   20
      TabIndex        =   19
      Top             =   2920
      Width           =   3375
   End
   Begin VB.TextBox txtFields
      DataField       =   "Address1"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   8
      Left            =   2040
      MaxLength       =   60
      TabIndex        =   17
      Top             =   2600
      Width           =   3375
   End
   Begin VB.TextBox txtFields
      DataField       =   "Last Year's Sales"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   7
      Left            =   2040
      TabIndex        =   15
      Top             =   2280
      Width           =   1935
   End
   Begin VB.TextBox txtFields
      DataField       =   "Account Manager"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   6
      Left            =   2040
      MaxLength       =   50
      TabIndex        =   13
      Top             =   1960
      Width           =   3375
   End
   Begin VB.TextBox txtFields
      DataField       =   "Contact Position"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   5
      Left            =   2040
      MaxLength       =   30
      TabIndex        =   11
      Top             =   1640
      Width           =   3375
   End
   Begin VB.TextBox txtFields
      DataField       =   "Contact Title"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   4
      Left            =   2040
      MaxLength       =   5
      TabIndex        =   9
      Top             =   1320
      Width           =   3375
   End
   Begin VB.TextBox txtFields
      DataField       =   "Contact Last Name"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   3
      Left            =   2040
      MaxLength       =   30
      TabIndex        =   7
      Top             =   1000
      Width           =   3375
   End
   Begin VB.TextBox txtFields
      DataField       =   "Contact First Name"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   2
      Left            =   2040
      MaxLength       =   30
      TabIndex        =   5
      Top             =   680
      Width           =   3375
   End
   Begin VB.TextBox txtFields
      DataField       =   "Customer Name"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   1
      Left            =   2040
      MaxLength       =   40
      TabIndex        =   3
      Top             =   360
      Width           =   3375
   End
   Begin VB.TextBox txtFields
      DataField       =   "Customer ID"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   0
      Left            =   2040
      TabIndex        =   1
      Top             =   40
      Width           =   1935
   End
   Begin VB.Label lblLabels
      Caption         =   "Fax:"
      Height          =   255
      Index           =   15
      Left            =   120
      TabIndex        =   30
      Tag             =   "Fax:"
      Top             =   4860
      Width           =   1815
   End
   Begin VB.Label lblLabels
      Caption         =   "Phone:"
      Height          =   255
      Index           =   14
      Left            =   120
      TabIndex        =   28
      Tag             =   "Phone:"
      Top             =   4540
      Width           =   1815
   End
   Begin VB.Label lblLabels
      Caption         =   "Postal Code:"
      Height          =   255
      Index           =   13
      Left            =   120
      TabIndex        =   26
      Tag             =   "Postal Code:"
      Top             =   4220
      Width           =   1815
   End
   Begin VB.Label lblLabels
      Caption         =   "Country:"
      Height          =   255
      Index           =   12
      Left            =   120
      TabIndex        =   24
      Tag             =   "Country:"
      Top             =   3900
      Width           =   1815
   End
   Begin VB.Label lblLabels
      Caption         =   "Region:"
      Height          =   255
      Index           =   11
      Left            =   120
      TabIndex        =   22
      Tag             =   "Region:"
      Top             =   3580
      Width           =   1815
   End
   Begin VB.Label lblLabels
      Caption         =   "City:"
      Height          =   255
      Index           =   10
      Left            =   120
      TabIndex        =   20
      Tag             =   "City:"
      Top             =   3260
      Width           =   1815
   End
   Begin VB.Label lblLabels
      Caption         =   "Address2:"
      Height          =   255
      Index           =   9
      Left            =   120
      TabIndex        =   18
      Tag             =   "Address2:"
      Top             =   2940
      Width           =   1815
   End
   Begin VB.Label lblLabels
      Caption         =   "Address1:"
      Height          =   255
      Index           =   8
      Left            =   120
      TabIndex        =   16
      Tag             =   "Address1:"
      Top             =   2620
      Width           =   1815
   End
   Begin VB.Label lblLabels
      Caption         =   "Last Year's Sales:"
      Height          =   255
      Index           =   7
      Left            =   120
      TabIndex        =   14
      Tag             =   "Last Year's Sales:"
      Top             =   2300
      Width           =   1815
   End
   Begin VB.Label lblLabels
      Caption         =   "Account Manager:"
      Height          =   255
      Index           =   6
      Left            =   120
      TabIndex        =   12
      Tag             =   "Account Manager:"
      Top             =   1980
      Width           =   1815
   End
   Begin VB.Label lblLabels
      Caption         =   "Contact Position:"
      Height          =   255
      Index           =   5
      Left            =   120
      TabIndex        =   10
      Tag             =   "Contact Position:"
      Top             =   1660
      Width           =   1815
   End
   Begin VB.Label lblLabels
      Caption         =   "Contact Title:"
      Height          =   255
      Index           =   4
      Left            =   120
      TabIndex        =   8
      Tag             =   "Contact Title:"
      Top             =   1340
      Width           =   1815
   End
   Begin VB.Label lblLabels
      Caption         =   "Contact Last Name:"
      Height          =   255
      Index           =   3
      Left            =   120
      TabIndex        =   6
      Tag             =   "Contact Last Name:"
      Top             =   1020
      Width           =   1815
   End
   Begin VB.Label lblLabels
      Caption         =   "Contact First Name:"
      Height          =   255
      Index           =   2
      Left            =   120
      TabIndex        =   4
      Tag             =   "Contact First Name:"
      Top             =   700
      Width           =   1815
   End
   Begin VB.Label lblLabels
      Caption         =   "Customer Name:"
      Height          =   255
      Index           =   1
      Left            =   120
      TabIndex        =   2
      Tag             =   "Customer Name:"
      Top             =   380
      Width           =   1815
   End
   Begin VB.Label lblLabels
      Caption         =   "Customer ID:"
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Tag             =   "Customer ID:"
      Top             =   60
      Width           =   1815
   End
Attribute VB_Name = "frmCustomer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdAdd_Click()
    Data1.Recordset.AddNew
End Sub
Private Sub cmdClose_Click()
  Me.Hide
End Sub
Private Sub cmdDelete_Click()
    'this may produce an error if you delete the last
    'record or the only record in the recordset
    With Data1.Recordset
        .Delete
        .MoveNext
        If .EOF Then .MoveLast
    End With
End Sub
Private Sub cmdRefresh_Click()
    'this is really only needed for multi user apps
    Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
    Data1.UpdateRecord
    Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdGrid_Click()
    On Error GoTo cmdGrid_ClickErr
    Dim f As New frmDataGrid
    Set f.Data1.Recordset = Data1.Recordset
    f.Caption = Me.Caption & " Grid"
    f.Show
    Exit Sub
cmdGrid_ClickErr:
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
    'This is where you would put error handling code
    'If you want to ignore errors, comment out the next line
    'If you want to trap them, add code here to handle them
    MsgBox "Data error event hit err:" & Error$(DataErr)
    Response = 0  'throw away the error
End Sub
Private Sub Data1_Reposition()
    Screen.MousePointer = vbDefault
    On Error Resume Next
    'This will display the current record position
    'for dynasets and snapshots
    Data1.Caption = "Record: " & (Data1.Recordset.AbsolutePosition + 1)
    'for the table object you must set the index property when
    'the recordset gets created and use the following line
    'Data1.Caption = "Record: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
    'This is where you put validation code
    'This event gets called when the following actions occur
    Select Case Action
        Case vbDataActionMoveFirst
        Case vbDataActionMovePrevious
        Case vbDataActionMoveNext
        Case vbDataActionMoveLast
        Case vbDataActionAddNew
        Case vbDataActionUpdate
        Case vbDataActionDelete
        Case vbDataActionFind
        Case vbDataActionBookmark
        Case vbDataActionClose
            Screen.MousePointer = vbDefault
    End Select
    Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_Load()
  Center Me
  Me.Data1.DatabaseName = frmMain.gsDatabase
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Screen.MousePointer = vbDefault
End Sub