unit Log;

interface

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

type
  TLogForm = class(TForm)
    cxGrid1: TcxGrid;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1DBTableView1LoadDate: TcxGridDBColumn;
    cxGrid1DBTableView1UserName: TcxGridDBColumn;
    cxGrid1DBTableView1OutDate: TcxGridDBColumn;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LogForm: TLogForm;

implementation

uses DM, MAIN;

{$R *.dfm}

procedure TLogForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_F5 then
     DM1.LogData.Requery();
end;

procedure TLogForm.RzBitBtn1Click(Sender: TObject);
var
   Res : Integer;
begin
//刪除記錄
  Res:=cxGrid1DBTableView1.DataController.Controller.SelectedRecordCount;
  if Res=0 then Exit;
  if Messagebox(handle,pchar('您確定要刪除這 '+IntToStr(Res)+' 條登陸記錄嗎？'),'詢問',MB_YESNO+MB_ICONQUESTION)=IDYES then
     cxGrid1DBTableView1.DataController.DeleteSelection;
end;

procedure TLogForm.RzBitBtn2Click(Sender: TObject);
begin
   MainForm.PrintReport(7);
end;

end.