ar_qry_ar4_c.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Qry_Ar4_C: TFrm_Ar_Qry_Ar4_C
  Left = 215
  Top = 126
  Caption = 'Frm_Ar_Qry_Ar4_C'
  ClientHeight = 376
  ClientWidth = 411
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 34
    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 = 34
    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 = 34
    Top = 164
    Width = 72
    Height = 12
    Caption = '销售部门从：'
  end
  object Label6: TLabel [5]
    Left = 94
    Top = 187
    Width = 12
    Height = 12
    Caption = '到'
  end
  object Label7: TLabel [6]
    Left = 22
    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 = 34
    Top = 257
    Width = 72
    Height = 12
    Caption = '发票单号从：'
  end
  object Label10: TLabel [9]
    Left = 204
    Top = 256
    Width = 12
    Height = 12
    Caption = '到'
  end
  object Label11: TLabel [10]
    Left = 58
    Top = 280
    Width = 48
    Height = 12
    Caption = '货币从：'
  end
  object Label12: TLabel [11]
    Left = 94
    Top = 303
    Width = 12
    Height = 12
    Caption = '到'
  end
  object Label13: TLabel [12]
    Left = 34
    Top = 118
    Width = 72
    Height = 12
    Caption = '销售类型从：'
  end
  object Label14: TLabel [13]
    Left = 94
    Top = 141
    Width = 12
    Height = 12
    Caption = '到'
  end
  inherited btn_ok: TButton
    Left = 142
    Top = 338
    ModalResult = 1
    TabOrder = 14
  end
  inherited btn_Cancel: TButton
    Left = 235
    Top = 338
    TabOrder = 15
  end
  object medt_Date1: TMaskEdit [16]
    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 [17]
    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 [18]
    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 [19]
    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 [20]
    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 [21]
    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 [22]
    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 [23]
    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 [24]
    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 [25]
    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 [26]
    Left = 110
    Top = 273
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 12
    Text = '0'
    OnButtonClick = CurrencyHint1
    OnExit = edt_CurrencyCode1Exit
    OnKeyDown = CurrencyHint
  end
  object edt_CustomerName1: TEdit [27]
    Left = 200
    Top = 66
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 18
  end
  object edt_CustomerName2: TEdit [28]
    Left = 200
    Top = 89
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 19
  end
  object edt_DeptName1: TEdit [29]
    Left = 200
    Top = 158
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 20
  end
  object edt_DeptName2: TEdit [30]
    Left = 200
    Top = 181
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 21
  end
  object edt_SaleEmployeeName1: TEdit [31]
    Left = 200
    Top = 204
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 22
  end
  object edt_SaleEmployeeName2: TEdit [32]
    Left = 200
    Top = 227
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 23
  end
  object edt_CurrencyName: TEdit [33]
    Left = 200
    Top = 273
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 16
  end
  object edt_CurrencyCode2: TLinkEdit [34]
    Left = 110
    Top = 296
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 13
    Text = 'ZZZZZ'
    OnButtonClick = CurrencyHint1
    OnExit = edt_CurrencyCode2Exit
    OnKeyDown = CurrencyHint
  end
  object edt_CurrencyName2: TEdit [35]
    Left = 200
    Top = 296
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 17
  end
  object edt_SaleTypeCode1: TLinkEdit [36]
    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 [37]
    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 [38]
    Left = 200
    Top = 112
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 24
  end
  object edt_SaleTypeName2: TEdit [39]
    Left = 200
    Top = 135
    Width = 137
    Height = 20
    Enabled = False
    TabOrder = 25
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 352
    Top = 16
  end
end