unit Login;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, DB, ADODB;
type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Image3: TImage;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
ADOTable1: TADOTable;
procedure Button2Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Main;
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
If messagedlg('你确实要退出系统吗?',Mtconfirmation,[Mbyes,Mbcancel],0)=Mryes then
Application.Terminate
else
form1.Show;
end;
procedure TForm1.Image2Click(Sender: TObject);
begin
Application.Minimize;
end;
procedure TForm1.Image3Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
adotable1.Active:=true;
if edit1.Text='' then showmessage('请输入用户名') else
if edit2.Text='' then showmessage('请输入密码')
else
begin
if not adotable1.Locate('Name',edit1.Text,[]) then
begin
showmessage('没有这个用户,登陆失败');
end
else
if adotable1.FieldValues['Password']=edit2.Text
then begin
form2.Show;
form1.Hide;
end
else begin showmessage('密码错误,请重新输入!!');
Form1.Show;
end;
end;
edit1.Text:='';
edit2.Text:='';
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, DB, ADODB;
type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
Image3: TImage;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
ADOTable1: TADOTable;
procedure Button2Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Main;
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
If messagedlg('你确实要退出系统吗?',Mtconfirmation,[Mbyes,Mbcancel],0)=Mryes then
Application.Terminate
else
form1.Show;
end;
procedure TForm1.Image2Click(Sender: TObject);
begin
Application.Minimize;
end;
procedure TForm1.Image3Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
adotable1.Active:=true;
if edit1.Text='' then showmessage('请输入用户名') else
if edit2.Text='' then showmessage('请输入密码')
else
begin
if not adotable1.Locate('Name',edit1.Text,[]) then
begin
showmessage('没有这个用户,登陆失败');
end
else
if adotable1.FieldValues['Password']=edit2.Text
then begin
form2.Show;
form1.Hide;
end
else begin showmessage('密码错误,请重新输入!!');
Form1.Show;
end;
end;
edit1.Text:='';
edit2.Text:='';
end;
end.