rc_usergroupmanage.pas

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

unit RC_UserGroupManage;

{
代码单元名称：通用权限分配工具用户组管理窗口
从属软件：大连资金清算中心打码机管理信息系统
开发单位：大连理工大学计算机技术研究所软件工程研究室
作者：王树润
时间：2001,1,30
}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBCtrls, ComCtrls, ToolWin, StdCtrls, Mask, ImgList, db, dbTables,
  ADOdb;

type
  TRC_DfmUserGroupManage = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    UserGroupNameDBEdit: TDBEdit;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    UserGroupDescribeDBEdit: TDBEdit;
    CloseToolButton: TToolButton;
    ToolButton2: TToolButton;
    Imagilist1: TImageList;
    ADOQuery1: TADOQuery;
    DBNavigator1: TDBNavigator;
    procedure FormShow(Sender: TObject);
    procedure CloseToolButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses RC_DataModule1;

{$R *.DFM}

//窗体--------------------------------------------------------------------------

procedure TRC_DfmUserGroupManage.FormShow(Sender: TObject);
begin
  UserGroupNameDBEdit.DataSource := RC_DfmDataModule1.UserGroupDataSource;
  UserGroupNameDBEdit.DataField := 'UserGName';
  UserGroupDescribeDBEdit.DataSource := RC_DfmDataModule1.UserGroupDataSource;
  UserGroupDescribeDBEdit.DataField := 'UserGDsc';
  DBNavigator1.DataSource := RC_DfmDataModule1.UserGroupDataSource;
end;

//按钮--------------------------------------------------------------------------

procedure TRC_DfmUserGroupManage.CloseToolButtonClick(Sender: TObject);
begin
  with RC_DfmDataModule1.PowerAssignQuery do
  begin
    Close;
    Sql.Clear;
    Sql.Add('Delete TPowerAssign Where (UOrUGName Not In (Select UserName From TUserName)) and (UOrUGName Not In (Select UserGName From TUserGroup))');
    try
      ExecSQL;
    except ShowMessage('error1');
    end;
  end;

  with RC_DfmDataModule1.PowerAssignQuery do
  begin
    Close;
    Sql.Clear;
    Sql.Add('insert into TPowerAssign(UOrUGName,UOrUGIden) select UserGName,' +
      QuotedStr('用户组') +
      ' from TUserGroup where(UserGName Not in (Select UOrUGName from TPowerAssign))');
    try
      ExecSQL;
    except ShowMessage('error2');
    end;
  end;

  Close;
end;

end.