untvreturn.dfm

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

          Hint = 'fmoney'
          Color = 15396845
          TabOrder = 11
          UnboundDataType = wwDefault
          WantReturns = False
          WordWrap = False
        end
        object DBMemo2: TDBMemo
          Left = 63
          Top = 83
          Width = 617
          Height = 23
          Hint = 'fnote'
          TabOrder = 12
        end
      end
      inherited plStandard: TPanel
        Height = 53
        TabOrder = 10
        inherited plcalendar: TPanel
          Height = 53
        end
      end
      object DBMemo1: TDBMemo
        Left = 79
        Top = 102
        Width = 628
        Height = 23
        Hint = 'fremark'
        TabOrder = 8
      end
      object wwDBEdit2: TwwDBEdit
        Left = 79
        Top = 51
        Width = 120
        Height = 21
        Hint = 'fleaseno'
        TabOrder = 0
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object DBDateTimeEditEh1: TDBDateTimeEditEh
        Left = 326
        Top = 51
        Width = 110
        Height = 21
        Hint = 'ffactrdate'
        EditButtons = <>
        Kind = dtkDateEh
        TabOrder = 1
        Visible = True
      end
      object MaskEdit1: TMaskEdit
        Left = 530
        Top = 51
        Width = 49
        Height = 21
        Hint = 'ffactrtime'
        EditMask = '!90:00;1;_'
        MaxLength = 5
        TabOrder = 2
        Text = '  :  '
        OnExit = MaskEdit1Exit
      end
      object wwDBEdit4: TwwDBEdit
        Left = 79
        Top = 76
        Width = 70
        Height = 21
        Hint = 'foverrunkmoney'
        TabOrder = 3
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit13: TwwDBEdit
        Left = 239
        Top = 76
        Width = 70
        Height = 21
        Hint = 'foverruntmoney'
        TabOrder = 4
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit14: TwwDBEdit
        Left = 504
        Top = 76
        Width = 70
        Height = 21
        Hint = 'freceipthire'
        TabOrder = 6
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit15: TwwDBEdit
        Left = 371
        Top = 76
        Width = 70
        Height = 21
        Hint = 'foverrtnfmoney'
        TabOrder = 5
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBEdit16: TwwDBEdit
        Left = 638
        Top = 76
        Width = 69
        Height = 21
        Hint = 'freturnimpawn'
        TabOrder = 7
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
    end
    inherited plGrid: TPanel
      Top = 236
      Height = 91
      inherited Grid: TDBGridEh
        Height = 41
      end
      inherited plOther: TPanel
        Top = 41
      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 CDSLease: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 164
    Top = 162
    object CDSLeasefno: TWideStringField
      DisplayLabel = #31199#36710#21333#21495
      DisplayWidth = 20
      FieldName = 'fno'
    end
    object CDSLeasefdate: TDateTimeField
      DisplayLabel = #31199#36710#26085#26399
      DisplayWidth = 10
      FieldName = 'fdate'
    end
    object CDSLeaseftime: TWideStringField
      DisplayLabel = #31199#36710#26102#38388
      DisplayWidth = 8
      FieldName = 'ftime'
      Size = 10
    end
    object CDSLeasefcustomername: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      DisplayWidth = 20
      FieldName = 'fcustomername'
      Size = 38
    end
    object CDSLeasefid: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object CDSLeasefsn: TIntegerField
      DisplayWidth = 10
      FieldName = 'fsn'
      Visible = False
    end
    object CDSLeasefcreauser: TWideStringField
      DisplayWidth = 20
      FieldName = 'fcreauser'
      Visible = False
    end
    object CDSLeasefcreadate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fcreadate'
      Visible = False
    end
    object CDSLeasefmodiuser: TWideStringField
      DisplayWidth = 20
      FieldName = 'fmodiuser'
      Visible = False
    end
    object CDSLeasefmodidate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fmodidate'
      Visible = False
    end
    object CDSLeasefcancelflag: TBooleanField
      DisplayWidth = 5
      FieldName = 'fcancelflag'
      Visible = False
    end
    object CDSLeasefcanceluser: TWideStringField
      DisplayWidth = 20
      FieldName = 'fcanceluser'
      Visible = False
    end
    object CDSLeasefcanceldate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fcanceldate'
      Visible = False
    end
    object CDSLeaseffinishflag: TBooleanField
      DisplayWidth = 5
      FieldName = 'ffinishflag'
      Visible = False
    end
    object CDSLeaseffinishuser: TWideStringField
      DisplayWidth = 20
      FieldName = 'ffinishuser'
      Visible = False
    end
    object CDSLeaseffinishdate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'ffinishdate'
      Visible = False
    end
    object CDSLeasefremark: TWideStringField
      DisplayWidth = 50
      FieldName = 'fremark'
      Visible = False
      Size = 50
    end
    object CDSLeasefcustomerid: TIntegerField
      DisplayWidth = 10
      FieldName = 'fcustomerid'
      Visible = False
    end
    object CDSLeasefimpawncertificate: TWideStringField
      DisplayWidth = 20
      FieldName = 'fimpawncertificate'
      Visible = False
    end
    object CDSLeasefmoney: TBCDField
      DisplayWidth = 10
      FieldName = 'fmoney'
      Visible = False
      Precision = 9
      Size = 2
    end
    object CDSLeasefisimpawnmoney: TBooleanField
      DisplayWidth = 5
      FieldName = 'fisimpawnmoney'
      Visible = False
    end
    object CDSLeasefdriver: TWideStringField
      DisplayWidth = 20
      FieldName = 'fdriver'
      Visible = False
    end
    object CDSLeasefisdriver: TBooleanField
      DisplayWidth = 5
      FieldName = 'fisdriver'
      Visible = False
    end
    object CDSLeasefrenttype: TWideStringField
      DisplayWidth = 20
      FieldName = 'frenttype'
      Visible = False
    end
    object CDSLeasefreturndate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'freturndate'
      Visible = False
    end
    object CDSLeasefreturntime: TWideStringField
      DisplayWidth = 10
      FieldName = 'freturntime'
      Visible = False
      Size = 10
    end
    object CDSLeasefcustomercode: TWideStringField
      DisplayWidth = 12
      FieldName = 'fcustomercode'
      Visible = False
      Size = 12
    end
    object CDSLeasefcustomermobile: TWideStringField
      DisplayWidth = 16
      FieldName = 'fcustomermobile'
      Visible = False
      Size = 16
    end
    object CDSLeasefcustomeraddress: TWideStringField
      DisplayWidth = 50
      FieldName = 'fcustomeraddress'
      Visible = False
      Size = 50
    end
  end
  object wwLookupDialog1: TwwLookupDialog
    Selected.Strings = (
      'fno'#9'20'#9#31199#36710#21333#21495#9'F'#9
      'fdate'#9'10'#9#31199#36710#26085#26399#9'F'#9
      'ftime'#9'8'#9#31199#36710#26102#38388#9'F'#9
      'fcustomername'#9'20'#9#23458#25143#21517#31216#9'F'#9)
    GridTitleAlignment = taLeftJustify
    GridColor = clWhite
    Options = [opShowOKCancel]
    GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit]
    LookupTable = CDSLease
    Caption = #31199#36710#21333#21495#26597#25214
    MaxWidth = 0
    MaxHeight = 209
    CharCase = ecNormal
    Left = 204
    Top = 162
  end
end