ar_enter_nogatherinvoice_d.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Enter_NoGatherInvoice_D: TFrm_Ar_Enter_NoGatherInvoice_D
  Left = 189
  Top = 153
  Caption = '未核销销售发票'
  ClientHeight = 360
  ClientWidth = 512
  PixelsPerInch = 96
  TextHeight = 12
  object Label4: TLabel [0]
    Left = 254
    Top = 52
    Width = 60
    Height = 12
    Caption = '发票日期：'
    TransParent = True
  end
  object Label5: TLabel [1]
    Left = 34
    Top = 29
    Width = 60
    Height = 12
    Caption = '销售客户：'
    TransParent = True
  end
  object Label6: TLabel [2]
    Left = 58
    Top = 143
    Width = 36
    Height = 12
    Caption = '货币：'
    TransParent = True
  end
  object Label7: TLabel [3]
    Left = 370
    Top = 165
    Width = 42
    Height = 12
    Caption = '税率%：'
    TransParent = True
  end
  object Label8: TLabel [4]
    Left = 46
    Top = 52
    Width = 48
    Height = 12
    Caption = '发票号：'
    TransParent = True
  end
  object Label12: TLabel [5]
    Left = 254
    Top = 120
    Width = 60
    Height = 12
    Caption = '销售部门：'
    TransParent = True
  end
  object Label13: TLabel [6]
    Left = 22
    Top = 120
    Width = 72
    Height = 12
    Caption = '营销业务员：'
    TransParent = True
  end
  object Label14: TLabel [7]
    Left = 34
    Top = 256
    Width = 60
    Height = 12
    Caption = '建档人员：'
    TransParent = True
  end
  object Label15: TLabel [8]
    Left = 274
    Top = 256
    Width = 60
    Height = 12
    Caption = '建档日期：'
    TransParent = True
  end
  object Label16: TLabel [9]
    Left = 58
    Top = 234
    Width = 36
    Height = 12
    Caption = '备注：'
    TransParent = True
  end
  object Label19: TLabel [10]
    Left = 254
    Top = 97
    Width = 60
    Height = 12
    Caption = '销售类型：'
    TransParent = True
  end
  object Label22: TLabel [11]
    Left = 254
    Top = 142
    Width = 60
    Height = 12
    Caption = '付款条款：'
    TransParent = True
  end
  object Label2: TLabel [12]
    Left = 34
    Top = 165
    Width = 60
    Height = 12
    Caption = '发票总额：'
    TransParent = True
  end
  object Label9: TLabel [13]
    Left = 22
    Top = 188
    Width = 72
    Height = 12
    Caption = '已核销金额：'
    TransParent = True
  end
  object Label1: TLabel [14]
    Left = 34
    Top = 74
    Width = 60
    Height = 12
    Caption = '发票类型：'
    TransParent = True
  end
  object Label17: TLabel [15]
    Left = 34
    Top = 97
    Width = 60
    Height = 12
    Caption = '发票性质：'
    TransParent = True
  end
  object Label3: TLabel [16]
    Left = 34
    Top = 211
    Width = 60
    Height = 12
    Caption = '开户银行：'
    TransParent = True
  end
  object Label11: TLabel [17]
    Left = 254
    Top = 211
    Width = 60
    Height = 12
    Caption = '银行帐号：'
    TransParent = True
  end
  object Label10: TLabel [18]
    Left = 34
    Top = 279
    Width = 60
    Height = 12
    Caption = '修改人员：'
    TransParent = True
  end
  object Label18: TLabel [19]
    Left = 274
    Top = 279
    Width = 60
    Height = 12
    Caption = '修改日期：'
    TransParent = True
  end
  object Label20: TLabel [20]
    Left = 278
    Top = 165
    Width = 36
    Height = 12
    Caption = '汇率：'
    TransParent = True
  end
  object Label21: TLabel [21]
    Left = 230
    Top = 75
    Width = 84
    Height = 12
    Caption = '出口贸易类型：'
    TransParent = True
  end
  inherited btn_ok: TButton
    Left = 211
    Top = 320
    TabOrder = 31
  end
  inherited btn_Cancel: TButton
    Left = 315
    Top = 320
    TabOrder = 32
  end
  inherited Pnl_Add: TPanel
    Left = 486
    Top = 7
    TabOrder = 33
  end
  object medt_InvoiceDate: TMaskEdit [25]
    Left = 314
    Top = 46
    Width = 73
    Height = 20
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 3
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object edt_rate: TEdit [26]
    Left = 409
    Top = 161
    Width = 37
    Height = 20
    TabOrder = 20
    Text = '17'
    OnExit = FloatCheck
  end
  object edt_InvoiceNo: TEdit [27]
    Left = 94
    Top = 46
    Width = 131
    Height = 20
    TabOrder = 2
  end
  object medt_Createdate: TMaskEdit [28]
    Left = 334
    Top = 253
    Width = 113
    Height = 20
    Enabled = False
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 27
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object edt_remArk: TEdit [29]
    Left = 94
    Top = 230
    Width = 353
    Height = 20
    TabOrder = 24
    Text = '系统初始化'
  end
  object edt_CustomerName: TEdit [30]
    Left = 146
    Top = 23
    Width = 300
    Height = 20
    Enabled = False
    TabOrder = 1
  end
  object edt_CurrencyName: TEdit [31]
    Left = 146
    Top = 138
    Width = 80
    Height = 20
    Enabled = False
    TabOrder = 15
  end
  object edt_DeptName: TEdit [32]
    Left = 366
    Top = 115
    Width = 80
    Height = 20
    Enabled = False
    TabOrder = 13
  end
  object edt_SaleEmployeeName: TEdit [33]
    Left = 146
    Top = 115
    Width = 80
    Height = 20
    Enabled = False
    TabOrder = 11
  end
  object edt_CreateEmployeeName: TEdit [34]
    Left = 146
    Top = 253
    Width = 80
    Height = 20
    Enabled = False
    TabOrder = 26
  end
  object edt_CustomerCode: TLinkEdit [35]
    Left = 94
    Top = 23
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 0
    OnButtonClick = CustomerHint1
    OnExit = edt_CustomerCodeExit
    OnKeyDown = CustomerHint
  end
  object edt_CurrencyCode: TLinkEdit [36]
    Left = 94
    Top = 138
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 14
    OnButtonClick = CurrencyHint1
    OnExit = edt_CurrencyCodeExit
    OnKeyDown = CurrencyHint
  end
  object edt_DeptCode: TLinkEdit [37]
    Left = 314
    Top = 115
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 12
    OnButtonClick = DeptHint1
    OnExit = edt_DeptCodeExit
    OnKeyDown = DeptHint
  end
  object edt_SaleEmployeeCode: TLinkEdit [38]
    Left = 94
    Top = 115
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 10
    OnButtonClick = EmployeeHint1
    OnExit = edt_SaleEmployeeCodeExit
    OnKeyDown = EmployeeHint
  end
  object edt_CreateEmployeeCode: TLinkEdit [39]
    Left = 94
    Top = 253
    Width = 50
    Height = 20
    Enabled = False
    LinkStyle = lsEllipsis
    TabOrder = 25
    OnButtonClick = EmployeeHint1
    OnExit = edt_CreateEmployeeCodeExit
    OnKeyDown = EmployeeHint
  end
  object Edt_SaleTypeName: TEdit [40]
    Left = 366
    Top = 92
    Width = 80
    Height = 20
    Enabled = False
    TabOrder = 9
  end
  object Edt_SaleTypeCode: TLinkEdit [41]
    Left = 314
    Top = 92
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 8
    OnButtonClick = Edt_SaleTypeCodeButtonClick
    OnExit = Edt_SaleTypeCodeExit
    OnKeyDown = Edt_SaleTypeCodeKeyDown
  end
  object Edt_PayTermName: TEdit [42]
    Left = 366
    Top = 138
    Width = 80
    Height = 20
    Enabled = False
    TabOrder = 17
  end
  object Edt_PayTermCode: TLinkEdit [43]
    Left = 314
    Top = 138
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 16
    OnButtonClick = Edt_PayTermCodeButtonClick
    OnExit = Edt_PayTermCodeExit
    OnKeyDown = Edt_PayTermCodeKeyDown
  end
  object Edt_TotalTaxAmount: TEdit [44]
    Left = 94
    Top = 161
    Width = 132
    Height = 20
    TabOrder = 18
    OnExit = Edt_TotalTaxAmountExit
  end
  object Edt_CancelAmount: TEdit [45]
    Left = 93
    Top = 184
    Width = 132
    Height = 20
    TabOrder = 21
    OnExit = FloatCheck
  end
  object Cmb_InvoiceType: TComboBox [46]
    Left = 94
    Top = 69
    Width = 132
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 4
    OnExit = Cmb_InvoiceTypeExit
    Items.Strings = (
      '0 普通发票'
      '1 专用发票'
      '2 出口发票')
  end
  object Cmb_BillType: TComboBox [47]
    Left = 94
    Top = 92
    Width = 132
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 7
    Items.Strings = (
      '0 销售发票'
      '1 其他销售发票')
  end
  object Edt_Bank: TEdit [48]
    Left = 94
    Top = 207
    Width = 132
    Height = 20
    TabOrder = 22
  end
  object Edt_BankActNo: TEdit [49]
    Left = 314
    Top = 207
    Width = 133
    Height = 20
    TabOrder = 23
  end
  object MEdt_EditDate: TMaskEdit [50]
    Left = 334
    Top = 276
    Width = 113
    Height = 20
    Enabled = False
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 30
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object Edt_EdItEmployeeName: TEdit [51]
    Left = 146
    Top = 276
    Width = 80
    Height = 20
    Enabled = False
    TabOrder = 29
  end
  object Edt_EdItEmployeeCode: TLinkEdit [52]
    Left = 94
    Top = 276
    Width = 50
    Height = 20
    Enabled = False
    LinkStyle = lsEllipsis
    TabOrder = 28
    OnButtonClick = EmployeeHint1
    OnExit = Edt_EdItEmployeeCodeExit
    OnKeyDown = EmployeeHint
  end
  object edt_ExchRate: TEdit [53]
    Left = 314
    Top = 161
    Width = 53
    Height = 20
    TabOrder = 19
    Text = '1.0'
    OnExit = FloatCheck
  end
  object Edt_ExportTypeCode: TLinkEdit [54]
    Left = 314
    Top = 69
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 5
    OnButtonClick = Edt_ExportTypeCodeButtonClick
    OnExit = Edt_ExportTypeCodeExit
    OnKeyDown = Edt_ExportTypeCodeKeyDown
  end
  object Edt_ExportTypeName: TEdit [55]
    Left = 366
    Top = 69
    Width = 80
    Height = 20
    Enabled = False
    TabOrder = 6
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 528
    Top = 64
  end
end