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

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

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

     //檢查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;
     
     //檢查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;
     
      //檢查checkbox狀態判斷是否給該權限管理權限
    if checkboxChecked then
    begin
     order:=strtoint(MaxNumber)+;
     str:=inttostr(order);

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/24803.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.