log.pas

来自「针对快餐店的会员管理系统.具有详细的分类及管理作用」· PAS 代码 · 共 66 行

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.