ap_pay_d.dfm

一个MRPII系统源代码版本

inherited Frm_Ap_Pay_D: TFrm_Ap_Pay_D
  Left = 194
  Top = 111
  Caption = '付款记录'
  ClientHeight = 233
  ClientWidth = 503
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 16
    Top = 73
    Width = 72
    Height = 12
    Caption = '供应商代码：'
  end
  object Label2: TLabel [1]
    Left = 220
    Top = 27
    Width = 60
    Height = 12
    Caption = '付款日期：'
  end
  object Label3: TLabel [2]
    Left = 28
    Top = 143
    Width = 60
    Height = 12
    Caption = '付款方式：'
  end
  object Label4: TLabel [3]
    Left = 208
    Top = 73
    Width = 72
    Height = 12
    Caption = '供应商名称：'
  end
  object Lbl_VendorName1: TLabel [4]
    Left = 299
    Top = 73
    Width = 6
    Height = 12
    Visible = False
  end
  object Label6: TLabel [5]
    Left = 16
    Top = 27
    Width = 72
    Height = 12
    Caption = '付款凭证号：'
  end
  object Label7: TLabel [6]
    Left = 220
    Top = 143
    Width = 60
    Height = 12
    Caption = '付款金额：'
  end
  object Label5: TLabel [7]
    Left = 28
    Top = 97
    Width = 60
    Height = 12
    Caption = '货币代码：'
  end
  object Label8: TLabel [8]
    Left = 16
    Top = 120
    Width = 72
    Height = 12
    Caption = '录入员代码：'
  end
  object Label9: TLabel [9]
    Left = 208
    Top = 120
    Width = 72
    Height = 12
    Caption = '录入员名称：'
  end
  object Lbl_EmployeeName: TLabel [10]
    Left = 280
    Top = 120
    Width = 6
    Height = 12
  end
  object Label11: TLabel [11]
    Left = 220
    Top = 97
    Width = 60
    Height = 12
    Caption = '货币名称：'
  end
  object Lbl_CURRENCYName: TLabel [12]
    Left = 280
    Top = 97
    Width = 6
    Height = 12
  end
  object Label10: TLabel [13]
    Left = 52
    Top = 167
    Width = 36
    Height = 12
    Caption = '备注：'
  end
  object Label12: TLabel [14]
    Left = 24
    Top = 50
    Width = 60
    Height = 12
    Caption = '计帐日期：'
  end
  object Label13: TLabel [15]
    Left = 220
    Top = 50
    Width = 60
    Height = 12
    Caption = '参考号码：'
  end
  inherited btn_ok: TButton
    Left = 292
    Top = 200
    TabOrder = 10
  end
  inherited btn_Cancel: TButton
    Left = 401
    Top = 200
    TabOrder = 11
    OnClick = btn_CancelClick
  end
  inherited Pnl_Add: TPanel
    Left = 422
    Top = 5
    TabOrder = 12
  end
  object edt_VendorCode1: TExtEdit [19]
    Left = 388
    Top = 130
    Width = 80
    Height = 20
    TabOrder = 4
    Visible = False
    OnKeyDown = VendorHint
    DispLabel = Lbl_VendorName1
  end
  object edt_PayBillno: TExtEdit [20]
    Left = 86
    Top = 23
    Width = 80
    Height = 20
    Color = clMenu
    Enabled = False
    TabOrder = 0
  end
  object edt_PayAmount: TExtEdit [21]
    Left = 280
    Top = 139
    Width = 80
    Height = 20
    TabOrder = 8
    OnExit = edt_PayAmountExit
  end
  object edt_Paydate: TMaskEdit [22]
    Left = 280
    Top = 23
    Width = 80
    Height = 20
    EditMask = '!9999/99/00;1;_'
    MaxLength = 10
    TabOrder = 1
    Text = ' -  .  .  '
  end
  object edt_PayModeCode: TComboBox [23]
    Left = 86
    Top = 139
    Width = 80
    Height = 20
    ItemHeight = 12
    TabOrder = 7
    Items.Strings = (
      '1'
      '2'
      '3'
      '4')
  end
  object edt_CurrencyCode: TExtEdit [24]
    Left = 86
    Top = 93
    Width = 80
    Height = 20
    TabOrder = 5
    OnExit = CurrencyCodeCheck
    OnKeyDown = CurrencyHint
    DispLabel = Lbl_CURRENCYName
  end
  object edt_EmployeeCode: TExtEdit [25]
    Left = 86
    Top = 116
    Width = 80
    Height = 20
    TabOrder = 6
    OnExit = EmployeeCodeCheck
    OnKeyDown = EmployeeHint
    DispLabel = Lbl_EmployeeName
  end
  object edt_PayRemArk: TExtEdit [26]
    Left = 86
    Top = 163
    Width = 387
    Height = 20
    MaxLength = 40
    TabOrder = 9
  end
  object Edt_input: TMaskEdit [27]
    Left = 86
    Top = 46
    Width = 80
    Height = 20
    EditMask = '!9999/99/00;1;_'
    MaxLength = 10
    TabOrder = 2
    Text = ' -  .  .  '
    OnExit = Edt_inputExit
  end
  object edt_RemArkNo: TExtEdit [28]
    Left = 280
    Top = 46
    Width = 80
    Height = 20
    TabOrder = 3
    DispLabel = Lbl_VendorName1
  end
  object Lbl_VendorName: TEdit [29]
    Left = 280
    Top = 69
    Width = 193
    Height = 20
    TabStop = False
    ReadOnly = True
    TabOrder = 13
  end
  object edt_VendorCode: TLinkEdit [30]
    Left = 86
    Top = 69
    Width = 80
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 14
    OnButtonClick = edt_VendorCodeButtonClick
    OnExit = edt_VendorCodeExit
    OnKeyDown = VendorHint
  end
  inherited AdoQry_Tmp: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=NT2'
    Left = 456
    Top = 32
  end
end