rc_main.pas

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

unit RC_Main;

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ComCtrls, ToolWin, ImgList, Grids, DBGrids, Db, DBTables, ExtCtrls,
  RC_DataModule1, Inifiles, ADODb;

type
  TRC_DfmMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    CloseToolButton: TToolButton;
    ToolButton2: TToolButton;
    UserGroupMannageButton: TToolButton;
    UserManageButton: TToolButton;
    ImageList1: TImageList;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    About: TToolButton;
    Splitter1: TSplitter;
    UserPopupMenu: TPopupMenu;
    FunctionResourceManage1: TMenuItem;
    UserGroupPopupMenu: TPopupMenu;
    FunctionResourceManage2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    procedure CloseToolButtonClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure UserManageButtonClick(Sender: TObject);
    procedure UserGroupMannageButtonClick(Sender: TObject);
    procedure FunctionResourceManageButtonClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure DatabaseRightManage2Click(Sender: TObject);
    procedure FunctionResourceManage1Click(Sender: TObject);
    procedure FunctionResourceManage2Click(Sender: TObject);
    procedure DatabaseRightManage1Click(Sender: TObject);
    procedure AboutClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    MyServerName: string;
  end;

procedure SetWork;

implementation

uses RC_UserManage, RC_UserGroupManage, RC_FunctionResourceManage,
  RC_PowerAssignManage,
  RC_DBAssignManage, RC_AboutBox, Main;

{$R *.DFM}

procedure SetWork;
var
  RC_DfmMain: TRC_DfmMain;
  ServerName: string;
begin
  ServerName := FrmMain.ServerName;
  if ServerName = '' then
    Exit;
  Screen.Cursor := crHourGlass;
  FrmMain.Refresh;
  Application.CreateForm(TRC_DfmMain, RC_DfmMain);
  RC_DfmMain.MyServerName := ServerName;
  Screen.Cursor := crDefault;
  RC_DfmMain.ShowModal;
  RC_DfmMain.Free;
end;

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

procedure TRC_DfmMain.FormShow(Sender: TObject);
begin
  Refresh;
  Screen.Cursor := crHourGlass;
  DBGrid1.Height := Height div 2;
  RC_DfmDataModule1.ADOConnection1.Close;
  RC_DfmDataModule1.ADOConnection1.ConnectionString :=
    'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=' + FrmMain.DBUser
    +
    ';Password=' + FrmMain.DBPass + ';Initial Catalog=' + FrmMain.DbName +
    ';Data Source=' + FrmMain.ServerName;
  RC_DfmDataModule1.ADOConnection1.Open;
  //打开用户表------------------------------------------------------------------
  with RC_DfmDataModule1.UserQuery do
  begin
    if Active then
      Close;
    Sql.Clear;
    Sql.Add('Select * From TUserName');
    try
      Open;
    except
      ShowMessage('无法打开库表！');
      Screen.Cursor := crDefault;
      Exit;
    end;
  end;
  RC_DfmDataModule1.UserQuery.FieldByName('UserId').Alignment := taLeftJustify;
  with RC_DfmDataModule1.DUserQuery do
  begin
    if Active then
      Close;
    Sql.Clear;
    Sql.Add('Select * From DUserName');
    try
      Open;
    except
      ShowMessage('无法打开库表！');
      Screen.Cursor := crDefault;
      Exit;
    end;
  end;
  //汉化字段名称----------------------------------------------------------------
  RC_DfmDataModule1.DUserQuery.First;
  while not RC_DfmDataModule1.DUserQuery.Eof do
  begin
    RC_DfmDataModule1.UserQuery.FieldByName(Trim(RC_DfmDataModule1.DUserQuery.FieldByName('FieldNameE').AsString)).DisplayLabel :=
      RC_DfmDataModule1.DUserQuery.FieldByName('FieldNameC').AsString;
    RC_DfmDataModule1.DUserQuery.Next;
  end;
  RC_DfmDataModule1.UserQuery.FieldByName('UserId').Visible := False;
  RC_DfmDataModule1.UserQuery.FieldByName('UserPsd').Visible := False;
  DBGrid1.DataSource := RC_DfmDataModule1.UserDataSource;
  //打开用户组表----------------------------------------------------------------
  with RC_DfmDataModule1.DUserGroupQuery do
  begin
    if Active then
      Close;
    Sql.Clear;
    Sql.Add('Select * From DUserGroup');
    try
      Open;
    except
      ShowMessage('无法打开库表！');
      Screen.Cursor := crDefault;
      Exit;
    end;
  end;
  with RC_DfmDataModule1.UserGroupQuery do
  begin
    if Active then
      Close;
    Sql.Clear;
    Sql.Add('Select * From TUserGroup');
    try
      Open;
    except
      ShowMessage('无法打开库表！');
      Screen.Cursor := crDefault;
      Exit;
    end;
  end;
  RC_DfmDataModule1.UserGroupQuery.FieldByName('UserGId').Alignment :=
    taLeftJustify;
  //汉化字段名称----------------------------------------------------------------
  RC_DfmDataModule1.DUserGroupQuery.First;
  while not RC_DfmDataModule1.DUserGroupQuery.Eof do
  begin
    RC_DfmDataModule1.UserGroupQuery.FieldByName(Trim(RC_DfmDataModule1.DUserGroupQuery.FieldByName('FieldNameE').AsString)).DisplayLabel :=
      RC_DfmDataModule1.DUserGroupQuery.FieldByName('FieldNameC').AsString;
    RC_DfmDataModule1.DUserGroupQuery.Next;
  end;
  RC_DfmDataModule1.UserGroupQuery.Fields[0].Visible := False;
  DBGrid2.DataSource := RC_DfmDataModule1.UserGroupDataSource;
  Screen.Cursor := crDefault;
