log.pas

来自「某疗养院动脉硬化管理系统」· PAS 代码 · 共 74 行

unit Log;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RecordForm, cxStyles, cxCustomData, cxGraphics, cxFilter,
  cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, DBCtrls, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, ExtCtrls, StdCtrls, Buttons;

type
  TFrmLog = class(TFrmRecord)
    cxGrid1DBTableView1UserID: TcxGridDBColumn;
    cxGrid1DBTableView1UserName: TcxGridDBColumn;
    cxGrid1DBTableView1ActionName: TcxGridDBColumn;
    cxGrid1DBTableView1ActionTime: TcxGridDBColumn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLog: TFrmLog;

implementation

uses PubFunction;

{$R *.dfm}

procedure TFrmLog.BitBtn3Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TFrmLog.BitBtn1Click(Sender: TObject);
begin
  inherited;
  if ADQ.IsEmpty then exit;
  if Application.MessageBox('确定要删除这条记录？','提示',mb_yesno+mb_iconquestion)=idyes then
    ADQ.Delete;
end;

procedure TFrmLog.BitBtn2Click(Sender: TObject);
begin
  inherited;
  if ADQ.IsEmpty then exit;
  if application.MessageBox('确定要清空所有操作日志？','提示',mb_yesno+mb_iconquestion)=idyes then
    with ADQ do
    begin
      sql.Clear;
      sql.Add('DELETE FROM Log');
      ExecSql;
    end;
end;

procedure TFrmLog.FormCreate(Sender: TObject);
begin
  inherited;
  ShowRecord(ADQ,'*','Log','ActionTime');
end;

end.