为什么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;