unit3.~pas

大家觉得不是垃圾就下了

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, XPMenu, ExtCtrls, Buttons;

type
  TloginForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  loginForm3: TloginForm3;

implementation
uses unit1,mainUnit1;
{$R *.dfm}

var i:integer=0;

procedure TloginForm3.BitBtn1Click(Sender: TObject);
var
    str:String;
begin
    i:=i+1;//循环变量
    datamodule1.ADODataSet2.Active:=false;
    str:='select * from 表1 where user ='''+edit1.Text+''''+' and  password='''+edit2.Text+'''';
    datamodule1.ADODataSet2.CommandText:=str;
    datamodule1.ADODataSet2.Active:=true;
    if datamodule1.adodataset2.RecordCount >0 then
      begin
      loginForm3.Hide;
      form1.Show;
      //向表2（操作记录）追加记录
      datamodule1.ADOTable3.Append;
      datamodule1.ADOTable3['User']:=datamodule1.ADODataSet2['user'];
      datamodule1.ADOTable3['Time']:=timetostr(time);
      datamodule1.ADOTable3['Date']:=datetostr(date);
      datamodule1.ADOTable3.Post;
      datamodule1.ADOTable3.Active:=false;
      datamodule1.ADOTable3.Active:=true;
      end
      else
      begin
      MessageBox(0, '用户名或密码输入错误，请重新输入！', '提示', MB_OK + MB_ICONSTOP);
      Edit2.Text:='';
      end;
    //若三次输入的用户名或密码错误 ，则退出
    if i>=3 then
    begin
    MessageBox(0, '非法用户，请重新登录！', '警告', MB_OK +
      MB_ICONWARNING);
    loginform3.Close;
    end;
end;

procedure TloginForm3.BitBtn2Click(Sender: TObject);
begin
loginform3.Close;
end;

end.