Computer Buyer 1998 July/dpcb0798.bin/Business/Persdesk/_SETUP.1/PERSYST1.EXE/0/RCDATA/TCOMPANYVEHICLE/TCOMPANYVEHICLE.txt

Text File | 1998-04-21 | 5KB | 209 lines

object Companyvehicle: TCompanyvehicle
  Left = 178
  Top = 174
  Width = 418
  Height = 300
  Caption = 'Company Vehicles'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 410
    Height = 49
    Align = alTop
    TabOrder = 0
    object DBNavigator2: TDBNavigator
      Left = 32
      Top = 8
      Width = 224
      Height = 25
      DataSource = CompanyCarallocation.CompanyCarset
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = DBNavigator2Click
    end
    object BitBtn1: TBitBtn
      Left = 304
      Top = 8
      Width = 75
      Height = 25
      TabOrder = 1
      OnClick = BitBtn1Click
      Kind = bkClose
    end
  end
  object DBGridclick1: TDBGridclick
    Left = 0
    Top = 49
    Width = 410
    Height = 224
    Align = alClient
    Columns = <
      item
        FieldName = 'Type'
      end
      item
        FieldName = 'Model'
      end
      item
        FieldName = 'Registration'
      end>
    DataSource = CompanyCarallocation.CompanyCarset
    TabOrder = 1
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnMouseUp = DBGridclick1MouseUp
  end
  object Panel2: TPanel
    Left = 0
    Top = 49
    Width = 410
    Height = 224
    Align = alClient
    TabOrder = 2
    Visible = False
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 24
      Height = 13
      Caption = 'Type'
    end
    object Label2: TLabel
      Left = 16
      Top = 56
      Width = 29
      Height = 13
      Caption = 'Model'
    end
    object Label3: TLabel
      Left = 16
      Top = 116
      Width = 50
      Height = 13
      Caption = 'Ownership'
    end
    object Label4: TLabel
      Left = 120
      Top = 116
      Width = 204
      Height = 13
      Caption = '(P for Purchased; H for Hired; L for Leased)'
    end
    object Label5: TLabel
      Left = 16
      Top = 156
      Width = 43
      Height = 13
      Caption = 'List Price'
    end
    object Label6: TLabel
      Left = 16
      Top = 188
      Width = 94
      Height = 13
      Caption = 'Vehicle Registration'
    end
    object Label7: TLabel
      Left = 248
      Top = 156
      Width = 30
      Height = 13
      Caption = 'P11 D'
    end
    object BitBtn2: TBitBtn
      Left = 280
      Top = 8
      Width = 97
      Height = 25
      Caption = 'Return to Grid'
      TabOrder = 0
      OnClick = BitBtn2Click
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
        0000FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0000000000000
        0000FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0000000000000
        0000FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0000000000000
        0000FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0FFF0}
    end
    object DBEdit1: TDBEdit
      Left = 16
      Top = 24
      Width = 201
      Height = 21
      DataField = 'Type'
      DataSource = CompanyCarallocation.CompanyCarset
      MaxLength = 0
      TabOrder = 1
    end
    object DBEdit2: TDBEdit
      Left = 16
      Top = 72
      Width = 201
      Height = 21
      DataField = 'Model'
      DataSource = CompanyCarallocation.CompanyCarset
      MaxLength = 0
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 68
      Top = 152
      Width = 121
      Height = 21
      DataField = 'Price'
      DataSource = CompanyCarallocation.CompanyCarset
      MaxLength = 0
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 120
      Top = 184
      Width = 89
      Height = 21
      DataField = 'Registration'
      DataSource = CompanyCarallocation.CompanyCarset
      MaxLength = 0
      TabOrder = 4
    end
    object DBEdit6: TDBEdit
      Left = 288
      Top = 152
      Width = 113
      Height = 21
      DataField = 'P11 D'
      DataSource = CompanyCarallocation.CompanyCarset
      MaxLength = 0
      TabOrder = 5
    end
    object DBComboBox1: TDBComboBox
      Left = 72
      Top = 112
      Width = 41
      Height = 21
      DataField = 'Ownership'
      DataSource = CompanyCarallocation.CompanyCarset
      ItemHeight = 13
      Items.Strings = (
        'P'
        'H'
        'L')
      TabOrder = 6
    end
  end
end