untvehiclerent.dfm

车辆管理系统

    Left = 496
    Top = 256
    object N1: TMenuItem
      Action = Action1
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Action = Action2
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N5: TMenuItem
      Action = Action3
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object N7: TMenuItem
      Action = Action4
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object N9: TMenuItem
      Action = Action5
    end
  end
  object frBaseinfo: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    MDIPreview = True
    ModalPreview = False
    ModifyPrepared = False
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit, pbPageSetup]
    RebuildPrinter = False
    OnUserFunction = frBaseinfoUserFunction
    Left = 256
    Top = 136
    ReportForm = {19000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSource = DSbaseinfo
    Left = 328
    Top = 136
  end
  object ActionList2: TActionList
    Left = 40
    Top = 168
    object acrefresh: TAction
      Caption = #21047#26032
      OnExecute = acrefreshExecute
    end
    object acsearch: TAction
      Caption = #26597#25214
    end
    object acfieldproperty: TAction
      Caption = #30028#38754#35774#32622
    end
    object acexit: TAction
      Caption = #36864#20986
      OnExecute = acexitExecute
    end
    object acfirst: TAction
      Caption = #39318#31508
      OnExecute = acfirstExecute
    end
    object acprior: TAction
      Caption = #19978#31508
      OnExecute = acpriorExecute
    end
    object acnext: TAction
      Caption = #19979#31508
      OnExecute = acnextExecute
    end
    object aclast: TAction
      Caption = #26410#31508
      OnExecute = aclastExecute
    end
  end
  object popupgrid: TPopupMenu
    Left = 112
    Top = 168
    object N10: TMenuItem
      Action = acfirst
    end
    object N11: TMenuItem
      Action = acprior
    end
    object N12: TMenuItem
      Action = acnext
    end
    object N13: TMenuItem
      Action = aclast
    end
    object N14: TMenuItem
      Caption = '-'
    end
    object N15: TMenuItem
      Action = acrefresh
    end
    object N16: TMenuItem
      Action = acsearch
    end
    object N17: TMenuItem
      Caption = '-'
    end
    object N18: TMenuItem
      Action = acfieldproperty
    end
    object N20: TMenuItem
      Caption = '-'
    end
    object N21: TMenuItem
      Action = acexit
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 424
    Top = 96
    object N19: TMenuItem
      Action = ts01
    end
    object N22: TMenuItem
      Action = ts02
    end
    object N23: TMenuItem
      Action = ts03
    end
    object N24: TMenuItem
      Action = ts04
    end
    object N25: TMenuItem
      Action = ts05
    end
    object N26: TMenuItem
      Action = ts06
    end
    object N27: TMenuItem
      Action = ts07
    end
    object N28: TMenuItem
      Action = ts08
    end
  end
  object CDSVehicle: TClientDataSet
    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