ar_qry_saleinvoice.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Qry_SaleInvoice: TFrm_Ar_Qry_SaleInvoice
  Left = 38
  Top = 77
  Caption = '销售发票列表查询'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '销售发票列表查询'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 168
      Caption = '销售客户代码/开票日期/发票号'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'customerCode'
          PickList.Strings = ()
          Title.Caption = '销售客户代码'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerName'
          PickList.Strings = ()
          Title.Caption = '销售客户名称'
          Width = 100
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerflag'
          PickList.Strings = ()
          Title.Caption = '销售客户标识'
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createdate'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvoiceType'
          PickList.Strings = (
            '0 普通发票'
            '1 专用发票')
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'Invoiceno'
          PickList.Strings = ()
          Width = 93
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotaltaxAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CancelAmount'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeCode'
          PickList.Strings = ()
          Width = 79
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeName'
          PickList.Strings = ()
          Width = 100
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeflag'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleDeptCode'
          PickList.Strings = ()
          Width = 82
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Width = 100
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Deptflag'
          PickList.Strings = ()
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeCode'
          PickList.Strings = ()
          Width = 100
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Width = 100
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeflag'
          PickList.Strings = ()
          Width = 96
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyCode'
          PickList.Strings = ()
          Width = 55
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyName'
          PickList.Strings = ()
          Width = 57
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyflag'
          PickList.Strings = ()
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ExchangeRate'
          PickList.Strings = ()
          Width = 46
          KeyList.Strings = ()
        end
        Item
          FieldName = 'bank'
          PickList.Strings = ()
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'bankactno'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createEmployeeCode'
          PickList.Strings = ()
          Width = 74
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createEmployeeName'
          PickList.Strings = ()
          Width = 69
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createEmployeeflag'
          PickList.Strings = ()
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'remArk'
          PickList.Strings = ()
          Width = 153
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Shipno'
          PickList.Strings = ()
          Width = 59
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Shiplineno'
          PickList.Strings = ()
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Width = 56
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Width = 100
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Width = 30
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Shipqty'
          PickList.Strings = ()
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'taxPrice'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'taxAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'diSCountrate'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'diSCountAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 261
    Top = 123
  end
  inherited ActionList: TActionList
    Left = 272
    Top = 240
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdysjmrm;Data Source=192.168.0.1' +
      '51;Use procedure for Prepare=1;Auto Translate=True;Packet Size=4' +
      '096;Workstation ID=XYB'
    SQL.Strings = (
      'select t1.customerCode,'
      '       customer.customerName,'
      
        '       t1.customerCode+'#39' '#39'+customer.customerName as customerflag' +
        ','
      '       t1.Createdate,'
      '       t1.InvoiceType,'
      '       t1.Invoiceno,'
      '       t1.TotaltaxAmount,'
      '       t1.CancelAmount,'
      '       t1.SaleTypeCode,'
      '       SaleType.SaleTypeName,'