ar_qry_chginfoarap.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Qry_ChgInfoArAp: TFrm_Ar_Qry_ChgInfoArAp
  Left = 75
  Top = 103
  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 = 2
      Columns = <
        Item
          FieldName = 'ApInvoiceno'
          PickList.Strings = ()
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Invoicedate'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'reMainTotalAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'thiSCancelAmount'
          PickList.Strings = ()
          Width = 79
          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 = 84
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chgtime'
          PickList.Strings = ()
          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_ArApLineHistory.ArApno,'
      '       sa_ArApLineHistory.ApInvoiceno,'
      '       sa_SaleInvoice.Createdate as Invoicedate,'
      '       sa_ArApLineHistory.TotalAmount,'
      '       sa_ArApLineHistory.reMainTotalAmount,'
      '       sa_ArApLineHistory.thiSCancelAmount,'
      '       sa_ArApLineHistory.chgType,'
      '       sa_ArApLineHistory.chgEmployeeCode,'
      '       Employee.EmployeeName as chgEmployeeName,'
      
        '       sa_ArApLineHistory.chgEmployeeCode+Employee.EmployeeName ' +
        'as chgEmployeeflag,'
      '       sa_ArApLineHistory.chgtime'
      'from  sa_ArApLineHistory'
      
        'join sa_SaleInvoice on sa_ArApLineHistory.ApInvoiceno=sa_SaleInv' +
        'oice.Invoiceno'
      
        'left join Employee on sa_ArApLineHistory.chgEmployeeCode=employe' +
        'e.EmployeeCode')
    Top = 257
    object AdoQry_MainArApno: TStringField
      FieldName = 'ArApno'
      Origin = '#QryArApLineHistory'
      Size = 16
    end
    object AdoQry_MainApInvoiceno: TStringField
      DisplayLabel = '采购发票单号'
      FieldName = 'ApInvoiceno'
      Origin = '#QryArApLineHistory'
    end
    object AdoQry_MainInvoicedate: TDateTimeField
      DisplayLabel = '发票日期'
      FieldName = 'Invoicedate'
      Origin = '#QryArApLineHistory'
    end
    object AdoQry_MainTotalAmount: TFloatField
      DisplayLabel = '金额'
      FieldName = 'TotalAmount'
      Origin = '#QryArApLineHistory'
    end
    object AdoQry_MainreMainTotalAmount: TFloatField
      DisplayLabel = '余额'
      FieldName = 'reMainTotalAmount'
      Origin = '#QryArApLineHistory'
    end
    object AdoQry_MainthiSCancelAmount: TFloatField
      DisplayLabel = '本次对冲金额'
      FieldName = 'thiSCancelAmount'
      Origin = '#QryArApLineHistory'
    end
    object AdoQry_MainchgType: TStringField
      DisplayLabel = '操作类型'
      FieldName = 'chgType'
      Origin = '#QryArApLineHistory'
      Size = 10
    end
    object AdoQry_MainchgEmployeeCode: TStringField
      DisplayLabel = '操作人员代码'
      FieldName = 'chgEmployeeCode'
      Origin = '#QryArApLineHistory'
      Size = 30
    end
    object AdoQry_MainchgEmployeeName: TStringField
      DisplayLabel = '操作人员名称'
      FieldName = 'chgEmployeeName'
      Origin = '#QryArApLineHistory'
      Size = 60
    end
    object AdoQry_MainchgEmployeeflag: TStringField
      DisplayLabel = '操作人员标识'
      FieldName = 'chgEmployeeflag'
      Origin = '#QryArApLineHistory'
      ReadOnly = True
      Size = 90
    end
    object AdoQry_Mainchgtime: TDateTimeField
      DisplayLabel = '操作时间'
      FieldName = 'chgtime'
      Origin = '#QryArApLineHistory'
    end
  end
  inherited DataSource: TDataSource
    Left = 336
    Top = 153
  end
end