home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / W2KPRK.iso / apps / crystal / disk18 / Xvb381._ / Xvb381. (.txt)
Visual Basic Form  |  1999-08-23  |  8KB  |  257 lines
  1. VERSION 5.00
  2. Begin VB.Form frmProductType 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Product Type"
  5.    ClientHeight    =   2895
  6.    ClientLeft      =   390
  7.    ClientTop       =   1755
  8.    ClientWidth     =   7650
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2895
  13.    ScaleWidth      =   7650
  14.    ShowInTaskbar   =   0   'False
  15.    Tag             =   "Product Type"
  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             =   2175
  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             =   2175
  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             =   2175
  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             =   2175
  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             =   2175
  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             =   2175
  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    =   "Product Type"
  84.       Top             =   2550
  85.       Width           =   7650
  86.    End
  87.    Begin VB.TextBox txtFields 
  88.       DataField       =   "Description"
  89.       DataSource      =   "Data1"
  90.       Height          =   1155
  91.       Index           =   2
  92.       Left            =   120
  93.       MultiLine       =   -1  'True
  94.       ScrollBars      =   2  'Vertical
  95.       TabIndex        =   5
  96.       Top             =   915
  97.       Width           =   4440
  98.    End
  99.    Begin VB.TextBox txtFields 
  100.       DataField       =   "Product Type Name"
  101.       DataSource      =   "Data1"
  102.       Height          =   285
  103.       Index           =   1
  104.       Left            =   1680
  105.       MaxLength       =   50
  106.       TabIndex        =   3
  107.       Top             =   360
  108.       Width           =   2880
  109.    End
  110.    Begin VB.TextBox txtFields 
  111.       DataField       =   "Product Type ID"
  112.       DataSource      =   "Data1"
  113.       Height          =   285
  114.       Index           =   0
  115.       Left            =   1680
  116.       TabIndex        =   1
  117.       Top             =   40
  118.       Width           =   1440
  119.    End
  120.    Begin VB.OLE oleFields 
  121.       DataField       =   "Picture"
  122.       DataSource      =   "Data1"
  123.       Height          =   1710
  124.       Index           =   3
  125.       Left            =   4665
  126.       OLETypeAllowed  =   1  'Embedded
  127.       SizeMode        =   3  'Zoom
  128.       TabIndex        =   7
  129.       Top             =   360
  130.       Width           =   2880
  131.    End
  132.    Begin VB.Label lblLabels 
  133.       Caption         =   "Picture:"
  134.       Height          =   255
  135.       Index           =   3
  136.       Left            =   4665
  137.       TabIndex        =   6
  138.       Tag             =   "Picture:"
  139.       Top             =   60
  140.       Width           =   1560
  141.    End
  142.    Begin VB.Label lblLabels 
  143.       Caption         =   "Description:"
  144.       Height          =   255
  145.       Index           =   2
  146.       Left            =   120
  147.       TabIndex        =   4
  148.       Tag             =   "Description:"
  149.       Top             =   690
  150.       Width           =   1560
  151.    End
  152.    Begin VB.Label lblLabels 
  153.       Caption         =   "Product Type Name:"
  154.       Height          =   255
  155.       Index           =   1
  156.       Left            =   120
  157.       TabIndex        =   2
  158.       Tag             =   "Product Type Name:"
  159.       Top             =   375
  160.       Width           =   1560
  161.    End
  162.    Begin VB.Label lblLabels 
  163.       Caption         =   "Product Type ID:"
  164.       Height          =   255
  165.       Index           =   0
  166.       Left            =   120
  167.       TabIndex        =   0
  168.       Tag             =   "Product Type ID:"
  169.       Top             =   60
  170.       Width           =   1560
  171.    End
  172. Attribute VB_Name = "frmProductType"
  173. Attribute VB_GlobalNameSpace = False
  174. Attribute VB_Creatable = False
  175. Attribute VB_PredeclaredId = True
  176. Attribute VB_Exposed = False
  177. Option Explicit
  178. Private Sub cmdAdd_Click()
  179.     Data1.Recordset.AddNew
  180. End Sub
  181. Private Sub cmdClose_Click()
  182.   Me.Hide
  183. End Sub
  184. Private Sub cmdDelete_Click()
  185.     'this may produce an error if you delete the last
  186.     'record or the only record in the recordset
  187.     With Data1.Recordset
  188.         .Delete
  189.         .MoveNext
  190.         If .EOF Then .MoveLast
  191.     End With
  192. End Sub
  193. Private Sub cmdRefresh_Click()
  194.     'this is really only needed for multi user apps
  195.     Data1.Refresh
  196. End Sub
  197. Private Sub cmdUpdate_Click()
  198.     Data1.UpdateRecord
  199.     Data1.Recordset.Bookmark = Data1.Recordset.LastModified
  200. End Sub
  201. Private Sub cmdGrid_Click()
  202.     On Error GoTo cmdGrid_ClickErr
  203.     Dim f As New frmDataGrid
  204.     Set f.Data1.Recordset = Data1.Recordset
  205.     f.Caption = Me.Caption & " Grid"
  206.     f.Show
  207.     Exit Sub
  208. cmdGrid_ClickErr:
  209. End Sub
  210. Private Sub Data1_Error(DataErr As Integer, Response As Integer)
  211.     'This is where you would put error handling code
  212.     'If you want to ignore errors, comment out the next line
  213.     'If you want to trap them, add code here to handle them
  214.     MsgBox "Data error event hit err:" & Error$(DataErr)
  215.     Response = 0  'throw away the error
  216. End Sub
  217. Private Sub Data1_Reposition()
  218.     Screen.MousePointer = vbDefault
  219.     On Error Resume Next
  220.     'This will display the current record position
  221.     'for dynasets and snapshots
  222.     Data1.Caption = "Record: " & (Data1.Recordset.AbsolutePosition + 1)
  223.     'for the table object you must set the index property when
  224.     'the recordset gets created and use the following line
  225.     'Data1.Caption = "Record: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
  226. End Sub
  227. Private Sub Data1_Validate(Action As Integer, Save As Integer)
  228.     'This is where you put validation code
  229.     'This event gets called when the following actions occur
  230.     Select Case Action
  231.         Case vbDataActionMoveFirst
  232.         Case vbDataActionMovePrevious
  233.         Case vbDataActionMoveNext
  234.         Case vbDataActionMoveLast
  235.         Case vbDataActionAddNew
  236.         Case vbDataActionUpdate
  237.         Case vbDataActionDelete
  238.         Case vbDataActionFind
  239.         Case vbDataActionBookmark
  240.         Case vbDataActionClose
  241.             Screen.MousePointer = vbDefault
  242.     End Select
  243.     Screen.MousePointer = vbHourglass
  244. End Sub
  245. Private Sub Form_Load()
  246.   Center Me
  247.   Me.Data1.DatabaseName = frmMain.gsDatabase
  248. End Sub
  249. Private Sub Form_Unload(Cancel As Integer)
  250.     Screen.MousePointer = vbDefault
  251. End Sub
  252. Private Sub oleFields_DblClick(Index As Integer)
  253.     'this is the way to get data into an empty ole control
  254.     'and have it saved back to the table
  255.     oleFields(Index).InsertObjDlg
  256. End Sub
  257.