mainwin.~pas

一个很好的企业内部人事管理系统,具有基本的框架和标准的结构,很容易改成具体的复杂的应用系统

unit mainwin;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ComCtrls, StdActns, ActnList, ToolWin, ImgList;

type
  TF_main = class(TForm)
    MainMenu: TMainMenu;
    M_system: TMenuItem;
    M_connect: TMenuItem;
    M_disconnect: TMenuItem;
    N1: TMenuItem;
    M_exit: TMenuItem;
    M_manage: TMenuItem;
    M_add: TMenuItem;
    M_change: TMenuItem;
    M_help: TMenuItem;
    M_about: TMenuItem;
    StatusBar1: TStatusBar;
    M_search: TMenuItem;
    M_window: TMenuItem;
    M_cascade: TMenuItem;
    M_tile_h: TMenuItem;
    M_tile_v: TMenuItem;
    M_mini_all: TMenuItem;
    ActionList1: TActionList;
    WindowCascade1: TWindowCascade;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    ToolBar1: TToolBar;
    TB_connect: TToolButton;
    ToolButton2: TToolButton;
    TB_disconnect: TToolButton;
    ToolButton4: TToolButton;
    TB_add: TToolButton;
    TB_change: TToolButton;
    TB_search: TToolButton;
    ToolButton9: TToolButton;
    TB_cascade: TToolButton;
    TB_tile_h: TToolButton;
    ToolButton17: TToolButton;
    TB_about: TToolButton;
    ImageList1: TImageList;
    TB_tile_v: TToolButton;
    procedure M_aboutClick(Sender: TObject);
    procedure M_connectClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure M_disconnectClick(Sender: TObject);
    procedure M_exitClick(Sender: TObject);
    procedure M_addClick(Sender: TObject);
    procedure M_changeClick(Sender: TObject);
    procedure M_searchClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    login:Boolean;
  end;

var
  F_main: TF_main;

implementation

{$R *.DFM}
uses
  About, login, DataModule, add, change, search;

procedure TF_main.M_aboutClick(Sender: TObject);
begin
  AboutBox.ShowModal;
end;

procedure TF_main.M_connectClick(Sender: TObject);
begin
  F_login.ShowModal;
  if login then
  begin
    M_connect.Enabled:=False;
    TB_connect.Enabled:=False;
    M_disconnect.Enabled:=True;
    TB_disconnect.Enabled:=True;
    M_add.Enabled:=True;
    TB_add.Enabled:=True;
    M_change.Enabled:=True;
    TB_change.Enabled:=True;
    M_search.Enabled:=True;
    TB_search.Enabled:=True;
    StatusBar1.Panels[1].Text:='已经连接到服务器：'+F_login.i_server_add.Text;
  end;
end;

procedure TF_main.FormCreate(Sender: TObject);
begin
  //初始化
  login:=False;
  M_connect.Enabled:=True;
  TB_connect.Enabled:=True;
  M_disconnect.Enabled:=False;
  TB_disconnect.Enabled:=False;
  M_add.Enabled:=False;
  TB_add.Enabled:=False;
  M_change.Enabled:=False;
  TB_change.Enabled:=False;
  M_search.Enabled:=False;
  TB_search.Enabled:=False;
  StatusBar1.Panels[1].Text:='尚未登录服务器！请按F2登录。';
end;

procedure TF_main.M_disconnectClick(Sender: TObject);
var
  i:integer;
begin
  for i:=MDIChildCount-1 downto 0 do
    F_main.MDIChildren[i].Close;
  DataModule1.Database.Connected:=False;
  FormCreate(nil);
end;

procedure TF_main.M_exitClick(Sender: TObject);
begin
  Close;
end;

procedure TF_main.M_addClick(Sender: TObject);
begin
  Application.CreateForm(TF_add,F_add);
end;

procedure TF_main.M_changeClick(Sender: TObject);
begin
  Application.CreateForm(TF_change,F_change);
end;

procedure TF_main.M_searchClick(Sender: TObject);
begin
  Application.CreateForm(TF_search,F_search);
end;

end.