ap_qry_apinvoicelog.pas

一个MRPII系统源代码版本

unit Ap_Qry_ApInvoiceLog;
//
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_Ap_Qry_ApInvoiceLog = Class(TFrm_Base_Qry)
    AdoQry_MainLogDate: TDateTimeField;
    AdoQry_MainlogoperatorB: TStringField;
    AdoQry_MainLogAction: TStringField;
    AdoQry_MainApInvoiceNo: TStringField;
    AdoQry_MainApInvoiceDate: TDateTimeField;
    AdoQry_MaInvendorB: TStringField;
    AdoQry_MaincurrencyB: TStringField;
    AdoQry_MainEmployeeB: TStringField;
    AdoQry_MainApInvoiceInputDate: TDateTimeField;
    AdoQry_MainApInvoiceAmount: TBCDField;
    AdoQry_MainApInvoiceTax: TBCDField;
    AdoQry_MainApPayFlag: TIntegerField;
    AdoQry_MainApInvoiceRemArk: TStringField;
    AdoQry_MainLogOperAtorCode: TStringField;
    procedure FormDestroy(Sender: TObject);
    procedure DataSourceDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;    
  end;

var
  Frm_Ap_Qry_ApInvoiceLog: TFrm_Ap_Qry_ApInvoiceLog;

implementation
{$R *.DFM}

procedure TFrm_Ap_Qry_ApInvoiceLog.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Ap_Qry_ApInvoiceLog:=nil;
end;

procedure TFrm_Ap_Qry_ApInvoiceLog.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSQL:='select  ApInvoiceLog.LogDate,'+
                ' ApInvoiceLog.LogOperAtorCode,'+
                ' ApInvoiceLog.LogOperAtorCode+'' ''+EmployeeName as logoperatorB ,'+
                ' ApInvoiceLog.LogAction,'+
                ' ApInvoiceLog.ApInvoiceNo,'+
                ' ApInvoiceLog.ApInvoiceDate,'+
                ' ApInvoiceLog.VendorCode+'' ''+VendorName as VendorB,'+
                ' ApInvoiceLog.CurrencyCode+'' ''+currencyName as currencyB,'+
                ' ApInvoiceLog.EmployeeCode+'' ''+EmployeeName as EmployeeB,'+
                ' ApInvoiceLog.ApInvoiceInputDate,'+
                ' ApInvoiceLog.ApInvoiceAmount,'+
                ' ApInvoiceLog.ApInvoiceTax,'+
                //' ApInvoiceLog.ApInvoiceAmountC,'+
                //' ApInvoiceLog.ApInvoiceTaxC,'+
                ' ApInvoiceLog.ApPayFlag,'+
                ' ApInvoiceLog.ApInvoiceRemArk'+
         ' from  ApInvoiceLog'+
         ' left join Employee on ApInvoiceLog.LogOperAtorCode=Employee.EmployeeCode'+
         ' left join Vendor on ApInvoiceLog.VendorCode=Vendor.VendorCode'+
         ' left join currency on ApInvoiceLog.CurrencyCode=currency.currencyCode';
  OrderByFields:='logdate';
  PriceFields:='ApInvoiceAmount,ApInvoiceTax,';
  getdata;
end;

procedure TFrm_Ap_Qry_ApInvoiceLog.DataSourceDataChange(Sender: TObject;
  Field: TField);
begin
  inherited;
  Pnl_Hint.Caption:='提示：共查找到'+inttostr(AdoQry_Main.RecordCount)+'条记录';
end;

end.