teacher.pas

能够实现学生信息管理子系统的大部分管理功能（增加新生；学生的转学、复学、休学；奖励情况；处罚情况；学生个人信息查询修改）；能够实现教务管理子系统的大部分管理功能（本子系统通过密码确认后

unit teacher;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdActns, ActnList, Menus, ImgList, ComCtrls, ToolWin;

type
  TForm4 = class(TForm)
    ActionList1: TActionList;
    WindowCascade1: TWindowCascade;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    M_system: TMenuItem;
    N1: TMenuItem;
    M_exit: TMenuItem;
    M_manage: TMenuItem;
    M_add: TMenuItem;
    M_change: TMenuItem;
    M_search: TMenuItem;
    ToolBar1: TToolBar;
    TB_add: TToolButton;
    TB_change: TToolButton;
    TB_search: TToolButton;
    ToolButton9: TToolButton;
    StatusBar1: TStatusBar;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure M_exitClick(Sender: TObject);
    procedure M_addClick(Sender: TObject);
    procedure M_changeClick(Sender: TObject);
    procedure M_searchClick(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses student, add, change, add1, search1, renhelp;

{$R *.dfm}

procedure TForm4.M_exitClick(Sender: TObject);
begin
   form4.Hide ;
   form18.Hide ;
   form20.Hide;
   form21.Hide;
   form2.Show ;
end;

procedure TForm4.M_addClick(Sender: TObject);
begin
     form20.Show;
end;

procedure TForm4.M_changeClick(Sender: TObject);
begin
      form18.show;
end;

procedure TForm4.M_searchClick(Sender: TObject);
begin
      form21.show;
end;

procedure TForm4.N3Click(Sender: TObject);
begin
    form16.show;
end;

end.