gl_enter_credence_d.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Enter_Credence_D: TFrm_Gl_Enter_Credence_D
  Left = 192
  Top = 107
  Caption = '记账凭证'
  ClientHeight = 381
  ClientWidth = 425
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 72
    Top = 26
    Width = 36
    Height = 12
    Caption = '摘要：'
  end
  object Label2: TLabel [1]
    Left = 48
    Top = 49
    Width = 60
    Height = 12
    Caption = '科目代码：'
  end
  object Label3: TLabel [2]
    Left = 12
    Top = 95
    Width = 96
    Height = 12
    Caption = '本位币借方金额：'
  end
  object Label4: TLabel [3]
    Left = 185
    Top = 95
    Width = 96
    Height = 12
    Caption = '本位币贷方金额：'
  end
  object Label5: TLabel [4]
    Left = 48
    Top = 118
    Width = 60
    Height = 12
    Caption = '外币汇率：'
  end
  object Label6: TLabel [5]
    Left = 24
    Top = 72
    Width = 84
    Height = 12
    Caption = '原币借方金额：'
  end
  object Label7: TLabel [6]
    Left = 197
    Top = 72
    Width = 84
    Height = 12
    Caption = '原币贷方金额：'
  end
  object Label8: TLabel [7]
    Left = 48
    Top = 141
    Width = 60
    Height = 12
    Caption = '核算数量：'
  end
  object Label9: TLabel [8]
    Left = 221
    Top = 141
    Width = 60
    Height = 12
    Caption = '核算单价：'
  end
  object Label10: TLabel [9]
    Left = 48
    Top = 164
    Width = 60
    Height = 12
    Caption = '部门标识：'
  end
  object Label11: TLabel [10]
    Left = 48
    Top = 187
    Width = 60
    Height = 12
    Caption = '个人标识：'
  end
  object Label12: TLabel [11]
    Left = 48
    Top = 210
    Width = 60
    Height = 12
    Caption = '客户标识：'
  end
  object Label13: TLabel [12]
    Left = 36
    Top = 233
    Width = 72
    Height = 12
    Caption = '供应商标识：'
  end
  object Label14: TLabel [13]
    Left = 48
    Top = 256
    Width = 60
    Height = 12
    Caption = '项目标识：'
  end
  object Label15: TLabel [14]
    Left = 48
    Top = 279
    Width = 60
    Height = 12
    Caption = '结算方式：'
  end
  object Label16: TLabel [15]
    Left = 233
    Top = 118
    Width = 48
    Height = 12
    Caption = '票据号：'
  end
  object Label17: TLabel [16]
    Left = 48
    Top = 303
    Width = 60
    Height = 12
    Caption = '现金流向：'
  end
  inherited btn_ok: TButton
    Left = 143
    Top = 342
    TabOrder = 24
  end
  inherited btn_Cancel: TButton
    Left = 255
    Top = 342
    TabOrder = 25
  end
  inherited Pnl_Add: TPanel
    Left = -2
    Top = 10
    TabOrder = 26
  end
  object edt_DocketName: TLinkEdit [20]
    Left = 107
    Top = 20
    Width = 258
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 0
    OnButtonClick = edt_DocketNameButtonClick
    OnExit = edt_DocketNameExit
    OnKeyDown = edt_DocketNameKeyDown
  end
  object edt_kmCode: TLinkEdit [21]
    Left = 107
    Top = 43
    Width = 85
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 1
    OnButtonClick = edt_kmCodeButtonClick
    OnExit = edt_kmCodeExit
    OnKeyDown = edt_kmCodeKeyDown
  end
  object edt_kmName: TEdit [22]
    Left = 194
    Top = 43
    Width = 171
    Height = 20
    Enabled = False
    TabOrder = 2
  end
  object edt_Debit: TEdit [23]
    Left = 107
    Top = 89
    Width = 77
    Height = 20
    TabOrder = 5
    Text = '0'
    OnExit = FloatCheck
  end
  object edt_Credit: TEdit [24]
    Left = 280
    Top = 89
    Width = 85
    Height = 20
    TabOrder = 6
    Text = '0'
    OnExit = FloatCheck
  end
  object edt_rate: TEdit [25]
    Left = 107
    Top = 112
    Width = 77
    Height = 20
    TabOrder = 7
    Text = '0'
    OnExit = FloatCheck
  end
  object edt_fdebit: TEdit [26]
    Left = 107
    Top = 66
    Width = 77
    Height = 20
    TabOrder = 3
    Text = '0'
    OnExit = edt_fdebitExit
  end
  object edt_fcredit: TEdit [27]
    Left = 280
    Top = 66
    Width = 85
    Height = 20
    TabOrder = 4
    Text = '0'
    OnExit = edt_fcreditExit
  end
  object edt_Amount: TEdit [28]
    Left = 107
    Top = 135
    Width = 78
    Height = 20
    TabOrder = 9
    Text = '0'
    OnExit = FloatCheck
  end
  object edt_Price: TEdit [29]
    Left = 280
    Top = 135
    Width = 85
    Height = 20
    TabOrder = 10
    Text = '0'
    OnExit = FloatCheck
  end
  object edt_DeptCode: TLinkEdit [30]
    Left = 107
    Top = 158
    Width = 85
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 11
    OnButtonClick = DeptHint1
    OnExit = edt_DeptCodeExit
    OnKeyDown = DeptHint
  end
  object edt_DeptName: TEdit [31]
    Left = 194
    Top = 158
    Width = 171
    Height = 20
    Enabled = False
    TabOrder = 12
  end
  object edt_PersonCode: TLinkEdit [32]
    Left = 107
    Top = 181
    Width = 85
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 13
    OnButtonClick = EmployeeHint1
    OnExit = edt_PersonCodeExit
    OnKeyDown = EmployeeHint
  end
  object edt_PersonName: TEdit [33]
    Left = 194
    Top = 181
    Width = 171
    Height = 20
    Enabled = False
    TabOrder = 14
  end
  object edt_CustomerCode: TLinkEdit [34]
    Left = 107
    Top = 204
    Width = 85
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 15
    OnButtonClick = CustomerHint1
    OnExit = edt_CustomerCodeExit
    OnKeyDown = CustomerHint
  end
  object edt_CustomerName: TEdit [35]
    Left = 194
    Top = 204
    Width = 171
    Height = 20
    Enabled = False
    TabOrder = 16
  end
  object edt_VendorCode: TLinkEdit [36]
    Left = 107
    Top = 227
    Width = 85
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 17
    OnButtonClick = VendorHint1
    OnExit = edt_VendorCodeExit
    OnKeyDown = VendorHint
  end
  object edt_VendorName: TEdit [37]
    Left = 194
    Top = 227
    Width = 171
    Height = 20
    Enabled = False
    TabOrder = 18
  end
  object edt_ProjectCode: TLinkEdit [38]
    Left = 107
    Top = 250
    Width = 85
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 19
    OnExit = edt_ProjectCodeExit
  end
  object edt_ProjectName: TEdit [39]
    Left = 194
    Top = 250
    Width = 171
    Height = 20
    Enabled = False
    TabOrder = 20
  end
  object edt_BalanceTypeCode: TLinkEdit [40]
    Left = 107
    Top = 273
    Width = 85
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 21
    OnButtonClick = edt_BalanceTypeCodeButtonClick
    OnExit = edt_BalanceTypeCodeExit
    OnKeyDown = edt_BalanceTypeCodeKeyDown
  end
  object edt_BalanceTypeName: TEdit [41]
    Left = 194
    Top = 273
    Width = 171
    Height = 20
    Enabled = False
    TabOrder = 23
  end
  object edt_Billno: TEdit [42]
    Left = 280
    Top = 112
    Width = 85
    Height = 20
    TabOrder = 8
  end
  object Edt_CashWay: TEdit [43]
    Left = 194
    Top = 297
    Width = 171
    Height = 20
    Enabled = False
    TabOrder = 27
  end
  object cmb_CashWay: TLinkEdit [44]
    Left = 107
    Top = 297
    Width = 85
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 22
    OnButtonClick = cmb_CashWayButtonClick
    OnExit = cmb_CashWayExit
    OnKeyDown = cmb_CashWayKeyDown
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 368
    Top = 307
  end
end