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

Posted

篇首语:获致幸福的不二法门是珍视你所拥有的、遗忘你所没有的。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 进销存管理系统权限管理功能的实现(二)[3]相关的知识,希望对你有一定的参考价值。

    ——此文章摘自《Delphi 数据库开发经典案例解析》定价 ¥  特价 ¥  购买>>//track linktech cn/?m_id=dangdang&a_id=A &l= &l_type = width= height= border= nosave>

     adomand CommandText:= insert into 权限清单([权限序号] [用户编号] [权限名称])      values( +str+ + +UserNumber+ + +checkbox Caption+ + ) ;      adomand Execute;     end;           //通知用户修改成功       showmessage( 修改成功! );           // 根据用户的权限修改同步更新checkbox中的内容     // 判断更新后用户是否拥有商品清单管理权限     adoquery Close;     adoquery SQL Clear;     adoquery SQL Add( select 用户编号 from 权限清单 where (用户编号=(select 用户编号 from 用户清单 where 姓名= +bobox Text+ ))and(权限名称= +checkbox Caption+ ) );     adoquery Open;     if adoquery FieldByName( 用户编号 ) AsString<> then      checkbox Checked:=true      else      checkbox Checked:=false;     // 判断更新后用户是否拥有供货商资料维护权限     adoquery Close;     adoquery SQL Clear;     adoquery SQL Add( select 用户编号 from 权限清单 where (用户编号=(select 用户编号 from 用户清单 where 姓名= +bobox Text+ ))and(权限名称= +checkbox Caption+ ) );     adoquery Open;     if adoquery FieldByName( 用户编号 ) AsString<> then      checkbox Checked:=true      else      checkbox Checked:=false;     // 判断更新后用户是否拥有客户资料维护权限     adoquery Close;     adoquery SQL Clear;     adoquery SQL Add( select 用户编号 from 权限清单 where (用户编号=(select 用户编号 from 用户清单 where 姓名= +bobox Text+ ))and(权限名称= +checkbox Caption+ ) );     adoquery Open;     if adoquery FieldByName( 用户编号 ) AsString<> then      checkbox Checked:=true      else      checkbox Checked:=false;     // 判断更新后用户是否拥有进货单管理权限      adoquery Close;      adoquery SQL Clear;      adoquery SQL Add( select 用户编号 from 权限清单 where (用户编号=(select 用户编号 from      用户清单 where 姓名= +bobox Text+ ))and(权限名称= +checkbox Caption+ ) );     adoquery Open;     if adoquery FieldByName( 用户编号 ) AsString<> then      checkbox Checked:=true      else

cha138/Article/program/Delphi/201311/24804

相关参考

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

    ——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang

知识大全 进销存管理系统权限管理功能的实现(二)[5]

    ——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang

知识大全 进销存管理系统权限管理功能的实现(二)[4]

    ——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang

知识大全 进销存管理系统权限管理功能的实现(一)[3]

    ——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang

知识大全 进销存管理系统权限管理功能的实现(一)[1]

    ——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang

知识大全 进销存管理系统权限管理功能的实现(一)[2]

    ——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang

知识大全 进销存管理系统权限管理功能的实现(一)[4]

    ——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang

知识大全 进销存管理系统资料管理功能的实现(二)[3]

    ——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang

知识大全 进销存管理系统销售管理功能的实现(二)[3]

    ——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang

知识大全 进销存管理系统进货管理功能的实现(二)[2]

    ——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang