main.pas

完善的学生管理系统源码 适用于毕业设计和各种小的设计

{
======================================
浙江龙泉  陆庆华
[e-mail]
13157835570
承接各类中小型数据库系统开发，网站制作
}


unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI,Menus, ActnList, StdCtrls, Buttons, XPMenu, jpeg, ExtCtrls;

type
  TFmMain = class(TForm)
    ActionList1: TActionList;
    Actxsgl: TAction;
    Actcjgl: TAction;
    ActZHGL: TAction;
    Actibbgl: TAction;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    XPMenu1: TXPMenu;
    PopupMenu1: TPopupMenu;
    f1: TMenuItem;
    gfg1: TMenuItem;
    fgfg1: TMenuItem;
    gfgf1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Image1: TImage;
    procedure ActxsglExecute(Sender: TObject);
    procedure ActcjglExecute(Sender: TObject);
    procedure ActZHGLExecute(Sender: TObject);
    procedure ActibbglExecute(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmMain: TFmMain;

implementation

uses Uxsgl, Ucjgl, Uzhgl, Ubbgl, ABOUT, Uhelp;

{$R *.dfm}

procedure TFmMain.ActxsglExecute(Sender: TObject);
begin
fmxsgl.show;
end;

procedure TFmMain.ActcjglExecute(Sender: TObject);
begin
fmcjgl.Show;
end;

procedure TFmMain.ActZHGLExecute(Sender: TObject);
begin
FMZHGL.Show;
end;

procedure TFmMain.ActibbglExecute(Sender: TObject);
begin
fmbbgl.Show;
end;

procedure TFmMain.BitBtn1Click(Sender: TObject);
begin
  Application.CreateForm(Tfrm_about, frm_about);
  frm_about.ShowModal;
end;

procedure TFmMain.BitBtn2Click(Sender: TObject);
begin
 Application.CreateForm(Tform3, form3);
  form3.ShowModal;
end;

procedure TFmMain.BitBtn3Click(Sender: TObject);
begin
if application.MessageBox('真的退出?','提示',mb_okcancel)=idok then
application.Terminate;
end;

procedure TFmMain.N3Click(Sender: TObject);
begin
BitBtn1Click(Sender);
end;

procedure TFmMain.N4Click(Sender: TObject);
begin
BitBtn2Click(Sender);
end;

procedure TFmMain.N1Click(Sender: TObject);
begin
BitBtn3Click(Sender);
end;

procedure TFmMain.Image1Click(Sender: TObject);
 var
 filename:string;
begin
filename:='http://www.lyroom.com';

Shellexecute(Application.Handle,nil,pchar(filename),nil,nil,sw_shownormal);
end;

end.