unit1.pas

机房管理系统源代码2006-7-8制作的非常实用

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, jpeg, ExtCtrls;

type
  Tfrmmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
   function get_right(func:string):boolean;
  public
    { Public declarations }
  end;

var
  frmmain: Tfrmmain;
  users:string;//系统用户

implementation

uses Unit2, Unit3, Unit5, Unit8, Unit10;

{$R *.dfm}

procedure Tfrmmain.N1Click(Sender: TObject);
begin
 application.CreateForm(tfrmusers,frmusers);
 frmusers.ShowModal;
end;

procedure Tfrmmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm1.ADOCon1.Connected:=false;
end;

procedure Tfrmmain.N4Click(Sender: TObject);
begin
 application.CreateForm(tfrmoperates,frmoperates);
 frmoperates.ShowModal;
end;

function Tfrmmain.get_right(func:string):boolean;
var s:string;
begin
 s:='select rights from rights where name='''
  +users+''' and function='''+func+''' and rights=''浏览''';
 result:=not dm1.ADOCon1.Execute(s).eof;
end;

procedure Tfrmmain.FormShow(Sender: TObject);
begin
 if users<>'admin' then //权限
 begin
  n1.Enabled:=get_right('上机用户信息表');
 end;
end;

procedure Tfrmmain.N2Click(Sender: TObject);
begin
 application.CreateForm(tfrmequipment,frmequipment);
 frmequipment.ShowModal;
end;

procedure Tfrmmain.N3Click(Sender: TObject);
begin
 application.CreateForm(tfrmuse_comp,frmuse_comp);
 frmuse_comp.ShowModal;
end;

end.