umainform.~pas

模块名称: 一、基础信息管理 碟片管理 歌曲管理 歌星管理 人员管理 二、借阅管理 借出登记 归还登记 借阅查询 其它管理 三、系统管理 权限设置 更改密

unit uMainForm;

interface

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

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    dxSideBar1: TdxSideBar;
    Panel1: TPanel;
    N_Login: TMenuItem;
    N_Manage: TMenuItem;
    N_MiMa: TMenuItem;
    N_Exit: TMenuItem;
    N_About: TMenuItem;
    N_Disk: TMenuItem;
    N_Song: TMenuItem;
    N_Singer: TMenuItem;
    N_Staff: TMenuItem;
    N_Borrow: TMenuItem;
    N_Return: TMenuItem;
    N_Other: TMenuItem;
    imgLarge: TImageList;
    StaBar: TStatusBar;
    Image1: TImage;
    procedure N_AboutClick(Sender: TObject);
    procedure N_DiskClick(Sender: TObject);
    procedure N_SongClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N_SingerClick(Sender: TObject);
    procedure N_StaffClick(Sender: TObject);
    procedure N_BorrowClick(Sender: TObject);
    procedure N_ReturnClick(Sender: TObject);
    procedure dxSideBar1ItemClick(Sender: TObject; Item: TdxSideBarItem);
    procedure N_ExitClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N_MiMaClick(Sender: TObject);
    procedure N_ManageClick(Sender: TObject);
    procedure N_LoginClick(Sender: TObject);
  private
    { Private declarations }
    //procedure SetMainForm();
  public
    { Public declarations }
    LoginFlags:bool;
    procedure SetAllMenuOff;
  end;

var
  MainForm: TMainForm;

implementation

uses About, uDisk, uSong, uSinger, uStaff, uBorrow, uReturn, Login,
  ChangeMiMa, StaffClass, uCommon;

{$R *.dfm}

procedure TMainForm.N_AboutClick(Sender: TObject);
begin
  //关于
  Application.CreateForm(TfrmAbout,frmAbout);
  frmAbout.ShowModal;
  frmAbout.Free;
end;

procedure TMainForm.N_DiskClick(Sender: TObject);
begin
   //碟片管理
  Application.CreateForm(TfrmDisk,frmDisk);
  frmDisk.ShowModal;
  frmDisk.Free;
end;

procedure TMainForm.N_SongClick(Sender: TObject);
begin
  //歌曲管理
  Application.CreateForm(Tfrmsong,frmSong);
  frmSong.ShowModal;
  frmSong.Free;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  self.WindowState:=wsMaximized;
  Stabar.Panels[3].Text:=FormatDateTime('YYYY"年"MM"月"DD"日"',Now);

end;

procedure TMainForm.N_SingerClick(Sender: TObject);
begin
  //歌星管理
  Application.CreateForm(TfrmSinger,frmSinger);
  frmSinger.ShowModal;
  frmSinger.Free;
end;

procedure TMainForm.N_StaffClick(Sender: TObject);
begin
  //人员管理
  Application.CreateForm(TfrmStaff,frmStaff);
  frmStaff.ShowModal;
  frmStaff.Free;
end;

procedure TMainForm.N_BorrowClick(Sender: TObject);
begin
  //借出登记
  Application.CreateForm(TfrmBorrow,frmBorrow);
  frmBorrow.ShowModal;
  frmBorrow.Free;
end;

procedure TMainForm.N_ReturnClick(Sender: TObject);
begin
  //归还登记
  Application.CreateForm(TfrmReturn,frmReturn);
  frmReturn.ShowModal;
  frmReturn.Free;
end;

procedure TMainForm.dxSideBar1ItemClick(Sender: TObject;
  Item: TdxSideBarItem);
begin
  if item.Caption='借出登记' then  N_BorrowClick(nil);
  if item.Caption='归还登记' then  N_ReturnClick(nil);
  if item.Caption='碟片管理' then  N_DiskClick(nil);
  if item.Caption='歌曲管理' then  N_SongClick(nil);
  if item.Caption='歌星管理' then  N_singerClick(nil);
  if item.Caption='人员管理' then  N_StaffClick(nil);
  if item.Caption='权限设置' then  N_ManageClick(nil);
  if item.Caption='更改密码' then  N_MiMaClick(nil);
  if item.Caption='重新登录' then  N_ManageClick(nil);
  if item.Caption='关于' then   N_AboutClick(nil);
end;

procedure TMainForm.N_ExitClick(Sender: TObject);
begin
  close;
end;

procedure TMainForm.FormActivate(Sender: TObject);
begin
  //合法性检查
  //LegitimacyCheck();
  //CheckNBMac();


  if  LoginFlags=False  then
  begin
      LoginFlags:=True;
      frmLogin.ShowModal;
     // SetAllMenuOff;
      //SetMainForm;
  end;
end;

procedure TMainForm.SetAllMenuOff;
begin
  //N_Login.Enabled:=false;
  N_Manage.Enabled:=false;
  N_MiMa.Enabled:=false;
  //N_Exit.Enabled:=false;
  //N_About.Enabled:=false;
  N_Disk.Enabled:=false;
  N_Song.Enabled:=false;
  N_Singer.Enabled:=false;
  N_Staff.Enabled:=false;
  N_Borrow.Enabled:=false;
  N_Return.Enabled:=false;
  N_Other.Enabled:=false;
end;

procedure TMainForm.N_MiMaClick(Sender: TObject);
begin
  //修改密码
  Application.CreateForm(TfrmChangeMiMa,frmChangeMiMa);
  frmChangeMiMa.ShowModal;
  frmChangeMiMa.Free;
end;

procedure TMainForm.N_ManageClick(Sender: TObject);
begin
  //权限设置
  Application.CreateForm(TfrmStaffClass,frmStaffClass);
  frmStaffClass.ShowModal;
  frmStaffClass.Free;
end;


procedure TMainForm.N_LoginClick(Sender: TObject);
begin
  SetAllMenuOff;
  LoginFlags:=True;
  frmLogin.ReLoginFlags:=true;
  frmLogin.ShowModal;
     // SetAllMenuOff;
      //SetMainForm;

end;

end.