ar_enter_gatheringinvoice_d.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Enter_GatheringInvoice_D: TFrm_Ar_Enter_GatheringInvoice_D
  Left = 235
  Top = 191
  Caption = '收款单--销售发票核销'
  ClientHeight = 274
  ClientWidth = 350
  PixelsPerInch = 96
  TextHeight = 12
  object Label2: TLabel [0]
    Left = 76
    Top = 47
    Width = 48
    Height = 12
    Caption = '发票号：'
  end
  object Label3: TLabel [1]
    Left = 64
    Top = 116
    Width = 60
    Height = 12
    Caption = '单据日期：'
  end
  object Label5: TLabel [2]
    Left = 88
    Top = 139
    Width = 36
    Height = 12
    Caption = '金额：'
  end
  object Label6: TLabel [3]
    Left = 88
    Top = 162
    Width = 36
    Height = 12
    Caption = '余额：'
  end
  object Label9: TLabel [4]
    Left = 40
    Top = 185
    Width = 84
    Height = 12
    Caption = '本次核销金额：'
  end
  object Label1: TLabel [5]
    Left = 64
    Top = 70
    Width = 60
    Height = 12
    Caption = '销售部门：'
  end
  object Label4: TLabel [6]
    Left = 64
    Top = 93
    Width = 60
    Height = 12
    Caption = '销售人员：'
  end
  inherited btn_ok: TButton
    Left = 92
    Top = 218
    TabOrder = 4
  end
  inherited btn_Cancel: TButton
    Left = 185
    Top = 218
    TabOrder = 5
  end
  inherited Pnl_Add: TPanel
    Left = 326
    TabOrder = 6
  end
  object medt_Sdate: TMaskEdit [10]
    Left = 128
    Top = 109
    Width = 105
    Height = 20
    Enabled = False
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 0
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object edt_Amount: TEdit [11]
    Left = 128
    Top = 132
    Width = 106
    Height = 20
    TabOrder = 1
    OnExit = FloatCheck
  end
  object edt_reMainAmount: TEdit [12]
    Left = 128
    Top = 155
    Width = 106
    Height = 20
    TabOrder = 2
    OnExit = FloatCheck
  end
  object edt_CancelAmount: TEdit [13]
    Left = 128
    Top = 178
    Width = 106
    Height = 20
    TabOrder = 3
    OnExit = FloatCheck
  end
  object Edt_Invoiceno: TExtEdit [14]
    Left = 128
    Top = 40
    Width = 105
    Height = 20
    TabOrder = 7
    OnExit = Edt_InvoicenoExit
    OnKeyDown = Edt_InvoicenoKeyDown
  end
  object edt_SaleDeptCode: TExtEdit [15]
    Left = 128
    Top = 63
    Width = 73
    Height = 20
    TabOrder = 8
  end
  object edt_SaleDeptName: TExtEdit [16]
    Left = 203
    Top = 63
    Width = 112
    Height = 20
    TabOrder = 9
  end
  object edt_SaleEmployeeCode: TExtEdit [17]
    Left = 128
    Top = 86
    Width = 73
    Height = 20
    TabOrder = 10
  end
  object edt_SaleEmployeeName: TExtEdit [18]
    Left = 203
    Top = 86
    Width = 112
    Height = 20
    TabOrder = 11
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 296
    Top = 160
  end
end