untvehiclerent.dfm

车辆管理系统

inherited frmVehicleRent: TfrmVehicleRent
  Left = 343
  Top = 351
  Caption = #36710#36742#31199#36161#26597#35810
  ClientHeight = 412
  ClientWidth = 691
  OldCreateOrder = True
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 691
    Height = 41
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object FormTitle: TLabel
      Left = 24
      Top = 10
      Width = 6
      Height = 19
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -19
      Font.Name = #21326#25991#34892#26999
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Panel3: TPanel
      Left = 120
      Top = 2
      Width = 569
      Height = 37
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object Label7: TLabel
        Left = 5
        Top = 16
        Width = 26
        Height = 13
        Caption = #36710#21495
      end
      object SpeedButton1: TSpeedButton
        Left = 278
        Top = 9
        Width = 23
        Height = 21
        Caption = '>>'
        OnClick = SpeedButton1Click
      end
      object Label1: TLabel
        Left = 141
        Top = 16
        Width = 26
        Height = 13
        Caption = #26085#26399
      end
      object btnExit: TButton
        Left = 486
        Top = 6
        Width = 75
        Height = 25
        Action = acexit
        TabOrder = 0
      end
      object Button1: TButton
        Left = 408
        Top = 6
        Width = 75
        Height = 25
        Action = acrefresh
        Default = True
        TabOrder = 1
      end
      object wwDBLookupCombo1: TwwDBLookupCombo
        Left = 37
        Top = 10
        Width = 97
        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 = 2
        AutoDropDown = False
        ShowButton = True
        PreciseEditRegion = False
        AllowClearKey = False
      end
      object DBDateTimeEditEh1: TDateTimePicker
        Left = 176
        Top = 10
        Width = 101
        Height = 21
        Date = 38848.760336180550000000
        Time = 38848.760336180550000000
        TabOrder = 3
      end
      object DBDateTimeEditEh2: TDateTimePicker
        Left = 304
        Top = 10
        Width = 101
        Height = 21
        Date = 38848.760336180550000000
        Time = 38848.760336180550000000
        TabOrder = 4
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 371
    Width = 691
    Height = 41
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object btnadd: TButton
      Left = 5
      Top = 8
      Width = 75
      Height = 25
      Action = acfirst
      TabOrder = 0
    end
    object btncopy: TButton
      Left = 81
      Top = 8
      Width = 75
      Height = 25
      Action = acprior
      TabOrder = 1
    end
    object btnedit: TButton
      Left = 158
      Top = 8
      Width = 75
      Height = 25
      Action = acnext
      TabOrder = 2
    end
    object btndelete: TButton
      Left = 235
      Top = 8
      Width = 75
      Height = 25
      Action = aclast
      TabOrder = 3
    end
    object Panel4: TPanel
      Left = 525
      Top = 2
      Width = 164
      Height = 37
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 4
      object btnrefresh: TButton
        Left = 8
        Top = 8
        Width = 75
        Height = 25
        Action = acrefresh
        TabOrder = 0
      end
      object btnprint: TButton
        Left = 84
        Top = 8
        Width = 75
        Height = 25
        Caption = #25171#21360
        TabOrder = 1
        OnClick = btnprintClick
      end
    end
  end
  object grid: TDBGridEh
    Left = 0
    Top = 41
    Width = 691
    Height = 330
    Align = alClient
    DataSource = DSbaseinfo
    FixedColor = 12835543
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    FooterColor = 12835543
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #32048#26126#39636
    FooterFont.Style = []
    FooterRowCount = 1
    ParentFont = False
    PopupMenu = popupgrid
    ReadOnly = True
    SortLocal = True
    SumList.Active = True
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #32048#26126#39636
    TitleFont.Style = []
    OnDblClick = gridDblClick
    OnDrawColumnCell = gridDrawColumnCell
  end
  object CDSBaseinfo: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 120
    Top = 72
    object CDSBaseinfofno_r: TWideStringField
      DisplayLabel = #31199#36710#21333#21495
      FieldName = 'fno_r'
      Size = 12
    end
    object CDSBaseinfofno: TWideStringField
      DisplayLabel = #36824#36710#21333#21495
      DisplayWidth = 12
      FieldName = 'fno'
    end
    object CDSBaseinfofcreauser: TWideStringField
      DisplayLabel = #32463#25163#20154
      DisplayWidth = 10
      FieldName = 'fcreauser'
    end
    object CDSBaseinfofcreadate: TDateTimeField
      DisplayLabel = #32463#25163#26085#26399
      DisplayWidth = 20
      FieldName = 'fcreadate'
    end
    object CDSBaseinfofcode: TWideStringField
      DisplayLabel = #27773#36710#32534#21495
      DisplayWidth = 10
      FieldName = 'fcode'
      Size = 12
    end
    object CDSBaseinfofname: TWideStringField
      DisplayLabel = #36710#21517
      DisplayWidth = 12
      FieldName = 'fname'
    end
    object CDSBaseinfofoutk: TBCDField
      DisplayLabel = #20986#36710#20844#37324
      FieldName = 'foutk'
      Precision = 9
      Size = 2
    end
    object CDSBaseinfofoutf: TBCDField
      DisplayLabel = #20986#36710#27833#37327
      FieldName = 'foutf'
      Precision = 9
      Size = 2
    end
    object CDSBaseinfofday: TBCDField
      DisplayLabel = #31199#29992#22825#25968
      DisplayWidth = 8
      FieldName = 'fday'
      Precision = 9
      Size = 2
    end
    object CDSBaseinfofprice: TBCDField
      DisplayLabel = #20215#26684
      DisplayWidth = 8
      FieldName = 'fprice'
      Precision = 9
      Size = 2
    end
    object CDSBaseinfofamount: TBCDField
      DisplayLabel = #21512#35745
      DisplayWidth = 11
      FieldName = 'famount'
      Precision = 9
      Size = 2
    end
  end
  object DSbaseinfo: TDataSource
    DataSet = CDSBaseinfo
    Left = 144
    Top = 88
  end
  object ActionList1: TActionList
    Left = 448
    Top = 256
    object Action1: TAction
      Category = 'Print'
      Caption = #25171#21360#39044#35272' '
      OnExecute = Action1Execute
    end
    object Action2: TAction
      Category = 'Print'
      Caption = #30452#25509#25171#21360
      OnExecute = Action2Execute
    end
    object Action3: TAction
      Category = 'Print'
      Caption = #25171#21360#35774#32622
      OnExecute = Action3Execute
    end
    object Action4: TAction
      Category = 'Print'
      Caption = #25253#34920#35774#32622
      OnExecute = Action4Execute
    end
    object Action5: TAction
      Category = 'Print'
      Caption = #30005#23376#34920#26684
    end
    object ts01: TAction
      Category = 'TimeSet'
      Caption = #26152#22825
      OnExecute = ts01Execute
    end
    object ts02: TAction
      Category = 'TimeSet'
      Caption = #19977#26085#20869
      OnExecute = ts02Execute
    end
    object ts03: TAction
      Category = 'TimeSet'
      Caption = #19971#26085#20869
      OnExecute = ts03Execute
    end
    object ts04: TAction
      Category = 'TimeSet'
      Caption = #21322#26376#20869
      OnExecute = ts04Execute
    end
    object ts05: TAction
      Category = 'TimeSet'
      Caption = #19968#20010#26376
      OnExecute = ts05Execute
    end
    object ts06: TAction
      Category = 'TimeSet'
      Caption = #19977#20010#26376
      OnExecute = ts06Execute
    end
    object ts07: TAction
      Category = 'TimeSet'
      Caption = #21322#24180
      OnExecute = ts07Execute
    end
    object ts08: TAction
      Category = 'TimeSet'
      Caption = #19968#24180
      OnExecute = ts08Execute
    end
  end
  object ppmreport: TPopupMenu