delphi语句的问题.^^
发布网友
发布时间：2024-09-29 05:06
共1个回答
热心网友
时间：2024-10-25 14:03
既然只能执行第一个if 语句请检查
user:=query1.fieldbyname('username').AsString;
pass:=query1.fieldbyname('userpassword').asstring;
是否获得的具体的数据。如：
加入两条语句来查看
showmessage(user);
showmessage(pass);
上面的if语句由于是使用tab缩进的，故这里不能正确显示其缩进，下面是缩进代码
if (edit2.Text='') and (edit1.Text='') then
begin
showmessage('您没有输入正确的用户名及密码信息!!');
end
else
if (pass=edit2.Text) and (user=edit1.Text) then
begin
rr:=1 ;
form1.Close;
end
else
if (user=edit1.Text) and(pass<>edit2.Text) then
begin
showmessage('请输入正确的用户密码信息!!');
end
else
if (user<>edit1.Text) and(pass=edit2.Text) then
begin
showmessage('请输入正确的用户帐户信息~~!') ;
end
else
if (user<>edit1.Text) and (pass<>edit2.text) then
begin
showmessage('您没有输入正确的用户名或密码,请输入并确认!!');
end;
end;
