home *** CD-ROM | disk | FTP | other *** search
Text File | 1998-02-24 | 33.9 KB | 1,141 lines |
- object frmInput: TfrmInput
- Left = 150
- Top = 112
- ActiveControl = btnAddRecord
- BorderIcons = [biSystemMenu, biMaximize, biHelp]
- AutoScroll = False
- Caption = 'Everything I Own! -- Add\Edit\View Items'
- ClientHeight = 401
- ClientWidth = 620
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Menu = MainMenu1
- Position = poScreenCenter
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object lblMode: TLabel
- Left = 15
- Top = 341
- Width = 227
- Height = 29
- Caption = 'You Are In Edit Mode'
- Font.Color = clRed
- Font.Height = -24
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object DBText4: TDBText
- Left = 24
- Top = 0
- Width = 177
- Height = 25
- DataField = 'NAME'
- DataSource = DataModule1.OwnSource
- Font.Color = clRed
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Tabs: TPageControl
- Left = 9
- Top = 22
- Width = 599
- Height = 265
- ActivePage = tabItem
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- TabStop = False
- object tabItem: TTabSheet
- Caption = 'Item Information '
- object pnlInput: TPanel
- Left = 11
- Top = 36
- Width = 569
- Height = 157
- BevelInner = bvLowered
- BevelWidth = 2
- BorderStyle = bsSingle
- TabOrder = 0
- object Panel2: TPanel
- Left = 8
- Top = 8
- Width = 273
- Height = 134
- Enabled = False
- TabOrder = 0
- object Label5: TLabel
- Left = 7
- Top = 58
- Width = 53
- Height = 13
- Caption = 'Description'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label6: TLabel
- Left = 7
- Top = 108
- Width = 59
- Height = 13
- Caption = 'Brand Name'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label7: TLabel
- Left = 7
- Top = 83
- Width = 39
- Height = 13
- Caption = 'Quantity'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label18: TLabel
- Left = 7
- Top = 10
- Width = 63
- Height = 13
- Caption = 'Name of Item'
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Bevel1: TBevel
- Left = 8
- Top = 40
- Width = 257
- Height = 2
- Style = bsRaised
- end
- object EDescript: TDBEdit
- Left = 79
- Top = 55
- Width = 185
- Height = 21
- DataField = 'DESCRIPT'
- DataSource = DataModule1.OwnSource
- MaxLength = 25
- TabOrder = 1
- end
- object EQuantity: TDBEdit
- Left = 79
- Top = 80
- Width = 48
- Height = 21
- DataField = 'QUANTITY'
- DataSource = DataModule1.OwnSource
- MaxLength = 0
- TabOrder = 2
- end
- object EName: TDBEdit
- Left = 80
- Top = 8
- Width = 185
- Height = 21
- DataField = 'NAME'
- DataSource = DataModule1.OwnSource
- MaxLength = 25
- TabOrder = 0
- end
- object EManufact: TDBComboBox
- Left = 80
- Top = 104
- Width = 185
- Height = 21
- DataField = 'BRANDNAME'
- DataSource = DataModule1.OwnSource
- ItemHeight = 13
- Sorted = True
- TabOrder = 3
- OnExit = EManufactExit
- end
- end
- object Panel3: TPanel
- Left = 289
- Top = 85
- Width = 264
- Height = 57
- Enabled = False
- TabOrder = 2
- object Label1: TLabel
- Left = 9
- Top = 32
- Width = 66
- Height = 13
- Caption = 'Serial Number'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 9
- Top = 7
- Width = 69
- Height = 13
- Caption = 'Model Number'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object EModelNumber: TDBEdit
- Left = 87
- Top = 4
- Width = 170
- Height = 21
- CharCase = ecUpperCase
- DataField = 'MODELNUM'
- DataSource = DataModule1.OwnSource
- MaxLength = 25
- TabOrder = 0
- end
- object ESerialNumber: TDBEdit
- Left = 87
- Top = 28
- Width = 170
- Height = 21
- CharCase = ecUpperCase
- DataField = 'SERNUM'
- DataSource = DataModule1.OwnSource
- MaxLength = 25
- TabOrder = 1
- OnExit = ESerialNumberExit
- end
- end
- object Panel4: TPanel
- Left = 288
- Top = 8
- Width = 265
- Height = 64
- Enabled = False
- TabOrder = 1
- object Label3: TLabel
- Left = 10
- Top = 12
- Width = 59
- Height = 13
- Caption = 'Type of Item'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label4: TLabel
- Left = 10
- Top = 36
- Width = 41
- Height = 13
- Caption = 'Location'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object EItemLocation: TDBComboBox
- Left = 80
- Top = 32
- Width = 177
- Height = 21
- DataField = 'LOCATION'
- DataSource = DataModule1.OwnSource
- ItemHeight = 13
- Sorted = True
- TabOrder = 1
- OnExit = EItemLocationExit
- end
- object EItemType: TDBComboBox
- Left = 80
- Top = 8
- Width = 177
- Height = 21
- DataField = 'TYPE'
- DataSource = DataModule1.OwnSource
- ItemHeight = 13
- Sorted = True
- TabOrder = 0
- OnExit = EItemTypeExit
- end
- end
- end
- end
- object tabPurchase: TTabSheet
- Caption = 'Purchase/Warranty Information'
- object pnlInput2: TPanel
- Left = 64
- Top = 16
- Width = 465
- Height = 209
- BevelInner = bvLowered
- BevelWidth = 2
- BorderStyle = bsSingle
- Enabled = False
- TabOrder = 0
- object pnlPurchase: TPanel
- Left = 16
- Top = 9
- Width = 425
- Height = 112
- TabOrder = 0
- object Label8: TLabel
- Left = 16
- Top = 56
- Width = 62
- Height = 13
- Caption = 'Cost per Item'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label10: TLabel
- Left = 16
- Top = 30
- Width = 71
- Height = 13
- Caption = 'Purchase Date'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label11: TLabel
- Left = 15
- Top = 7
- Width = 77
- Height = 13
- Caption = 'Purchased From'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label16: TLabel
- Left = 16
- Top = 80
- Width = 48
- Height = 13
- Caption = 'Total Cost'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object ECost: TDBEdit
- Left = 161
- Top = 56
- Width = 72
- Height = 21
- DataField = 'COST'
- DataSource = DataModule1.OwnSource
- MaxLength = 0
- TabOrder = 2
- end
- object EPurchaseDate: TDBEdit
- Left = 161
- Top = 32
- Width = 72
- Height = 21
- AutoSize = False
- DataField = 'DATEPUR'
- DataSource = DataModule1.OwnSource
- MaxLength = 0
- TabOrder = 1
- OnExit = EPurchaseDateExit
- end
- object EDateTest: TDBEdit
- Left = 288
- Top = 32
- Width = 121
- Height = 21
- TabStop = False
- DataField = 'DateTest'
- DataSource = DataModule1.SystemSource
- MaxLength = 0
- TabOrder = 3
- Visible = False
- end
- object ETotalCost: TDBEdit
- Left = 160
- Top = 80
- Width = 73
- Height = 21
- TabStop = False
- DataField = 'TOTAL'
- DataSource = DataModule1.OwnSource
- MaxLength = 0
- TabOrder = 4
- end
- object EPurchasedFrom: TDBComboBox
- Left = 160
- Top = 8
- Width = 257
- Height = 21
- DataField = 'PURFROM'
- DataSource = DataModule1.OwnSource
- ItemHeight = 0
- Sorted = True
- TabOrder = 0
- OnExit = EPurchasedFromExit
- end
- end
- object Panel1: TPanel
- Left = 16
- Top = 128
- Width = 425
- Height = 65
- TabOrder = 1
- object Label12: TLabel
- Left = 8
- Top = 36
- Width = 82
- Height = 13
- Caption = 'Type of Warranty'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label13: TLabel
- Left = 8
- Top = 12
- Width = 118
- Height = 13
- Caption = 'Warranty Expiration Date'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object EWarrantyDate: TDBEdit
- Left = 160
- Top = 8
- Width = 73
- Height = 21
- AutoSize = False
- DataField = 'WAR_DATE'
- DataSource = DataModule1.OwnSource
- MaxLength = 0
- TabOrder = 0
- OnExit = EWarrantyDateExit
- end
- object ETypeWarranty: TDBEdit
- Left = 160
- Top = 32
- Width = 257
- Height = 21
- DataField = 'WAR_TYPE'
- DataSource = DataModule1.OwnSource
- MaxLength = 25
- TabOrder = 1
- OnExit = ETypeWarrantyExit
- end
- end
- end
- end
- object tabCondition: TTabSheet
- Caption = 'Condition/Replacement'
- object pnlInput3: TPanel
- Left = 128
- Top = 72
- Width = 313
- Height = 97
- BevelInner = bvLowered
- BevelWidth = 2
- BorderStyle = bsSingle
- Enabled = False
- TabOrder = 0
- object Panel5: TPanel
- Left = 16
- Top = 16
- Width = 273
- Height = 65
- TabOrder = 0
- object Label9: TLabel
- Left = 15
- Top = 7
- Width = 79
- Height = 13
- Caption = 'Condition of Item'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label14: TLabel
- Left = 15
- Top = 31
- Width = 87
- Height = 13
- Caption = 'Replacement Cost'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object EreplacementCost: TDBEdit
- Left = 120
- Top = 32
- Width = 73
- Height = 21
- DataField = 'VALUE'
- DataSource = DataModule1.OwnSource
- MaxLength = 0
- TabOrder = 1
- OnExit = EReplacementCostExit
- end
- object ECondition: TDBComboBox
- Left = 120
- Top = 8
- Width = 121
- Height = 21
- DataField = 'CONDITION'
- DataSource = DataModule1.OwnSource
- ItemHeight = 13
- Items.Strings = (
- 'Mint'
- 'Excellent'
- 'Very Good'
- 'Good'
- 'Fair'
- 'Poor'
- 'Junk')
- TabOrder = 0
- end
- end
- end
- end
- object tabComments: TTabSheet
- Caption = 'Comments'
- object pnlInput4: TPanel
- Left = 56
- Top = 16
- Width = 489
- Height = 209
- BevelInner = bvLowered
- BevelWidth = 2
- BorderStyle = bsSingle
- TabOrder = 0
- object Label15: TLabel
- Left = 15
- Top = 7
- Width = 103
- Height = 13
- Caption = 'Comments About Item'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object EComments: TDBMemo
- Left = 14
- Top = 30
- Width = 459
- Height = 171
- DataField = 'COMMENTS'
- DataSource = DataModule1.OwnSource
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 0
- end
- end
- end
- end
- object pnlNavigate: TPanel
- Left = 9
- Top = 321
- Width = 601
- Height = 65
- BevelOuter = bvLowered
- BevelWidth = 2
- BorderStyle = bsSingle
- TabOrder = 1
- object btnAddRecord: TBitBtn
- Left = 5
- Top = 10
- Width = 65
- Height = 39
- Caption = '&Add Record'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = btnAddRecordClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
- 055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
- 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
- B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
- 305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
- 305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
- 30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
- 3055577777555557F7F5550005555559995555777555555777550000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- object btnEditRecord: TBitBtn
- Left = 75
- Top = 10
- Width = 65
- Height = 39
- Caption = '&Edit Record'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = btnEditRecordClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
- 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
- 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
- F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
- 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
- FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
- FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
- 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
- 00333377737FFFFF7733333033000000033333373377777773330000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- object btnClose: TBitBtn
- Left = 544
- Top = 10
- Width = 41
- Height = 39
- Caption = '&Close'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 6
- OnClick = btnCloseClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
- 03333377777777777F333301111111110333337F333333337F33330111111111
- 0333337F333333337F333301111111110333337F333333337F33330111111111
- 0333337F333333337F333301111111110333337F333333337F33330111111111
- 0333337F3333333F7F333301111111B10333337F333333737F33330111111111
- 0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
- 0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
- 0333337F377777337F333301111111110333337F333333337F33330111111111
- 0333337FFFFFFFFF7F33330000000000033333777777777773330000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- object btnTop: TBitBtn
- Left = 301
- Top = 10
- Width = 52
- Height = 39
- Caption = '&First'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = btnTopClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
- 3333333333777F33333333333309033333333333337F7F333333333333090333
- 33333333337F7F33333333333309033333333333337F7F333333333333090333
- 33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
- 3333333777737777F333333099999990333333373F3333373333333309999903
- 333333337F33337F33333333099999033333333373F333733333333330999033
- 3333333337F337F3333333333099903333333333373F37333333333333090333
- 33333333337F7F33333333333309033333333333337373333333333333303333
- 333333333337F3333333333333303333333333333337333333330000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- object btnLast: TBitBtn
- Left = 469
- Top = 10
- Width = 52
- Height = 39
- Caption = '&Last'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- OnClick = btnLastClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
- 333333333337F33333333333333033333333333333373F333333333333090333
- 33333333337F7F33333333333309033333333333337373F33333333330999033
- 3333333337F337F33333333330999033333333333733373F3333333309999903
- 333333337F33337F33333333099999033333333373333373F333333099999990
- 33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
- 33333333337F7F33333333333309033333333333337F7F333333333333090333
- 33333333337F7F33333333333309033333333333337F7F333333333333090333
- 33333333337F7F333333333333000333333333333377733333330000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- object btnPrior: TBitBtn
- Left = 357
- Top = 10
- Width = 52
- Height = 39
- Caption = '&Prior'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = btnPriorClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333FF3333333333333003333333333333F77F33333333333009033
- 333333333F7737F333333333009990333333333F773337FFFFFF330099999000
- 00003F773333377777770099999999999990773FF33333FFFFF7330099999000
- 000033773FF33777777733330099903333333333773FF7F33333333333009033
- 33333333337737F3333333333333003333333333333377333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 33333333333333333333333333333333333333333333333333330000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- object btnNext: TBitBtn
- Left = 413
- Top = 10
- Width = 52
- Height = 39
- Caption = '&Next'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnClick = btnNextClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333FF3333333333333003333
- 3333333333773FF3333333333309003333333333337F773FF333333333099900
- 33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
- 99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
- 33333333337F3F77333333333309003333333333337F77333333333333003333
- 3333333333773333333333333333333333333333333333333333333333333333
- 33333333333333333333333333333333333333333333333333330000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- object btnDeleteRecord: TBitBtn
- Left = 146
- Top = 10
- Width = 65
- Height = 39
- Caption = '&Delete Item'
- Font.Color = clBlue
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 7
- OnClick = btnDeleteRecordClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
- 305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
- 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
- B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
- B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
- B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
- B0557777FF577777F7F500000E055550805577777F7555575755500000555555
- 05555777775555557F55550005555555055555777555555575550000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- object btnView: TBitBtn
- Left = 216
- Top = 10
- Width = 65
- Height = 39
- Caption = '&Browse'
- Font.Color = clBlue
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 8
- OnClick = btnViewClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 555555FFFFFFFFFF55555000000000055555577777777775FFFF00B8B8B8B8B0
- 0000775F5555555777770B0B8B8B8B8B0FF07F75F555555575F70FB0B8B8B8B8
- B0F07F575FFFFFFFF7F70BFB0000000000F07F557777777777570FBFBF0FFFFF
- FFF07F55557F5FFFFFF70BFBFB0F000000F07F55557F777777570FBFBF0FFFFF
- FFF075F5557F5FFFFFF750FBFB0F000000F0575FFF7F777777575700000FFFFF
- FFF05577777F5FF55FF75555550F00FF00005555557F775577775555550FFFFF
- 0F055555557F55557F755555550FFFFF00555555557FFFFF7755555555000000
- 05555555557777777555555555555555555555555555555555550000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- end
- object pnlOK: TPanel
- Left = 355
- Top = 321
- Width = 193
- Height = 65
- BevelOuter = bvLowered
- BorderStyle = bsSingle
- TabOrder = 2
- Visible = False
- object BitBtn3: TBitBtn
- Left = 38
- Top = 9
- Width = 53
- Height = 41
- Caption = '&OK'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = btnOKClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 555555555555555555555555555555555555555555FF55555555555559055555
- 55555555577FF5555555555599905555555555557777F5555555555599905555
- 555555557777FF5555555559999905555555555777777F555555559999990555
- 5555557777777FF5555557990599905555555777757777F55555790555599055
- 55557775555777FF5555555555599905555555555557777F5555555555559905
- 555555555555777FF5555555555559905555555555555777FF55555555555579
- 05555555555555777FF5555555555557905555555555555777FF555555555555
- 59905555555555555777555555555555555555555555555555550000}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- object BitBtn4: TBitBtn
- Left = 105
- Top = 9
- Width = 51
- Height = 41
- Caption = '&Cancel'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = btnCancelClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333333333333333333333333333333FFF33FF333FFF339993370733
- 999333777FF37FF377733339993000399933333777F777F77733333399970799
- 93333333777F7377733333333999399933333333377737773333333333990993
- 3333333333737F73333333333331013333333333333777FF3333333333910193
- 333333333337773FF3333333399000993333333337377737FF33333399900099
- 93333333773777377FF333399930003999333337773777F777FF339993370733
- 9993337773337333777333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- Layout = blGlyphTop
- NumGlyphs = 2
- end
- end
- object btnBrand: TBitBtn
- Left = 9
- Top = 286
- Width = 105
- Height = 36
- Caption = '&Brand Names'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- TabStop = False
- OnClick = btnBrandClick
- end
- object btnTypes: TBitBtn
- Left = 113
- Top = 286
- Width = 105
- Height = 36
- Caption = '&Types of Items'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- TabStop = False
- OnClick = btnTypesClick
- end
- object btnLocation: TBitBtn
- Left = 217
- Top = 286
- Width = 105
- Height = 36
- Caption = 'L&ocations'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- TabStop = False
- OnClick = btnLocationClick
- end
- object btnPurchasedFrom: TBitBtn
- Left = 321
- Top = 286
- Width = 105
- Height = 36
- Caption = 'P&urchased From'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 6
- TabStop = False
- OnClick = btnPurchasedFromClick
- end
- object MainMenu1: TMainMenu
- Left = 576
- object Files1: TMenuItem
- Caption = '&Files'
- ShortCut = 0
- object BrandNames1: TMenuItem
- Caption = '&Brand Names'
- ShortCut = 0
- OnClick = BrandNames1Click
- end
- object TypesofItems1: TMenuItem
- Caption = '&Types of Items'
- ShortCut = 0
- OnClick = TypesofItems1Click
- end
- object Locations1: TMenuItem
- Caption = 'L&ocations'
- ShortCut = 0
- OnClick = Locations1Click
- end
- object PurchasedFrom1: TMenuItem
- Caption = 'P&urchased From'
- ShortCut = 0
- OnClick = PurchasedFrom1Click
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Print2: TMenuItem
- Caption = '&Print'
- ShortCut = 0
- object PrintViewReports1: TMenuItem
- Caption = '&Print/View Reports'
- ShortCut = 0
- OnClick = PrintViewReports1Click
- end
- object PrintViewThisRecord1: TMenuItem
- Caption = 'Print/View &This Record'
- ShortCut = 0
- OnClick = PrintViewThisRecord1Click
- end
- end
- object N2: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object BackupRestore1: TMenuItem
- Caption = 'Backup/&Restore'
- ShortCut = 0
- OnClick = BackupRestore1Click
- end
- object N3: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Exti1: TMenuItem
- Caption = 'E&xit'
- ShortCut = 0
- OnClick = Exti1Click
- end
- end
- object Records1: TMenuItem
- Caption = '&Records'
- ShortCut = 0
- object BackToBrowse1: TMenuItem
- Caption = '&Back To Browse'
- ShortCut = 0
- OnClick = BackToBrowse1Click
- end
- object N4: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object AddRecords1: TMenuItem
- Caption = '&Add Record'
- ShortCut = 0
- OnClick = AddRecords1Click
- end
- object DeleteRecord1: TMenuItem
- Caption = '&Edit Record'
- ShortCut = 0
- end
- object DeleteRecord2: TMenuItem
- Caption = '&Delete Record'
- ShortCut = 0
- OnClick = DeleteRecord2Click
- end
- end
- object Navigate1: TMenuItem
- Caption = '&Navigate'
- ShortCut = 0
- object GoTop1: TMenuItem
- Caption = 'Go &Top'
- ShortCut = 0
- OnClick = GoTop1Click
- end
- object GoNext1: TMenuItem
- Caption = 'Go &Next'
- ShortCut = 0
- OnClick = GoNext1Click
- end
- object GoPrior1: TMenuItem
- Caption = 'Go &Prior'
- ShortCut = 0
- OnClick = GoPrior1Click
- end
- object GoLast1: TMenuItem
- Caption = 'Go &Last'
- ShortCut = 0
- OnClick = GoLast1Click
- end
- end
- object Search1: TMenuItem
- Caption = 'Sear&ch'
- ShortCut = 0
- OnClick = Search1Click
- end
- object Help1: TMenuItem
- Caption = '&Help'
- ShortCut = 0
- object Help2: TMenuItem
- Caption = '&Help'
- ShortCut = 112
- OnClick = Help2Click
- end
- object HowToUseHelp1: TMenuItem
- Caption = 'How To &Use Help'
- ShortCut = 0
- OnClick = HowToUseHelp1Click
- end
- object QuickStartHelp1: TMenuItem
- Caption = '&Quick Start Help'
- ShortCut = 0
- OnClick = QuickStartHelp1Click
- end
- object N5: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object LicensingInformation1: TMenuItem
- Caption = '&Ordering Information'
- ShortCut = 0
- OnClick = LicensingInformation1Click
- end
- object ViewPrintLicensingForm1: TMenuItem
- Caption = 'View\Print Order Form'
- ShortCut = 0
- OnClick = ViewPrintLicensingForm1Click
- end
- object N6: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object About1: TMenuItem
- Caption = '&About'
- ShortCut = 0
- OnClick = About1Click
- end
- end
- end
- end
-