untvlease.dfm

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

inherited frmvlease: Tfrmvlease
  Left = 243
  Top = 336
  Caption = #31199#36710#31649#29702
  PixelsPerInch = 96
  TextHeight = 13
  inherited PnlEdit: TPanel
    inherited pnEdit: TPanel
      Height = 206
      object Label7: TLabel [0]
        Left = 16
        Top = 61
        Width = 52
        Height = 13
        Caption = #23458#25143#32534#21495
      end
      object Label8: TLabel [1]
        Left = 16
        Top = 109
        Width = 52
        Height = 13
        Caption = #31199#36710#26085#26399
      end
      object Label11: TLabel [2]
        Left = 16
        Top = 155
        Width = 54
        Height = 13
        Caption = #22791'    '#27880
      end
      object Label6: TLabel [3]
        Left = 16
        Top = 85
        Width = 52
        Height = 13
        Caption = #32852#31995#30005#35805
      end
      object Label12: TLabel [4]
        Left = 598
        Top = 132
        Width = 26
        Height = 13
        Caption = #21387#37329
      end
      object Label9: TLabel [5]
        Left = 198
        Top = 108
        Width = 52
        Height = 13
        Caption = #31199#36710#26102#38388
      end
      object Label10: TLabel [6]
        Left = 320
        Top = 132
        Width = 52
        Height = 13
        Caption = #31199#36710#27169#24335
      end
      object SpeedButton1: TSpeedButton [7]
        Left = 197
        Top = 56
        Width = 23
        Height = 21
        Glyph.Data = {
          D6000000424DD60000000000000076000000280000000B0000000C0000000100
          04000000000060000000C40E0000C40E00001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888880
          0000888888888880000088800000888000008888888888800000888880888880
          0000888800088880000088700000888000008800000008800000888800088880
          0000888800088880000088880008888000008888888888800000}
        OnClick = SpeedButton1Click
      end
      object Label13: TLabel [8]
        Left = 198
        Top = 84
        Width = 52
        Height = 13
        Caption = #23458#25143#22320#22336
      end
      object Label14: TLabel [9]
        Left = 598
        Top = 108
        Width = 26
        Height = 13
        Caption = #21496#26426
      end
      object Label15: TLabel [10]
        Left = 320
        Top = 108
        Width = 52
        Height = 13
        Caption = #25269#25276#35777#20214
      end
      object Label16: TLabel [11]
        Left = 16
        Top = 133
        Width = 52
        Height = 13
        Caption = #36824#36710#26085#26399
      end
      object Label17: TLabel [12]
        Left = 198
        Top = 132
        Width = 52
        Height = 13
        Caption = #36824#36710#26102#38388
      end
      inherited plStandard: TPanel
        TabOrder = 15
      end
      object DBMemo1: TDBMemo
        Left = 72
        Top = 153
        Width = 675
        Height = 49
        Hint = 'fremark'
        TabOrder = 14
      end
      object MaskEdit1: TMaskEdit
        Left = 255
        Top = 104
        Width = 49
        Height = 21
        Hint = 'ftime'
        EditMask = '!90:00;1;_'
        MaxLength = 5
        TabOrder = 5
        Text = '  :  '
        OnExit = MaskEdit1Exit
      end
      object wwDBLookupCombo1: TwwDBLookupCombo
        Left = 379
        Top = 128
        Width = 130
        Height = 21
        Hint = 'frentType'
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'fname'#9'20'#9#31867#22411#21517#31216#9'F'#9
          'fcode'#9'10'#9#20195#30721#9'F'#9)
        LookupTable = CDSType
        LookupField = 'fname'
        Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
        TabOrder = 11
        AutoDropDown = False
        ShowButton = True
        PreciseEditRegion = False
        AllowClearKey = False
      end
      object wwDBEdit2: TwwDBEdit
        Left = 72
        Top = 80
        Width = 122
        Height = 21
        Hint = 'fcustomermobile'
        TabOrder = 2
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwCheckBox1: TwwCheckBox
        Left = 518
        Top = 128
        Width = 82
        Height = 17
        Hint = 'fisimpawnmoney'
        DisableThemes = False
        AlwaysTransparent = False
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        DisplayValueChecked = 'True'
        DisplayValueUnchecked = 'False'
        NullAndBlankState = cbUnchecked
        Caption = #39044#20132#31199#37329
        TabOrder = 12
      end
      object wwDBEdit1: TwwDBEdit
        Left = 72
        Top = 56
        Width = 122
        Height = 21
        Hint = 'fCustomerCode'
        TabOrder = 0
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object DBDateTimeEditEh1: TDBDateTimeEditEh
        Left = 72
        Top = 104
        Width = 122
        Height = 21
        Hint = 'fdate'
        EditButtons = <>
        Kind = dtkDateEh
        TabOrder = 4
        Visible = True
      end
      object wwDBEdit3: TwwDBEdit
        Left = 222
        Top = 56
        Width = 285
        Height = 21
        Hint = 'fcustomername'
        TabOrder = 1
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit4: TwwDBEdit
        Left = 255
        Top = 80
        Width = 252
        Height = 21
        Hint = 'fcustomeraddress'
        TabOrder = 3
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwCheckBox2: TwwCheckBox
        Left = 518
        Top = 104
        Width = 82
        Height = 17
        Hint = 'fisdriver'
        DisableThemes = False
        AlwaysTransparent = False
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        DisplayValueChecked = 'True'
        DisplayValueUnchecked = 'False'
        NullAndBlankState = cbUnchecked
        Caption = #26159#21542#38506#39550
        TabOrder = 7
        OnClick = wwCheckBox2Click
      end
      object wwDBEdit6: TwwDBEdit
        Left = 638
        Top = 128
        Width = 110
        Height = 21
        Hint = 'fmoney'
        TabOrder = 13
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit7: TwwDBEdit
        Left = 379
        Top = 104
        Width = 130
        Height = 21
        Hint = 'fimpawncertificate'
        TabOrder = 6
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object DBDateTimeEditEh2: TDBDateTimeEditEh
        Left = 72
        Top = 128
        Width = 122
        Height = 21
        Hint = 'freturndate'
        EditButtons = <>
        Kind = dtkDateEh
        TabOrder = 9
        Visible = True
      end
      object MaskEdit2: TMaskEdit
        Left = 255
        Top = 128
        Width = 49
        Height = 21
        Hint = 'freturntime'
        EditMask = '!90:00;1;_'
        MaxLength = 5
        TabOrder = 10
        Text = '  :  '
        OnExit = MaskEdit2Exit
      end
      object wwDBLookupCombo2: TwwDBLookupCombo
        Left = 638
        Top = 104
        Width = 110
        Height = 21
        Hint = 'fdriver'
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'fName'#9'20'#9#21517#31216#9'F'
          'fCode'#9'10'#9#32534#30721#9'F')
        LookupTable = CDSDriver
        LookupField = 'fName'
        Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
        TabOrder = 8
        AutoDropDown = False
        ShowButton = True
        PreciseEditRegion = False
        AllowClearKey = False
      end
    end
    inherited plGrid: TPanel
      Top = 206
      Height = 121
      inherited Grid: TDBGridEh
        Height = 71
      end
      inherited plOther: TPanel
        Top = 71
      end
    end
    inherited plButton: TPanel
      inherited Button15: TButton
        Visible = False
      end
    end
  end
  inherited CDSMaster: TClientDataSet
    AfterPost = CDSMasterAfterPost
    AfterScroll = CDSMasterAfterScroll
  end
  inherited frBaseinfo: TfrReport
    ReportForm = {19000000}
  end
  object CDSType: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 288
    Top = 200
    object CDSTypefname: TWideStringField
      DisplayLabel = #31867#22411#21517#31216
      DisplayWidth = 20
      FieldName = 'fname'
      Size = 32
    end
    object CDSTypefcode: TWideStringField
      DisplayLabel = #20195#30721
      DisplayWidth = 10
      FieldName = 'fcode'
    end
    object CDSTypefid: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object CDSTypefremark: TWideStringField
      DisplayWidth = 50
      FieldName = 'fremark'
      Visible = False
      Size = 50
    end
  end
  object CDSDriver: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 392
    Top = 200
    object CDSDriverfName: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldName = 'fName'
      Size = 50
    end
    object CDSDriverfCode: TWideStringField
      DisplayLabel = #32534#30721
      DisplayWidth = 10
      FieldName = 'fCode'
      Size = 50
    end
    object CDSDriverfID: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fID'
      ReadOnly = True
      Visible = False
    end
    object CDSDriverfDeptCode: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDeptCode'
      Visible = False
      Size = 50
    end
    object CDSDriverfDriveID: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDriveID'
      Visible = False
      Size = 50
    end
    object CDSDriverfSex: TWideStringField
      DisplayWidth = 50
      FieldName = 'fSex'
      Visible = False
      Size = 50
    end
    object CDSDriverfPosition: TWideStringField
      DisplayWidth = 50
      FieldName = 'fPosition'
      Visible = False
      Size = 50
    end
    object CDSDriverfAddress: TWideStringField
      DisplayWidth = 50
      FieldName = 'fAddress'
      Visible = False
      Size = 50
    end
    object CDSDriverfEmail: TWideStringField
      DisplayWidth = 100
      FieldName = 'fEmail'
      Visible = False
      Size = 100
    end
    object CDSDriverfTel: TWideStringField
      DisplayWidth = 50
      FieldName = 'fTel'
      Visible = False
      Size = 50
    end
    object CDSDriverfMobile: TWideStringField
      DisplayWidth = 50
      FieldName = 'fMobile'
      Visible = False
      Size = 50
    end
    object CDSDriverfBP: TWideStringField
      DisplayWidth = 50
      FieldName = 'fBP'
      Visible = False
      Size = 50
    end
    object CDSDriverfDegree: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDegree'
      Visible = False
      Size = 50
    end
    object CDSDriverfCollege: TWideStringField
      DisplayWidth = 50
      FieldName = 'fCollege'
      Visible = False
      Size = 50
    end
    object CDSDriverfBirthAddress: TWideStringField
      DisplayWidth = 50
      FieldName = 'fBirthAddress'
      Visible = False
      Size = 50
    end
    object CDSDriverfBirthday: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fBirthday'
      Visible = False
    end
    object CDSDriverfInTime: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fInTime'
      Visible = False
    end
    object CDSDriverfOutTime: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fOutTime'
      Visible = False
    end
    object CDSDriverfMoney: TBCDField
      DisplayWidth = 11
      FieldName = 'fMoney'
      Visible = False
      Precision = 10
      Size = 2
    end
    object CDSDriverfStatus: TBooleanField
      DisplayWidth = 5
      FieldName = 'fStatus'
      Visible = False
    end
    object CDSDriverfNotes: TWideStringField
      DisplayWidth = 100
      FieldName = 'fNotes'
      Visible = False
      Size = 100
    end
    object CDSDriverfPicture: TWideStringField
      DisplayWidth = 100
      FieldName = 'fPicture'
      Visible = False
      Size = 100
    end
  end
end