Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / sframe16 / iv_recrd.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1997-11-28 | 68.3 KB | 1,961 lines

VERSION 4.00 Begin VB.Form IV_RECRD Appearance = 0 'Flat BackColor = &H00FFFF00& Caption = "View Ham & Ham Services Invoice" ClientHeight = 5085 ClientLeft = 300 ClientTop = 840 ClientWidth = 9240 ControlBox = 0 'False BeginProperty Font name = "MS Sans Serif" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 5775 Left = 240 LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 5085 ScaleWidth = 9240 Top = 210 Width = 9360 Begin VB.Frame Frame8 BackColor = &H00FFFF00& BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 4215 Left = 720 TabIndex = 115 Top = 360 Visible = 0 'False Width = 7815 Begin VB.Label Label6 Alignment = 2 'Center BackColor = &H00FFFF00& Caption = "Invoice Summary" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 24 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 615 Index = 18 Left = 120 TabIndex = 134 Top = 240 Width = 7575 End Begin VB.Label Label6 Alignment = 1 'Right Justify BackColor = &H00FFFF00& Caption = "Total Amount Due" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 17 Left = 6000 TabIndex = 133 Top = 3600 Width = 1575 End Begin VB.Label Label6 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "TOT_DUE" DataSource = "Data1(1)" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 16 Left = 6000 TabIndex = 132 Top = 3840 Width = 1575 End Begin VB.Label Label6 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "CONT_DUE" DataSource = "Data1(1)" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 15 Left = 4560 TabIndex = 131 Top = 3840 Width = 1215 End Begin VB.Label Label6 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "MISC_TOT" DataSource = "Data1(1)" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 14 Left = 2640 TabIndex = 130 Top = 3840 Width = 1695 End Begin VB.Label Label6 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "LAB_TOT" DataSource = "Data1(1)" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 13 Left = 1440 TabIndex = 129 Top = 3840 Width = 975 End Begin VB.Label Label6 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "MAT_TOT" DataSource = "Data1(1)" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 12 Left = 120 TabIndex = 128 Top = 3840 Width = 1095 End Begin VB.Label Label6 BackColor = &H0000FFFF& DataField = "JOB_DESC" DataSource = "Data1(1)" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 855 Index = 11 Left = 120 TabIndex = 127 Top = 2280 Width = 7575 End Begin VB.Label Label6 BackColor = &H0000FFFF& DataField = "CUST_NAME" DataSource = "Data1(1)" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 375 Index = 10 Left = 3000 TabIndex = 126 Top = 1200 Width = 4695 End Begin VB.Label Label6 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "INV_DATE" DataSource = "Data1(1)" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 375 Index = 9 Left = 1680 TabIndex = 125 Top = 1200 Width = 1095 End Begin VB.Label Label6 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "INV_NO" DataSource = "Data1(1)" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 375 Index = 8 Left = 120 TabIndex = 124 Top = 1200 Width = 1335 End Begin VB.Label Label6 BackColor = &H00FFFF00& Caption = "Total Contract" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 7 Left = 4560 TabIndex = 123 Top = 3600 Width = 1215 End Begin VB.Label Label6 BackColor = &H00FFFF00& Caption = "Total Miscellaneous" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 6 Left = 2640 TabIndex = 122 Top = 3600 Width = 1695 End Begin VB.Label Label6 BackColor = &H00FFFF00& Caption = "Total Labor" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 5 Left = 1440 TabIndex = 121 Top = 3600 Width = 975 End Begin VB.Label Label6 BackColor = &H00FFFF00& Caption = "Total Material" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 4 Left = 120 TabIndex = 120 Top = 3600 Width = 1215 End Begin VB.Label Label6 BackColor = &H00FFFF00& Caption = "Job Description" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 3 Left = 120 TabIndex = 119 Top = 2040 Width = 1335 End Begin VB.Label Label6 BackColor = &H00FFFF00& Caption = "Customer Name" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 2 Left = 3000 TabIndex = 118 Top = 960 Width = 1455 End Begin VB.Label Label6 BackColor = &H00FFFF00& Caption = "Invoice Date" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 1 Left = 1680 TabIndex = 117 Top = 960 Width = 1095 End Begin VB.Label Label6 BackColor = &H00FFFF00& Caption = "Invoice Number" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 255 Index = 0 Left = 120 TabIndex = 116 Top = 960 Width = 1335 End End Begin VB.VScrollBar VScroll1 Height = 2055 LargeChange = 1000 Left = 8880 Max = 7200 SmallChange = 200 TabIndex = 2 Top = 1680 Width = 375 End Begin VB.Frame Frame1 Appearance = 0 'Flat BackColor = &H00FFFF00& ForeColor = &H00000000& Height = 12240 Left = 0 TabIndex = 4 Top = 0 Width = 9045 Begin VB.Frame Frame7 Height = 3375 Left = 4560 TabIndex = 22 Top = 8760 Width = 4335 Begin VB.Label Label5 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "TOT_DUE" DataSource = "Data1(1)" Height = 255 Index = 10 Left = 2880 TabIndex = 48 Top = 2880 Width = 1335 End Begin VB.Label Label5 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "CONT_DUE" DataSource = "Data1(1)" Height = 255 Index = 9 Left = 2880 TabIndex = 47 Top = 2400 Width = 1335 End Begin VB.Label Label5 BackColor = &H00C0C0C0& Caption = "Total Amount Due" Height = 255 Index = 4 Left = 120 TabIndex = 46 Top = 2880 Width = 2535 End Begin VB.Line Line1 X1 = 0 X2 = 4320 Y1 = 2160 Y2 = 2160 End Begin VB.Label Label5 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "MISC_TOT" DataSource = "Data1(1)" Height = 255 Index = 8 Left = 2880 TabIndex = 45 Top = 1680 Width = 1335 End Begin VB.Label Label5 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "LAB_TOT" DataSource = "Data1(1)" Height = 255 Index = 7 Left = 2880 TabIndex = 44 Top = 1200 Width = 1335 End Begin VB.Label Label5 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "MAT_TOT" DataSource = "Data1(1)" Height = 255 Index = 6 Left = 2880 TabIndex = 43 Top = 720 Width = 1335 End Begin VB.Label Label5 Caption = "Contract Amount Due" Height = 255 Index = 5 Left = 120 TabIndex = 42 Top = 2400 Width = 2655 End Begin VB.Label Label5 Caption = "Total Miscellaneous" Height = 255 Index = 3 Left = 120 TabIndex = 41 Top = 1680 Width = 2655 End Begin VB.Label Label5 Caption = "Total Labor" Height = 255 Index = 2 Left = 120 TabIndex = 40 Top = 1200 Width = 2655 End Begin VB.Label Label5 Caption = "Total Materials" Height = 255 Index = 1 Left = 120 TabIndex = 39 Top = 720 Width = 2655 End Begin VB.Label Label5 Alignment = 2 'Center Caption = "Summary" Height = 255 Index = 0 Left = 1560 TabIndex = 38 Top = 240 Width = 1335 End End Begin VB.Frame Frame6 Height = 3375 Left = 120 TabIndex = 21 Top = 8760 Width = 4335 Begin VB.Label Label4 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "MISC_TOT" DataSource = "Data1(1)" Height = 255 Index = 13 Left = 3120 TabIndex = 112 Top = 3000 Width = 1095 End Begin VB.Label Label4 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "MISC_AMT_5" DataSource = "Data1(1)" Height = 255 Index = 12 Left = 3360 TabIndex = 111 Top = 2520 Width = 855 End Begin VB.Label Label4 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "MISC_AMT_4" DataSource = "Data1(1)" Height = 255 Index = 11 Left = 3360 TabIndex = 110 Top = 2040 Width = 855 End Begin VB.Label Label4 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "MISC_AMT_3" DataSource = "Data1(1)" Height = 255 Index = 10 Left = 3360 TabIndex = 109 Top = 1560 Width = 855 End Begin VB.Label Label4 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "MISC_AMT_2" DataSource = "Data1(1)" Height = 255 Index = 9 Left = 3360 TabIndex = 108 Top = 1080 Width = 855 End Begin VB.Label Label4 BackColor = &H0000FFFF& DataField = "MISC_DES_5" DataSource = "Data1(1)" Height = 255 Index = 7 Left = 120 TabIndex = 107 Top = 2520 Width = 3135 End Begin VB.Label Label4 BackColor = &H0000FFFF& DataField = "MISC_DES_4" DataSource = "Data1(1)" Height = 255 Index = 6 Left = 120 TabIndex = 106 Top = 2040 Width = 3135 End Begin VB.Label Label4 BackColor = &H0000FFFF& DataField = "MISC_DES_3" DataSource = "Data1(1)" Height = 255 Index = 5 Left = 120 TabIndex = 105 Top = 1560 Width = 3135 End Begin VB.Label Label4 BackColor = &H0000FFFF& DataField = "MISC_DES_2" DataSource = "Data1(1)" Height = 255 Index = 4 Left = 120 TabIndex = 104 Top = 1080 Width = 3135 End Begin VB.Label Label4 BackColor = &H0000FFFF& DataField = "MISC_DES_1" DataSource = "Data1(1)" Height = 255 Index = 3 Left = 120 TabIndex = 103 Top = 600 Width = 3135 End Begin VB.Label Label4 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "MISC_AMT_1" DataSource = "Data1(1)" Height = 255 Index = 8 Left = 3360 TabIndex = 59 Top = 600 Width = 855 End Begin VB.Label Label4 Caption = "Total Miscellaneous" Height = 255 Index = 2 Left = 1200 TabIndex = 37 Top = 3000 Width = 1815 End Begin VB.Label Label4 Alignment = 2 'Center Caption = "Amount" Height = 255 Index = 1 Left = 3360 TabIndex = 36 Top = 240 Width = 855 End Begin VB.Label Label4 Alignment = 2 'Center Caption = "Miscellaneous Charges" Height = 255 Index = 0 Left = 120 TabIndex = 35 Top = 240 Width = 3015 End End Begin VB.Frame Frame5 Height = 3495 Left = 4560 TabIndex = 20 Top = 5160 Width = 4335 Begin VB.Label Label3 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "LAB_TOT" DataSource = "Data1(1)" Height = 255 Index = 25 Left = 3000 TabIndex = 102 Top = 3120 Width = 1215 End Begin VB.Label Label3 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "LAB_AMT_5" DataSource = "Data1(1)" Height = 255 Index = 24 Left = 3360 TabIndex = 101 Top = 2640 Width = 855 End Begin VB.Label Label3 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "LAB_AMT_4" DataSource = "Data1(1)" Height = 255 Index = 23 Left = 3360 TabIndex = 100 Top = 2160 Width = 855 End Begin VB.Label Label3 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "LAB_AMT_3" DataSource = "Data1(1)" Height = 255 Index = 22 Left = 3360 TabIndex = 99 Top = 1680 Width = 855 End Begin VB.Label Label3 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "LAB_AMT_2" DataSource = "Data1(1)" Height = 255 Index = 21 Left = 3360 TabIndex = 98 Top = 1200 Width = 855 End Begin VB.Label Label3 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "LAB_AMT_1" DataSource = "Data1(1)" Height = 255 Index = 20 Left = 3360 TabIndex = 97 Top = 720 Width = 855 End Begin VB.Label Label3 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "RATE_5" DataSource = "Data1(1)" Height = 255 Index = 19 Left = 2400 TabIndex = 96 Top = 2640 Width = 855 End Begin VB.Label Label3 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "RATE_4" DataSource = "Data1(1)" Height = 255 Index = 18 Left = 2400 TabIndex = 95 Top = 2160 Width = 855 End Begin VB.Label Label3 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "RATE_3" DataSource = "Data1(1)" Height = 255 Index = 17 Left = 2400 TabIndex = 94 Top = 1680 Width = 855 End Begin VB.Label Label3 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "RATE_2" DataSource = "Data1(1)" Height = 255 Index = 16 Left = 2400 TabIndex = 93 Top = 1200 Width = 855 End Begin VB.Label Label3 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "RATE_1" DataSource = "Data1(1)" Height = 255 Index = 15 Left = 2400 TabIndex = 92 Top = 720 Width = 855 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "HOURS_5" DataSource = "Data1(1)" Height = 255 Index = 14 Left = 1560 TabIndex = 91 Top = 2640 Width = 735 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "HOURS_4" DataSource = "Data1(1)" Height = 255 Index = 13 Left = 1560 TabIndex = 90 Top = 2160 Width = 735 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "HOURS_3" DataSource = "Data1(1)" Height = 255 Index = 12 Left = 1560 TabIndex = 89 Top = 1680 Width = 735 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "HOURS_2" DataSource = "Data1(1)" Height = 255 Index = 11 Left = 1560 TabIndex = 88 Top = 1200 Width = 735 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "HOURS_1" DataSource = "Data1(1)" ForeColor = &H00000000& Height = 255 Index = 10 Left = 1560 TabIndex = 53 Top = 720 Width = 735 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "LAB_DATE_5" DataSource = "Data1(1)" ForeColor = &H00000000& Height = 255 Index = 9 Left = 120 TabIndex = 52 Top = 2640 Width = 1335 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "LAB_DATE_4" DataSource = "Data1(1)" ForeColor = &H00000000& Height = 255 Index = 8 Left = 120 TabIndex = 51 Top = 2160 Width = 1335 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "LAB_DATE_3" DataSource = "Data1(1)" ForeColor = &H00000000& Height = 255 Index = 7 Left = 120 TabIndex = 50 Top = 1680 Width = 1335 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "LAB_DATE_2" DataSource = "Data1(1)" ForeColor = &H00000000& Height = 255 Index = 6 Left = 120 TabIndex = 49 Top = 1200 Width = 1335 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "LAB_DATE_1" DataSource = "Data1(1)" ForeColor = &H00000000& Height = 255 Index = 5 Left = 120 TabIndex = 34 Top = 720 Width = 1335 End Begin VB.Label Label3 Caption = "Total Labor" Height = 255 Index = 4 Left = 1800 TabIndex = 33 Top = 3120 Width = 1095 End Begin VB.Label Label3 Alignment = 2 'Center Caption = "Amount" Height = 255 Index = 3 Left = 3480 TabIndex = 32 Top = 240 Width = 735 End Begin VB.Label Label3 Alignment = 2 'Center Caption = "Hours" Height = 255 Index = 2 Left = 1560 TabIndex = 31 Top = 240 Width = 735 End Begin VB.Label Label3 Alignment = 2 'Center Caption = "Rate" Height = 255 Index = 1 Left = 2520 TabIndex = 30 Top = 240 Width = 735 End Begin VB.Label Label3 Alignment = 2 'Center Caption = "Labor" Height = 255 Index = 0 Left = 120 TabIndex = 29 Top = 240 Width = 1335 End End Begin VB.Frame Frame4 Height = 3495 Left = 120 TabIndex = 19 Top = 5160 Width = 4335 Begin VB.Label Label2 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "MAT_TOT" DataSource = "Data1(1)" Height = 255 Index = 25 Left = 3120 TabIndex = 87 Top = 3120 Width = 1095 End Begin VB.Label Label2 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "MAT_AMT_5" DataSource = "Data1(1)" Height = 255 Index = 24 Left = 3360 TabIndex = 86 Top = 2640 Width = 855 End Begin VB.Label Label2 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "MAT_AMT_4" DataSource = "Data1(1)" Height = 255 Index = 23 Left = 3360 TabIndex = 85 Top = 2160 Width = 855 End Begin VB.Label Label2 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "MAT_AMT_3" DataSource = "Data1(1)" Height = 255 Index = 22 Left = 3360 TabIndex = 84 Top = 1680 Width = 855 End Begin VB.Label Label2 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "MAT_AMT_2" DataSource = "Data1(1)" Height = 255 Index = 21 Left = 3360 TabIndex = 83 Top = 1200 Width = 855 End Begin VB.Label Label2 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "MAT_AMT_1" DataSource = "Data1(1)" Height = 255 Index = 20 Left = 3360 TabIndex = 82 Top = 720 Width = 855 End Begin VB.Label Label2 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "PRICE_5" DataSource = "Data1(1)" Height = 255 Index = 19 Left = 2400 TabIndex = 81 Top = 2640 Width = 855 End Begin VB.Label Label2 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "PRICE_4" DataSource = "Data1(1)" Height = 255 Index = 18 Left = 2400 TabIndex = 80 Top = 2160 Width = 855 End Begin VB.Label Label2 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "PRICE_3" DataSource = "Data1(1)" Height = 255 Index = 17 Left = 2400 TabIndex = 79 Top = 1680 Width = 855 End Begin VB.Label Label2 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "PRICE_2" DataSource = "Data1(1)" Height = 255 Index = 16 Left = 2400 TabIndex = 78 Top = 1200 Width = 855 End Begin VB.Label Label2 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "PRICE_1" DataSource = "Data1(1)" Height = 255 Index = 15 Left = 2400 TabIndex = 77 Top = 720 Width = 855 End Begin VB.Label Label2 BackColor = &H0000FFFF& DataField = "MATERIAL_5" DataSource = "Data1(1)" Height = 255 Index = 14 Left = 720 TabIndex = 76 Top = 2640 Width = 1575 End Begin VB.Label Label2 BackColor = &H0000FFFF& DataField = "MATERIAL_4" DataSource = "Data1(1)" Height = 255 Index = 13 Left = 720 TabIndex = 75 Top = 2160 Width = 1575 End Begin VB.Label Label2 BackColor = &H0000FFFF& DataField = "MATERIAL_3" DataSource = "Data1(1)" Height = 255 Index = 12 Left = 720 TabIndex = 74 Top = 1680 Width = 1575 End Begin VB.Label Label2 BackColor = &H0000FFFF& DataField = "MATERIAL_2" DataSource = "Data1(1)" Height = 255 Index = 11 Left = 720 TabIndex = 73 Top = 1200 Width = 1575 End Begin VB.Label Label2 BackColor = &H0000FFFF& DataField = "MATERIAL_1" DataSource = "Data1(1)" Height = 255 Index = 10 Left = 720 TabIndex = 58 Top = 720 Width = 1575 End Begin VB.Label Label2 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "QTY_5" DataSource = "Data1(1)" Height = 255 Index = 9 Left = 120 TabIndex = 57 Top = 2640 Width = 495 End Begin VB.Label Label2 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "QTY_4" DataSource = "Data1(1)" Height = 255 Index = 8 Left = 120 TabIndex = 56 Top = 2160 Width = 495 End Begin VB.Label Label2 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "QTY_3" DataSource = "Data1(1)" Height = 255 Index = 7 Left = 120 TabIndex = 55 Top = 1680 Width = 495 End Begin VB.Label Label2 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "QTY_2" DataSource = "Data1(1)" Height = 255 Index = 6 Left = 120 TabIndex = 54 Top = 1200 Width = 495 End Begin VB.Label Label2 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "QTY_1" DataSource = "Data1(1)" Height = 255 Index = 5 Left = 120 TabIndex = 28 Top = 720 Width = 495 End Begin VB.Label Label2 Caption = "Total Materials" Height = 255 Index = 4 Left = 1680 TabIndex = 27 Top = 3120 Width = 1335 End Begin VB.Label Label2 Alignment = 2 'Center Caption = "Amount" Height = 255 Index = 3 Left = 3240 TabIndex = 26 Top = 240 Width = 975 End Begin VB.Label Label2 Alignment = 2 'Center Caption = "Price" Height = 255 Index = 2 Left = 2400 TabIndex = 25 Top = 240 Width = 855 End Begin VB.Label Label2 Alignment = 2 'Center Caption = "Material" Height = 255 Index = 1 Left = 1080 TabIndex = 24 Top = 240 Width = 975 End Begin VB.Label Label2 Caption = "Qty" Height = 255 Index = 0 Left = 120 TabIndex = 23 Top = 240 Width = 495 End End Begin VB.Frame Frame2 BackColor = &H00FFFF00& Height = 4335 Left = 120 TabIndex = 5 Top = 720 Width = 8775 Begin VB.Frame Frame3 Height = 1335 Left = 6240 TabIndex = 3 Top = 1080 Width = 2295 Begin VB.CheckBox Check2 Caption = "Contract" DataField = "CK_2_CON" DataSource = "Data1(1)" Height = 255 Left = 240 TabIndex = 0 Top = 840 Width = 1095 End Begin VB.CheckBox Check1 Caption = "Hourly Work" DataField = "CK_1_DAY" DataSource = "Data1(1)" Height = 255 Left = 240 TabIndex = 1 Top = 360 Width = 1815 End End Begin VB.Label Label1 BackColor = &H0000FFFF& Height = 255 Index = 29 Left = 7440 TabIndex = 136 Top = 1200 Visible = 0 'False Width = 615 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "PHONE" DataSource = "Data1(0)" Height = 255 Index = 31 Left = 2880 TabIndex = 135 Top = 2520 Visible = 0 'False Width = 855 End Begin VB.Label Label1 BackColor = &H0000FFFF& DataField = "CUST_NO" DataSource = "Data1(1)" Height = 255 Index = 28 Left = 1440 TabIndex = 114 Top = 600 Visible = 0 'False Width = 615 End Begin VB.Label Label1 Alignment = 1 'Right Justify BackColor = &H0000FFFF& DataField = "CONT_DUE" DataSource = "Data1(1)" Height = 255 Index = 27 Left = 6720 TabIndex = 113 Top = 2760 Width = 1455 End Begin VB.Label Label1 BackColor = &H0000FFFF& DataField = "JOB_DESC" DataSource = "Data1(1)" Height = 615 Index = 26 Left = 120 TabIndex = 72 Top = 3600 Width = 8535 End Begin VB.Label Label1 BackColor = &H0000FFFF& DataField = "AUTH_BY" DataSource = "Data1(1)" Height = 255 Index = 25 Left = 1800 TabIndex = 71 Top = 3000 Width = 3135 End Begin VB.Label Label1 BackColor = &H0000FFFF& Height = 255 Index = 24 Left = 1800 TabIndex = 70 Top = 2520 Width = 1935 End Begin VB.Label Label1 BackColor = &H0000FFFF& DataField = "ZIP" DataSource = "Data1(0)" Height = 255 Index = 23 Left = 4800 TabIndex = 69 Top = 2520 Width = 975 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "STATE" DataSource = "Data1(0)" Height = 255 Index = 22 Left = 4800 TabIndex = 68 Top = 2040 Width = 495 End Begin VB.Label Label1 BackColor = &H0000FFFF& DataField = "CITY" DataSource = "Data1(0)" Height = 255 Index = 21 Left = 1800 TabIndex = 67 Top = 2040 Width = 1935 End Begin VB.Label Label1 BackColor = &H0000FFFF& DataField = "ADDRESS" DataSource = "Data1(0)" Height = 255 Index = 20 Left = 1800 TabIndex = 66 Top = 1560 Width = 3135 End Begin VB.Label Label1 BackColor = &H0000FFFF& DataField = "CUST_NAME" DataSource = "Data1(1)" Height = 255 Index = 19 Left = 1800 TabIndex = 65 Top = 1080 Width = 3135 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H0000FFFF& Height = 255 Index = 18 Left = 480 TabIndex = 64 Top = 600 Width = 855 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "INV_DATE" DataSource = "Data1(1)" Height = 255 Index = 17 Left = 7200 TabIndex = 63 Top = 600 Width = 1095 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "PO_NO" DataSource = "Data1(1)" Height = 255 Index = 16 Left = 5280 TabIndex = 62 Top = 600 Width = 1215 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H0000FFFF& DataField = "INV_NO" DataSource = "Data1(1)" Height = 255 Index = 15 Left = 3000 TabIndex = 61 Top = 600 Width = 1215 End Begin VB.Label Label1 Caption = "Contract Amount" Height = 255 Index = 14 Left = 6720 TabIndex = 60 Top = 2520 Width = 1455 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "Customer Number" Height = 255 Index = 13 Left = 120 TabIndex = 18 Top = 240 Width = 1695 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "Date" Height = 255 Index = 10 Left = 7200 TabIndex = 17 Top = 240 Width = 1095 End Begin VB.Label Label1 Caption = "Job Description" Height = 255 Index = 9 Left = 120 TabIndex = 16 Top = 3360 Width = 1575 End Begin VB.Label Label1 Caption = "Authorizing Agent" Height = 255 Index = 8 Left = 120 TabIndex = 15 Top = 3000 Width = 1575 End Begin VB.Label Label1 Caption = "Phone" Height = 255 Index = 7 Left = 120 TabIndex = 14 Top = 2520 Width = 1575 End Begin VB.Label Label1 Caption = "Zip" Height = 255 Index = 6 Left = 4080 TabIndex = 13 Top = 2520 Width = 615 End Begin VB.Label Label1 Caption = "State" Height = 255 Index = 5 Left = 4080 TabIndex = 12 Top = 2040 Width = 615 End Begin VB.Label Label1 Caption = "City" Height = 255 Index = 4 Left = 120 TabIndex = 11 Top = 2040 Width = 1575 End Begin VB.Label Label1 Caption = "Address" Height = 255 Index = 3 Left = 120 TabIndex = 10 Top = 1560 Width = 1575 End Begin VB.Label Label1 Caption = "Customer Name" Height = 255 Index = 2 Left = 120 TabIndex = 9 Top = 1080 Width = 1575 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "PO Number" Height = 255 Index = 1 Left = 5280 TabIndex = 8 Top = 240 Width = 1215 End Begin VB.Label Label1 Caption = "Invoice Number" Height = 255 Index = 0 Left = 2880 TabIndex = 7 Top = 240 Width = 1455 End End Begin VB.Label Label1 Alignment = 2 'Center Caption = "EMail - hamham@harborside.com" Height = 255 Index = 11 Left = 120 TabIndex = 140 Top = 480 Width = 3015 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "PO Box 1393, Bandon, Or 97411" Height = 255 Index = 33 Left = 5880 TabIndex = 139 Top = 240 Width = 3015 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "(541) 347-3754" Height = 255 Index = 32 Left = 5880 TabIndex = 138 Top = 480 Width = 3015 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "Ham && Ham Services" BeginProperty Font name = "Arial" charset = 1 weight = 700 size = 14.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 375 Index = 30 Left = 120 TabIndex = 137 Top = 120 Width = 3015 End Begin VB.Label Label28 Alignment = 2 'Center Caption = "INVOICE" BeginProperty Font name = "Courier New" charset = 1 weight = 700 size = 24 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 615 Left = 240 TabIndex = 6 Top = 120 Width = 8775 End End Begin VB.Menu mnuFile Caption = "&File" Begin VB.Menu mnuExit Caption = "E&xit" End End Begin VB.Menu mnuView Caption = "&View" Begin VB.Menu mnuVAll Caption = "&All" End Begin VB.Menu mnuSep1 Caption = "-" End Begin VB.Menu mnuVSumary Caption = "&Summary" End End Begin VB.Menu mnuRecord Caption = "&Record" Begin VB.Menu mnuRNext Caption = "&Next" End Begin VB.Menu mnuSep2 Caption = "-" End Begin VB.Menu mnuRPrevious Caption = "&Previous" End Begin VB.Menu mnuSep3 Caption = "-" End Begin VB.Menu mnuRFirst Caption = "&First" End Begin VB.Menu mnuSep4 Caption = "-" End Begin VB.Menu mnuRLast Caption = "&Last" End End Begin VB.Menu mnuSort Caption = "&Sort" Begin VB.Menu mnuSInv_No Caption = "&Invoice Number" End Begin VB.Menu mnuSep5 Caption = "-" End Begin VB.Menu mnuSInv_Date Caption = "Invoice &Date" End Begin VB.Menu mnuSCust_Name Caption = "Customer N&ame" End Begin VB.Menu mnuSCust_No Caption = "Customer N&umber" End End Begin VB.Menu mnuTools Caption = "&Tools" Begin VB.Menu mnuTCalc_or Caption = "&Calculator" End End Begin VB.Menu mnuPrint Caption = "&Print" Begin VB.Menu mnuPForm Caption = "&Invoice" End Begin VB.Menu mnuSep6 Caption = "-" End Begin VB.Menu mnuPSumary Caption = "&Summary List" End Begin VB.Menu mnuPCustomer Caption = "&Customer List" End End Attribute VB_Name = "IV_RECRD" Attribute VB_Creatable = False Attribute VB_Exposed = False Private Sub Form_Load() '------------------------------------------- ' This centers the form on the screen - run mode '------------------------------------------- IV_RECRD.Top = (Screen.Height - IV_RECRD.Height) / 2 IV_RECRD.Left = (Screen.Width - IV_RECRD.Width) / 2 End Sub Private Sub mnuExit_Click() End End Sub Private Sub mnuRFirst_Click() '------------------------------------------- ' These are simple sub's to trap errors and to move ' through the records stored in a database. ' Notice I used Err.Clear, it is possible to have ' more than one error so I clear each one before ' another happens. ' I had to rem out the actual data control move ' code because I removed the data control from ' the form. ' To use this code remove the rem symbol. '------------------------------------------- '------------------------------------------- On Error Resume Next '------------------------------------------- If Label1(15).Caption = "" Then '------------------------------------------- MsgBox "There are no Invoices to View", 48, "View Invoice(s)" Err.Clear Exit Sub '-------------------------------------- Else 'Data1(1).Recordset.MoveFirst End If '-------------------------------------- End Sub Private Sub mnuRLast_Click() '------------------------------------------- On Error Resume Next '------------------------------------------- If Label1(15).Caption = "" Then '------------------------------------------- MsgBox "There are no Invoices to View", 48, "View Invoice(s)" Err.Clear Exit Sub '-------------------------------------- Else 'Data1(1).Recordset.MoveLast End If '------------------------------------------- End Sub Private Sub mnuRNext_Click() '------------------------------------------- On Error Resume Next '------------------------------------------- If Label1(15).Caption = "" Then '------------------------------------------- MsgBox "There are no Invoices to View", 48, "View Invoice(s)" Err.Clear Exit Sub '-------------------------------------- Else 'Data1(1).Recordset.MoveNext 'If Data1(1).Recordset.EOF = True Then Data1(1).Recordset.MovePrevious End If '------------------------------------------- End Sub Private Sub mnuRPrevious_Click() '------------------------------------------- On Error Resume Next '------------------------------------------- If Label1(15).Caption = "" Then '------------------------------------------- MsgBox "There are no Invoices to View", 48, "View Invoice(s)" Err.Clear Exit Sub '-------------------------------------- Else 'Data1(1).Recordset.MovePrevious 'If Data1(1).Recordset.EOF = True Then Data1(1).Recordset.MoveNext End If '------------------------------------------- End Sub Private Sub mnuTCalc_or_Click() '------------------------------------------- ' This is the basic calculator sample program sent ' with VB4. '------------------------------------------- '------------------------------------------- CALC.Show End Sub Private Sub mnuVAll_Click() '------------------------------------------- ' This shows the invoice frame and hides the sumary ' frame. '------------------------------------------- Frame1.Visible = True Frame8.Visible = False VScroll1.Visible = True End Sub Private Sub mnuVSumary_Click() '------------------------------------------- ' This shows the sumary frame and hides the invoice ' frame. '------------------------------------------- Frame1.Visible = False Frame8.Visible = True VScroll1.Visible = False End Sub Private Sub VScroll1_Change() '------------------------------------------- ' This line of code causes the frame to scroll. ' I am using the frame top as the focal point. ' Zero minus the scroll bar value = where the frame ' top will be located on the form. ' The scroll bar value is a build in property of ' the scroll bar. '------------------------------------------- Frame1.Top = 0 - VScroll1.Value End Sub