基于C/S模式的高校学生管理子系统及教务管理子系统(代码部分)

第五章        系统实现技术：

分模块地描述系统各部分的实现方法：

主界面：

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);

    procedure FormCreate(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;

 

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167