熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

進銷存管理系統權限管理功能的實現(一)[4]

2013-11-23 17:39:27  來源: Delphi編程 
    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價 特價 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

     用戶清單 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;
    end;

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


From:http://tw.wingwit.com/Article/program/Delphi/201311/24845.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.