rc_usermanage.pas

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

unit RC_UserManage;

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  dbtables,
  Db, Grids, DBGrids, StdCtrls, Mask, DBCtrls, ExtCtrls, ToolWin, ComCtrls,
  ImgList, ADOdb, Buttons;

type
  TRC_DfmUserManage = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    UserNameDBEdit: TDBEdit;
    UserPasswordDBEdit: TDBEdit;
    UserDescribeDBEdit: TDBEdit;
    Label5: TLabel;
    UserGroupNumberDBEdit: TDBEdit;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    CloseToolButton: TToolButton;
    Imagilist1: TImageList;
    DBNavigator1: TDBNavigator;
    UserGroupAssignSpeedButton: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure CloseToolButtonClick(Sender: TObject);
    procedure UserGroupNumberDBEditClick(Sender: TObject);
    procedure UserGroupAssignSpeedButtonClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses RC_UserToUserGroup, RC_DataModule1;

{$R *.DFM}

{ TDfmUserManage }

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

procedure TRC_DfmUserManage.FormShow(Sender: TObject);
begin
  UserNameDBEdit.DataSource := RC_DfmDataModule1.UserDataSource;
  UserNameDBEdit.DataField := 'UserName';
  UserPasswordDBEdit.DataSource := RC_DfmDataModule1.UserDataSource;
  UserPasswordDBEdit.DataField := 'UserPsd';
  UserDescribeDBEdit.DataSource := RC_DfmDataModule1.UserDataSource;
  UserDescribeDBEdit.DataField := 'UserDsc';
  UserGroupNumberDBEdit.DataSource := RC_DfmDataModule1.UserDataSource;
  UserGroupNumberDBEdit.DataField := 'UserGName';
  DBNavigator1.DataSource := RC_DfmDataModule1.UserDataSource;
end;

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

procedure TRC_DfmUserManage.CloseToolButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TRC_DfmUserManage.UserGroupNumberDBEditClick(Sender: TObject);
begin
  UserGroupAssignSpeedButton.Enabled := True;
end;

//用户组管理--------------------------------------------------------------------

procedure TRC_DfmUserManage.UserGroupAssignSpeedButtonClick(Sender: TObject);
var
  DfmUserToUserGroup: TRC_DfmUserToUserGroup;
begin
  UserGroupAssignSpeedButton.Enabled := False;
  DfmUserToUserGroup := TRC_DfmUserToUserGroup.Create(Self);
  DfmUserToUserGroup.ShowModal;
  DfmUserToUserGroup.Free;
end;

procedure TRC_DfmUserManage.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  with RC_DfmDataModule1.PowerAssignQuery do
  begin
    Close;
    Sql.Clear;
    Sql.Add('Delete ');
    Sql.Add('From TPowerAssign');
    Sql.Add('Where (UOrUGName Not In (Select UserName From TUserName))');
    Sql.Add('and (UOrUGName Not In (Select UserGName From TUserGroup))');
    try
      ExecSQL;
    except ShowMessage('error');
    end;
  end;
  with RC_DfmDataModule1.PowerAssignQuery do
  begin
    Close;
    Sql.Clear;
    Sql.Add('Insert into TPowerAssign');
    Sql.Add('(UOrUGName,UorUGIden)');
    Sql.Add('Select UserName,' + QuotedStr('用户'));
    Sql.Add('From TUserName');
    Sql.Add('Where (UserName Not in (Select UOrUGName from TPowerAssign))');
    try
      ExecSQL;
    except ShowMessage('error');
    end;
  end;
end;

end.