电脑故障

位置:IT落伍者 >> 电脑故障 >> 浏览文章

进销存管理系统权限管理功能的实现(二)[1]


发布日期:2023/7/23
 
——此文章摘自《Delphi 数据库开发经典案例解析》定价特价购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

//修改选择的用户的权限

procedure TrightsButtonClick(Sender: TObject);

var str:string;

begin

//获得与某个用户相对应的用户编号

UserName:=comboboxText;

adoqueryClose;

adoquerySQLclear;

adoquerySQLText:=select 用户编号 from 用户清单 where 姓名=+UserName+;

adoqueryOpen;

UserNumber:=adoqueryfieldbyname(用户编号)AsString;

adoqueryClose;

//计算权限清单中的权限序号之最大值以免其后输入的权限序号与已有的沖突

adoqueryClose;

adoquerySQLclear;

adoquerySQLText:=select max(权限序号) maxnum from 权限清单 as max;

adoqueryOpen;

MaxNumber:=adoqueryfieldbyname(maxnum)AsString;

adoqueryClose;

//删除该用户的所有权限记录以备下一步的修改

adocommandCommandText:=delete from 权限清单 where 用户编号=+UserNumber+;

adocommandExecute;

//打开对用户权限记录表的插入权限这是由建立数据库的时候就设置好的用完后需要把它关闭

adocommandCommandText:=SET IDENTITY_INSERT 权限清单 on;

adocommandExecute;

//检查checkbox状态判断是否给该用户商品资料维护权限

if checkboxChecked then

begin

order:=strtoint(MaxNumber)+;

str:=inttostr(order);

adocommandCommandText:=insert into 权限清单([权限序号][用户编号][权限名称])

values(+str+++UserNumber+++checkboxCaption++);

adocommandExecute;

end;

//检查checkbox状态判断是否给该用户供货商资料维护权限

if checkboxChecked then

begin

order:=strtoint(MaxNumber)+;

str:=inttostr(order);

adocommandCommandText:=insert into 权限清单([权限序号][用户编号][权限名称])

values(+str+++UserNumber+++checkboxCaption++);

adocommandExecute;

end;

right>[] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>]

上一篇:进销存管理系统权限管理功能的实现(二)[2]

下一篇:进销存管理系统权限管理功能的实现(二)[5]