ar_qry_chginfoaraph.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Qry_ChgInfoArApH: TFrm_Ar_Qry_ChgInfoArApH
  Left = 235
  Top = 149
  Caption = '应收帐款应付帐款对冲表头操作日志'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '应收帐款应付帐款对冲表头操作日志'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_OrderTitle: TLabel
      Top = 22
    end
    inherited Lbl_Order: TLabel
      Top = 22
      Width = 72
      Caption = '销售客户代码'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'customerCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerflag'
          PickList.Strings = ()
          Width = 144
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createdate'
          PickList.Strings = ()
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Invoiceno'
          PickList.Strings = ()
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotaltaxAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CancelTotalAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'currencyflag'
          PickList.Strings = ()
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ExchangeRate'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createEmployeeCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Employeeflag'
          PickList.Strings = ()
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'remArk'
          PickList.Strings = ()
          Width = 128
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chgType'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chgEmployeeCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chgEmployeeName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chgEmployeeflag'
          PickList.Strings = ()
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chgtime'
          PickList.Strings = ()
          Width = 111
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 208
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192.1' +
      '68.0.151;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    SQL.Strings = (
      ' select sa_ArApHistory.ArApno, '
      '        sa_ArApHistory.Invoiceno,'
      '        sa_ArApHistory.Createdate,'
      '        sa_ArApHistory.CancelTotalAmount,'
      '        sa_ArApHistory.remArk,'
      '        sa_ArApHistory.CreateEmployeeCode,'
      '        sa_SaleInvoice.customerCode,'
      '        customer.customerName,    '
      
        '        sa_SaleInvoice.customerCode+'#39' '#39'+customer.customerName as' +
        ' customerflag,   '
      '        sa_SaleInvoice.TotaltaxAmount,'
      '        sa_SaleInvoice.currencyCode,   '
      '        currency.currencyName,   '
      
        '        sa_SaleInvoice.currencyCode+'#39' '#39'+currency.currencyName as' +
        ' currencyflag,      '
      '        sa_SaleInvoice.ExchangeRate,     '
      '        Employee.EmployeeName,'
      
        '        sa_ArApHistory.CreateEmployeeCode+'#39' '#39'+Employee.Employeen' +
        'ame as Employeeflag,'
      '        sa_ArApHistory.chgType,'
      '        sa_ArApHistory.chgEmployeeCode,'
      '        e.EmployeeName as chgEmployeeName,'
      
        '        sa_ArApHistory.chgEmployeeCode+'#39' '#39'+e.EmployeeName as chg' +
        'Employeeflag,'
      '        sa_ArApHistory.chgtime             '
      '  from  sa_ArApHistory'
      
        '  join  sa_SaleInvoice on sa_ArApHistory.Invoiceno=sa_SaleInvoic' +
        'e.Invoiceno'
      
        '  left join customer on sa_SaleInvoice.customerCode=customer.cus' +
        'tomerCode'
      
        '  left join currency on sa_SaleInvoice.currencyCode=currency.cur' +
        'rencyCode '
      
        '  left join Employee on sa_ArApHistory.CreateEmployeeCode=employ' +
        'ee.EmployeeCode   '
      
        '  left join Employee e on sa_ArApHistory.chgEmployeeCode=e.emplo' +
        'yeeCode')
    Top = 257
    object AdoQry_MainArApno: TStringField
      FieldName = 'ArApno'
      Origin = '#QryArApHistory'
      Size = 16
    end
    object AdoQry_MainInvoiceno: TStringField
      DisplayLabel = '发票单号'
      FieldName = 'Invoiceno'
      Origin = '#QryArApHistory'
      Size = 16
    end
    object AdoQry_Maincreatedate: TDateTimeField
      DisplayLabel = '对冲日期'
      FieldName = 'createdate'
      Origin = '#QryArApHistory'
    end
    object AdoQry_MainCancelTotalAmount: TFloatField
      DisplayLabel = '对冲金额'
      FieldName = 'CancelTotalAmount'
      Origin = '#QryArApHistory'
    end
    object AdoQry_MainremArk: TStringField
      DisplayLabel = '备注'
      FieldName = 'remArk'
      Origin = '#QryArApHistory'
      Size = 60
    end
    object AdoQry_MaincreateEmployeeCode: TStringField
      DisplayLabel = '制单人员代码'
      FieldName = 'createEmployeeCode'
      Origin = '#QryArApHistory'
      Size = 30
    end
    object AdoQry_MaincustomerCode: TStringField
      DisplayLabel = '销售客户代码'
      FieldName = 'customerCode'
      Origin = '#QryArApHistory'
      Size = 12
    end
    object AdoQry_MaincustomerName: TStringField
      DisplayLabel = '销售客户名称'
      FieldName = 'customerName'
      Origin = '#QryArApHistory'
      Size = 60
    end
    object AdoQry_Maincustomerflag: TStringField
      DisplayLabel = '销售客户标识'
      FieldName = 'customerflag'
      Origin = '#QryArApHistory'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MainTotaltaxAmount: TFloatField
      DisplayLabel = '发票金额'
      FieldName = 'TotaltaxAmount'
      Origin = '#QryArApHistory'
    end
    object AdoQry_MaincurrencyCode: TStringField
      DisplayLabel = '货币代码'
      FieldName = 'currencyCode'
      Origin = '#QryArApHistory'
      Size = 3
    end
    object AdoQry_MaincurrencyName: TStringField
      DisplayLabel = '货币名称'
      FieldName = 'currencyName'
      Origin = '#QryArApHistory'
      Size = 30
    end
    object AdoQry_Maincurrencyflag: TStringField
      DisplayLabel = '货币标识'
      FieldName = 'currencyflag'
      Origin = '#QryArApHistory'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_MainExchangeRate: TFloatField
      DisplayLabel = '汇率'
      FieldName = 'ExchangeRate'
      Origin = '#QryArApHistory'
    end
    object AdoQry_MainEmployeeName: TStringField
      DisplayLabel = '制单人员名称'
      FieldName = 'EmployeeName'
      Origin = '#QryArApHistory'
      Size = 60
    end
    object AdoQry_MainEmployeeflag: TStringField
      DisplayLabel = '制单人员标识'
      FieldName = 'Employeeflag'
      Origin = '#QryArApHistory'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainchgType: TStringField
      DisplayLabel = '操作类型'
      FieldName = 'chgType'
      Origin = '#QryArApHistory'
      Size = 10
    end
    object AdoQry_MainchgEmployeeCode: TStringField
      DisplayLabel = '操作人员代码'
      FieldName = 'chgEmployeeCode'
      Origin = '#QryArApHistory'
      Size = 30
    end
    object AdoQry_MainchgEmployeeflag: TStringField
      DisplayLabel = '操作人员标识'
      FieldName = 'chgEmployeeflag'
      Origin = '#QryArApHistory'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_Mainchgtime: TDateTimeField
      DisplayLabel = '操作时间'
      FieldName = 'chgtime'
      Origin = '#QryArApHistory'
    end
    object AdoQry_MainchgEmployeeName: TStringField
      DisplayLabel = '操作人员名称'
      FieldName = 'chgEmployeeName'
      Origin = '#QryArApHistory'
      Size = 60
    end
  end
  inherited DataSource: TDataSource
    Left = 336
    Top = 153
  end
end