delphi登录界面权限问题，急！在线等
我做的登录界面没设定权限就能成功 ，sql表中的权限字段为qx,现在需要设定权限为a是mainform中N4.Enabled:=false;
主要问题在if adoquery1.fieldbyname('qx').AsString='b' thenmainform.Form2.N4.Enabled:=false;
一旦加上设定权限代码就不行了，请各位帮忙改下，先谢谢了！
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if (edit2.Text='') or (edit1.Text='') then
begin
showmessage('您的用户名或密码不能为空,请重新输入!');
edit2.SetFocus;
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from denglu where yhm=:yhm and mm=:mm ');
adoquery1.Parameters.ParamByName('yhm').Value:=edit2.Text;
adoquery1.Parameters.ParamByName('mm').Value:=Edit1.Text;
adoquery1.Open;
if adoquery1.RecordCount <>0 then
begin
//mainform.username:=edit2.Text;
//mainform.password:=Edit1.Text;
//if adoquery1.fieldbyname('qx').AsString='b' then
//begin
//mainform.Form2.N4.Enabled:=false;
//end;
showmessage('成功登录');
mainform.Form2.ShowModal;
denglu.Form1.Hide;
end;
if adoquery1.RecordCount=0 then
begin
showmessage('您的用户名或密码不正确,请重新输入!');
edit2.Text:=''; <
相关问答：
如题：
我的程序 Create 的时候 创建了N 个线程；这N个线程不停的在 监听N个COM口的数据；当分析数据时，有些时候要弹出application.messagebox 对话框判断 是否继续 执行线程，还是挂起线程。当多个线程同时 ......
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
各位高手赶快帮帮忙。
现在有一个delphi写的dll，函数中有PInteger的返回参数，在delphi中可以正常调用，但是我在vb里写的时候就不知道该怎么来调用了。
请看代码
以下是delphi中的函数定义和调用代码，能正常运� ......
