u_main.pas

主要是对人员信息和工资进行管理

unit U_main;

interface

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

type
  TF_main = class(TForm)
    MainMenu: TMainMenu;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    M_system: TMenuItem;
    M_connect: TMenuItem;
    M_disconnect: TMenuItem;
    ActionList1: TActionList;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowTileVertical1: TWindowTileVertical;
    ImageList1: TImageList;
    n1: TMenuItem;
    M_manage: TMenuItem;
    M_exit: TMenuItem;
    M_add: TMenuItem;
    M_change: TMenuItem;
    M_search: TMenuItem;
    M_window: TMenuItem;
    M_casc: TMenuItem;
    M_title_h: TMenuItem;
    M_title_v: TMenuItem;
    M_min_all: TMenuItem;
    M_help: TMenuItem;
    M_about: TMenuItem;
    TB_connect: TToolButton;
    TB_disconnect: TToolButton;
    TB_add: TToolButton;
    TB_change: TToolButton;
    TB_search: TToolButton;
    TB_casc: TToolButton;
    TB_title_h: TToolButton;
    TB_title_v: TToolButton;
    TB_about: TToolButton;
    TB_EXIT: TToolButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    procedure M_connectClick(Sender: TObject);
    procedure M_disconnectClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure M_exitClick(Sender: TObject);
    procedure M_addClick(Sender: TObject);
    procedure M_aboutClick(Sender: TObject);
    procedure M_changeClick(Sender: TObject);
    procedure M_searchClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_main: TF_main;
  login:boolean;
implementation

uses U_login, U_data,U_add, U_about,U_change,u_search;

{$R *.dfm}

procedure TF_main.M_connectClick(Sender: TObject);
begin
//showmessage('sdsd');
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.M_disconnectClick(Sender: TObject);
var
i:integer;
begin
for i:=MDIChildcount-1 downto 0 do
    F_main.MDIChildren[i].close;
datam.conn.connected:=false;
formcreate(nil);
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_exitClick(Sender: TObject);
begin
if  application.MessageBox('是否确认退出？', '选择', MB_OKCANCEL)=1 then
close;
end;

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

procedure TF_main.M_aboutClick(Sender: TObject);
begin
f_about.ShowModal;
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.