w_tch_main.~pas

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

unit w_tch_main;

interface

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

type
  Tteacher = class(TForm)
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    X1: TMenuItem;
    U1: TMenuItem;
    T1: TMenuItem;
    T2: TMenuItem;
    W1: TMenuItem;
    H1: TMenuItem;
    U2: TMenuItem;
    M1: TMenuItem;
    F1: TMenuItem;
    T4: TMenuItem;
    N6: TMenuItem;
    T5: TMenuItem;
    H2: TMenuItem;
    A2: TMenuItem;
    CoolBar1: TCoolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    S2: TMenuItem;
    S3: TMenuItem;
    H3: TMenuItem;
    A1: TMenuItem;

 
    procedure X1Click(Sender: TObject);
    procedure T4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure Onclose(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure T3Click(Sender: TObject);
    procedure M1Click(Sender: TObject);
    procedure F1Click(Sender: TObject);
    procedure H2Click(Sender: TObject);
    procedure A2Click(Sender: TObject);
    procedure T5Click(Sender: TObject);
    procedure S3Click(Sender: TObject);
    procedure H3Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  teacher: Tteacher;

implementation
uses  lib_query, w_makepaper,w_QuestionEdit,Unit1,rt_mg,rt_find,About;

{$R *.dfm}



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

procedure Tteacher.T4Click(Sender: TObject);
begin
 Application.CreateForm(TQ_Edit, Q_Edit);
 Q_Edit.Visible:=true;
end;

procedure Tteacher.N6Click(Sender: TObject);
begin
 Application.CreateForm(Tlibquery, libquery);
 libquery.DBGrid1.ReadOnly:=true;
 libquery.query1.Active:=true;
end;

procedure Tteacher.Onclose(Sender: TObject);
begin
Application.Terminate;
end;
procedure Tteacher.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;



procedure Tteacher.M1Click(Sender: TObject);
begin
Application.CreateForm(TRtMg, RtMg);
RtMg.Visible:=true;

end;

procedure Tteacher.F1Click(Sender: TObject);
begin
 Application.CreateForm(TRtFind, RtFind);
 RtFind.Visible:=true;

end;

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

procedure Tteacher.A2Click(Sender: TObject);
begin
Application.CreateForm(TAboutUs, AboutUs);
AboutUs.showmodal;
end;

procedure Tteacher.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;



procedure Tteacher.A1Click(Sender: TObject);
begin
      Application.CreateForm(Tmakepaper, makepaper);
      makepaper.Visible:=true;

end;
procedure Tteacher.H3Click(Sender: TObject);
begin
Application.CreateForm(TForm1, Form1);
Form1.Visible:=true;

end;


end.