untreceiptpaytype_m.dfm

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

inherited frmReceiptPayType_M: TfrmReceiptPayType_M
  Left = 227
  Top = 169
  Caption = #25910#20184#27454#26041#24335
  ClientHeight = 193
  ClientWidth = 279
  PixelsPerInch = 96
  TextHeight = 13
  object ADOTable1Label: TLabel [0]
    Left = 19
    Top = 192
    Width = 52
    Height = 13
    Caption = #26399#21021#37329#39069
  end
  inherited Panel1: TPanel
    Top = 137
    Width = 279
    inherited Bevel1: TBevel
      Top = 1
      Width = 259
      Height = 3
    end
    inherited btnExit: TButton
      Left = 193
    end
    inherited btnSave: TButton
      Left = 116
    end
  end
  inherited pnedit: TPanel
    Width = 279
    Height = 137
    inherited Label1: TLabel
      Left = 19
      Width = 52
      Caption = #25910#20184#32534#21495
    end
    inherited Label2: TLabel
      Left = 19
      Top = 53
      Width = 52
      Caption = #25910#20184#26041#24335
    end
    object Label9: TLabel [2]
      Left = 19
      Top = 82
      Width = 52
      Height = 13
      Caption = #24080#25143#31867#22411
    end
    object Label6: TLabel [3]
      Left = 19
      Top = 112
      Width = 52
      Height = 13
      Caption = #26368#22823#38480#39069
    end
    inherited DBEDITcode: TwwDBEdit
      Left = 79
      Width = 120
    end
    inherited wwDBEdit1: TwwDBEdit
      Left = 79
      Top = 51
      Width = 186
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 79
      Top = 80
      Width = 120
      Height = 21
      Hint = 'ftype'
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fname'#9'20'#9#24080#25143#21517#31216#9'F'
        'fcode'#9'10'#9#32534#21495#9'F')
      LookupTable = CDSType
      LookupField = 'fname'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      Style = csDropDownList
      TabOrder = 2
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBEdit5: TwwDBEdit
      Left = 79
      Top = 110
      Width = 120
      Height = 21
      Hint = 'finitamount'
      TabOrder = 3
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
  end
  object CDSType: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 120
    Top = 56
    object CDSTypefname: TWideStringField
      DisplayLabel = #24080#25143#21517#31216
      DisplayWidth = 20
      FieldName = 'fname'
      Size = 24
    end
    object CDSTypefcode: TWideStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 10
      FieldName = 'fcode'
      Size = 18
    end
    object CDSTypefid: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object CDSTypeftype: TWideStringField
      DisplayWidth = 26
      FieldName = 'ftype'
      Visible = False
      Size = 26
    end
    object CDSTypefaccounts: TWideStringField
      DisplayWidth = 30
      FieldName = 'faccounts'
      Visible = False
      Size = 30
    end
    object CDSTypefbank: TWideStringField
      DisplayWidth = 40
      FieldName = 'fbank'
      Visible = False
      Size = 40
    end
    object CDSTypefcreadate: TDateTimeField
      DisplayWidth = 18
      FieldName = 'fcreadate'
      Visible = False
    end
    object CDSTypefinitamount: TBCDField
      DisplayWidth = 19
      FieldName = 'finitamount'
      Visible = False
      Precision = 18
    end
  end
end