Unit LoginInfo;

Interface

Uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, DB, ADODB, Grids, DBGridEh, ExtCtrls, StdCtrls, Buttons,
   LbButton, AAFont, AACtrls;

Type
   TViewLoginForm = Class(TForm)
      Panel1: TPanel;
      DBGridEH1: TDBGridEh;
      ADOQuery1: TADOQuery;
      DataSource1: TDataSource;
      Edit1: TEdit;
      AALabel1: TAALabel;
      Btn1: TLbButton;
      LbButton1: TLbButton;
      LbButton2: TLbButton;
      Procedure BitBtn1Click(Sender: TObject);
      Procedure BitBtn2Click(Sender: TObject);
      Procedure FormCreate(Sender: TObject);
      Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
      Procedure LbButton2Click(Sender: TObject);
   Private
        { Private declarations }
   Public
        { Public declarations }
   End;

Var
   ViewLoginForm    : TViewLoginForm;
Implementation
Uses DM, UserOparet;
{$R *.dfm}

Procedure TViewLoginForm.BitBtn1Click(Sender: TObject);
Begin
   With ADOQuery1 Do Begin
      sql.Text := 'select * from 登入信息表 WHERE 登入用戶=''' + Edit1.Text
         +
         ''' and 退出日期時(shí)間<>0';
      open;
   End;
End;

Procedure TViewLoginForm.BitBtn2Click(Sender: TObject);
Begin
   If Application.MessageBox('即將刪除用戶登入日志信息。' + #13 +
      '是否繼續(xù)？', '詢問信息', mb_yesno + MB_ICONQUESTION) = mrNo Then
      Exit;

   With ADOQuery1 Do Begin
      sql.Text := 'delete from 登入信息表 WHERE 登入用戶=''' + currusername +
         '''';
      ExecSQL;
   End;
End;

Procedure TViewLoginForm.FormCreate(Sender: TObject);
Begin
   Edit1.Text := currusername;
   With ADOQuery1 Do Begin
      sql.Text :=
         'select * from 登入信息表 WHERE 退出日期時(shí)間<>0  and 登入用戶=''' + currusername
         + '''';
      open;
   End;
End;

Procedure TViewLoginForm.FormClose(Sender: TObject; Var Action: TCloseAction);
Begin
   Action := cafree;
   ViewLoginForm := Nil;
End;

Procedure TViewLoginForm.LbButton2Click(Sender: TObject);
Begin
   ViewLoginForm.Close;
End;

End.