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;

type
  TFm_main = class(TForm)
    SpeedButton6: TSpeedButton;
    ActionList1: TActionList;
    so_borrow: TAction;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    so_code: TAction;
    so_bookindex: TAction;
    so_maxindex: TAction;
    so_info: TAction;
    so_jeisao: TAction;
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    procedure so_borrowExecute(Sender: TObject);
    procedure so_codeExecute(Sender: TObject);
    procedure so_bookindexExecute(Sender: TObject);
    procedure so_maxindexExecute(Sender: TObject);
    procedure so_infoExecute(Sender: TObject);
    procedure so_jeisaoExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fm_main: TFm_main;
  loged :boolean;
implementation

uses login, code, Unit1, bookindex, maxthin, informatin, jisao, data;

{$R *.dfm}

procedure TFm_main.so_borrowExecute(Sender: TObject);
begin
   fm_borrow:=Tfm_borrow.create(self);
   fm_borrow.ShowModal;
end;

procedure TFm_main.so_codeExecute(Sender: TObject);
begin
   fm_code:=Tfm_code.create(self);
   fm_code.ShowModal;
end;

procedure TFm_main.so_bookindexExecute(Sender: TObject);
begin
   fm_maxindex:=Tfm_maxindex.create(self);
   fm_maxindex.ShowModal;
end;

procedure TFm_main.so_maxindexExecute(Sender: TObject);
begin
   fm_bookindex:=Tfm_bookindex.create(self);
   fm_bookindex.ShowModal;
end;

procedure TFm_main.so_infoExecute(Sender: TObject);
begin
   fm_info:=Tfm_info.create(self);
   fm_info.ShowModal;
end;

procedure TFm_main.so_jeisaoExecute(Sender: TObject);
begin
   fm_jeisao:=Tfm_jeisao.create(self);
   fm_jeisao.ShowModal;
end;

procedure TFm_main.FormCreate(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.Image2Click(Sender: TObject);
begin
  application.Terminate;
end;

end.