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

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

    () 實現用戶權限管理的代碼如下
    //關閉窗體時同時關閉對權限清單的插入許可功能
    procedure TrightsFormClose(Sender: TObject; var Action: TCloseAction);
    begin
    //先將對權限清單表的插入功能關閉
    adocommandCommandText:=SET IDENTITY_INSERT 權限清單 off;
    adocommandExecute;
    //關閉窗體是返回上一級窗體
    manageshow;
    end;
     
    //窗體顯示時為下拉列表框設置用戶詞典
    //不允許對管理員sys的權限進行設置
    procedure TrightsFormShow(Sender: TObject);
    begin
     
     adoqueryClose;
     adoquerySQLClear;
     adoquerySQLText:=select distinct 姓名 from 用戶清單 where 姓名!=sys;
     adoqueryOpen;
     comboboxClear;
     while not adoqueryEof do
    begin
     comboboxItemsAdd(adoqueryfieldbyname(姓名)AsString);
     adoqueryNext;
     end
    end;
     
    //將下拉列表中選中的用戶所對應擁有的權限顯示在列表框中
    procedure TrightsComboBoxChange(Sender: TObject);
    var
     strtemp:string;
    begin
    adoqueryClose;
    adoquerySQLclear;
    adoquerySQLText:=select 權限名稱 from 權限清單 where 用戶編號=(select 用戶編號 from 用戶清單 where 姓名=+comboboxText++);
    adoqueryOpen;
    listboxClear;
     
    while not adoqueryEof do
     begin
      temp:=adoqueryfieldbyname(權限名稱)AsString;
      listboxItemsAdd(temp);
      adoqueryNext;
      end;

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

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