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:=''; <
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
