delphi7 做登陆界面的密码判断程序

我用delphi7做学生成绩查询系统withADOQuery1dobeginsql.clear;SQL.Add('select*fromyonghuwhereuserna... 我用delphi7做学生成绩查询系统

with ADOQuery1 do
begin
sql.clear;
SQL.Add ('select * from yonghu where username='''+Trim(username.Text)+''' and passwordd='''+Trim(password.Text)+''' ');
if IsEmpty then
begin
ShowMessage('用户信息错误!');
i:= '';
Abort;
end;

else
begin
Form2:=TForm2.Create(nil);
Form2.ShowModal;
end;
end;

这段代码,如果有这个else,他提示错误not allowed before 'else'
然后去掉else可以运行,但是不管我输入的帐号密码错或对,都提示用户信息错误!

这是怎么回事
else的问题我知道了,把他前面那个end;的分号去掉就可以了,但是这样为什么不管我输的帐号密码对不对他都提示用户信息错误!呢?
展开
 我来答
growtech
2010-12-10 · 超过42用户采纳过TA的回答
知道小有建树答主
回答量:162
采纳率:0%
帮助的人:111万
展开全部
第一个问题是 else 前的 end 不用分号 。
第二个问题是,用户信息错误
是因为 adoquery1 的数据你并没有执行查询
先进行 close; 然后sql 赋值,,,然后进行 open ,再进行 数据集判断
with ADOQuery1 do
begin
close;
sql.text:= 'select * from yonghu where username='''+Trim(username.Text)+''' and passwordd='''+Trim(password.Text)+''' ';
open;

if IsEmpty then begin // 或者写成 recordcount=0
ShowMessage('用户信息错误!');
i:= '';
Abort;
end else begin
Application.CreateForm(Form2,Tform2);
Form2.ShowModal;
end;
end;
百度网友370a3dbdc
2010-12-09 · 超过22用户采纳过TA的回答
知道答主
回答量:47
采纳率:0%
帮助的人:0
展开全部
Abort;
end; 是不是不要那个分号额
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
agully
2010-12-09 · TA获得超过545个赞
知道小有建树答主
回答量:494
采纳率:0%
帮助的人:372万
展开全部
你可以showmessage下adoquery的SQL.text
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
路鸥zi
2010-12-10 · TA获得超过1949个赞
知道小有建树答主
回答量:412
采纳率:0%
帮助的人:108万
展开全部
连接SQL数据库
打开delphi,在窗体上放一个adoquery,2个edit,一个button,
adoquery属性如下
connectionstrring属性 点开后选use connection string 点旁边的设置
在里面选 microsoft ole db provider for sql server,下一步
在服务器名称里写你的数据库地址,本地写local,远程写IP地址
用户名称写的SQL数据库名称,默认是sa
密码写你的SQL数据库密码,
钩选允许保存密码,
在服务器上选择数据库里写你要连接的数据库名称,然后点测试连接,如果连接成功,则表示信息正确,

进入不同界面??可以在数据库里新建一个字段,里面保存一些数字,比如一张user表
name pass quanxian
123 123 1
111 111 0
然后判断quanxian字段里的数字,如果值为0,则关闭某些功能,如果值为1,则关闭管理功能,如果值为2,打开所有功能,也就是把功能按钮变灰,

现在我这没delphi,不能写代码,我留个脚印,回去帮你试试。。。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式