untvehicle_m.dfm

用delphi编写的数据库管理软件

      Left = 479
      Top = 43
      Width = 121
      Height = 21
      Hint = 'frentweek'
      TabOrder = 21
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit21: TwwDBEdit
      Left = 479
      Top = 72
      Width = 121
      Height = 21
      Hint = 'frentmonth'
      TabOrder = 22
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit22: TwwDBEdit
      Left = 479
      Top = 101
      Width = 121
      Height = 21
      Hint = 'fkilometreday'
      TabOrder = 23
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit23: TwwDBEdit
      Left = 479
      Top = 130
      Width = 121
      Height = 21
      Hint = 'freceipthour'
      TabOrder = 24
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit24: TwwDBEdit
      Left = 479
      Top = 159
      Width = 121
      Height = 21
      Hint = 'freceiptkilometre'
      TabOrder = 25
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit25: TwwDBEdit
      Left = 479
      Top = 188
      Width = 121
      Height = 21
      Hint = 'fmaxkilometre'
      TabOrder = 26
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit26: TwwDBEdit
      Left = 479
      Top = 217
      Width = 121
      Height = 21
      Hint = 'foutoil'
      TabOrder = 27
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object DBDateTimeEditEh1: TDBDateTimeEditEh
      Left = 83
      Top = 248
      Width = 120
      Height = 21
      Hint = 'fbuydate'
      EditButtons = <>
      Kind = dtkDateEh
      TabOrder = 8
      Visible = True
    end
    object DBDateTimeEditEh2: TDBDateTimeEditEh
      Left = 273
      Top = 74
      Width = 120
      Height = 21
      Hint = 'fsafedate'
      EditButtons = <>
      Kind = dtkDateEh
      TabOrder = 14
      Visible = True
    end
    object DBDateTimeEditEh3: TDBDateTimeEditEh
      Left = 83
      Top = 277
      Width = 120
      Height = 21
      Hint = 'ftwomaintenancestart'
      EditButtons = <>
      Kind = dtkDateEh
      TabOrder = 9
      Visible = True
    end
    object DBDateTimeEditEh4: TDBDateTimeEditEh
      Left = 83
      Top = 306
      Width = 120
      Height = 21
      Hint = 'ftwomaintenancelast'
      EditButtons = <>
      Kind = dtkDateEh
      TabOrder = 10
      Visible = True
    end
    object wwDBEdit6: TwwDBEdit
      Left = 273
      Top = 279
      Width = 328
      Height = 21
      Hint = 'fdesc'
      TabOrder = 29
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit17: TwwDBEdit
      Left = 273
      Top = 308
      Width = 328
      Height = 21
      Hint = 'fremark'
      TabOrder = 30
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwCheckBox1: TwwCheckBox
      Left = 531
      Top = 338
      Width = 76
      Height = 17
      Hint = 'fstate'
      DisableThemes = False
      AlwaysTransparent = False
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      DisplayValueChecked = 'True'
      DisplayValueUnchecked = 'False'
      NullAndBlankState = cbUnchecked
      Caption = #27491#24120#33829#36816
      TabOrder = 32
    end
    object wwDBEdit27: TwwDBEdit
      Left = 273
      Top = 250
      Width = 303
      Height = 21
      Hint = 'fpicture'
      TabOrder = 28
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 273
      Top = 45
      Width = 120
      Height = 21
      Hint = 'fsafetype'
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fName'#9'20'#9' '#20445#38505#31867#22411#9'F'
        'fCode'#9'10'#9#32534#30721#9'F')
      LookupTable = CDSType
      LookupField = 'fname'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      Style = csDropDownList
      TabOrder = 13
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object DBDateTimeEditEh5: TDBDateTimeEditEh
      Left = 273
      Top = 103
      Width = 120
      Height = 21
      Hint = 'fsafelastdate'
      EditButtons = <>
      Kind = dtkDateEh
      TabOrder = 15
      Visible = True
    end
    object wwDBLookupCombo2: TwwDBLookupCombo
      Left = 83
      Top = 336
      Width = 120
      Height = 21
      Hint = 'fdriver'
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fName'#9'12'#9#21517#31216#9'F'#9
        'fCode'#9'10'#9#32534#30721#9'F'#9)
      LookupTable = CDSEmployee
      LookupField = 'fname'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      Style = csDropDownList
      TabOrder = 11
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBLookupCombo3: TwwDBLookupCombo
      Left = 273
      Top = 191
      Width = 120
      Height = 21
      Hint = 'fhandle'
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fName'#9'12'#9#21517#31216#9'F'
        'fCode'#9'10'#9#32534#30721#9'F')
      LookupTable = CDSEmployee
      LookupField = 'fname'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 18
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
  end
  object CDSType: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 312
    Top = 40
    object CDSTypefName: TWideStringField
      DisplayLabel = ' '#20445#38505#31867#22411
      DisplayWidth = 20
      FieldName = 'fName'
      Size = 26
    end
    object CDSTypefCode: TWideStringField
      DisplayLabel = #32534#30721
      DisplayWidth = 10
      FieldName = 'fCode'
      Size = 18
    end
    object CDSTypefid: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object CDSTypefRemark: TWideStringField
      DisplayWidth = 32
      FieldName = 'fRemark'
      Visible = False
      Size = 32
    end
  end
  object CDSEmployee: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 320
    Top = 232
    object CDSEmployeefName: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 12
      FieldName = 'fName'
      Size = 50
    end
    object CDSEmployeefCode: TWideStringField
      DisplayLabel = #32534#30721
      DisplayWidth = 10
      FieldName = 'fCode'
      Size = 50
    end
    object CDSEmployeefID: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fID'
      ReadOnly = True
      Visible = False
    end
    object CDSEmployeefDeptCode: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDeptCode'
      Visible = False
      Size = 50
    end
    object CDSEmployeefDriveID: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDriveID'
      Visible = False
      Size = 50
    end
    object CDSEmployeefSex: TWideStringField
      DisplayWidth = 50
      FieldName = 'fSex'
      Visible = False
      Size = 50
    end
    object CDSEmployeefPosition: TWideStringField
      DisplayWidth = 50
      FieldName = 'fPosition'
      Visible = False
      Size = 50
    end
    object CDSEmployeefAddress: TWideStringField
      DisplayWidth = 50
      FieldName = 'fAddress'
      Visible = False
      Size = 50
    end
    object CDSEmployeefEmail: TWideStringField
      DisplayWidth = 100
      FieldName = 'fEmail'
      Visible = False
      Size = 100
    end
    object CDSEmployeefTel: TWideStringField
      DisplayWidth = 50
      FieldName = 'fTel'
      Visible = False
      Size = 50
    end
    object CDSEmployeefMobile: TWideStringField
      DisplayWidth = 50
      FieldName = 'fMobile'
      Visible = False
      Size = 50
    end
    object CDSEmployeefBP: TWideStringField
      DisplayWidth = 50
      FieldName = 'fBP'
      Visible = False
      Size = 50
    end
    object CDSEmployeefDegree: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDegree'
      Visible = False
      Size = 50
    end
    object CDSEmployeefCollege: TWideStringField
      DisplayWidth = 50
      FieldName = 'fCollege'
      Visible = False
      Size = 50
    end
    object CDSEmployeefBirthAddress: TWideStringField
      DisplayWidth = 50
      FieldName = 'fBirthAddress'
      Visible = False
      Size = 50
    end
    object CDSEmployeefBirthday: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fBirthday'
      Visible = False
    end
    object CDSEmployeefInTime: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fInTime'
      Visible = False
    end
    object CDSEmployeefOutTime: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fOutTime'
      Visible = False
    end
    object CDSEmployeefMoney: TBCDField
      DisplayWidth = 11
      FieldName = 'fMoney'
      Visible = False
      Precision = 10
      Size = 2
    end
    object CDSEmployeefStatus: TBooleanField
      DisplayWidth = 5
      FieldName = 'fStatus'
      Visible = False
    end
    object CDSEmployeefNotes: TWideStringField
      DisplayWidth = 100
      FieldName = 'fNotes'
      Visible = False
      Size = 100
    end
    object CDSEmployeefPicture: TWideStringField
      DisplayWidth = 100
      FieldName = 'fPicture'
      Visible = False
      Size = 100
    end
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 520
    Top = 200
  end
end