ar_qry_gatheringar4_c.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Qry_GatheringAr4_C: TFrm_Ar_Qry_GatheringAr4_C
  Left = 285
  Top = 205
  Caption = 'Frm_Ar_Qry_GatheringAr4_C'
  ClientHeight = 272
  ClientWidth = 378
  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 = 72
    Width = 72
    Height = 12
    Caption = '销售客户从：'
  end
  object Label4: TLabel [3]
    Left = 204
    Top = 72
    Width = 12
    Height = 12
    Caption = '到'
  end
  object Label5: TLabel [4]
    Left = 40
    Top = 122
    Width = 72
    Height = 12
    Caption = '销售部门从：'
  end
  object Label6: TLabel [5]
    Left = 204
    Top = 123
    Width = 12
    Height = 12
    Caption = '到'
  end
  object Label7: TLabel [6]
    Left = 28
    Top = 146
    Width = 84
    Height = 12
    Caption = '营销业务员从：'
  end
  object Label8: TLabel [7]
    Left = 204
    Top = 147
    Width = 12
    Height = 12
    Caption = '到'
  end
  object Label9: TLabel [8]
    Left = 40
    Top = 171
    Width = 72
    Height = 12
    Caption = '发票单号从：'
  end
  object Label10: TLabel [9]
    Left = 204
    Top = 171
    Width = 12
    Height = 12
    Caption = '到'
  end
  object Label11: TLabel [10]
    Left = 64
    Top = 195
    Width = 48
    Height = 12
    Caption = '货币从：'
  end
  object Label12: TLabel [11]
    Left = 40
    Top = 97
    Width = 72
    Height = 12
    Caption = '销售类型从：'
  end
  object Label13: TLabel [12]
    Left = 204
    Top = 97
    Width = 12
    Height = 12
    Caption = '到'
  end
  inherited btn_ok: TButton
    Left = 125
    Top = 234
    ModalResult = 1
    TabOrder = 13
  end
  inherited btn_Cancel: TButton
    Left = 218
    Top = 234
    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 = 68
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 2
    Text = '0'
    OnButtonClick = CustomerHint1
    OnKeyDown = CustomerHint
  end
  object edt_CustomerCode2: TLinkEdit [18]
    Left = 222
    Top = 68
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 3
    Text = 'ZZZZZ'
    OnButtonClick = CustomerHint1
    OnKeyDown = CustomerHint
  end
  object edt_DeptCode1: TLinkEdit [19]
    Left = 110
    Top = 118
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 6
    Text = '0'
    OnButtonClick = DeptHint1
    OnKeyDown = DeptHint
  end
  object edt_DeptCode2: TLinkEdit [20]
    Left = 222
    Top = 118
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 7
    Text = 'ZZZZZ'
    OnButtonClick = DeptHint1
    OnKeyDown = DeptHint
  end
  object edt_EmployeeCode1: TLinkEdit [21]
    Left = 110
    Top = 142
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 8
    Text = '0'
    OnButtonClick = EmployeeHint1
    OnKeyDown = EmployeeHint
  end
  object edt_EmployeeCode2: TLinkEdit [22]
    Left = 222
    Top = 143
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 9
    Text = 'ZZZZZ'
    OnButtonClick = EmployeeHint1
    OnKeyDown = EmployeeHint
  end
  object edt_Invoiceno1: TLinkEdit [23]
    Left = 110
    Top = 167
    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 = 168
    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 = 192
    Width = 200
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 12
    Text = '0'
    OnButtonClick = CurrencyHint1
    OnKeyDown = CurrencyHint
  end
  object edt_SaleTypeCode1: TLinkEdit [26]
    Left = 110
    Top = 93
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 4
    Text = '0'
    OnButtonClick = edt_SaleTypeCode1ButtonClick
    OnKeyDown = edt_SaleTypeCode1KeyDown
  end
  object edt_SaleTypeCode2: TLinkEdit [27]
    Left = 222
    Top = 93
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 5
    Text = 'ZZZZZ'
    OnButtonClick = edt_SaleTypeCode1ButtonClick
    OnKeyDown = edt_SaleTypeCode1KeyDown
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 328
    Top = 176
  end
end