整容说文库 > 程序代码 > 教育资讯

一个小问题,在线等待!

来源:学生作业帮助网 编辑:整容说文库 时间:2021/04/11 21:18:00 程序代码
一个小问题,在线等待!程序代码
我要取combox里的字段是用哪个代码:
PK_Data.PK_ADOQuery1.FieldByName('Purview').AsString:=ComboBox1.Text;
“Data.ADOload['privilege']=9”这里用数字1到9可以联上。没有问题。可是用汉字,就报错,怎么解决!
我在线等待,只是个小问题!
Data.ADOload['privilege']=9

////////////////////////////////

是不是privilege字段类型不匹配呀?
Data.ADOload['privilege']=9

////////////////////////////////

是不是privilege字段类型不匹配呀?
我看了,不是这原因,我也搞不懂!
就是用汉字,它就出错,用数字和英文就没事!
我也不清楚
错误信息贴出来
Build
  [Error] XS_cipher.pas(94): ':=' expected but '=' found
  [Error] XS_cipher.pas(94): 'END' expected but 'THEN' found
  [Error] XS_cipher.pas(95): ';' expected but 'BEGIN' found
  [Error] XS_cipher.pas(100): '.' expected but 'END' found
  [Fatal Error] XS_pkxt.dpr(10): Could not compile used unit 'XS_cipher.pas'
就是这些消息,我解决不了!
帮忙看看!
if PK_Data.PK_ADOQuery1['purview']='管理员' then
   begin
     PK_Data.PK_ADOQuery1.Edit;
     PK_Data.PK_ADOQuery1.Post;
     PK_main.N1.Enabled:=True;
   end
 else  PK_Data.PK_ADOQuery1['purview']='普通用户'  then
   begin
     PK_Data.PK_ADOQuery1.Edit;
     PK_Data.PK_ADOQuery1.Post;
     PK_main.N1.Enabled:=True;
   end
 end;
这是代码¥#!%¥#……#¥……
else  PK_Data.PK_ADOQuery1['purview']='普通用户'  then

///////////////////

改成:

else if PK_Data.PK_ADOQuery1['purview']='普通用户'  then
我试过了,现在不出错了,可是得不到欲计的结果!
就是:  if  PK_main.N1.Enabled:=True;
      else PK_main.N1.Enabled:=false;
   这里的N1,就是不变啊,因为两个用户登录的结果应该不一样,就是N1一个不变,一个为灰色才对啊!
程序代码