eventlog.pas

来自「飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7」· PAS 代码 · 共 62 行

unit EventLog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, Menus, ImgList, Grids, DBGridEh;

type
  TEventLogForm = class(TForm)
    dbGrid1: TDBGridEh;
    ILevent: TImageList;
    TbEvent: TToolBar;
    Tbdel: TToolButton;
    ToolButton4: TToolButton;
    TBsec: TToolButton;
    Tbexit: TToolButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure TbexitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EventLogForm: TEventLogForm;

implementation

uses datamodule1;

{$R *.dfm}

procedure TEventLogForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  dbGrid1.DataSource :=nil;
  close;
end;

procedure TEventLogForm.FormShow(Sender: TObject);
begin
  with dataE2 do
  begin
    if Querysum.active then QuerySum.Close;
    querySum.sql.clear;
    querySum.SQL.add('select top 200 * from eventlog order by logtime desc');
    querySum.open;

    dbGrid1.datasource:=dsSum;
  end;
end;

procedure TEventLogForm.TbexitClick(Sender: TObject);
begin
  close;
end;

end.