Delphi学生宿舍管理系统的设计与实现 第9页
用户登录界面代码:
unit Plogin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, StdCtrls, Buttons, DB, DBTables, DBCtrls,
Mask, jpeg;
type
Tfmdenglu = class(TForm)
GroupBox1: TGroupBox;
StatusBar1: TStatusBar;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Image1: TImage;
Image2: TImage;
GroupBox2: TGroupBox;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Table1: TTable;
Edit2: TEdit;
DBEdit1: TDBEdit;
DataSource1: TDataSource;
Image3: TImage;
SpeedButton3: TSpeedButton;
Table1Yonghuming: TStringField;
Table1Mima: TStringField;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmdenglu: Tfmdenglu;
datapath:string;
implementation
uses Pmain, yonghu;
{$R *.dfm}
procedure Tfmdenglu.FormActivate(Sender: TObject);
begin
datapath:=ExtractFilePath(application.ExeName)+'DataBase';
with table1 do
begin
close;
DatabaseName:=datapath;
tableName:='mimab.db';
Open;
end;
end;
procedure Tfmdenglu.SpeedButton1Click(Sender: TObject);
begin
if edit1.Text='' then
begin
messagebeep(0);
showmessage('你还没输入用户名,请先输入登录名!');
edit1.SetFocus;
exit;
end;
if edit2.Text='' then
begin
messagebeep(0);
showmessage('对不起登录系统不能用空密码,请输入密码');
edit2.SetFocus;
exit;
end;
if table1.Locate('yonghuming',edit1.Text,[locaseinsensitive]) then
begin
if edit2.Text=dbedit1.Text then
begin
table1.Close;
fmdenglu.Hide;
PfmMain:=TPfmMain.create(self);
try
PfmMain.showmodal;
finally
Pfmmain.free;
end;
exit;
end
else
begin
messagebeep(0);
showmessage('密码错误!请重新输入!');
edit2.Text:='';
edit2.SetFocus;
exit;
end;
end
else
begin
messagebeep(0);
showmessage('对不起!不存在此用户,请重新输入!');
edit1.SetFocus;
end;
end;
procedure Tfmdenglu.SpeedButton2Click(Sender: TObject);
begin
close;
end;
procedure Tfmdenglu.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
edit2.SetFocus;
messagebeep(0);
end;
end;
procedure Tfmdenglu.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>