电脑故障

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

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


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

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

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

adocommandExecute;

end;

//通知用户修改成功

showmessage(修改成功!);

//根据用户的权限修改同步更新checkbox中的内容

//判断更新后用户是否拥有商品清单管理权限

adoqueryClose;

adoquerySQLClear;

adoquerySQLAdd(select 用户编号 from 权限清单 where (用户编号=(select 用户编号 from 用户清单 where 姓名=+comboboxText+))and(权限名称=+checkboxCaption+));

adoqueryOpen;

if adoqueryFieldByName(用户编号)AsString<> then

checkboxChecked:=true

else

checkboxChecked:=false;

//判断更新后用户是否拥有供货商资料维护权限

adoqueryClose;

adoquerySQLClear;

adoquerySQLAdd(select 用户编号 from 权限清单 where (用户编号=(select 用户编号 from 用户清单 where 姓名=+comboboxText+))and(权限名称=+checkboxCaption+));

adoqueryOpen;

if adoqueryFieldByName(用户编号)AsString<> then

checkboxChecked:=true

else

checkboxChecked:=false;

//判断更新后用户是否拥有客户资料维护权限

adoqueryClose;

adoquerySQLClear;

adoquerySQLAdd(select 用户编号 from 权限清单 where (用户编号=(select 用户编号 from 用户清单 where 姓名=+comboboxText+))and(权限名称=+checkboxCaption+));

adoqueryOpen;

if adoqueryFieldByName(用户编号)AsString<> then

checkboxChecked:=true

else

checkboxChecked:=false;

//判断更新后用户是否拥有进货单管理权限

adoqueryClose;

adoquerySQLClear;

adoquerySQLAdd(select 用户编号 from 权限清单 where (用户编号=(select 用户编号 from

用户清单 where 姓名=+comboboxText+))and(权限名称=+checkboxCaption+));

adoqueryOpen;

if adoqueryFieldByName(用户编号)AsString<> then

checkboxChecked:=true

else

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

上一篇:获取年龄与根据用户输入需求自动调整输入法[1]

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