frm_mainu.~pas

学生公寓管理系统 很好的设计 呵呵 绝对很好

unit frm_mainU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, ComCtrls, ToolWin,ClassesU,Config;

type
  TFrm_main = class(TForm)
    Mmenu: TMainMenu;
    N1: TMenuItem;
    NClose: TMenuItem;
    N3: TMenuItem;
    NBuilding: TMenuItem;
    NDorm: TMenuItem;
    N6: TMenuItem;
    NStudentInfo: TMenuItem;
    NFee: TMenuItem;
    N5: TMenuItem;
    NOperator: TMenuItem;
    NChangePwd: TMenuItem;
    NCallin: TMenuItem;
    Panel1: TPanel;
    TBar: TToolBar;
    tbtnBuilding: TToolButton;
    ToolButton2: TToolButton;
    tbtnDorm: TToolButton;
    ToolButton4: TToolButton;
    tbtnStudent: TToolButton;
    ToolButton6: TToolButton;
    tbtnFee: TToolButton;
    ToolButton1: TToolButton;
    tbtnCallin: TToolButton;
    ToolButton3: TToolButton;
    N2: TMenuItem;
    N4: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure NOperatorClick(Sender: TObject);
    procedure NBuildingClick(Sender: TObject);
    procedure NDormClick(Sender: TObject);
    procedure NStudentInfoClick(Sender: TObject);
    procedure NFeeClick(Sender: TObject);
    procedure NCallinClick(Sender: TObject);
    procedure NCloseClick(Sender: TObject);
    procedure NChangePwdClick(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    CurrentUser:TOperator;
    //通过用户的级别来设置主窗体中的主菜单
    procedure SetMmenu(OperatorLevel:string);
  end;

var
  Frm_main: TFrm_main;

implementation
uses frm_houseU,frm_loginU,frm_StudentU,frm_operatorU,
frm_roomU,frm_feeU,frm_visitInfoU,frm_changePwdU,frm_room_nouseU;
{$R *.dfm}
procedure TFrm_main.SetMmenu(OperatorLevel:string);
begin
  if OperatorLevel='操作员' then
    begin
      self.NOperator.Enabled:=false;
    end;
end;
procedure TFrm_main.FormCreate(Sender: TObject);
var
  frm_login:Tfrm_login;
begin
frm_login:=Tfrm_login.Create(self);   //创建登录窗体
frm_login.ShowModal;
end;

procedure TFrm_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Config.ADOCon.Close;
end;

procedure TFrm_main.NOperatorClick(Sender: TObject);
var
  frm_operator:Tfrm_operator;
begin
frm_operator:=Tfrm_operator.Create(self);
frm_operator.ShowModal;
end;

procedure TFrm_main.NBuildingClick(Sender: TObject);
var
  frm_house:Tfrm_house;
begin
frm_house:=Tfrm_house.Create(self);
frm_house.ShowModal;

end;

procedure TFrm_main.NDormClick(Sender: TObject);
var
  frm_room:Tfrm_room;
begin
  frm_room:=Tfrm_room.Create(self);
  frm_room.ShowModal;

end;

procedure TFrm_main.NStudentInfoClick(Sender: TObject);
var
  frm_Student:Tfrm_Student;
begin
  frm_Student:=Tfrm_Student.Create(self);
  frm_Student.ShowModal;

end;

procedure TFrm_main.NFeeClick(Sender: TObject);
var
  frm_fee:Tfrm_fee;
begin
  frm_fee:=Tfrm_fee.Create(self);
  frm_fee.ShowModal;

end;

procedure TFrm_main.NCallinClick(Sender: TObject);
var
  frm_visitInfo:Tfrm_visitInfo;
begin
  frm_visitInfo:=Tfrm_visitInfo.Create(self);
  frm_visitInfo.watchID:=self.CurrentUser.Operid;
  frm_visitInfo.ShowModal;
end;

procedure TFrm_main.NCloseClick(Sender: TObject);
begin
  close;
end;

procedure TFrm_main.NChangePwdClick(Sender: TObject);
var
  frm_changePwd:Tfrm_changePwd;
begin
  frm_changePwd:=Tfrm_changePwd.Create(self);
  frm_changePwd.currentUser:=self.CurrentUser;
  frm_changePwd.ShowModal;
end;

procedure TFrm_main.N4Click(Sender: TObject);
var
  frm_room_nouse:Tfrm_room_nouse;
begin
frm_room_nouse:=Tfrm_room_nouse.Create(self);
frm_room_nouse.ShowModal;
end;

end.