ar_qry_ar2_c.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Qry_Ar2_C: TFrm_Ar_Qry_Ar2_C
  Left = 249
  Top = 145
  Caption = 'Frm_Ar_Qry_Ar2_C'
  ClientHeight = 364
  ClientWidth = 410
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 40
    Top = 48
    Width = 72
    Height = 12
    Caption = '发票日期从：'
  end
  object Label2: TLabel [1]
    Left = 204
    Top = 48
    Width = 12
    Height = 12
    Caption = '到'
  end
  object Label3: TLabel [2]
    Left = 40
    Top = 71
    Width = 72
    Height = 12
    Caption = '销售客户从：'
  end
  object Label4: TLabel [3]
    Left = 94
    Top = 94
    Width = 12
    Height = 12
    Caption = '到'
  end
  object Label5: TLabel [4]
    Left = 40
    Top = 164
    Width = 72
    Height = 12
    Caption = '销售部门从：'
  end
  object Label6: TLabel [5]
    Left = 93
    Top = 187
    Width = 12
    Height = 12
    Caption = '到'
  end
  object Label7: TLabel [6]
    Left = 28
    Top = 210
    Width = 84
    Height = 12
    Caption = '营销业务员从：'
  end
  object Label8: TLabel [7]
    Left = 94
    Top = 233
    Width = 12
    Height = 12
    Caption = '到'
  end
  object Label9: TLabel [8]
    Left = 40
    Top = 256
    Width = 72
    Height = 12
    Caption = '发票单号从：'
  end
  object Label10: TLabel [9]
    Left = 204
    Top = 254
    Width = 12
    Height = 12
    Caption = '到'
  end
  object Label11: TLabel [10]
    Left = 64
    Top = 279
    Width = 48
    Height = 12
    Caption = '货币从：'
  end
  object Label12: TLabel [11]
    Left = 40
    Top = 117
    Width = 72
    Height = 12
    Caption = '销售类型从：'
  end
  object Label13: TLabel [12]
    Left = 93
    Top = 140
    Width = 12
    Height = 12
    Caption = '到'
  end
  inherited btn_ok: TButton
    Left = 141
    Top = 326
    ModalResult = 1
    TabOrder = 13
  end
  inherited btn_Cancel: TButton
    Left = 234
    Top = 326
    TabOrder = 14
  end
  object medt_Date1: TMaskEdit [15]
    Left = 110
    Top = 43
    Width = 87
    Height = 20
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 0
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object medt_Date2: TMaskEdit [16]
    Left = 222
    Top = 43
    Width = 87
    Height = 20
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 1
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object edt_CustomerCode1: TLinkEdit [17]
    Left = 110
    Top = 66
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 2
    Text = '0'
    OnButtonClick = CustomerHint1
    OnExit = edt_CustomerCode1Exit
    OnKeyDown = CustomerHint
  end
  object edt_CustomerCode2: TLinkEdit [18]
    Left = 110
    Top = 89
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 3
    Text = 'ZZZZZ'
    OnButtonClick = CustomerHint1
    OnExit = edt_CustomerCode2Exit
    OnKeyDown = CustomerHint
  end
  object edt_DeptCode1: TLinkEdit [19]
    Left = 110
    Top = 158
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 6
    Text = '0'
    OnButtonClick = DeptHint1
    OnExit = edt_DeptCode1Exit
    OnKeyDown = DeptHint
  end
  object edt_DeptCode2: TLinkEdit [20]
    Left = 110
    Top = 181
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 7
    Text = 'ZZZZZ'
    OnButtonClick = DeptHint1
    OnExit = edt_DeptCode2Exit
    OnKeyDown = DeptHint
  end
  object edt_EmployeeCode1: TLinkEdit [21]
    Left = 110
    Top = 204
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 8
    Text = '0'
    OnButtonClick = EmployeeHint1
    OnExit = edt_EmployeeCode1Exit
    OnKeyDown = EmployeeHint
  end
  object edt_EmployeeCode2: TLinkEdit [22]
    Left = 110
    Top = 227
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 9
    Text = 'ZZZZZ'
    OnButtonClick = EmployeeHint1
    OnExit = edt_EmployeeCode2Exit
    OnKeyDown = EmployeeHint
  end
  object edt_Invoiceno1: TLinkEdit [23]
    Left = 110
    Top = 250
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 10
    Text = '0'
    OnButtonClick = edt_Invoiceno1ButtonClick
    OnKeyDown = edt_Invoiceno1KeyDown
  end
  object edt_Invoiceno2: TLinkEdit [24]
    Left = 222
    Top = 250
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 11
    Text = 'ZZZZZ'
    OnButtonClick = edt_Invoiceno2ButtonClick
    OnKeyDown = edt_Invoiceno2KeyDown
  end
  object edt_CurrencyCode1: TLinkEdit [25]
    Left = 110
    Top = 273
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 12
    OnButtonClick = CurrencyHint1
    OnExit = edt_CurrencyCode1Exit
    OnKeyDown = CurrencyHint
  end
  object edt_CustomerName1: TEdit [26]
    Left = 200
    Top = 66
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 15
  end
  object edt_CustomerName2: TEdit [27]
    Left = 200
    Top = 89
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 16
  end
  object edt_DeptName1: TEdit [28]
    Left = 200
    Top = 158
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 17
  end
  object edt_DeptName2: TEdit [29]
    Left = 200
    Top = 181
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 18
  end
  object edt_SaleEmployeeName1: TEdit [30]
    Left = 200
    Top = 204
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 19
  end
  object edt_SaleEmployeeName2: TEdit [31]
    Left = 200
    Top = 227
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 20
  end
  object edt_CurrencyName: TEdit [32]
    Left = 200
    Top = 273
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 21
  end
  object edt_SaleTypeCode1: TLinkEdit [33]
    Left = 110
    Top = 112
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 4
    Text = '0'
    OnButtonClick = edt_SaleTypeCode1ButtonClick
    OnExit = edt_SaleTypeCode1Exit
    OnKeyDown = edt_SaleTypeCode1KeyDown
  end
  object edt_SaleTypeCode2: TLinkEdit [34]
    Left = 110
    Top = 135
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 5
    Text = 'ZZZZZ'
    OnButtonClick = edt_SaleTypeCode1ButtonClick
    OnExit = edt_SaleTypeCode2Exit
    OnKeyDown = edt_SaleTypeCode1KeyDown
  end
  object edt_SaleTypeName1: TEdit [35]
    Left = 200
    Top = 112
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 22
  end
  object edt_SaleTypeName2: TEdit [36]
    Left = 200
    Top = 135
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 23
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 352
    Top = 16
  end
end