|
|
#2
xuanxuan76762006-07-20 16:50
|
begin
qry_role.Connection:=frmRightManager.ADOC_zz;
qry_role.SQL.Add('select * from 角色表');
qry_role.Close;
qry_role.SQL.Clear;
qry_role.SQL.Add('uptade 角色表 set 删除标志="true" where 角色名=:RName');
qry_role.Parameters.ParamByName('RName').Value:=trim(Edt_RoleName.Text);
qry_role.Prepared:=true;
qry_role.ExecSQL;
qry_role.Open;
qry_role.Refresh;
DBG_Role.show;
end;
工作催的紧,希望大虾帮忙!!!!!!
