untmain.pas

里面有EXE文件,直接运行就可以,密码也在说明文件里,如有需要可做相应的改变

unit UntMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, RzGroupBar, ExtCtrls, RzPanel, RzSplit, ComCtrls, ToolWin,
  ImgList, RzStatus, StdActns, ActnList;

type
  TFrmMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    RzSPMain: TRzSizePanel;
    RzGroupBar1: TRzGroupBar;
    RzGroup2: TRzGroup;
    RzGroup4: TRzGroup;
    RzGroup5: TRzGroup;
    RzGroup1: TRzGroup;
    ImageList1: TImageList;
    ToolBar2: TToolBar;
    ToolButton2: TToolButton;
    ToolButton11: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton8: TToolButton;
    RzGroup3: TRzGroup;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    RzStatusBar1: TRzStatusBar;
    RzStatusPane2: TRzStatusPane;
    AdminNameType: TRzStatusPane;
    RzClockStatus1: TRzClockStatus;
    RzFieldStatus1: TRzFieldStatus;
    RzStatusPane4: TRzStatusPane;
    RzStatusPane3: TRzStatusPane;
    ActionList1: TActionList;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    WindowMinimizeAll1: TWindowMinimizeAll;
    AdminMaster: TAction;
    ChangePassword: TAction;
    EMail: TAction;
    Help: TAction;
    FileExit1: TFileExit;
    ImageList2: TImageList;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    Image1: TImage;
    PartyMain: TAction;
    PartyBranch: TAction;
    BaseSet: TAction;
    OpenDialog1: TOpenDialog;
    ToolButton1: TToolButton;
    procedure FormActivate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure ToolButton11Click(Sender: TObject);
    procedure AdminMasterExecute(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
  private
    { Private declarations }
  public
    Logo:Boolean;  //记录是否登陆，如没登陆，显示登陆窗口
    AdminII:String;    //记录管理员编号
    AdminName:String;  //记录管理员名称
    AdminType:String;  //记录管理员类型
    SchoolName:String; //记录用户单位
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

uses UntLogin, UntAppMDIConsts, UntAdmin, UntChangePsw, UntPartyMain,
  UntPartyBranch, UntPartyInfo, UntSearchBase, UntBaseSet, UntReMent,
  UntOtherSelect, UntDMAppMDI, UntAbout;

{$R *.dfm}
//*******************************************************************
procedure OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);
{根据传递过来的参数，打开相应的窗体}
var
  i: integer;
  Child:TForm;
begin
  for i := 0 to Screen.FormCount -1 do
      if Screen.Forms[i].ClassType=FormClass then
      begin
        {检查窗体是否已经打开，如果没有打开，打开它，
        如果已经打开，让它正常显示即可}
        Child:=Screen.Forms[i];
        if Child.WindowState=wsMinimized then
           ShowWindow(Child.handle,SW_SHOWNORMAL)
        else
           ShowWindow(Child.handle,SW_SHOWNA);
        if (not Child.Visible) then Child.Visible:=True;
        Child.BringToFront;
        Child.Setfocus;
        TForm(fm):=Child;
        exit;
      end;
  Child:=TForm(FormClass.NewInstance);
  TForm(fm):=Child;
  Child.Create(AOwner);
end;
//********************************************************************
//***********根据ID显示对应窗口*************************************
procedure ShowWindows(ID: Integer);
begin
//分配窗口显示
  case ID of
     50 : begin
            Application.CreateForm(TFrmAdmin,FrmAdmin);
            FrmAdmin.AdminID:=FrmMain.AdminII;
            FrmAdmin.ShowModal;
            FreeAndNil(FrmAdmin);
          end;
     51 : begin
            Application.CreateForm(TFrmChangePsw,FrmChangePsw);
            FrmChangePsw.ShowModal;
            FreeAndNil(FrmChangePsw);
          end;
     52 : begin
            Application.CreateForm(TFrmPartyMain,FrmPartyMain);
            FrmPartyMain.ShowModal;
            FreeAndNil(FrmPartyMain);
          end;
     53 : begin
            Application.CreateForm(TFrmPartyBranch,FrmPartyBranch);
            FrmPartyBranch.ShowModal;
            FreeAndNil(FrmPartyBranch);
          end;
     54 : begin
            Application.CreateForm(TFrmBaseSet,FrmBaseSet);
            FrmBaseSet.ShowModal;
            FreeAndNil(FrmBaseSet);
          end;
     {55 : OpenForm(TFrmSearchBase,FrmSearchBase , self); }

  end;
end;
//***********判断是否要显示登陆窗口*************************************
procedure TFrmMain.FormActivate(Sender: TObject);
begin
try
 if Not Logo then
    begin
      Application.CreateForm(TFrmLogin,FrmLogin);
      FrmLogin.ShowModal;
      Logo:=True;
    end;
except
  Logo:=False;
end;
end;

procedure TFrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=ExitSys;
end;

procedure TFrmMain.ToolButton11Click(Sender: TObject);
begin
try
  N10.Visible:=True;
  N6.Visible:=True;
  Application.CreateForm(TFrmLogin,FrmLogin);
  FrmLogin.ShowModal;
  Logo:=True;
except
  Logo:=False;
end;
end;

procedure TFrmMain.AdminMasterExecute(Sender: TObject);
begin
try
  ShowWindows(TAction(sender).Tag);
except
  MessageBox(Handle,'显示窗口失败！','系统提示',MB_OK+MB_ICONINFORMATION);
end;
end;

procedure TFrmMain.N15Click(Sender: TObject);
begin
 OpenForm(TFrmPartyInfo,FrmPartyInfo,self);
end;

procedure TFrmMain.N21Click(Sender: TObject);
begin
  OpenForm(TFrmSearchBase,FrmSearchBase , self);
end;

procedure TFrmMain.N16Click(Sender: TObject);
begin
   OpenForm(TFrmReMent,FrmReMent , self);
end;

procedure TFrmMain.N22Click(Sender: TObject);
begin
   OpenForm(TFrmOtherSelect,FrmOtherSelect , self);
end;

procedure TFrmMain.ToolButton2Click(Sender: TObject);
begin
if RzSPMain.HotSpotClosed then
     RzSPMain.RestoreHotSpot
  else RzSPMain.CloseHotSpot;
end;

procedure TFrmMain.N7Click(Sender: TObject);
Var
  FileName:String;
begin
  FileName:=DateToStr(Now);
  FileName:='BackUp\'+FileName+'.Bak';
  try
    CopyFile('PartySystem.bat',Pchar(FileName),True);
    MessageBox(handle,'数据库备份成功！','系统提示',MB_OK+MB_ICONINFORMATION);
  except
  end;
end;

procedure TFrmMain.N8Click(Sender: TObject);
//var
// FileName:String;
begin
{ if OpenDialog1.Execute then
     begin
       FileName:=OpenDialog1.FileName;
       Try
         DM.ADOConnection.Connected:=False;
         CopyFile(Pchar(FileName),'..\PartySystem.bat',True);
         MessageBox(handle,'数据库恢复成功！','系统提示',MB_OK+MB_ICONINFORMATION);
         DM.ADOConnection.Connected:=True;
       except
       end;
     end; }
end;

procedure TFrmMain.N18Click(Sender: TObject);
begin
  Application.CreateForm(TAboutBox,AboutBox);
  AboutBox.ShowModal;
  FreeAndNil(AboutBox);
end;

end.