ar_qry_chginfoeachinvoiceh.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 68 行

unit Ar_Qry_ChgInfoEachInvoiceH;

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_ChgInfoEachInvoiceH = Class(TFrm_Base_Qry)
    AdoQry_MainCreateDate: TDateTimeField;
    AdoQry_MainInvoiceNo: TStringField;
    AdoQry_MainCancelTotalAmount: TFloatField;
    AdoQry_MainCreateEmployeeCode: TStringField;
    AdoQry_MainEmployeeName: TStringField;
    AdoQry_MainCreateEmployeeB: TStringField;
    AdoQry_MainRemArk: TStringField;
    AdoQry_MainChgType: TStringField;
    AdoQry_MainChgEmployeeCode: TStringField;
    AdoQry_MainEmployeeName_1: 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_ChgInfoEachInvoiceH: TFrm_Ar_Qry_ChgInfoEachInvoiceH;

implementation
uses Ar_Qry_ChgInfoEachInvoiceH_C;
{$R *.DFM}
procedure TFrm_Ar_Qry_ChgInfoEachInvoiceH.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:=' select Sa_EachInvoiceHistory.CreateDate,'+
                 ' Sa_EachInvoiceHistory.InvoiceNo,'+
                 ' Sa_EachInvoiceHistory.CancelTotalAmount,'+
                 ' Sa_EachInvoiceHistory.CreateEmployeeCode,'+
                 ' E1.EmployeeName,'+
                 ' Sa_EachInvoiceHistory.CreateEmployeeCode+'' ''+E1.EmployeeName as CreateEmployeeB,'+
                 ' Sa_EachInvoiceHistory.RemArk,'+
                 ' Sa_EachInvoiceHistory.ChgType,'+
                 ' Sa_EachInvoiceHistory.ChgEmployeeCode,'+
                 ' E2.EmployeeName,'+
                 ' Sa_EachInvoiceHistory.ChgEmployeeCode+'' ''+E2.EmployeeName as ChgEmployeeB,'+
                 ' Sa_EachInvoiceHistory.ChgTime'+
         ' from  Sa_EachInvoiceHistory'+
         ' left join Employee  E1 on Sa_EachInvoiceHistory.CreateEmployeeCode=E1.EmployeeCode'+
         ' left join Employee E2 on Sa_EachInvoiceHistory.ChgEmployeeCode=E2.EmployeeCode';



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


end.