home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Begin VB.Form frmOrders
- BorderStyle = 3 'Fixed Dialog
- Caption = "Orders"
- ClientHeight = 4335
- ClientLeft = 630
- ClientTop = 1260
- ClientWidth = 6615
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 4335
- ScaleWidth = 6615
- ShowInTaskbar = 0 'False
- Tag = "Orders"
- Begin VB.CommandButton cmdClose
- Cancel = -1 'True
- Caption = "&Close"
- Default = -1 'True
- Height = 300
- Left = 5520
- TabIndex = 27
- Top = 3580
- Width = 975
- End
- Begin VB.CommandButton cmdGrid
- Caption = "&Grid"
- Height = 300
- Left = 4440
- TabIndex = 26
- Tag = "&Grid"
- Top = 3580
- Width = 975
- End
- Begin VB.CommandButton cmdUpdate
- Caption = "&Update"
- Height = 300
- Left = 3360
- TabIndex = 25
- Tag = "&Update"
- Top = 3580
- Width = 975
- End
- Begin VB.CommandButton cmdRefresh
- Caption = "&Refresh"
- Height = 300
- Left = 2280
- TabIndex = 24
- Tag = "&Refresh"
- Top = 3580
- Width = 975
- End
- Begin VB.CommandButton cmdDelete
- Caption = "&Delete"
- Height = 300
- Left = 1200
- TabIndex = 23
- Tag = "&Delete"
- Top = 3580
- Width = 975
- End
- Begin VB.CommandButton cmdAdd
- Caption = "&Add"
- Height = 300
- Left = 120
- TabIndex = 22
- Tag = "&Add"
- Top = 3580
- 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 = "Orders"
- Top = 3990
- Width = 6615
- End
- Begin VB.CheckBox chkFields
- DataField = "Payment Received"
- DataSource = "Data1"
- Height = 285
- Index = 10
- Left = 2040
- TabIndex = 21
- Top = 3240
- Width = 3375
- End
- Begin VB.TextBox txtFields
- DataField = "PO#"
- DataSource = "Data1"
- Height = 285
- Index = 9
- Left = 2040
- MaxLength = 50
- TabIndex = 19
- Top = 2920
- Width = 3375
- End
- Begin VB.CheckBox chkFields
- DataField = "Shipped"
- DataSource = "Data1"
- Height = 285
- Index = 8
- Left = 2040
- TabIndex = 17
- Top = 2600
- Width = 3375
- End
- Begin VB.TextBox txtFields
- DataField = "Ship Via"
- DataSource = "Data1"
- Height = 285
- Index = 7
- Left = 2040
- MaxLength = 20
- TabIndex = 15
- Top = 2280
- Width = 3375
- End
- Begin VB.TextBox txtFields
- DataField = "Ship Date"
- DataSource = "Data1"
- Height = 285
- Index = 6
- Left = 2040
- TabIndex = 13
- Top = 1960
- Width = 1935
- End
- Begin VB.TextBox txtFields
- DataField = "Required Date"
- DataSource = "Data1"
- Height = 285
- Index = 5
- Left = 2040
- TabIndex = 11
- Top = 1640
- Width = 1935
- End
- Begin VB.TextBox txtFields
- DataField = "Order Date"
- DataSource = "Data1"
- Height = 285
- Index = 4
- Left = 2040
- TabIndex = 9
- Top = 1320
- Width = 1935
- End
- Begin VB.TextBox txtFields
- DataField = "Employee ID"
- DataSource = "Data1"
- Height = 285
- Index = 3
- Left = 2040
- TabIndex = 7
- Top = 1000
- Width = 1935
- End
- Begin VB.TextBox txtFields
- DataField = "Customer ID"
- DataSource = "Data1"
- Height = 285
- Index = 2
- Left = 2040
- TabIndex = 5
- Top = 680
- Width = 1935
- End
- Begin VB.TextBox txtFields
- DataField = "Order Amount"
- DataSource = "Data1"
- Height = 285
- Index = 1
- Left = 2040
- TabIndex = 3
- Top = 360
- Width = 1935
- End
- Begin VB.TextBox txtFields
- DataField = "Order ID"
- DataSource = "Data1"
- Height = 285
- Index = 0
- Left = 2040
- TabIndex = 1
- Top = 40
- Width = 1935
- End
- Begin VB.Label lblLabels
- Caption = "Payment Received:"
- Height = 255
- Index = 10
- Left = 120
- TabIndex = 20
- Tag = "Payment Received:"
- Top = 3260
- Width = 1815
- End
- Begin VB.Label lblLabels
- Caption = "PO#:"
- Height = 255
- Index = 9
- Left = 120
- TabIndex = 18
- Tag = "PO#:"
- Top = 2940
- Width = 1815
- End
- Begin VB.Label lblLabels
- Caption = "Shipped:"
- Height = 255
- Index = 8
- Left = 120
- TabIndex = 16
- Tag = "Shipped:"
- Top = 2620
- Width = 1815
- End
- Begin VB.Label lblLabels
- Caption = "Ship Via:"
- Height = 255
- Index = 7
- Left = 120
- TabIndex = 14
- Tag = "Ship Via:"
- Top = 2300
- Width = 1815
- End
- Begin VB.Label lblLabels
- Caption = "Ship Date:"
- Height = 255
- Index = 6
- Left = 120
- TabIndex = 12
- Tag = "Ship Date:"
- Top = 1980
- Width = 1815
- End
- Begin VB.Label lblLabels
- Caption = "Required Date:"
- Height = 255
- Index = 5
- Left = 120
- TabIndex = 10
- Tag = "Required Date:"
- Top = 1660
- Width = 1815
- End
- Begin VB.Label lblLabels
- Caption = "Order Date:"
- Height = 255
- Index = 4
- Left = 120
- TabIndex = 8
- Tag = "Order Date:"
- Top = 1340
- Width = 1815
- End
- Begin VB.Label lblLabels
- Caption = "Employee ID:"
- Height = 255
- Index = 3
- Left = 120
- TabIndex = 6
- Tag = "Employee ID:"
- Top = 1020
- Width = 1815
- End
- Begin VB.Label lblLabels
- Caption = "Customer ID:"
- Height = 255
- Index = 2
- Left = 120
- TabIndex = 4
- Tag = "Customer ID:"
- Top = 700
- Width = 1815
- End
- Begin VB.Label lblLabels
- Caption = "Order Amount:"
- Height = 255
- Index = 1
- Left = 120
- TabIndex = 2
- Tag = "Order Amount:"
- Top = 380
- Width = 1815
- End
- Begin VB.Label lblLabels
- Caption = "Order ID:"
- Height = 255
- Index = 0
- Left = 120
- TabIndex = 0
- Tag = "Order ID:"
- Top = 60
- Width = 1815
- End
- Attribute VB_Name = "frmOrders"
- 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
-