sys_qry_errorlog.pas

一个MRPII系统源代码版本

unit Sys_Qry_ErrorLog;

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_Sys_Qry_ErrorLog = Class(TFrm_Base_Qry)
    AdoQry_Mainlogid: TAutoIncField;
    AdoQry_MainErrorLogdate: TDateTimeField;
    AdoQry_MainEmployeeCode: TStringField;
    AdoQry_MainSysMenuid: TIntegerField;
    AdoQry_Maincontent: TStringField;
    AdoQry_MainUserComputerName: 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_Sys_Qry_ErrorLog: TFrm_Sys_Qry_ErrorLog;

implementation
{$R *.DFM}

{ TFrm_Sys_Qry_ErrorLog }

procedure TFrm_Sys_Qry_ErrorLog.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:='select * from ErrorLog ';
  condition:='ErrorLogdate>='+ quotedstr(DateToStr(Date-6))+' and ErrorLogdate<='+quotedstr(DateToStr(Date+1));
  Orderbyfields:='ErrorLogdate DESC';
  Getdata;             
end;

procedure TFrm_Sys_Qry_ErrorLog.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Sys_Qry_ErrorLog:=nil;
end;

procedure TFrm_Sys_Qry_ErrorLog.DataSourceDataChange(Sender: TObject;
  Field: TField);
begin
  inherited;
  Pnl_Hint.Caption:='共搜寻到'+inttostr(AdoQry_Main.RecordCount)+'条记录';

end;

end.