ap_qry_payjournallog.pas

一个MRPII系统源代码版本

unit Ap_Qry_PayJournalLog;
//
Interface

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

Type
  TFrm_Ap_Qry_PayJournalLog = Class(TFrm_Base_Qry)
    AdoQry_Mainlogdate: TDateTimeField;
    AdoQry_MainlogoperatorB: TStringField;
    AdoQry_MainLogAction: TStringField;
    AdoQry_MaInvendorB: TStringField;
    AdoQry_MaincurrencyB: TStringField;
    AdoQry_MainEmployeeB: TStringField;
    AdoQry_MainPayModeB: TStringField;
    AdoQry_MainPaydate: TDateTimeField;
    AdoQry_MainPayAmount: TBCDField;
    AdoQry_MainPayBillno: TStringField;
    AdoQry_MainPayremArk: 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_PayJournalLog: TFrm_Ap_Qry_PayJournalLog;

implementation

{$R *.DFM}

procedure TFrm_Ap_Qry_PayJournalLog.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSQL:='select PayJournalLog.logdate,'+
               ' PayJournalLog.logOperatorCode,'+
               ' PayJournalLog.logOperatorCode+'' ''+Employee.EmployeeName as logoperatorB,'+
               ' PayJournalLog.LogAction,'+
               ' PayJournalLog.VendorCode+'' ''+Vendor.VendorName  as VendorB,'+
               ' PayJournalLog.CurrencyCode+'' ''+currency.currencyName as currencyB,'+
               ' PayJournalLog.EmployeeCode+'' ''+Employee.EmployeeName as EmployeeB,'+
               ' PayJournalLog.PayModeCode+'' ''+PayMode.PayModeName as PayModeB,'+
               ' PayJournalLog.Paydate,'+
               ' PayJournalLog.PayAmount,'+
               ' PayJournalLog.PayBillno,'+
               ' PayJournalLog.PayremArk'+
        ' from PayJournalLog'+
        ' left join Employee on  PayJournalLog.logoperatorCode=Employee.EmployeeCode'+
        ' left join Vendor on PayJournalLog.VendorCode=Vendor.VendorCode'+
        ' left join currency on PayJournalLog.currencyCode=currency.currencyCode'+
        ' left join PayMode on PayJournalLog.PayModeCode=PayMode.PayModeCode';
  OrderByfields:=' logDate ';
  PriceFields:='PayAmount,';
  Getdata;
end;

procedure TFrm_Ap_Qry_PayJournalLog.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Ap_Qry_PayJournalLog:=nil;
end;

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

end.