u_log.pas

超信人力资源管理系统,一个用Delphi编写的人事管理系统

unit U_Log;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_Form_base, DB, ADODB, Grids, DBGridEh, ExtCtrls, StdCtrls,
  Buttons, ComCtrls;

type
  TF_Log = class(TF_Form_base)
    Panel1: TPanel;
    DBGridEh1: TDBGridEh;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Q_mainSID: TGuidField;
    Q_mainUcode: TStringField;
    Q_mainComputer: TStringField;
    Q_mainTitle: TStringField;
    Q_mainLoginTime: TDateTimeField;
    Q_mainHavedo: TStringField;
    Q_mainLogoutTime: TDateTimeField;
    Q_mainDotime: TDateTimeField;
    d1: TDateTimePicker;
    Label2: TLabel;
    d2: TDateTimePicker;
    CheckBox1: TCheckBox;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure d1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Log: TF_Log;

implementation

uses U_data;

{$R *.dfm}

procedure TF_Log.BitBtn1Click(Sender: TObject);
begin
  inherited;
  if not Q_main.Active then Exit;
  if Q_main.RecordCount <= 0 then exit;
  if Application.MessageBox('真的要清除这些操作日志吗？', '系统提示', MB_YESNO + MB_DEFBUTTON2) = IDNO then exit;
  if checkbox1.Checked then

    SQL_S := 'Delete from TB_sys_log where Convert(varchar(20),Dotime>''' + Datetimetostr(d1.DateTime)
      + ''' and Convert(Varchar(20),Dotime,20)<=''' + Datetimetostr(d2.DateTime + 1) + ''''
  else
    SQL_S := 'Delete from TB_sys_log';
  SQL_Exec(sql_s);
  Q_main.Close();
  Q_main.Open;
end;

procedure TF_Log.BitBtn3Click(Sender: TObject);
begin
  inherited;
  if checkbox1.Checked then
  begin
    SQL_S := 'Select * from TB_sys_log where Convert(varchar(20),Dotime,20)>''' + Datetimetostr(d1.DateTime)
      + ''' and Convert(varchar(20),Dotime,20)<=''' + Datetimetostr(D2.DateTime + 1) + '''';
    SQL_Change(Q_main, Sql_S);
  end
  else
    Q_main.Open;
end;

procedure TF_Log.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
  inherited;
  MYDBGridEHDrawColumnCelL(DBGRIDEH1, Rect, Datacol, Column, State);
end;

procedure TF_Log.BitBtn4Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TF_Log.BitBtn5Click(Sender: TObject);
begin
  inherited;
//if Dm.SaveD.Execute  then
  TO_Excel('', DBgridEh1);
end;

procedure TF_Log.FormShow(Sender: TObject);
begin
  inherited;
  d1.Date := date;
  d2.Date := date;
end;

procedure TF_Log.d1Exit(Sender: TObject);
begin
  inherited;
  if d1.DateTime > d2.DateTime then
  begin
    MessageDlg('第一个时间不能大于第二个时间!', mtError, [mbOK], 0);
    d1.Date := date;
    d2.Date := date;
    exit;
  end;
end;

initialization
  RegisterClass(TF_Log);
end.