main.~pas

漳大图书馆管理系统利用Delphi6.0和MS Server2000为主要开发工具

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, Buttons, Menus, StdCtrls, ActnList, Grids, DBGrids,
  jpeg, ExtCtrls, ComCtrls, ToolWin;

type
  TFm_main = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    TC_Menu: TMenuItem;
    N3: TMenuItem;
    XSRK_Menu: TMenuItem;
    BLJSK_Menu: TMenuItem;
    N6: TMenuItem;
    N10: TMenuItem;
    QXGL_Menu: TMenuItem;
    BFHY_Menu: TMenuItem;
    N12: TMenuItem;
    GY_Menu: TMenuItem;
    borrow: TMenuItem;
    ImageList1: TImageList;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    procedure FormActivate(Sender: TObject);
    procedure XSRK_MenuClick(Sender: TObject);
    procedure BLJSK_MenuClick(Sender: TObject);
    procedure borrowClick(Sender: TObject);
    procedure QXGL_MenuClick(Sender: TObject);
    procedure BFHY_MenuClick(Sender: TObject);
    procedure TC_MenuClick(Sender: TObject);
    procedure GY_MenuClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fm_main: TFm_main;
  loged :boolean;
implementation

uses login,data, newbook, Ncard, borrow, users, backup, about;

{$R *.dfm}

procedure TFm_main.FormActivate(Sender: TObject);
begin
 if not loged then
begin
   try
        Fm_login := Tfm_login.create(application);
        fm_login.showmodal;
    finally
        fm_login.free;
    end;
 end;
end;

procedure TFm_main.XSRK_MenuClick(Sender: TObject);
begin
    Fm_Nbook:=Tfm_Nbook.create(self);
end;

procedure TFm_main.BLJSK_MenuClick(Sender: TObject);
begin
  fm_Ncard:=Tfm_ncard.create(self);
end;

procedure TFm_main.borrowClick(Sender: TObject);
begin
   Fm_borrow:=Tfm_borrow.create(self);
end;

procedure TFm_main.QXGL_MenuClick(Sender: TObject);
begin
   fm_user:=Tfm_user.create(self);
end;

procedure TFm_main.BFHY_MenuClick(Sender: TObject);
begin
  fm_back:=Tfm_back.create(self);
end;

procedure TFm_main.TC_MenuClick(Sender: TObject);
begin
application.Terminate;
end;

procedure TFm_main.GY_MenuClick(Sender: TObject);
begin
  Application.CreateForm(TFm_about, Fm_about);
  fm_about.Show;
end;

end.