unit2.~pas

用delphi写的课堂作业

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Menus, Unit8, Unit7, Unit6, Unit4, Unit5, Unit3;

type
  TForm2 = 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;
    Frame31: TFrame3;
    Frame51: TFrame5;
    Frame41: TFrame4;
    Frame61: TFrame6;
    Frame71: TFrame7;
    Frame81: TFrame8;
    N13: TMenuItem;
    N12: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    procedure N6Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure Frame81Button3Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure Frame71Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
uses Unit1;
{$R *.dfm}

procedure TForm2.N6Click(Sender: TObject);
begin
  form2.Close;
  //frame31.Free;
  //Frame41.Free;
  //Frame51.Free;
  //Frame61.Free;
  //Frame71.Free;
  //Frame81.Free;
  form1.Show;
  Unit1.Form1.Edit1.Text:='';
  Unit1.Form1.Edit2.Text:='';
  Unit1.Form1.Edit1.SetFocus;
end;

procedure TForm2.N11Click(Sender: TObject);
begin
   Frame51.Visible:=true;
   Frame31.Visible:=false;
   Frame41.Visible:=false;
   Frame61.Visible:=false;
   Frame71.Visible:=false;
   Frame81.Visible:=false;
end;

procedure TForm2.N7Click(Sender: TObject);
begin
   Frame31.Visible:=true;
   Frame51.Visible:=false;
   Frame41.Visible:=false;
   Frame61.Visible:=false;
   Frame71.Visible:=false;
   Frame81.Visible:=false;
end;

procedure TForm2.N8Click(Sender: TObject);
begin
   Frame71.Visible:=true;
   Frame31.Visible:=false;
   Frame41.Visible:=false;
   Frame61.Visible:=false;
   Frame51.Visible:=false;
   Frame81.Visible:=false;
end;

procedure TForm2.N9Click(Sender: TObject);
begin
   Frame41.Visible:=true;
   Frame31.Visible:=false;
   Frame51.Visible:=false;
   Frame61.Visible:=false;
   Frame71.Visible:=false;
   Frame81.Visible:=false;
end;

procedure TForm2.N10Click(Sender: TObject);
begin
  if (UserType<>'教  师') then
  begin
    messagebox(handle,'没有足够的权限！','权限不足',MB_ICONWARNING+mb_ok);
    exit ;
    end
  else
   Frame81.Visible:=true;
   Frame31.Visible:=false;
   Frame41.Visible:=false;
   Frame61.Visible:=false;
   Frame71.Visible:=false;
   Frame51.Visible:=false;
end;

procedure TForm2.N5Click(Sender: TObject);
begin
  if (UserType<>'教  师') then
  begin
    messagebox(handle,'没有足够的权限！','权限不足',MB_ICONWARNING+mb_ok);
    exit;
  end
  else
begin
   Frame61.Visible:=true;
   Frame31.Visible:=false;
   Frame41.Visible:=false;
   Frame51.Visible:=false;
   Frame71.Visible:=false;
   Frame81.Visible:=false;
end;
end;
procedure TForm2.Frame81Button3Click(Sender: TObject);
begin
  Frame81.Button3Click(Sender);

end;

procedure TForm2.N12Click(Sender: TObject);
begin

  application.Terminate ;
end;

procedure TForm2.Frame71Label1Click(Sender: TObject);
begin
  Frame71.Label1Click(Sender);

end;

end.