mainwin.pas

这是一个用Delphi制作的简单的人事管理系统

unit MAINWIN;

interface

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

type
  TF_main = class(TForm)
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    M_connect: TMenuItem;
    M_disconnect: TMenuItem;
    N1: TMenuItem;
    M_exit: TMenuItem;
    M1: TMenuItem;
    M_add: TMenuItem;
    M_change: TMenuItem;
    M_search: TMenuItem;
    W1: TMenuItem;
    M_tile_v: TMenuItem;
    M_tile_h: TMenuItem;
    M_cascade: TMenuItem;
    M_mini_all: TMenuItem;
    H2: TMenuItem;
    M_about: TMenuItem;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ActionList1: TActionList;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    WindowMinimizeAll1: TWindowMinimizeAll;
    StatusBar1: TStatusBar;
    TB_connect: TToolButton;
    TB_disconnect: TToolButton;
    TB_add: TToolButton;
    TB_change: TToolButton;
    ToolButton5: TToolButton;
    TB_search: TToolButton;
    ToolButton7: TToolButton;
    TB_cascade: TToolButton;
    TB_tile_h: TToolButton;
    TB_tile_v: TToolButton;
    ToolButton11: TToolButton;
    TB_about: TToolButton;
    procedure M_connectClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure M_aboutClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
        login:Boolean;
  end;

var
  F_main: TF_main;

implementation

uses login, About;

{$R *.dfm}

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_aboutClick(Sender: TObject);
begin
  AboutBox.ShowModal;
end;

end.