Visual Basic Programmer'…arterly (Limited Edition)/Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso/code/ch05code/chapter5.frm

Visual Basic Form | 1995-08-15 | 11.6 KB | 372 lines

VERSION 4.00
Begin VB.Form Form1
   Caption         =   "Retail Items Data Entry"
   ClientHeight    =   5745
   ClientLeft      =   825
   ClientTop       =   1185
   ClientWidth     =   8385
   Height          =   6210
   Left            =   735
   LinkTopic       =   "Form1"
   ScaleHeight     =   5745
   ScaleWidth      =   8385
   Top             =   810
   Width           =   8565
   Begin VB.Data Supplier
      Caption         =   "Suppliers"
      Connect         =   "Access"
      DatabaseName    =   "TRITON2.MDB"
      Exclusive       =   0   'False
      Height          =   270
      Left            =   2880
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "Suppliers"
      Top             =   5400
      Visible         =   0   'False
      Width           =   3015
   End
   Begin VB.CommandButton Command5
      Caption         =   "Show in Price Order"
      Height          =   375
      Left            =   240
      TabIndex        =   21
      Top             =   5160
      Width           =   2295
   End
   Begin VB.CommandButton Command4
      Caption         =   "Browse Mode"
      Height          =   375
      Left            =   6240
      TabIndex        =   19
      Top             =   5160
      Width           =   1935
   End
   Begin VB.PictureBox Picture1
      Height          =   4935
      Left            =   0
      ScaleHeight     =   4905
      ScaleWidth      =   8385
      TabIndex        =   0
      Top             =   0
      Width           =   8415
      Begin VB.ComboBox Combo1
         DataField       =   "Product Category"
         DataSource      =   "Items"
         Height          =   300
         Left            =   1560
         TabIndex        =   24
         Text            =   "Combo1"
         Top             =   960
         Width           =   1935
      End
      Begin VB.CommandButton Command6
         Caption         =   "Find Item Code"
         Height          =   375
         Left            =   5280
         TabIndex        =   22
         Top             =   4080
         Width           =   1815
      End
      Begin VB.PictureBox Picture2
         DataField       =   "Photo"
         DataSource      =   "Items"
         Height          =   1815
         Left            =   1320
         ScaleHeight     =   1785
         ScaleWidth      =   2145
         TabIndex        =   20
         Top             =   2880
         Width           =   2175
      End
      Begin VB.CommandButton Command3
         Caption         =   "Add Photo"
         Height          =   375
         Left            =   120
         TabIndex        =   18
         Top             =   3240
         Width           =   975
      End
      Begin VB.CommandButton Command2
         Caption         =   "Delete Current Record"
         Height          =   375
         Left            =   5280
         TabIndex        =   17
         Top             =   3480
         Width           =   1815
      End
      Begin VB.TextBox Text6
         DataField       =   "OnHand"
         DataSource      =   "Items"
         Height          =   285
         Left            =   5760
         TabIndex        =   16
         Text            =   "Text6"
         Top             =   2160
         Width           =   855
      End
      Begin VB.TextBox Text5
         DataField       =   "Min Quantity"
         DataSource      =   "Items"
         Height          =   285
         Left            =   2880
         TabIndex        =   15
         Text            =   "Text5"
         Top             =   2160
         Width           =   975
      End
      Begin VB.TextBox Text4
         DataField       =   "Retail"
         DataSource      =   "Items"
         Height          =   285
         Left            =   4440
         TabIndex        =   14
         Text            =   "Text4"
         Top             =   1560
         Width           =   855
      End
      Begin VB.TextBox Text3
         DataField       =   "Wholesale"
         DataSource      =   "Items"
         Height          =   285
         Left            =   1560
         TabIndex        =   13
         Text            =   "Text3"
         Top             =   1560
         Width           =   975
      End
      Begin VB.TextBox Text2
         DataField       =   "Item Description"
         DataSource      =   "Items"
         Height          =   285
         Left            =   3840
         TabIndex        =   12
         Text            =   "Text2"
         Top             =   360
         Width           =   4215
      End
      Begin VB.TextBox Text1
         DataField       =   "Item Code"
         DataSource      =   "Items"
         Height          =   285
         Left            =   1080
         TabIndex        =   11
         Text            =   "Text1"
         Top             =   360
         Width           =   1095
      End
      Begin VB.CommandButton Command1
         Caption         =   "Add New Record"
         Height          =   375
         Left            =   5280
         TabIndex        =   10
         Top             =   2880
         Width           =   1815
      End
      Begin MSComDlg.CommonDialog Getfile
         Left            =   120
         Top             =   3840
         _version        =   65536
         _extentx        =   847
         _extenty        =   847
         _stockprops     =   0
      End
      Begin VB.Shape Shape1
         Height          =   2055
         Left            =   5040
         Shape           =   4  'Rounded Rectangle
         Top             =   2640
         Width           =   2295
      End
      Begin VB.Label Label9
         Caption         =   "Product Photo:"
         Height          =   255
         Left            =   120
         TabIndex        =   9
         Top             =   2880
         Width           =   1095
      End
      Begin VB.Label Label8
         Caption         =   "Quantity On Hand:"
         Height          =   255
         Left            =   4320
         TabIndex        =   8
         Top             =   2160
         Width           =   1455
      End
      Begin VB.Label Label7
         Caption         =   "Minimum Desired Inventory Quantity:"
         Height          =   255
         Left            =   240
         TabIndex        =   7
         Top             =   2160
         Width           =   2655
      End
      Begin VB.Label Label6
         Caption         =   "Retail Price:"
         Height          =   255
         Left            =   3480
         TabIndex        =   6
         Top             =   1560
         Width           =   975
      End
      Begin VB.Label Label5
         Caption         =   "Wholesale Price:"
         Height          =   255
         Left            =   240
         TabIndex        =   5
         Top             =   1560
         Width           =   1335
      End
      Begin VB.Label Label4
         Caption         =   "Product Supplier:"
         Height          =   255
         Left            =   3960
         TabIndex        =   4
         Top             =   960
         Width           =   1335
      End
      Begin VB.Label Label3
         Caption         =   "Product Category:"
         Height          =   255
         Left            =   240
         TabIndex        =   3
         Top             =   960
         Width           =   1335
      End
      Begin VB.Label Label2
         Caption         =   "Item Description:"
         Height          =   255
         Left            =   2520
         TabIndex        =   2
         Top             =   360
         Width           =   1215
      End
      Begin VB.Label Label1
         Caption         =   "Item Code:"
         Height          =   255
         Left            =   240
         TabIndex        =   1
         Top             =   360
         Width           =   855
      End
   End
   Begin VB.Data Items
      Caption         =   "Retail Items"
      Connect         =   "Access"
      DatabaseName    =   "TRITON2.MDB"
      Exclusive       =   0   'False
      Height          =   285
      Left            =   2880
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   0  'Table
      RecordSource    =   "Retail Items"
      Top             =   5160
      Width           =   3015
   End
   Begin VB.PictureBox Picture3
      Height          =   4935
      Left            =   0
      ScaleHeight     =   4905
      ScaleWidth      =   8385
      TabIndex        =   23
      Top             =   120
      Visible         =   0   'False
      Width           =   8415
      Begin MSDBGrid.DBGrid DBGrid1
         Bindings        =   "CHAPTER5.frx":0000
         Height          =   4695
         Left            =   0
         OleObjectBlob   =   "CHAPTER5.frx":000E
         TabIndex        =   25
         Top             =   120
         Width           =   8295
      End
   End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Dim Ordfl As Integer, Browfl As Integer
