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

    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價￥　特價￥　購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    //修改選擇的用戶的權限
     procedure TrightsButtonClick(Sender: TObject);
     var str:string;
     begin
    //獲得與某個用戶相對應的用戶編號
    UserName:=comboboxText;
    adoqueryClose;
    adoquerySQLclear;
    adoquerySQLText:=select 用戶編號 from 用戶清單 where 姓名=+UserName+;
    adoqueryOpen;
    UserNumber:=adoqueryfieldbyname(用戶編號)AsString;
    adoqueryClose;
     
    //計算權限清單中的權限序號之最大值以免其後輸入的權限序號與已有的沖突
    adoqueryClose;
    adoquerySQLclear;
    adoquerySQLText:=select max(權限序號) maxnum from 權限清單 as max;
    adoqueryOpen;
    MaxNumber:=adoqueryfieldbyname(maxnum)AsString;
    adoqueryClose;
     
    //刪除該用戶的所有權限記錄以備下一步的修改
    adocommandCommandText:=delete from 權限清單 where 用戶編號=+UserNumber+;
    adocommandExecute;
     
    //打開對用戶權限記錄表的插入權限這是由建立數據庫的時候就設置好的用完後需要把它關閉
    adocommandCommandText:=SET IDENTITY_INSERT 權限清單 on;
    adocommandExecute;
     
    //檢查checkbox狀態判斷是否給該用戶商品資料維護權限
    if checkboxChecked then
    begin
     order:=strtoint(MaxNumber)+;
     str:=inttostr(order);
     
     adocommandCommandText:=insert into 權限清單([權限序號][用戶編號][權限名稱])
     values(+str+++UserNumber+++checkboxCaption++);
     adocommandExecute;
    end;
     
     //檢查checkbox狀態判斷是否給該用戶供貨商資料維護權限
    if checkboxChecked then
    begin
     order:=strtoint(MaxNumber)+;
     str:=inttostr(order);
     adocommandCommandText:=insert into 權限清單([權限序號][用戶編號][權限名稱])
     values(+str+++UserNumber+++checkboxCaption++);
     adocommandExecute;
    end;

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/24802.html