ar_enter_gathering_d.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Enter_Gathering_D: TFrm_Ar_Enter_Gathering_D
  Left = 217
  Top = 161
  Caption = '收款票据'
  ClientHeight = 335
  ClientWidth = 517
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 52
    Top = 48
    Width = 60
    Height = 12
    Caption = '收款序号：'
    TransParent = True
  end
  object Label2: TLabel [1]
    Left = 52
    Top = 138
    Width = 60
    Height = 12
    Caption = '结算方式：'
    TransParent = True
  end
  object Label4: TLabel [2]
    Left = 52
    Top = 71
    Width = 60
    Height = 12
    Caption = '票据日期：'
    TransParent = True
  end
  object Label5: TLabel [3]
    Left = 52
    Top = 93
    Width = 60
    Height = 12
    Caption = '销售客户：'
    TransParent = True
  end
  object Label3: TLabel [4]
    Left = 282
    Top = 139
    Width = 60
    Height = 12
    Caption = '会计科目：'
    TransParent = True
  end
  object Label6: TLabel [5]
    Left = 76
    Top = 116
    Width = 36
    Height = 12
    Caption = '货币：'
    TransParent = True
  end
  object Label7: TLabel [6]
    Left = 306
    Top = 116
    Width = 36
    Height = 12
    Caption = '汇率：'
    TransParent = True
  end
  object Label8: TLabel [7]
    Left = 294
    Top = 48
    Width = 48
    Height = 12
    Caption = '票据号：'
    TransParent = True
  end
  object Label9: TLabel [8]
    Left = 76
    Top = 161
    Width = 36
    Height = 12
    Caption = '银行：'
    TransParent = True
  end
  object Label10: TLabel [9]
    Left = 282
    Top = 161
    Width = 60
    Height = 12
    Caption = '银行帐号：'
    TransParent = True
  end
  object Label11: TLabel [10]
    Left = 76
    Top = 183
    Width = 36
    Height = 12
    Caption = '金额：'
    TransParent = True
  end
  object Label12: TLabel [11]
    Left = 282
    Top = 184
    Width = 60
    Height = 12
    Caption = '销售部门：'
    TransParent = True
  end
  object Label13: TLabel [12]
    Left = 52
    Top = 206
    Width = 60
    Height = 12
    Caption = '销售人员：'
    TransParent = True
  end
  object Label14: TLabel [13]
    Left = 52
    Top = 228
    Width = 60
    Height = 12
    Caption = '建档人员：'
    TransParent = True
  end
  object Label15: TLabel [14]
    Left = 282
    Top = 206
    Width = 60
    Height = 12
    Caption = '建档日期：'
    TransParent = True
  end
  object Label16: TLabel [15]
    Left = 76
    Top = 251
    Width = 36
    Height = 12
    Caption = '备注：'
    TransParent = True
  end
  inherited btn_ok: TButton
    Left = 162
    Top = 287
    TabOrder = 22
  end
  inherited btn_Cancel: TButton
    Left = 255
    Top = 287
    TabOrder = 23
  end
  inherited Pnl_Add: TPanel
    Left = 422
    Top = 7
    TabOrder = 24
  end
  object edt_gatherno: TEdit [19]
    Left = 112
    Top = 41
    Width = 121
    Height = 20
    TabOrder = 0
  end
  object medt_gatherdate: TMaskEdit [20]
    Left = 112
    Top = 64
    Width = 121
    Height = 20
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 2
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object edt_actCode: TEdit [21]
    Left = 344
    Top = 133
    Width = 121
    Height = 20
    TabOrder = 10
  end
  object edt_rate: TEdit [22]
    Left = 344
    Top = 110
    Width = 121
    Height = 20
    TabOrder = 7
    OnExit = FloatCheck
  end
  object edt_Billno: TEdit [23]
    Left = 344
    Top = 41
    Width = 121
    Height = 20
    TabOrder = 1
  end
  object edt_Bank: TEdit [24]
    Left = 112
    Top = 156
    Width = 124
    Height = 20
    TabOrder = 11
  end
  object edt_Bankaccno: TEdit [25]
    Left = 344
    Top = 156
    Width = 121
    Height = 20
    TabOrder = 12
  end
  object edt_Amount: TEdit [26]
    Left = 112
    Top = 179
    Width = 124
    Height = 20
    TabOrder = 13
    OnExit = FloatCheck
  end
  object medt_Createdate: TMaskEdit [27]
    Left = 344
    Top = 202
    Width = 121
    Height = 20
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 18
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object edt_remArk: TEdit [28]
    Left = 112
    Top = 248
    Width = 353
    Height = 20
    TabOrder = 21
  end
  object edt_BtName: TEdit [29]
    Left = 164
    Top = 133
    Width = 72
    Height = 20
    Enabled = False
    TabOrder = 9
  end
  object edt_CustomerName: TEdit [30]
    Left = 164
    Top = 87
    Width = 301
    Height = 20
    Enabled = False
    TabOrder = 4
  end
  object edt_CurrencyName: TEdit [31]
    Left = 164
    Top = 110
    Width = 72
    Height = 20
    Enabled = False
    TabOrder = 6
  end
  object edt_DeptName: TEdit [32]
    Left = 396
    Top = 179
    Width = 69
    Height = 20
    Enabled = False
    TabOrder = 15
  end
  object edt_SaleEmployeeName: TEdit [33]
    Left = 164
    Top = 202
    Width = 72
    Height = 20
    Enabled = False
    TabOrder = 17
  end
  object edt_CreateEmployeeName: TEdit [34]
    Left = 164
    Top = 225
    Width = 72
    Height = 20
    Enabled = False
    TabOrder = 20
  end
  object edt_CustomerCode: TLinkEdit [35]
    Left = 112
    Top = 87
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 3
    OnButtonClick = CustomerHint1
    OnExit = edt_CustomerCodeExit
    OnKeyDown = CustomerHint
  end
  object edt_CurrencyCode: TLinkEdit [36]
    Left = 112
    Top = 110
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 5
    OnButtonClick = CurrencyHint1
    OnExit = edt_CurrencyCodeExit
    OnKeyDown = CurrencyHint
  end
  object edt_BtCode: TLinkEdit [37]
    Left = 112
    Top = 133
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 8
    OnButtonClick = edt_BtCodeButtonClick
    OnChange = edt_BtCodeChange
    OnExit = edt_BtCodeExit
    OnKeyDown = edt_BtCodeKeyDown
  end
  object edt_DeptCode: TLinkEdit [38]
    Left = 344
    Top = 179
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 14
    OnButtonClick = DeptHint1
    OnExit = edt_DeptCodeExit
    OnKeyDown = DeptHint
  end
  object edt_SaleEmployeeCode: TLinkEdit [39]
    Left = 112
    Top = 202
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 16
    OnButtonClick = EmployeeHint1
    OnExit = edt_SaleEmployeeCodeExit
    OnKeyDown = EmployeeHint
  end
  object edt_CreateEmployeeCode: TLinkEdit [40]
    Left = 112
    Top = 225
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 19
    OnButtonClick = EmployeeHint1
    OnExit = edt_CreateEmployeeCodeExit
    OnKeyDown = EmployeeHint
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 48
    Top = 296
  end
end