Private Sub Command1_Click()
    Items.Recordset.AddNew
End Sub
Private Sub Command2_Click()
    Items.Recordset.DELETE
    If Not Items.Recordset.EOF Then
        Items.Recordset.MoveNext
        If Items.Recordset.EOF Then Items.Recordset.MoveLast
    Else
        Items.Recordset.MoveLast
    End If
End Sub
Private Sub Command3_Click()
    Getfile.Filter = "Bitmap Files (*.BMP)|*.bmp|Icon Files | *.ico |All Files|*.*"
    Getfile.DefaultExt = "BMP"
    Getfile.ShowOpen
    DataName = Getfile.filename
    Picture2.picture = LoadPicture(DataName)
End Sub
Private Sub Command4_Click()
    If Browfl = 1 Then
        Picture1.Visible = False
        Picture3.Visible = True
        Command4.Caption = "Single Record Mode"
        Browfl = 2
    Else
        Picture3.Visible = False
        Picture1.Visible = True
        Command4.Caption = "Browse Mode"
        Browfl = 1
    End If
End Sub
Private Sub Command5_Click()
    If Ordfl = 1 Then
        Items.Recordset.Index = "Price"
        Command5.Caption = "Show in Item Code Order"
        Ordfl = 2
    Else
        Items.Recordset.Index = "Items"
        Command5.Caption = "Show in Price Order"
        Ordfl = 1
    End If
End Sub
Private Sub Command6_Click()
    Dim addrc2 As String
    addrc2 = Items.Recordset.Bookmark
    Form2.Show 1
    If Seekac = 1 Then
        Indnam = Items.Recordset.Index
        Items.Recordset.Index = "Items"
        Items.Recordset.Seek "=", Seeknm
        If Not Items.Recordset.NoMatch Then
            addrc2 = Items.Recordset.Bookmark
        End If
        Items.Recordset.Index = Indnam
        Items.Recordset.Bookmark = addrc2
        Seekac = 2
    End If
End Sub
Private Sub Form_Activate()
    Ordfl = 1
    Browfl = 1
    Items.Recordset.Index = "Items"
    'Add items to Product Category List
    Combo1.AddItem "Aquariums"
    Combo1.AddItem "Fish - FW"
    Combo1.AddItem "Fish - SW"
    Combo1.AddItem "Plants"
    Combo1.AddItem "Supplies"
End Sub
Private Sub Form_Load()
    Items.DatabaseName = App.Path & "\triton2.mdb"
    Supplier.DatabaseName = App.Path & "\triton2.mdb"
End Sub
Private Sub Items_Validate(Action As Integer, Save As Integer)
    If Seekac = 2 Then
        Action = vbDataActionCancel
        Seekac = 0
    End If
End Sub