pfm_optrecord.~pas

来自「超市的销售」· ~PAS 代码 · 共 86 行

unit pfm_optrecord;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Buttons, ComCtrls, Grids, DBGrids;

type
  Tfm_optrecord = class(TForm)
    qryRec: TQuery;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DTPicker1: TDateTimePicker;
    Label1: TLabel;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Query1musername: TStringField;
    Query1mpname: TStringField;
    Query1rq: TDateTimeField;
    Query1maction: TStringField;
    procedure FormShow(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_optrecord: Tfm_optrecord;

implementation

{$R *.DFM}

procedure Tfm_optrecord.FormShow(Sender: TObject);
begin
    dtpicker1.datetime:=now();
    query1.Active:=true;
end;

procedure Tfm_optrecord.FormHide(Sender: TObject);
begin
    query1.active:=false;
end;

procedure Tfm_optrecord.BitBtn1Click(Sender: TObject);
begin
    if application.MessageBox(pchar('确定要删除操作日志？'),pchar('注意'),MB_OKCANCEL)<>IDOK then
    begin
        exit;
    end;
    qryRec.sql.clear;
    qryrec.sql.add('delete from t_optrecord');
    qryrec.ExecSQL;
    query1.active:=false;
    query1.active:=true;
end;

procedure Tfm_optrecord.BitBtn2Click(Sender: TObject);
begin
    if application.MessageBox(pchar('确定要删除操作日志？'),pchar('注意'),MB_OKCANCEL)<>IDOK then
    begin
        exit;
    end;
    qryRec.sql.clear;
    qryrec.sql.add('delete from t_optrecord where rq<'''+datetimetostr(dtpicker1.datetime)+'''');
    qryrec.ExecSQL;
    query1.active:=false;
    query1.active:=true;
end;

procedure Tfm_optrecord.FormDeactivate(Sender: TObject);
begin
    hide();
end;

end.