untmaintain.dfm

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

inherited frmMaintain: TfrmMaintain
  Left = 396
  Top = 243
  Caption = #32500#20462#20445#20859
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  inherited PnEdit: TPanel
    Height = 151
    object Label3: TLabel [0]
      Left = 13
      Top = 51
      Width = 52
      Height = 13
      Caption = #25163#24037#32534#21495
    end
    object Label7: TLabel [1]
      Left = 213
      Top = 51
      Width = 52
      Height = 13
      Caption = #36710#36742#32534#21495
    end
    object Label6: TLabel [2]
      Left = 424
      Top = 51
      Width = 52
      Height = 13
      Caption = #32500#20462#26085#26399
    end
    object Label12: TLabel [3]
      Left = 13
      Top = 99
      Width = 53
      Height = 13
      Caption = #32463' '#25163' '#20154
    end
    object Label4: TLabel [4]
      Left = 296
      Top = 75
      Width = 91
      Height = 13
      Caption = #20462#29702#22320#22336#21450#30005#35805
    end
    object Label13: TLabel [5]
      Left = 13
      Top = 123
      Width = 54
      Height = 13
      Caption = #22791'    '#27880
    end
    object Label8: TLabel [6]
      Left = 13
      Top = 75
      Width = 52
      Height = 13
      Caption = #27773#20462#20844#21496
    end
    object Label9: TLabel [7]
      Left = 213
      Top = 99
      Width = 52
      Height = 13
      Caption = #20462#29702#36153#29992
    end
    inherited plStandard: TPanel
      TabOrder = 8
    end
    object wwDBEdit2: TwwDBEdit
      Left = 72
      Top = 47
      Width = 122
      Height = 21
      Hint = 'fno_s'
      TabOrder = 0
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 280
      Top = 47
      Width = 121
      Height = 21
      Hint = 'fcode'
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fcode'#9'10'#9#36710#21495#9'F'#9
        'fname'#9'12'#9#36710#21517#9'F'#9
        'fid'#9'10'#9#24207#21495#9'F'#9)
      LookupTable = CDSVehicle
      LookupField = 'fcode'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      Style = csDropDownList
      TabOrder = 1
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
      OnChange = wwDBLookupCombo1Change
    end
    object DBDateTimeEditEh1: TDBDateTimeEditEh
      Left = 488
      Top = 47
      Width = 121
      Height = 21
      Hint = 'fMaindate'
      EditButtons = <>
      Kind = dtkDateEh
      TabOrder = 2
      Visible = True
    end
    object wwDBLookupCombo2: TwwDBLookupCombo
      Left = 72
      Top = 95
      Width = 96
      Height = 21
      Hint = 'fhandle'
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fName'#9'20'#9#21517#31216#9'F'#9
        'fCode'#9'20'#9#32534#21495#9'F'#9)
      LookupTable = CDShandle
      LookupField = 'fName'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      Style = csDropDownList
      TabOrder = 5
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBEdit1: TwwDBEdit
      Left = 392
      Top = 71
      Width = 216
      Height = 21
      Hint = 'fmainaddress'
      TabOrder = 4
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit6: TwwDBEdit
      Left = 72
      Top = 120
      Width = 537
      Height = 21
      Hint = 'fremark'
      TabOrder = 7
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit3: TwwDBEdit
      Left = 72
      Top = 71
      Width = 216
      Height = 21
      Hint = 'fmaincompany'
      TabOrder = 3
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit4: TwwDBEdit
      Left = 280
      Top = 95
      Width = 122
      Height = 21
      Hint = 'fpayment'
      TabOrder = 6
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
  end
  inherited pBtn: TPanel
    Top = 192
  end
  inherited grid: TDBGridEh
    Top = 233
    Height = 180
  end
  inherited frBaseinfo: TfrReport
    ReportForm = {19000000}
  end
  object CDSVehicle: TClientDataSet [13]
    Aggregates = <>
    Params = <>
    Left = 288
    Top = 73
    object CDSVehiclefcode: TWideStringField
      DisplayLabel = #36710#21495
      DisplayWidth = 10
      FieldName = 'fcode'
    end
    object CDSVehiclefname: TWideStringField
      DisplayLabel = #36710#21517
      DisplayWidth = 12
      FieldName = 'fname'
      Size = 30
    end
    object CDSVehiclefid: TAutoIncField
      DisplayLabel = #24207#21495
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
    end
    object CDSVehiclefmodel: TWideStringField
      DisplayWidth = 30
      FieldName = 'fmodel'
      Visible = False
      Size = 30
    end
    object CDSVehiclefcolor: TWideStringField
      DisplayWidth = 50
      FieldName = 'fcolor'
      Visible = False
      Size = 50
    end
    object CDSVehicleffuel: TBCDField
      DisplayWidth = 10
      FieldName = 'ffuel'
      Visible = False
      Precision = 9
      Size = 2
    end
    object CDSVehiclefengineno: TWideStringField
      DisplayWidth = 36
      FieldName = 'fengineno'
      Visible = False
      Size = 36
    end
    object CDSVehiclefvehicleno: TWideStringField
      DisplayWidth = 36
      FieldName = 'fvehicleno'
      Visible = False
      Size = 36
    end
    object CDSVehiclefprovider: TWideStringField
      DisplayWidth = 50
      FieldName = 'fprovider'
      Visible = False
      Size = 50
    end
    object CDSVehiclefbuydate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fbuydate'
      Visible = False
    end
    object CDSVehiclefsafeno: TWideStringField
      DisplayWidth = 36
      FieldName = 'fsafeno'
      Visible = False
      Size = 36
    end
    object CDSVehiclefsafetype: TWideStringField
      DisplayWidth = 28
      FieldName = 'fsafetype'
      Visible = False
      Size = 28
    end
    object CDSVehiclefsafecompany: TWideStringField
      DisplayWidth = 50
      FieldName = 'fsafecompany'
      Visible = False
      Size = 50
    end
    object CDSVehiclefsafedate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fsafedate'
      Visible = False
    end
    object CDSVehiclefsafelastdate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fsafelastdate'
      Visible = False
    end
    object CDSVehiclefdriver: TWideStringField
      DisplayWidth = 20
      FieldName = 'fdriver'
      Visible = False
    end
    object CDSVehiclefbusinessno: TWideStringField
      DisplayWidth = 36
      FieldName = 'fbusinessno'
      Visible = False
      Size = 36
    end
    object CDSVehiclefannexno: TWideStringField
      DisplayWidth = 30
      FieldName = 'fannexno'
      Visible = False
      Size = 30
    end
    object CDSVehicleftwomaintenancestart: TDateTimeField
      DisplayWidth = 18
      FieldName = 'ftwomaintenancestart'
      Visible = False
    end
    object CDSVehicleftwomaintenancelast: TDateTimeField
      DisplayWidth = 18
      FieldName = 'ftwomaintenancelast'
      Visible = False
    end
    object CDSVehiclefdeposit: TBCDField
      DisplayWidth = 19
      FieldName = 'fdeposit'
      Visible = False
      Precision = 18
    end
    object CDSVehiclefrentday: TBCDField
      DisplayWidth = 19
      FieldName = 'frentday'
      Visible = False
      Precision = 18
    end
    object CDSVehiclefrentweek: TBCDField
      DisplayWidth = 19
      FieldName = 'frentweek'
      Visible = False
      Precision = 18
    end
    object CDSVehiclefrentmonth: TBCDField
      DisplayWidth = 19
      FieldName = 'frentmonth'
      Visible = False
      Precision = 18
    end
    object CDSVehiclefkilometreday: TBCDField
      DisplayWidth = 19
      FieldName = 'fkilometreday'
      Visible = False
      Precision = 18
    end
    object CDSVehiclefreceipthour: TBCDField
      DisplayWidth = 19
      FieldName = 'freceipthour'
      Visible = False
      Precision = 18
    end
    object CDSVehiclefreceiptkilometre: TBCDField
      DisplayWidth = 19
      FieldName = 'freceiptkilometre'
      Visible = False
      Precision = 18
    end
    object CDSVehiclefmaxkilometre: TBCDField
      DisplayWidth = 19
      FieldName = 'fmaxkilometre'
      Visible = False
      Precision = 18
    end
    object CDSVehiclefoutoil: TBCDField
      DisplayWidth = 19
      FieldName = 'foutoil'
      Visible = False
      Precision = 18
    end
    object CDSVehiclefhandle: TWideStringField
      DisplayWidth = 20
      FieldName = 'fhandle'
      Visible = False
    end
    object CDSVehiclefstate: TBooleanField
      DisplayWidth = 5
      FieldName = 'fstate'
      Visible = False
    end
    object CDSVehiclefdesc: TWideStringField
      DisplayWidth = 40
      FieldName = 'fdesc'
      Visible = False
      Size = 40
    end
    object CDSVehiclefremark: TWideStringField
      DisplayWidth = 50
      FieldName = 'fremark'
      Visible = False
      Size = 50
    end
    object CDSVehiclefpicture: TWideStringField
      DisplayWidth = 50
      FieldName = 'fpicture'
      Visible = False
      Size = 50
    end
    object CDSVehiclefoutk: TBCDField
      DisplayWidth = 10
      FieldName = 'foutk'
      Visible = False
      Precision = 9
      Size = 2
    end
    object CDSVehiclefoutf: TBCDField
      DisplayWidth = 10
      FieldName = 'foutf'
      Visible = False
      Precision = 9
      Size = 2
    end
  end
  object CDShandle: TClientDataSet [14]
    Aggregates = <>
    Params = <>
    Left = 96
    Top = 137
    object CDShandlefName: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldName = 'fName'
      Size = 50
    end
    object CDShandlefCode: TWideStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 20
      FieldName = 'fCode'
      Size = 50
    end
    object CDShandlefID: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fID'
      ReadOnly = True
      Visible = False
    end
    object CDShandlefDeptCode: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDeptCode'
      Visible = False
      Size = 50
    end
    object CDShandlefDriveID: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDriveID'
      Visible = False
      Size = 50
    end
    object CDShandlefSex: TWideStringField
      DisplayWidth = 50
      FieldName = 'fSex'
      Visible = False
      Size = 50
    end
    object CDShandlefPosition: TWideStringField
      DisplayWidth = 50
      FieldName = 'fPosition'
      Visible = False
      Size = 50
    end
    object CDShandlefAddress: TWideStringField
      DisplayWidth = 50
      FieldName = 'fAddress'
      Visible = False
      Size = 50
    end
    object CDShandlefEmail: TWideStringField
      DisplayWidth = 100
      FieldName = 'fEmail'
      Visible = False
      Size = 100
    end
    object CDShandlefTel: TWideStringField
      DisplayWidth = 50
      FieldName = 'fTel'
      Visible = False
      Size = 50
    end
    object CDShandlefMobile: TWideStringField
      DisplayWidth = 50
      FieldName = 'fMobile'
      Visible = False
      Size = 50
    end
    object CDShandlefBP: TWideStringField
      DisplayWidth = 50
      FieldName = 'fBP'
      Visible = False
      Size = 50
    end
    object CDShandlefDegree: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDegree'
      Visible = False
      Size = 50
    end
    object CDShandlefCollege: TWideStringField
      DisplayWidth = 50
      FieldName = 'fCollege'
      Visible = False
      Size = 50
    end
    object CDShandlefBirthAddress: TWideStringField
      DisplayWidth = 50
      FieldName = 'fBirthAddress'
      Visible = False
      Size = 50
    end
    object CDShandlefBirthday: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fBirthday'
      Visible = False
    end
    object CDShandlefInTime: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fInTime'
      Visible = False
    end
    object CDShandlefOutTime: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fOutTime'
      Visible = False
    end
    object CDShandlefMoney: TBCDField
      DisplayWidth = 11
      FieldName = 'fMoney'
      Visible = False
      Precision = 10
      Size = 2
    end
    object CDShandlefStatus: TBooleanField
      DisplayWidth = 5
      FieldName = 'fStatus'
      Visible = False
    end
    object CDShandlefNotes: TWideStringField
      DisplayWidth = 100
      FieldName = 'fNotes'
      Visible = False
      Size = 100
    end
    object CDShandlefPicture: TWideStringField
      DisplayWidth = 100
      FieldName = 'fPicture'
      Visible = False
      Size = 100
    end
  end
end