|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> //根据用户的权限修改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 checkboxChecked:=false; //判断用户是否拥有商品销售单管理权限 adoqueryClose; adoquerySQLClear; adoquerySQLAdd(select 用户编号 from 权限清单 where (用户编号=(select 用户编号 from right>[http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [] [http://developcsaicn/delphi/htm>] |
