log.pas

来自「IT业进销存管理系统源代码Delphi」· PAS 代码 · 共 65 行

unit Log;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComJbzl, Menus, StdCtrls, DBCtrls, ExtCtrls, ComCtrls, ToolWin, Grids,
  DBGrids, ActnList, Spin;

type
  TfrmLog = class(TfrmComJbzl)
    pnlDel: TPanel;
    Panel3: TPanel;
    btnDelOk: TButton;
    btnDelCalcel: TButton;
    dtpRqa: TDateTimePicker;
    Label2: TLabel;
    Label3: TLabel;
    procedure aDelExecute(Sender: TObject);override;
    procedure btnDelOkClick(Sender: TObject);
    procedure btnDelCalcelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLog: TfrmLog;

implementation

uses Dm;
{$R *.DFM}

procedure TfrmLog.aDelExecute(Sender: TObject);
begin
  pnlDel.Top := (self.Height - pnlDel.Height) div 2;
  pnlDel.Left := (self.Width - pnlDel.Width) div 2;
  pnlDel.Visible := true;
  dtpRqa.SetFocus;
end;

procedure TfrmLog.btnDelOkClick(Sender: TObject);
begin
  screen.Cursor := crHourGlass;
  with Data.Tmp do
  begin
    Close;
    CommandText := 'delete From AppLog where RQ <= #' + DateToStr(dtpRqa.Date) + '#';
    Execute;
  end;
  dsJbzl.Refresh;
  Application.MessageBox(PChar('已删除 ' + DateToStr(dtpRqa.Date) + ' 及之前的日志资料!'), '资料删除', MB_OK + MB_ICONINFORMATION);
  screen.Cursor := crDefault;
  pnlDel.Visible := false;
end;

procedure TfrmLog.btnDelCalcelClick(Sender: TObject);
begin
  pnlDel.Visible := false;
end;

end.