home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / W2KPRK.iso / apps / crystal / disk18 / Xvb378._ / Xvb378. (.txt)
Visual Basic Form  |  1999-08-23  |  8KB  |  247 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOrdersDetail 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Orders Detail"
  5.    ClientHeight    =   2085
  6.    ClientLeft      =   240
  7.    ClientTop       =   1185
  8.    ClientWidth     =   6660
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2085
  13.    ScaleWidth      =   6660
  14.    ShowInTaskbar   =   0   'False
  15.    Tag             =   "Orders Detail"
  16.    Begin VB.CommandButton cmdClose 
  17.       Cancel          =   -1  'True
  18.       Caption         =   "&Close"
  19.       Default         =   -1  'True
  20.       Height          =   300
  21.       Left            =   5520
  22.       TabIndex        =   13
  23.       Top             =   1340
  24.       Width           =   975
  25.    End
  26.    Begin VB.CommandButton cmdGrid 
  27.       Caption         =   "&Grid"
  28.       Height          =   300
  29.       Left            =   4440
  30.       TabIndex        =   12
  31.       Tag             =   "&Grid"
  32.       Top             =   1340
  33.       Width           =   975
  34.    End
  35.    Begin VB.CommandButton cmdUpdate 
  36.       Caption         =   "&Update"
  37.       Height          =   300
  38.       Left            =   3360
  39.       TabIndex        =   11
  40.       Tag             =   "&Update"
  41.       Top             =   1340
  42.       Width           =   975
  43.    End
  44.    Begin VB.CommandButton cmdRefresh 
  45.       Caption         =   "&Refresh"
  46.       Height          =   300
  47.       Left            =   2280
  48.       TabIndex        =   10
  49.       Tag             =   "&Refresh"
  50.       Top             =   1340
  51.       Width           =   975
  52.    End
  53.    Begin VB.CommandButton cmdDelete 
  54.       Caption         =   "&Delete"
  55.       Height          =   300
  56.       Left            =   1200
  57.       TabIndex        =   9
  58.       Tag             =   "&Delete"
  59.       Top             =   1340
  60.       Width           =   975
  61.    End
  62.    Begin VB.CommandButton cmdAdd 
  63.       Caption         =   "&Add"
  64.       Height          =   300
  65.       Left            =   120
  66.       TabIndex        =   8
  67.       Tag             =   "&Add"
  68.       Top             =   1340
  69.       Width           =   975
  70.    End
  71.    Begin VB.Data Data1 
  72.       Align           =   2  'Align Bottom
  73.       Connect         =   "Access"
  74.       DatabaseName    =   ""
  75.       DefaultCursorType=   0  'DefaultCursor
  76.       DefaultType     =   2  'UseODBC
  77.       Exclusive       =   0   'False
  78.       Height          =   345
  79.       Left            =   0
  80.       Options         =   0
  81.       ReadOnly        =   0   'False
  82.       RecordsetType   =   1  'Dynaset
  83.       RecordSource    =   "Orders Detail"
  84.       Top             =   1740
  85.       Width           =   6660
  86.    End
  87.    Begin VB.TextBox txtFields 
  88.       DataField       =   "Quantity"
  89.       DataSource      =   "Data1"
  90.       Height          =   285
  91.       Index           =   3
  92.       Left            =   2040
  93.       TabIndex        =   7
  94.       Top             =   1000
  95.       Width           =   1935
  96.    End
  97.    Begin VB.TextBox txtFields 
  98.       DataField       =   "Unit Price"
  99.       DataSource      =   "Data1"
  100.       Height          =   285
  101.       Index           =   2
  102.       Left            =   2040
  103.       TabIndex        =   5
  104.       Top             =   680
  105.       Width           =   1935
  106.    End
  107.    Begin VB.TextBox txtFields 
  108.       DataField       =   "Product ID"
  109.       DataSource      =   "Data1"
  110.       Height          =   285
  111.       Index           =   1
  112.       Left            =   2040
  113.       TabIndex        =   3
  114.       Top             =   360
  115.       Width           =   1935
  116.    End
  117.    Begin VB.TextBox txtFields 
  118.       DataField       =   "Order ID"
  119.       DataSource      =   "Data1"
  120.       Height          =   285
  121.       Index           =   0
  122.       Left            =   2040
  123.       TabIndex        =   1
  124.       Top             =   40
  125.       Width           =   1935
  126.    End
  127.    Begin VB.Label lblLabels 
  128.       Caption         =   "Quantity:"
  129.       Height          =   255
  130.       Index           =   3
  131.       Left            =   120
  132.       TabIndex        =   6
  133.       Tag             =   "Quantity:"
  134.       Top             =   1020
  135.       Width           =   1815
  136.    End
  137.    Begin VB.Label lblLabels 
  138.       Caption         =   "Unit Price:"
  139.       Height          =   255
  140.       Index           =   2
  141.       Left            =   120
  142.       TabIndex        =   4
  143.       Tag             =   "Unit Price:"
  144.       Top             =   700
  145.       Width           =   1815
  146.    End
  147.    Begin VB.Label lblLabels 
  148.       Caption         =   "Product ID:"
  149.       Height          =   255
  150.       Index           =   1
  151.       Left            =   120
  152.       TabIndex        =   2
  153.       Tag             =   "Product ID:"
  154.       Top             =   380
  155.       Width           =   1815
  156.    End
  157.    Begin VB.Label lblLabels 
  158.       Caption         =   "Order ID:"
  159.       Height          =   255
  160.       Index           =   0
  161.       Left            =   120
  162.       TabIndex        =   0
  163.       Tag             =   "Order ID:"
  164.       Top             =   60
  165.       Width           =   1815
  166.    End
  167. Attribute VB_Name = "frmOrdersDetail"
  168. Attribute VB_GlobalNameSpace = False
  169. Attribute VB_Creatable = False
  170. Attribute VB_PredeclaredId = True
  171. Attribute VB_Exposed = False
  172. Option Explicit
  173. Private Sub cmdAdd_Click()
  174.     Data1.Recordset.AddNew
  175. End Sub
  176. Private Sub cmdClose_Click()
  177.   Me.Hide
  178. End Sub
  179. Private Sub cmdDelete_Click()
  180.     'this may produce an error if you delete the last
  181.     'record or the only record in the recordset
  182.     With Data1.Recordset
  183.         .Delete
  184.         .MoveNext
  185.         If .EOF Then .MoveLast
  186.     End With
  187. End Sub
  188. Private Sub cmdRefresh_Click()
  189.     'this is really only needed for multi user apps
  190.     Data1.Refresh
  191. End Sub
  192. Private Sub cmdUpdate_Click()
  193.     Data1.UpdateRecord
  194.     Data1.Recordset.Bookmark = Data1.Recordset.LastModified
  195. End Sub
  196. Private Sub cmdGrid_Click()
  197.     On Error GoTo cmdGrid_ClickErr
  198.     Dim f As New frmDataGrid
  199.     Set f.Data1.Recordset = Data1.Recordset
  200.     f.Caption = Me.Caption & " Grid"
  201.     f.Show
  202.     Exit Sub
  203. cmdGrid_ClickErr:
  204. End Sub
  205. Private Sub Data1_Error(DataErr As Integer, Response As Integer)
  206.     'This is where you would put error handling code
  207.     'If you want to ignore errors, comment out the next line
  208.     'If you want to trap them, add code here to handle them
  209.     MsgBox "Data error event hit err:" & Error$(DataErr)
  210.     Response = 0  'throw away the error
  211. End Sub
  212. Private Sub Data1_Reposition()
  213.     Screen.MousePointer = vbDefault
  214.     On Error Resume Next
  215.     'This will display the current record position
  216.     'for dynasets and snapshots
  217.     Data1.Caption = "Record: " & (Data1.Recordset.AbsolutePosition + 1)
  218.     'for the table object you must set the index property when
  219.     'the recordset gets created and use the following line
  220.     'Data1.Caption = "Record: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
  221. End Sub
  222. Private Sub Data1_Validate(Action As Integer, Save As Integer)
  223.     'This is where you put validation code
  224.     'This event gets called when the following actions occur
  225.     Select Case Action
  226.         Case vbDataActionMoveFirst
  227.         Case vbDataActionMovePrevious
  228.         Case vbDataActionMoveNext
  229.         Case vbDataActionMoveLast
  230.         Case vbDataActionAddNew
  231.         Case vbDataActionUpdate
  232.         Case vbDataActionDelete
  233.         Case vbDataActionFind
  234.         Case vbDataActionBookmark
  235.         Case vbDataActionClose
  236.             Screen.MousePointer = vbDefault
  237.     End Select
  238.     Screen.MousePointer = vbHourglass
  239. End Sub
  240. Private Sub Form_Load()
  241.   Center Me
  242.   Me.Data1.DatabaseName = frmMain.gsDatabase
  243. End Sub
  244. Private Sub Form_Unload(Cancel As Integer)
  245.     Screen.MousePointer = vbDefault
  246. End Sub
  247.