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