home *** CD-ROM | disk | FTP | other *** search
VERSION 5.00 Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX" Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX" Begin VB.Form dfForm Caption = "Customers" ClientHeight = 3645 ClientLeft = 1110 ClientTop = 345 ClientWidth = 5745 KeyPreview = -1 'True LinkTopic = "Form1" ScaleHeight = 3645 ScaleWidth = 5745 Begin VB.PictureBox picButtons Align = 2 'Align Bottom Appearance = 0 'Flat BorderStyle = 0 'None ForeColor = &H80000008& Height = 300 Left = 0 ScaleHeight = 300 ScaleWidth = 5745 TabIndex = 11 Top = 3015 Width = 5745 Begin VB.CommandButton cmdClose Caption = "&Close" Height = 300 Left = 4675 TabIndex = 16 Top = 0 Width = 1095 End Begin VB.CommandButton cmdRefresh Caption = "&Refresh" Height = 300 Left = 3521 TabIndex = 15 Top = 0 Width = 1095 End Begin VB.CommandButton cmdDelete Caption = "&Delete" Height = 300 Left = 2367 TabIndex = 14 Top = 0 Width = 1095 End Begin VB.CommandButton cmdUpdate Caption = "&Update" Height = 300 Left = 1213 TabIndex = 13 Top = 0 Width = 1095 End Begin VB.CommandButton cmdAdd Caption = "&Add" Height = 300 Left = 59 TabIndex = 12 Top = 0 Width = 1095 End End Begin VB.TextBox txtFields DataField = "Phone" DataSource = "datPrimaryRS" Height = 285 Index = 4 Left = 2040 TabIndex = 9 Top = 1340 Width = 3375 End Begin VB.TextBox txtFields DataField = "City" DataSource = "datPrimaryRS" Height = 285 Index = 3 Left = 2040 TabIndex = 7 Top = 1020 Width = 3375 End Begin VB.TextBox txtFields DataField = "ContactName" DataSource = "datPrimaryRS" Height = 285 Index = 2 Left = 2040 TabIndex = 5 Top = 700 Width = 3375 End Begin VB.TextBox txtFields DataField = "CompanyName" DataSource = "datPrimaryRS" Height = 285 Index = 1 Left = 2040 TabIndex = 3 Top = 380 Width = 3375 End Begin VB.TextBox txtFields DataField = "CustomerID" DataSource = "datPrimaryRS" Height = 285 Index = 0 Left = 2040 TabIndex = 1 Top = 60 Width = 3375 End Begin MSAdodcLib.Adodc datPrimaryRS Align = 2 'Align Bottom Height = 330 Left = 0 Top = 3315 Width = 5745 _ExtentX = 10134 _ExtentY = 582 ConnectMode = 0 CursorLocation = 3 IsolationLevel = -1 ConnectionTimeout= 15 CommandTimeout = 30 CursorType = 3 LockType = 3 CommandType = 8 CursorOptions = 0 CacheSize = 50 MaxRecords = 0 BOFAction = 0 EOFAction = 0 ConnectStringType= 1 Appearance = 1 BackColor = -2147483643 ForeColor = -2147483640 Orientation = 0 Enabled = -1 Connect = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;dsn=NWIND;uid=;pwd=;" OLEDBString = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;dsn=NWIND;uid=;pwd=;" OLEDBFile = "" DataSourceName = "" OtherAttributes = "" UserName = "" Password = "" RecordSource = $"dfDemo.frx":0000 Caption = " " BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty _Version = 393216 End Begin MSDataGridLib.DataGrid grdDataGrid Height = 1300 Left = 0 TabIndex = 10 Top = 1660 Width = 5765 _ExtentX = 10160 _ExtentY = 2302 _Version = 393216 AllowUpdate = 0 'False HeadLines = 1 RowHeight = 15 BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ColumnCount = 2 BeginProperty Column00 DataField = "" Caption = "" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 0 EndProperty EndProperty BeginProperty Column01 DataField = "" Caption = "" BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} Type = 0 Format = "" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 0 EndProperty EndProperty SplitCount = 1 BeginProperty Split0 BeginProperty Column00 EndProperty BeginProperty Column01 EndProperty EndProperty End Begin VB.Label lblLabels Caption = "Phone:" Height = 255 Index = 4 Left = 120 TabIndex = 8 Top = 1340 Width = 1815 End Begin VB.Label lblLabels Caption = "City:" Height = 255 Index = 3 Left = 120 TabIndex = 6 Top = 1020 Width = 1815 End Begin VB.Label lblLabels Caption = "ContactName:" Height = 255 Index = 2 Left = 120 TabIndex = 4 Top = 700 Width = 1815 End Begin VB.Label lblLabels Caption = "CompanyName:" Height = 255 Index = 1 Left = 120 TabIndex = 2 Top = 380 Width = 1815 End Begin VB.Label lblLabels Caption = "CustomerID:" Height = 255 Index = 0 Left = 120 TabIndex = 0 Top = 60 Width = 1815 End Attribute VB_Name = "dfForm" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Form_Load() Set grdDataGrid.DataSource = datPrimaryRS.Recordset("ChildCMD").UnderlyingValue End Sub Private Sub Form_Resize() On Error Resume Next 'This will resize the grid when the form is resized grdDataGrid.Width = Me.ScaleWidth grdDataGrid.Height = Me.ScaleHeight - grdDataGrid.Top - datPrimaryRS.Height - 30 - picButtons.Height End Sub Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefault End Sub Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) '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:" & Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 'This will display the current record position for this recordset datPrimaryRS.Caption = "Record: " & CStr(datPrimaryRS.Recordset.AbsolutePosition) End Sub Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 'This is where you put validation code 'This event gets called when the following actions occur Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancel End Sub Private Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.AddNew Exit Sub AddErr: MsgBox Err.Description End Sub Private Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub DeleteErr: MsgBox Err.Description End Sub Private Sub cmdRefresh_Click() 'This is only needed for multi user apps On Error GoTo RefreshErr datPrimaryRS.Refresh Set grdDataGrid.DataSource = datPrimaryRS.Recordset("ChildCMD").UnderlyingValue Exit Sub RefreshErr: MsgBox Err.Description End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit Sub UpdateErr: MsgBox Err.Description End Sub Private Sub cmdClose_Click() Unload Me End Sub 
(.txt)