ar_qry_ar1_c.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Qry_Ar1_C: TFrm_Ar_Qry_Ar1_C
  Left = 262
  Top = 204
  Caption = 'Frm_Ar_Qry_Ar1_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 = 97
    Width = 72
    Height = 12
    Caption = '销售部门从：'
  end
  object Label6: TLabel [5]
    Left = 204
    Top = 98
    Width = 12
    Height = 12
    Caption = '到'
  end
  object Label7: TLabel [6]
    Left = 28
    Top = 121
    Width = 84
    Height = 12
    Caption = '营销业务员从：'
  end
  object Label8: TLabel [7]
    Left = 204
    Top = 122
    Width = 12
    Height = 12
    Caption = '到'
  end
  object Label9: TLabel [8]
    Left = 40
    Top = 146
    Width = 72
    Height = 12
    Caption = '发票单号从：'
  end
  object Label10: TLabel [9]
    Left = 204
    Top = 146
    Width = 12
    Height = 12
    Caption = '到'
  end
  object Label11: TLabel [10]
    Left = 64
    Top = 170
    Width = 48
    Height = 12
    Caption = '货币从：'
  end
  inherited btn_ok: TButton
    Left = 125
    Top = 218
    ModalResult = 1
    TabOrder = 11
  end
  inherited btn_Cancel: TButton
    Left = 218
    Top = 218
    TabOrder = 12
  end
  object medt_Date1: TMaskEdit [13]
    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 [14]
    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 [15]
    Left = 110
    Top = 68
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 2
    Text = '0'
    OnButtonClick = CustomerHint1
    OnKeyDown = CustomerHint
  end
  object edt_CustomerCode2: TLinkEdit [16]
    Left = 222
    Top = 68
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 3
    Text = 'ZZZZZ'
    OnButtonClick = CustomerHint1
    OnKeyDown = CustomerHint
  end
  object edt_DeptCode1: TLinkEdit [17]
    Left = 110
    Top = 93
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 4
    Text = '0'
    OnButtonClick = DeptHint1
    OnKeyDown = DeptHint
  end
  object edt_DeptCode2: TLinkEdit [18]
    Left = 222
    Top = 93
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 5
    Text = 'ZZZZZ'
    OnButtonClick = DeptHint1
    OnKeyDown = DeptHint
  end
  object edt_EmployeeCode1: TLinkEdit [19]
    Left = 110
    Top = 117
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 6
    Text = '0'
    OnButtonClick = EmployeeHint1
    OnKeyDown = EmployeeHint
  end
  object edt_EmployeeCode2: TLinkEdit [20]
    Left = 222
    Top = 118
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 7
    Text = 'ZZZZZ'
    OnButtonClick = EmployeeHint1
    OnKeyDown = EmployeeHint
  end
  object edt_Invoiceno1: TLinkEdit [21]
    Left = 110
    Top = 142
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 8
    Text = '0'
    OnButtonClick = edt_Invoiceno1ButtonClick
    OnKeyDown = edt_Invoiceno1KeyDown
  end
  object edt_Invoiceno2: TLinkEdit [22]
    Left = 222
    Top = 143
    Width = 88
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 9
    Text = 'ZZZZZ'
    OnButtonClick = edt_Invoiceno2ButtonClick
    OnKeyDown = edt_Invoiceno2KeyDown
  end
  object edt_CurrencyCode1: TLinkEdit [23]
    Left = 110
    Top = 167
    Width = 200
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 10
    Text = '0'
    OnButtonClick = CurrencyHint1
    OnKeyDown = CurrencyHint
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 328
    Top = 176
  end
end