untaccident.dfm

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

inherited frmAccident: TfrmAccident
  Left = 206
  Top = 3
  Caption = #20986#38505#20107#25925
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  inherited PnEdit: TPanel
    Height = 147
    object Label7: TLabel [0]
      Left = 13
      Top = 51
      Width = 52
      Height = 13
      Caption = #36710#36742#32534#21495
    end
    object Label6: TLabel [1]
      Left = 232
      Top = 51
      Width = 52
      Height = 13
      Caption = #20986#38505#26085#26399
    end
    object Label8: TLabel [2]
      Left = 13
      Top = 75
      Width = 52
      Height = 13
      Caption = #20986#38505#22320#28857
    end
    object Label4: TLabel [3]
      Left = 296
      Top = 75
      Width = 104
      Height = 13
      Caption = #36131#20219#20844#21496#21644#36131#20219#20154
    end
    object Label3: TLabel [4]
      Left = 13
      Top = 99
      Width = 52
      Height = 13
      Caption = #22788#29702#32467#26524
    end
    object Label10: TLabel [5]
      Left = 485
      Top = 98
      Width = 52
      Height = 13
      Caption = #25439#22833#20184#20986
    end
    object Label13: TLabel [6]
      Left = 13
      Top = 123
      Width = 54
      Height = 13
      Caption = #22791'    '#27880
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 72
      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 = 296
      Top = 47
      Width = 121
      Height = 21
      Hint = 'fdate'
      EditButtons = <>
      Kind = dtkDateEh
      TabOrder = 2
      Visible = True
    end
    object wwDBEdit3: TwwDBEdit
      Left = 72
      Top = 70
      Width = 216
      Height = 21
      Hint = 'faddress'
      TabOrder = 3
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit1: TwwDBEdit
      Left = 408
      Top = 71
      Width = 216
      Height = 21
      Hint = 'fdriver'
      TabOrder = 4
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit4: TwwDBEdit
      Left = 72
      Top = 93
      Width = 409
      Height = 21
      Hint = 'fresult'
      TabOrder = 5
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit2: TwwDBEdit
      Left = 544
      Top = 94
      Width = 80
      Height = 21
      Hint = 'fcompensate'
      TabOrder = 6
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit6: TwwDBEdit
      Left = 72
      Top = 116
      Width = 553
      Height = 21
      Hint = 'fremark'
      TabOrder = 7
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
  end
  inherited pBtn: TPanel
    Top = 188
  end
  inherited grid: TDBGridEh
    Top = 229
    Height = 184
  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
end