w_stu_main.pas

很不错很实用的学生联机考试系统

unit w_stu_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls,shellapi, Buttons, ToolWin, ComCtrls;

type
  Tstudent = class(TForm)
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    W1: TMenuItem;
    H1: TMenuItem;
    X1: TMenuItem;
    S2: TMenuItem;
    H3: TMenuItem;
    A1: TMenuItem;
    k1: TMenuItem;
    Button1: TButton;
    Button2: TButton;
    N1: TMenuItem;
    T5: TMenuItem;
    CoolBar1: TCoolBar;
    SpeedButton4: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;

    procedure X1Click(Sender: TObject);
    procedure k1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Onclose(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure H3Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure T5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  student: Tstudent;

implementation

uses  w_Testpaper,exam,chafen,About;

{$R *.dfm}


procedure Tstudent.X1Click(Sender: TObject);
begin
   self.close;
   Application.Terminate;
end;

procedure Tstudent.k1Click(Sender: TObject);
begin
 Application.CreateForm(Ttestpaper, testpaper);
 testpaper.show;
end;

procedure Tstudent.Button2Click(Sender: TObject);
begin
Application.CreateForm(Ttestpaper, testpaper);
testpaper.show;
//testpaper.Visible:=true;
end;

procedure Tstudent.FormCreate(Sender: TObject);
begin
 //login.Create(self);
  
end;
procedure Tstudent.Onclose(Sender: TObject);
begin
Application.Terminate;
end;
procedure Tstudent.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;

procedure Tstudent.Button1Click(Sender: TObject);
begin
Application.CreateForm(Tstd_chafen, std_chafen);
std_chafen.showmodal;
end;

procedure Tstudent.H3Click(Sender: TObject);
var
filename : pchar;
begin
filename:=pchar(GetCurrentDir()+'\help\index.htm');
//ShowMessage(filename);
ShellExecute(GetDesktopWindow(),nil,filename,nil ,nil,SW_SHOWMAXIMIZED);
end;

procedure Tstudent.A1Click(Sender: TObject);
begin
Application.CreateForm(TAboutUs, AboutUs);
AboutUs.showmodal;

end;

procedure Tstudent.T5Click(Sender: TObject);
begin
        if (T5.Checked = true) then
        begin
        T5.Checked := false;
        coolbar1.Visible:=false;
        end
        else
        begin
        T5.Checked := true;
        coolbar1.Visible:=true;
        end;
end;

end.