5,379
社区成员
发帖
与我相关
我的任务
分享
(*---------------登录的方法,用于封装---------------*)
function TBookMngFrm.LoginReader : boolean;
var
str ,readerID, pwd: string;
LreaderID, Lpwd: Integer;
begin
readerID := trim(readerIDEdit.text);
pwd := trim(pwdEdit.Text);
LreaderID := Length(readerID);
Lpwd := Length(pwd);
if readerID='' then showmessage('请输入用户名') else
if pwd='' then showmessage('请输入密码')
else
begin
adoquery1.Close; //先关,清空,
adoquery1.SQL.Clear; //把SQL语句放进去,打开再执行
adoquery1.SQL.Text:='select * from readers where readerID='
+readerID+' and pasword='+pwd+'';
adoquery1.Open ;
if adoquery1.RecordCount = 0 then
begin
Application.MessageBox('用户名或密码不正确!请重新输入!','注意!',MB_OK);
readerIDEdit.Text :='';
pwdEdit.Text :='';
end
else
begin
labelID.Visible := false; //设置登陆界面隐藏
readerIDEdit.Visible :=false;
labelpwd.visible := false;
pwdedit.visible := false;
loginbttn.Visible := false;
str := adoquery1.FieldByName('readername').AsString;
label5.Caption := str + ':你好!';
end
end;
end;