delphi界面登陆功能代码实现,散分

hhkun0120 2011-08-20 10:37:41

(*---------------登录的方法,用于封装---------------*)
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;
...全文
82 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
dreamonnet 2011-08-26
  • 打赏
  • 举报
回复
学习学习中
rainychan2009 2011-08-20
  • 打赏
  • 举报
回复
接分贴啊,顶顶更健康
varick_zhong 2011-08-20
  • 打赏
  • 举报
回复
接分。。。
我看见佛 2011-08-20
  • 打赏
  • 举报
回复
接接!!!!!!!!!!!!!!!!!!!!!
浩南_哥 2011-08-20
  • 打赏
  • 举报
回复
接分 接分
formernetcn 2011-08-20
  • 打赏
  • 举报
回复
接分,分都没有了,贴都发不了
syl_gg 2011-08-20
  • 打赏
  • 举报
回复
Looking。。。。。。。

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