ar_qry_chginfogathering.pas

一个MRPII系统源代码版本

unit Ar_Qry_ChgInfoGathering;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Qry, Menus, ExtPrintReport, Db, ActnList, AdODB, Grids, DBGridEh,
  StdCtrls, ExtCtrls, ComCtrls, ToolWin, jpeg;

Type
  TFrm_Ar_Qry_ChgInfoGathering = Class(TFrm_Base_Qry)
    AdoQry_MainCustomerCode: TStringField;
    AdoQry_MainCustomerName: TStringField;
    AdoQry_MainCustomerB: TStringField;
    AdoQry_MainGatheringNo: TStringField;
    AdoQry_MainGatheringDate: TDateTimeField;
    AdoQry_MaInBillNo: TStringField;
    AdoQry_MainBalanceTypeCode: TStringField;
    AdoQry_MainBalanceTypeName: TStringField;
    AdoQry_MainBalanceTypeB: TStringField;
    AdoQry_MainCurrencyCode: TStringField;
    AdoQry_MainCurrencyName: TStringField;
    AdoQry_MainCurrencyB: TStringField;
    AdoQry_MainExchangeRate: TFloatField;
    AdoQry_MainActSubjectCode: TStringField;
    AdoQry_MainKmName: TStringField;
    AdoQry_MainActSubjectB: TStringField;
    AdoQry_MainCustomerBank: TStringField;
    AdoQry_MainCustomerBankActNo: TStringField;
    AdoQry_MainTotalTaxAmount: TFloatField;
    AdoQry_MainSaleDeptCode: TStringField;
    AdoQry_MainDeptName: TStringField;
    AdoQry_MainDeptB: TStringField;
    AdoQry_MainSaleEmployeeCode: TStringField;
    AdoQry_MainEmployeeName: TStringField;
    AdoQry_MainSaleEmployeeB: TStringField;
    AdoQry_MainRemArk: TStringField;
    AdoQry_MainCreateEmployeeCode: TStringField;
    AdoQry_MainEmployeeName_1: TStringField;
    AdoQry_MainCreateEmployeeB: TStringField;
    AdoQry_MainCreateDate: TDateTimeField;
    AdoQry_MainChgType: TStringField;
    AdoQry_MainChgEmployeeCode: TStringField;
    AdoQry_MainEmployeeName_2: TStringField;
    AdoQry_MainChgEmployeeB: TStringField;
    AdoQry_MainChgTime: TDateTimeField;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;    
  end;

var
  Frm_Ar_Qry_ChgInfoGathering: TFrm_Ar_Qry_ChgInfoGathering;

implementation
uses Ar_Qry_ChgInfoGathering_C;
{$R *.DFM}
procedure TFrm_Ar_Qry_ChgInfoGathering.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:=' select Ar_GatheringHistory.CustomerCode,'+
                 ' Customer.CustomerName,'+
                 ' Ar_GatheringHistory.CustomerCode+'' ''+Customer.CustomerName as CustomerB,'+
                 ' Ar_GatheringHistory.GatheringNo,'+
                 ' Ar_GatheringHistory.GatheringDate,'+
                 ' Ar_GatheringHistory.BillNo,'+
                 ' Ar_GatheringHistory.BalanceTypeCode,'+
                 ' BalanceType.BalanceTypeName,'+
                 ' Ar_GatheringHistory.BalanceTypeCode+'' ''+BalanceType.BalanceTypeName as BalanceTypeB,'+
                 ' Ar_GatheringHistory.CurrencyCode,'+
                 ' Currency.CurrencyName,'+
                 ' Ar_GatheringHistory.CurrencyCode+'' ''+Currency.CurrencyName As CurrencyB,'+
                 ' Ar_GatheringHistory.ExchangeRate,'+
                 ' Ar_GatheringHistory.ActSubjectCode,'+
                 ' Gl_AccountSubject.KmName,'+
                 ' Ar_GatheringHistory.ActSubjectCode+'' ''+Gl_AccountSubject.KmName as ActSubjectB,'+
                 ' Ar_GatheringHistory.CustomerBank,'+
                 ' Ar_GatheringHistory.CustomerBankActNo,'+
                 ' Ar_GatheringHistory.TotalTaxAmount,'+
                 ' Ar_GatheringHistory.SaleDeptCode,'+
                 ' Dept.DeptName,'+
                 ' Ar_GatheringHistory.SaleDeptCode+'' ''+Dept.DeptName as DeptB,'+
                 ' Ar_GatheringHistory.SaleEmployeeCode,'+
                 ' E1.EmployeeName,'+
                 ' Ar_GatheringHistory.SaleEmployeeCode+'' ''+E1.EmployeeName as SaleEmployeeB,'+
                 ' Ar_GatheringHistory.RemArk,'+
                 ' Ar_GatheringHistory.CreateEmployeeCode,'+
                 ' E2.EmployeeName,'+
                 ' Ar_GatheringHistory.CreateEmployeeCode+'' ''+E2.EmployeeName as CreateEmployeeB,'+
                 ' Ar_GatheringHistory.CreateDate,'+
                 ' Ar_GatheringHistory.ChgType,'+
                 ' Ar_GatheringHistory.ChgEmployeeCode,'+
                 ' E3.EmployeeName,'+
                 ' Ar_GatheringHistory.ChgEmployeeCode+'' ''+E3.EmployeeName as ChgEmployeeB,'+
                 ' Ar_GatheringHistory.ChgTime'+
         ' from  Ar_GatheringHistory'+
         ' left join Customer on Ar_GatheringHistory.CustomerCode=Customer.CustomerCode'+
         ' left join BalanceType on Ar_GatheringHistory.BalanceTypeCode=BalanceType.BalanceTypeCode'+
         ' left join Currency on Ar_GatheringHistory.CurrencyCode=Currency.CurrencyCode'+
         ' left join Gl_AccountSubject on Ar_GatheringHistory.ActSubjectCode=Gl_AccountSubject.KmCode'+
         ' left join Dept on Ar_GatheringHistory.SaleDeptCode=Dept.DeptCode'+
         ' left join Employee E1 on Ar_GatheringHistory.SaleEmployeeCode=E1.EmployeeCode'+
         ' left join Employee E2 on Ar_GatheringHistory.CreateEmployeeCode=E2.EmployeeCode'+
         ' left join Employee E3 on Ar_GatheringHistory.ChgEmployeeCode=E3.EmployeeCode';


  OrderByFields:=' chgtime,CustomerCode ';
  Frm_Sys_Condition:=TFrm_Ar_Qry_ChgInfoGathering_C.Create(self);
  Act_Filter.Execute;
  conditionuserDefine:=condition;
  Frm_Sys_Condition:=nil;
end;


end.