untotherpay.dfm

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

inherited frmOtherPay: TfrmOtherPay
  Left = 549
  Top = 412
  Caption = #20854#23427#25903#20986
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  inherited PnEdit: TPanel
    Height = 150
    object Label8: TLabel [0]
      Left = 13
      Top = 51
      Width = 52
      Height = 13
      Caption = #20184#27454#23545#35937
    end
    object Label12: TLabel [1]
      Left = 13
      Top = 76
      Width = 53
      Height = 13
      Caption = #32463' '#25163' '#20154
    end
    object Label3: TLabel [2]
      Left = 13
      Top = 101
      Width = 52
      Height = 13
      Caption = #20184#27454#26041#24335
    end
    object Label13: TLabel [3]
      Left = 13
      Top = 127
      Width = 54
      Height = 13
      Caption = #22791'    '#27880
    end
    object Label6: TLabel [4]
      Left = 181
      Top = 76
      Width = 52
      Height = 13
      Caption = #20184#27454#26085#26399
    end
    object Label4: TLabel [5]
      Left = 181
      Top = 101
      Width = 52
      Height = 13
      Caption = #20184#27454#39033#30446
    end
    object Label9: TLabel [6]
      Left = 372
      Top = 76
      Width = 52
      Height = 13
      Caption = #20184#27454#37329#39069
    end
    object Label7: TLabel [7]
      Left = 413
      Top = 101
      Width = 52
      Height = 13
      Caption = #20184#27454#24080#25143
    end
    inherited plStandard: TPanel
      TabOrder = 8
    end
    object wwDBEdit3: TwwDBEdit
      Left = 72
      Top = 46
      Width = 216
      Height = 21
      Hint = 'fSource'
      TabOrder = 0
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBLookupCombo2: TwwDBLookupCombo
      Left = 72
      Top = 70
      Width = 96
      Height = 21
      Hint = 'fhandle'
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fName'#9'12'#9#21517#31216#9'F'
        'fCode'#9'10'#9#32534#21495#9'F')
      LookupTable = CDShandle
      LookupField = 'fName'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      Style = csDropDownList
      TabOrder = 1
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 72
      Top = 95
      Width = 96
      Height = 21
      Hint = 'ftype'
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fname'#9'20'#9#26041#24335#9'F'
        'fcode'#9'12'#9#32534#21495#9'F')
      LookupTable = CDStype
      LookupField = 'fname'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      Style = csDropDownList
      TabOrder = 4
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBEdit6: TwwDBEdit
      Left = 72
      Top = 120
      Width = 561
      Height = 21
      Hint = 'fremark'
      TabOrder = 7
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBLookupCombo3: TwwDBLookupCombo
      Left = 240
      Top = 95
      Width = 161
      Height = 21
      Hint = 'fobject'
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fName'#9'30'#9#26041#24335#9'F'
        'fCode'#9'10'#9#32534#30721#9'F')
      LookupTable = CDSObject
      LookupField = 'fName'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      Style = csDropDownList
      TabOrder = 5
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object DBDateTimeEditEh1: TDBDateTimeEditEh
      Left = 240
      Top = 70
      Width = 121
      Height = 21
      Hint = 'fdate'
      EditButtons = <>
      Kind = dtkDateEh
      TabOrder = 2
      Visible = True
    end
    object wwDBEdit4: TwwDBEdit
      Left = 432
      Top = 70
      Width = 122
      Height = 21
      Hint = 'famount'
      TabOrder = 3
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBLookupCombo4: TwwDBLookupCombo
      Left = 472
      Top = 95
      Width = 161
      Height = 21
      Hint = 'faccount'
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fname'#9'24'#9#21517#31216#9'F'
        'fcode'#9'12'#9#32534#30721#9'F')
      LookupTable = CDSaccount
      LookupField = 'fName'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      Style = csDropDownList
      TabOrder = 6
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
  end
  inherited pBtn: TPanel
    Top = 191
  end
  inherited grid: TDBGridEh
    Top = 232
    Height = 181
  end
  inherited frBaseinfo: TfrReport
    ReportForm = {19000000}
  end
  object CDShandle: TClientDataSet [13]
    Aggregates = <>
    Params = <>
    Left = 64
    Top = 89
    object CDShandlefName: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 12
      FieldName = 'fName'
      Size = 50
    end
    object CDShandlefCode: TWideStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 10
      FieldName = 'fCode'
      Size = 50
    end
    object CDShandlefID: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fID'
      ReadOnly = True
      Visible = False
    end
    object CDShandlefDeptCode: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDeptCode'
      Visible = False
      Size = 50
    end
    object CDShandlefDriveID: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDriveID'
      Visible = False
      Size = 50
    end
    object CDShandlefSex: TWideStringField
      DisplayWidth = 50
      FieldName = 'fSex'
      Visible = False
      Size = 50
    end
    object CDShandlefPosition: TWideStringField
      DisplayWidth = 50
      FieldName = 'fPosition'
      Visible = False
      Size = 50
    end
    object CDShandlefAddress: TWideStringField
      DisplayWidth = 50
      FieldName = 'fAddress'
      Visible = False
      Size = 50
    end
    object CDShandlefEmail: TWideStringField
      DisplayWidth = 100
      FieldName = 'fEmail'
      Visible = False
      Size = 100
    end
    object CDShandlefTel: TWideStringField
      DisplayWidth = 50
      FieldName = 'fTel'
      Visible = False
      Size = 50
    end
    object CDShandlefMobile: TWideStringField
      DisplayWidth = 50
      FieldName = 'fMobile'
      Visible = False
      Size = 50
    end
    object CDShandlefBP: TWideStringField
      DisplayWidth = 50
      FieldName = 'fBP'
      Visible = False
      Size = 50
    end
    object CDShandlefDegree: TWideStringField
      DisplayWidth = 50
      FieldName = 'fDegree'
      Visible = False
      Size = 50
    end
    object CDShandlefCollege: TWideStringField
      DisplayWidth = 50
      FieldName = 'fCollege'
      Visible = False
      Size = 50
    end
    object CDShandlefBirthAddress: TWideStringField
      DisplayWidth = 50
      FieldName = 'fBirthAddress'
      Visible = False
      Size = 50
    end
    object CDShandlefBirthday: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fBirthday'
      Visible = False
    end
    object CDShandlefInTime: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fInTime'
      Visible = False
    end
    object CDShandlefOutTime: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fOutTime'
      Visible = False
    end
    object CDShandlefMoney: TBCDField
      DisplayWidth = 11
      FieldName = 'fMoney'
      Visible = False
      Precision = 10
      Size = 2
    end
    object CDShandlefStatus: TBooleanField
      DisplayWidth = 5
      FieldName = 'fStatus'
      Visible = False
    end
    object CDShandlefNotes: TWideStringField
      DisplayWidth = 100
      FieldName = 'fNotes'
      Visible = False
      Size = 100
    end
    object CDShandlefPicture: TWideStringField
      DisplayWidth = 100
      FieldName = 'fPicture'
      Visible = False
      Size = 100
    end
  end
  object CDStype: TClientDataSet [14]
    Aggregates = <>
    Params = <>
    Left = 104
    Top = 153
    object CDStypefname: TWideStringField
      DisplayLabel = #26041#24335
      DisplayWidth = 20
      FieldName = 'fname'
      Size = 40
    end
    object CDStypefcode: TWideStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 12
      FieldName = 'fcode'
      Size = 12
    end
    object CDStypefid: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object CDStypefaccounts: TWideStringField
      DisplayWidth = 28
      FieldName = 'faccounts'
      Visible = False
      Size = 28
    end
    object CDStypefmaxquota: TBCDField
      DisplayWidth = 19
      FieldName = 'fmaxquota'
      Visible = False
      Precision = 18
    end
  end
  object CDSObject: TClientDataSet [15]
    Aggregates = <>
    Params = <>
    Left = 304
    Top = 145
    object CDSObjectfName: TWideStringField
      DisplayLabel = #26041#24335
      DisplayWidth = 30
      FieldName = 'fName'
      Size = 30
    end
    object CDSObjectfCode: TWideStringField
      DisplayLabel = #32534#30721
      DisplayWidth = 10
      FieldName = 'fCode'
    end
    object CDSObjectfid: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object CDSObjectfReceiptType: TWideStringField
      DisplayWidth = 18
      FieldName = 'fReceiptType'
      Visible = False
      Size = 18
    end
  end
  object CDSaccount: TClientDataSet [16]
    Aggregates = <>
    Params = <>
    Left = 536
    Top = 145
    object CDSaccountfname: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 24
      FieldName = 'fname'
      Size = 24
    end
    object CDSaccountfcode: TWideStringField
      DisplayLabel = #32534#30721
      DisplayWidth = 12
      FieldName = 'fcode'
      Size = 18
    end
    object CDSaccountfid: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object CDSaccountftype: TWideStringField
      DisplayWidth = 26
      FieldName = 'ftype'
      Visible = False
      Size = 26
    end
    object CDSaccountfaccounts: TWideStringField
      DisplayWidth = 30
      FieldName = 'faccounts'
      Visible = False
      Size = 30
    end
    object CDSaccountfbank: TWideStringField
      DisplayWidth = 40
      FieldName = 'fbank'
      Visible = False
      Size = 40
    end
    object CDSaccountfcreadate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fcreadate'
      Visible = False
    end
    object CDSaccountfinitamount: TBCDField
      DisplayWidth = 19
      FieldName = 'finitamount'
      Visible = False
      Precision = 18
    end
  end
end