進銷存管理系統權限管理功能的實現（二）[3]

    ——此文章摘自《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>]  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24804.html