Question

delphi关于修改权限问题

我有一个用户表 其中有一列是权限 其值要么是1 要么是0 现在我想给用户修改权限 先查询到某个用户后 先看其权限的值是1还是0 是1的则改为0 是0的则改为1
下面是我的代码
procedure TForm9.btn1Click(Sender: TObject);vara:Integer;beginwhile (edt1.Text ='') or (edt2.Text='') dobeginMessageBox(0,'用户名或密码不能为空','错误',MB_OK);end;begindmc.adqry1.Close;dmc.adqry1.SQL.Text:='select * from YH where 用户名='''+ edt1.Text+'''and 密码='''+edt2.text+'''';dmc.adqry1.Open;dmc.adqry1.FieldByName('权限') .AsInteger:=a;if not dmc.adqry1.IsEmpty thenbeginif a=1 then begin if MessageBox(0,'您确定降级为普通查询权限吗','提示',MB_YESNO)=idno then begin edt1.Clear; edt2.Clear; end else begin a:=0 ; end;endelse begin if MessageBox(0,'您确定升级为高级管理权限吗','提示',MB_YESNO)=idno then begin edt1.Clear; edt2.Clear; end else begin a:=1 ; end; begin MessageBox(0,'该用户不存在','错误',MB_OK); end;end;endelsebegin MessageBox(0,'该用户不存在','提示',MB_OK);end;end;end;





Answer 1

1、你把你的程序列出来了，没说要问什么；
2、第1个while无法退出；
3、a没有初始化，没有初始值，你就直接把它给了别人了，你是想空手买宝马吧；
4、同样，a没有值，你就拿它做if，而且还执着的不改变它的值，一直if下去
5、adqry1.sql 赋值最后缺少引号，可能是没显示完,adqry1.isempty不知道是什么意思
6、后面的无法看了，看不清，以后写程序把格式写好

追问

你说吧 我什么地方 该怎么写 格式是怎么样的 行吗 大哥

追答

1-5已经说的很明白了
关于格式，要能看得清每个嵌套的作用范围，开始和结束对齐，举例：
begin
while 条件 do begin
if .... then begin
语句
end else begin
语句
end
end;
end;
哦，是不是截图没截全啊？？！！

追问

追答

所以说嘛，你要说出来你问的是什么
adoquery不能直接修改值，要先显式或隐式的改为dsEdit或者dsInsert状态，
adqry1.edit;

Answer 2

update xxxx set yyyy = ((yyyy + 1) mod 2) where zzzzz

用这个思路去做