2 sillydirk sillydirk 于 2014.09.30 17:43 提问

使用delphi开发的问题

为什么form2,form3没有出现

procedure TForm1.Button1Click(Sender: TObject);
var num,user,pass:string;
begin
user:=edit1.Text;
pass:=edit2.Text;
if radiobutton1.checked=true then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from 登陆表 where 用户名='''+user+'''and 密码='''+pass+'''') ;
ADOQuery1.Open;
num:=ADOQuery1.fieldbyname('权限').AsString;
if num='' then
showmessage('error');
if num='1' then
form2.show;
if num='0' then
form3.show;
end
else
begin
showmessage('ederror');
end
end;

3个回答

N_BenBird
N_BenBird   2014.09.30 17:59

在前面将 num 打印出来看一下;

N_BenBird
N_BenBird 就使用 showmessage() 看看num对不对,如果对的话就查逻辑。
大约 3 年之前 回复
sillydirk
sillydirk 求教
大约 3 年之前 回复
sillydirk
sillydirk 菜鸟初学,怎么打印
大约 3 年之前 回复
congra3007
congra3007   2015.01.09 11:56

可能num是'','1','0'之外的值。

qwe515800
qwe515800   2015.01.18 10:38

showmessage(num);看看得出来的值是什么。

Csdn user default icon
上传中...
上传图片
插入图片