unit1.pas

利用数据库后SQL台操作的

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  var i:integer=2;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var strid,strname,strqx:string;
begin
strid:=edit1.text;
strname:=edit2.text;
strqx:=combobox1.text;
with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from login where name='''+strid+''' and password='''+strname+''' and quanxian='''+strqx+'''');
try
open;
except
showmessage('错误');
end;
if recordcount=0 then
begin
if i<=3 then
begin
showmessage('没有此用户，请确定输入是否正确，你还有'+inttostr(4-i)+'次机会');
edit1.clear;
edit2.Clear;
edit1.setfocus;
i:=i+1;
exit;
end
else
showmessage('你已三次输入密码有误，无权进入本系统');
application.Terminate;
end;
end;

begin  //密码输入正确
if strqx='用户'  then
begin
form2.n1.enabled:=false;
form2.show;
form1.Hide;
form2.statusbar1.Panels[1].text:=strid;
form2.statusbar1.Panels[3].text:=strqx;
end
else  if  strqx='系统管理员' then
begin
form2.N2.Enabled:=false;
form2.show;
form1.hide;
form2.statusbar1.Panels[1].text:=strid;
form2.statusbar1.Panels[3].text:=strqx;
end
else
begin
form2.show;
form1.hide;
form2.statusbar1.Panels[1].text:=strid;
form2.statusbar1.Panels[3].text:=strqx;
end;
end;





end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
button1.font.style:=button1.Font.style+[fsbold];
button1.font.Size:=15;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
button1.font.Size:=12;
button2.font.Size:=12;
end;

procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
button2.font.Size:=15;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if ord(key)=13 then
button1.Click;
end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if ord(key)=13 then
button1.Click;
end;

end.