umain.~pas

来自「本程序是人事管理系统.对数据进行的操作有数据更新数据查询数据删除.本程序利用Da」· ~PAS 代码 · 共 145 行

unit UMain;

interface

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

type
  TMain = 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_search: TMenuItem;
    M_window: TMenuItem;
    M_cascade: TMenuItem;
    M_tile_h: TMenuItem;
    M_tile_v: TMenuItem;
    M_mini_all: TMenuItem;
    M_help: TMenuItem;
    M_about: TMenuItem;
    ImageList1: TImageList;
    ActionList1: TActionList;
    WindowCascade1: TWindowCascade;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    TB_connect: TToolButton;
    TB_disconnect: TToolButton;
    ToolButton4: TToolButton;
    TB_add: TToolButton;
    TB_change: TToolButton;
    TB_search: TToolButton;
    ToolButton9: TToolButton;
    TB_cascade: TToolButton;
    TB_tile_h: TToolButton;
    TB_tile_v: TToolButton;
    ToolButton17: TToolButton;
    TB_about: TToolButton;
    StatusBar1: TStatusBar;
    procedure M_connectClick(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);
    procedure M_aboutClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    login:Boolean;
    { Public declarations }
  end;

var
  Main: TMain;

implementation

uses ULogin, UModule;

{$R *.dfm}

procedure TMain.M_connectClick(Sender: TObject);
begin
  frmLogin.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:='已经连接到服务器：'+frmLogin.i_server_add.Text;
  end;
end;

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

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

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

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

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

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

procedure TMain.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;

end.