Question

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

我用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;的分号去掉就可以了,但是这样为什么不管我输的帐号密码对不对他都提示用户信息错误!呢?

Answer 1

第一个问题是 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;

Answer 2

Abort;
end; 是不是不要那个分号额

Answer 3

你可以showmessage下adoquery的SQL.text

Answer 4

连接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，不能写代码，我留个脚印，回去帮你试试。。。