mainform.~pas

档案信息管理系统

//程序主窗口
unit MainForm;

interface

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

type
  TArchMainForm = class(TForm)
    MainMenu1: TMainMenu;
    loginsystem: TMenuItem;
    UserLogin: TMenuItem;
    ShiftMenu: TMenuItem;
    ExitMenu: TMenuItem;
    ArchManager: TMenuItem;
    SysManager: TMenuItem;
    HelpMenu: TMenuItem;
    ArchMenu: TMenuItem;
    ArchSearch: TMenuItem;
    AccountMenu: TMenuItem;
    DepDataMenu: TMenuItem;
    DataBacupMenu: TMenuItem;
    StatusBar1: TStatusBar;
    procedure ArchMenuClick(Sender: TObject);
    procedure AccountMenuClick(Sender: TObject);
    procedure DepDataMenuClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure UserLoginClick(Sender: TObject);
    procedure ShiftMenuClick(Sender: TObject);
    procedure DataBacupMenuClick(Sender: TObject);
    procedure ArchSearchClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ExitMenuClick(Sender: TObject);
  private
    { Private declarations }

  public
    currentAccount :string;
    procedure Initialize;
  end;
var
  ArchMainForm: TArchMainForm;
implementation
uses ArchMain,AccountMain,ArchDataModule, DepartmentMain,LoginMain,BackupRestoreMain,
     SetDBMainForm;
{$R *.dfm}

//打开档案管理菜单
procedure TArchMainForm.ArchMenuClick(Sender: TObject);
begin
   archMenu.Enabled :=false;
   archsearch.Enabled :=false;
   MainDataModule.StuffTable.Active :=false;
   MainDataModule.DepTable.Active :=false;
   MainDataModule.StuffQuery.Active :=false;
   MainDataModule.StuffTable.Active :=True;
   MainDataModule.DepTable.Active :=True;
   MainDataModule.StuffQuery.Active :=True;
   StuffMain := TStuffMain.create(application);
   StuffMain.Show;
end;

//打开帐户管理菜单
procedure TArchMainForm.AccountMenuClick(Sender: TObject);
begin
  MainDataModule.AccountTable.Active :=True;
  AccountMainForm :=TAccountmainForm.Create(application);
  AccountMainForm.Show;
  AccountMenu.Enabled :=false;
end;

//打开部门管理菜单
procedure TArchMainForm.DepDataMenuClick(Sender: TObject);
begin
  if Not (MainDataModule.DepTable.Active) then
      MainDataModule.DepTable.Active :=True;
  DepMainForm :=TDepMainForm.Create(application);
  DepMainForm.Show;
  depDataMenu.Enabled :=false;
end;

procedure TArchMainForm.FormShow(Sender: TObject);
begin
//显示数据库配置对话框
  if SetDBForm.ShowModal = MrCancel then
  begin
      ArchMainForm.close;
  end;
end;
procedure TarchMainForm.Initialize;
begin

end;

//打开登录菜单
procedure TArchMainForm.UserLoginClick(Sender: TObject);
begin
  if MainDataModule.AccountTable.Active =false then
      MainDataModule.AccountTable.Active :=true;

  LoginMainForm :=TLoginMainForm.Create(application);
  LoginMainForm.Show;
end;

procedure TArchMainForm.ShiftMenuClick(Sender: TObject);
begin
    archManager.Enabled :=false;
    sysManager.Enabled :=false;
    ArchMainForm.userloginClick(ArchMainForm);
end;

//数据库备份菜单
procedure TArchMainForm.DataBacupMenuClick(Sender: TObject);
begin
  BRMainForm :=TBRMainForm.Create(Application);
  ArchMainForm.dataBacupMenu.Enabled :=false;
  BRMainForm.ShowModal;
  ArchMainForm.dataBacupMenu.Enabled :=true;
end;
//打开档案查询菜单
procedure TArchMainForm.ArchSearchClick(Sender: TObject);
begin
   archsearch.Enabled :=false;
   archMenu.Enabled :=false;
   MainDataModule.StuffTable.Active :=True;
   MainDataModule.DepTable.Active :=True;
   MainDataModule.StuffQuery.Active :=True;
   StuffMain := TStuffMain.create(application);
   StuffMain.btSearchArch.Enabled :=true;
   StuffMain.btResetArch.Enabled :=true;
   StuffMain.Show;
   stuffMain.PageControl1.ActivePage :=stuffMain.tsAdvancedSearch;
end;

procedure TArchMainForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    ArchMainForm.Release;
end;
//退出菜单
procedure TArchMainForm.ExitMenuClick(Sender: TObject);
begin
    ArchMainForm.Close;
end;

end.