main.pas

一个很简单的三层数据库程序,包括毕业论文, 因为简单,所以容易供参考学习!

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.


//此源码由程序太平洋收集整理发布,任何人都可自由转载,但需保留本站信息
//╭⌒╮┅~ ¤　欢迎光临程序太平洋╭⌒╮
//╭⌒╭⌒╮╭⌒╮～╭⌒╮  ︶  ,︶︶
//,︶︶︶︶,''︶~~ ,''~︶︶　 ,''
//╔　╱◥███◣═╬╬╬╬╬╬╬╬╬╗
//╬ ︱田︱田 田 ︱　　　　　　　　　 ╬
//╬　　　　　　　http://www.5ivb.net ╬
//╬　 ╭○╮●　                   　╬
//╬　　/■\/■\　　                  ╬
//╬　　 <|　||　   有希望,就有成功！ ╬
//╬　　　　　　　　　　　　　　　　　╬
//╚╬╬╬╬╬╬╬╬╬╬╗  ╔╬╬╬╬╝
//
//说明：
//专业提供VB、．NET、Delphi、ASP、PB源码下载
//包括:程序源码,控件,商业源码,系统方案，开发工具，书籍教程，技术文档