student.~pas

学校管理系统,本管理系统与一般管理系统的区别就是：一般管理系统的后台数据库是用Access或sql server进行前台界面设计软件与后台数据库中的数据表的数据相连接。而此管理系统是用Delphi 6

unit student;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, DB, DBTables, StdCtrls, Menus;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N7: TMenuItem;
    N5: TMenuItem;
    N8: TMenuItem;
    N6: TMenuItem;
    N9: TMenuItem;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;
    StatusBar1: TStatusBar;
    Label1: TLabel;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    Label3: TLabel;
    Label4: TLabel;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N12Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  info:string;

implementation

uses  teach, stinfo, teacher, use, copyrights, teacherlogin, studentlogin,
  jiaowuke, jiaowu, studentsys, studentsystem, jiaohelp, renhelp, kaoqi,
  kaohelp;

{$R *.dfm}



procedure TForm2.N2Click(Sender: TObject);
begin
  if form2.Edit1.Text ='' then
     showmessage('请先输入学校名称')
  else
  begin
      form2.Hide ;
      form7.show;
  end;
end;

procedure TForm2.N3Click(Sender: TObject);
begin
   if form2.Edit1.Text ='' then
     showmessage('请先输入学校名称')
  else
  begin
     form2.Hide ;
     form3.show;
  end;
end;

procedure TForm2.N4Click(Sender: TObject);
begin
  if form2.Edit1.Text ='' then
     showmessage('请先输入学校名称')
  else
  begin
     form2.hide;
     form4.show;
  end;   
end;

procedure TForm2.N8Click(Sender: TObject);
begin
  if form2.Edit1.Text ='' then
     showmessage('请先输入学校名称')
  else
  form5.show;
end;

procedure TForm2.N9Click(Sender: TObject);
begin
   if form2.Edit1.Text ='' then
     showmessage('请先输入学校名称')
  else
   form6.show;
end;

procedure TForm2.Edit1Change(Sender: TObject);
begin
    info:=form2.Edit1.Text ;
    form2.Caption :=info+ '学校管理系统';
    form7.Caption :=info+'学校学生个人情况管理系统';
    form3.caption :=info+'学校教学管理系统进入页面';
    form4.Caption :=info+'学校教师人事管理系统';
    form6.Caption:='此管理应用系统版权说明';
    form5.Caption:=info+'学校学生个人情况系统使用帮助';
    form8.caption:=info+'教师课程管理应用系统登录' ;
    form9.caption:=info+'学生选课管理应用系统登录';
    form10.caption:=info+'教务科课程调度应用系统登录';
    form11.caption:=info+'教务科课程调度应用系统';
    form12.caption:=info+'教师课程管理应用系统';
    form13.caption:=info+'学生选课管理应用系统';
    form15.caption:=info+'学校教务科管理系统使用帮助';
    form16.caption:=info+'学校人事管理系统使用帮助';
    form22.caption:=info+'学校教师考勤管理系统';
    form23.caption:=info+'学校教师考勤管理系统使用帮助';
end;

procedure TForm2.N10Click(Sender: TObject);
begin
    if form2.Edit1.Text ='' then
     showmessage('请先输入学校名称')
  else
   form15.show;
end;

procedure TForm2.N11Click(Sender: TObject);
begin
    if form2.Edit1.Text ='' then
     showmessage('请先输入学校名称')
  else
   form16.show;
end;

procedure TForm2.N7Click(Sender: TObject);
begin
    if form2.Edit1.Text ='' then
     showmessage('请先输入学校名称')
  else
    form22.show;

end;

procedure TForm2.N13Click(Sender: TObject);
begin
  if form2.Edit1.Text ='' then
     showmessage('请先输入学校名称')
  else
     form23.show;
     
end;

procedure TForm2.N12Click(Sender: TObject);
begin
    close;
end;

end.