unit1.pas

上次我同样上传了个score-manager

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, Menus, StdCtrls, jpeg;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    Image1: TImage;
    Label1: TLabel;
    N17: TMenuItem;
    pascal1: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure pascal1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    apppath:string;
  end;

var
  Form1: TForm1;

implementation
 uses
 unit2,unit3,unit5,unit6,unit7,unit8,unit9,unit10,shellapi,unit11;
{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[2].Text:='当前日期为:'+datetostr(date);
statusbar1.Panels[3].Text:='系统时间为:'+timetostr(time);
end;

procedure TForm1.N5Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.N18Click(Sender: TObject);
var
about:tabout;
begin
 about:=tabout.Create(self);
 try
 about.ShowModal;
 finally
 about.Free;
 end;
end;

procedure TForm1.N3Click(Sender: TObject);
var
mmgl:tmmgl;
begin
 mmgl:=tmmgl.Create(self);
 mmgl.Show;
end;

procedure TForm1.N12Click(Sender: TObject);
var
chaxun:tchaxun;
begin
  chaxun:=tchaxun.Create(self);
  chaxun.Show;
end;

procedure TForm1.N9Click(Sender: TObject);
var
regform:tregform;
begin
  regform:=tregform.Create(self);
  regform.Show;
end;

procedure TForm1.N11Click(Sender: TObject);
var
insertform:tinsertform;
begin
insertform:=tinsertform.Create(self);
 insertform.Show;
end;

procedure TForm1.N2Click(Sender: TObject);
var
userform:tuserform;
begin
  userform:=tuserform.Create(self);
  userform.Show;
end;

procedure TForm1.N14Click(Sender: TObject);
var
lessionform:tlessionform;
begin
  lessionform:=tlessionform.Create(self);
  lessionform.Show;
end;

procedure TForm1.N8Click(Sender: TObject);
 var
 xxform:txxform;
begin
 xxform:=txxform.Create(self);
 xxform.Show;
end;

procedure TForm1.N17Click(Sender: TObject);
var
s:string;
begin
  s:='D:\学习天地\DELPHI 7.0\学生成绩管理系统\delphistudy.chm';
  shellexecute(handle,'open',pchar(s),'','',sw_maximize);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
appPath:=extractfilepath(application.exename);
end;
procedure TForm1.N15Click(Sender: TObject);
 var
 classform:tclassform;
begin
 classform:=tclassform.Create(self);
 classform.Show;
end;

procedure TForm1.pascal1Click(Sender: TObject);
var
s:string;
begin
  s:='D:\学习天地\DELPHI 7.0\学生成绩管理系统\pascal精要.chm';
  shellexecute(handle,'open',pchar(s),'','',sw_maximize);
end;

end.