logininfo.pas

短小而实用的房地产销售管理软件

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 退出日期时间<>0';
      open;
   End;
End;

Procedure TViewLoginForm.BitBtn2Click(Sender: TObject);
Begin
   If Application.MessageBox('即将删除用户登入日志信息。' + #13 +
      '是否继续？', '询问信息', 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 退出日期时间<>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.