在delphi中能否用ini配置文件实现多个用户的登录功能？
rt，希望大家能够多多指点！
uses inifiles, Unit2;
var sUser,sPwd,u,p:string;
{$R *.dfm} procedure TForm1.FormCreate(Sender: TObject);
var
Conini:TiniFile; begin
Conini:=TiniFile.Create('c:\my.ini');
//寫
Conini.WriteString('Parameters','user','lin');
Conini.WriteString('Parameters','password','000');
//讀
Conini.WriteString('Parameters','user','cai');
Conini.WriteString('Parameters','password','my'); sUser:=Conini.ReadString('Parameters','user','');
sPwd:=Conini.ReadString('Parameters','password','');
Conini.Free;
u:=sUser;
p:=sPwd;
end; procedure TForm1.exitClick(Sender: TObject);
begin
application.Terminate;
end; procedure TForm1.loginClick(Sender: TObject);
begin
if u<>edit1.Text
then
begin
showmessage('no user');
end
else if p<>maskedit1.Text
then begin
showmessage('wrong password');
end
else form2.Show;
end; end.
[此贴子已经被作者于2007-3-5 17:38:45编辑过]
|