end;

procedure TRC_DfmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  RC_DfmDataModule1.ADOConnection1.Close;
end;

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

procedure TRC_DfmMain.FormResize(Sender: TObject);
begin
  DBGrid1.Height := Height div 2;
end;

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

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

procedure TRC_DfmMain.UserManageButtonClick(Sender: TObject);
var
  RC_DfmUserManage: TRC_DfmUserManage;
begin
  RC_DfmUserManage := TRC_DfmUserManage.create(Self);
  RC_DfmUserManage.ShowModal;
  RC_DfmUserManage.Free;
end;

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

procedure TRC_DfmMain.UserGroupMannageButtonClick(Sender: TObject);
var
  RC_DfmUserGroupManage: TRC_DfmUserGroupManage;
begin
  RC_DfmUserGroupManage := TRC_DfmUserGroupManage.Create(Self);
  RC_DfmUserGroupManage.ShowModal;
  RC_DfmUserGroupManage.Free;
end;

//功能资源管理------------------------------------------------------------------

procedure TRC_DfmMain.FunctionResourceManageButtonClick(Sender: TObject);
var
  RC_DfmFunctionResouirceManage: TRC_DfmFunctionResouirceManage;
begin
  RC_DfmFunctionResouirceManage := TRC_DfmFunctionResouirceManage.Create(Self);
  RC_DfmFunctionResouirceManage.ShowModal;
  RC_DfmFunctionResouirceManage.Free;
end;

//功能权限分配管理------------------------------------------------------------------

procedure TRC_DfmMain.FunctionResourceManage1Click(Sender: TObject);
var
  RC_DfmPowerAssignManage: TRC_DfmPowerAssignManage;
begin
  RC_DfmPowerAssignManage := TRC_DfmPowerAssignManage.Create(Self, DBGrid1);
  RC_DfmPowerAssignManage.UserToShow := True;
  RC_DfmPowerAssignManage.ShowModal;
  RC_DfmPowerAssignManage.Free;
end;

procedure TRC_DfmMain.FunctionResourceManage2Click(Sender: TObject);
var
  RC_DfmPowerAssignManage: TRC_DfmPowerAssignManage;
begin
  RC_DfmPowerAssignManage := TRC_DfmPowerAssignManage.Create(Self, DBGrid2);
  RC_DfmPowerAssignManage.UserGroupToShow := True;
  RC_DfmPowerAssignManage.ShowModal;
  RC_DfmPowerAssignManage.Free;
end;

//数据库权限分配管理------------------------------------------------------------

procedure TRC_DfmMain.DatabaseRightManage1Click(Sender: TObject);
var
  RC_DfmDBAssignManage: TRC_DfmDBAssignManage;
begin
  RC_DfmDBAssignManage := TRC_DfmDBAssignManage.Create(Self, DBGrid1);
  RC_DfmDBAssignManage.ShowModal;
  RC_DfmDBAssignManage.Free;
end;

procedure TRC_DfmMain.DatabaseRightManage2Click(Sender: TObject);
var
  RC_DfmDBAssignManage: TRC_DfmDBAssignManage;
begin
  RC_DfmDBAssignManage := TRC_DfmDBAssignManage.Create(Self, DBGrid2);
  RC_DfmDBAssignManage.ShowModal;
  RC_DfmDBAssignManage.Free;
end;

//帮助==========================================================================

procedure TRC_DfmMain.AboutClick(Sender: TObject);
var
  RC_DfmAboutBox: TRC_DfmAboutBox;
begin
  Application.CreateForm(TRC_DfmAboutBox, RC_DfmAboutBox);
  RC_DfmAboutBox.ShowModal;
  RC_DfmAboutBox.Free;
end;

end.