教务管理系统设计文档

教务管理系统设计文档【摘要】为了更好地进行教师治理工作，根据本人的实际情况，我选择了开发一个教师治理系统对教师的基本信息进行管理，同时掌握教师的授课信息，以减轻管理人员的工作负担。通过本管理系统，实现教师信息管理的电子化，真正为教师管理提供一个电子平台。一切从学校的实际出发，充分考虑了学校在内部管理、资源共享、信息交流等方面的复杂需求，丰富使用的功能和强盛的权限体系确保有效地解决实际工作中的各类问题。【关键词】控件、窗体、数据库、VB【Abstract】The system of managing teacher file is a typical application of managing information system （know as MIS）,which mainly includes building up data-base of back-end and developing the application interface of front-end. The former required consistency and integrality and security of data. The later should make the application powerful and easily used. By looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools in Win32. VB offered a series of ActiveX operating a data-base. It can give you a short-cut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied with it.目 录一、简介. . 41.系统开发背景. .42.系统建设的目标. . .4二、可行性分析. . .51.系统建设目标的管理可行性.52.系统建设目标的经济可行性.53.系统建设目标的技术可行性. 5三、需求分析. 51.系统为用户提供的服务.5 2.系统的结构组织.6四、系统建设概要设计.6 1.系统的数据模型分析与设计.72.系统的功能模型分析与设计.8五、系统建设详细设计.91.系统数据库设计.92.系统程序文件设计与编写.18六、参考文献.23七、结束语.24一、 简介本设计方案是为教务管理系统开发而编写的，主要方便管理员对学生和老师的基本信息进行管理。它包括了系统可行性研究，系统模块设计，模块的具体流程设计，一些需要进一步讨论或者研究的问题，需要的资料与硬件，数据表的定义等。1、背景随着社会发展，我国各高校每年都在扩招，学生人数每日剧增，教师的基本信息也需要相应的改变。以前的管理手段已不能适应时代的发展，因为它浪费了了许多的人力和物力，在当今信息时代这种传统的管理方法必然被计算机为基础的信息管理系统所代替。我国每所高校的学生人都较多，学校要管理每个学生及教师的信息很困难，通过建立数据库对学生和教师信息进行管理具有重要的意义，帮助学校提高工作效率。教务管理系统是学校信息决策和管理的重要的组成部分，是一种典型的信息管理系统。2 、系统建设的目标通过本教务管理系统能够对学生和老师基本信息进行修改，添加，查询，删除的操作，从而进一步提高学校办学效益和现代化水平，实现学生信息管理工作流程的系统化、规范化和自动化。二、 可行性分析1、系统建设目标的管理可行性学生管理中总是面对大量的信息如学生个人信息，学生选课，学生查询成绩，学生的授课教师的信息等。因此需要信息进行及时管理，及时了解各个环节中信息的变更，力求提高管理效率。本系统力求使系统功能简洁明了,功能齐全且易于操作。2、系统建设目标的经济可行性系统具有效率高、成本低、质量高、功能强等特点，建立一个教务管理的数据库比较容易,经济费用开支不大。 3、系统建设目标的技术可行性开发语言：Delphi系统软件：Windows 95/98/NT/2000DBMS： SQL Server Access 2002就整个系统的技术构成上来看，它属于一个数据库应用类的系统。其基本操作还是对存在数据库进行添加、删除、查找、编辑等。所以就单纯的数据库应用来看，暂不存在太大的技术问题。三、 需求分析1.系统为用户提供的服务本系统的用户主要是管理员，通过该系统管理员可以对教师或学生的信息进行查看与查询，还可以对教师和学生的信息进行修改，增加或删除操作，这样在一定程度上做到管理信息的安全性，从而使教务管理工作顺利的进行。登 陆 主 页 面功能操作退出系统密码验证四、系统建设概要设计1、系统的数据模型分析与设计任课表实体图：任课课程名课程号任课教师教师信息实体图：教师性 别系部出生日期教师姓名教师编号2、系统的功能模型分析与设计功能模块图如下：教师管 理 系 统查询表修改表退出查看表查看表：可以对教师表和任课表的信息进行整表或逐条查看。查询表：可以对教师表和任课表的信息进行按条件查询。修改表：可以对教师表和任课表的信息进行增加、删除、修改等操作。退出：单击可退出主窗体。五、系统建设详细设计1.数据库设计任课表：字段名称类 型大 小字段描述cnochar20课程编号,主键cnamechar50课程名称teacherchar50任课教师姓名教师表表：字段名称类 型大 小字段描述tnochar20教师的编号，主键tnamechar50教师的姓名sexchar50性别tbirthdaychar50教师的出生日期profchar50教师的职称 departchar 20教师所在的系部(1)创建数据库：use mastergoset nocount onIF EXISTS (SELECT * FROM master.sysdatabases WHERE name =TEACHER)DROP DATABASE TEACHERGOCREATE DATABASE TEACHERGO (2)建表（1）创建任课表：create table 任课( cno char(20) primary key not null, cname char(50) , teacher char(50) （2）创建教师表create table teacher( tno char(20) primary key not null,tname char(50),sex char(50), tbirthday char(50),prof char(50),depart char(20) )(3)插入语句（1）插入到任课表中insert into 任课表 values (00012,高等数学,孙艳);insert into 任课表values(00004,设计基础,刘明);insert into 任课表values (00016,c语言,关亮);insert into 任课表 values(00001,数据结构,王涛);insert into任课表values (00023,英语,王晓);insert into 任课表values(00009,高等数学,李莉莉);（2）插入到teacher表中insert into teacher values(01,王方,男,1981-1-2, 助教,计算机系);insert into teacher values(09,赵艳,女,1982-4-5, 教授,语言系);insert into teacher values(12,郭涛,男,1980-3-6, 副教授,机电系);insert into teacher values(32,李名,男,1979-12-4, 助教,生化系);insert into teacher values(16,孙晓,女,1982-6-5, 教授,艺术系);insert into teacher values(11,乔轩轩,女,1983-4-9, 副教授,经济管理系);2 系统程序文件设计与编写本系统的登陆界面如图1所示，相应的代码如下：图1procedure TForm1.Button1Click(Sender: TObject); var pastword:string;begin pastword:=InputBox(登陆,请输入密码!,) ; beginif pastword=123 then begin showmessage(欢迎进入!);form2.Show; end else ShowMessage(密码不正确,请重新输入密码!);end;end;procedure TForm1.Button2Click(Sender: TObject);begin close;end;end.图1.1图1.2在登陆界面上输入下面的一段代码，即可以登陆到主界面，主界面如图2所示：procedure TForm2.N4Click(Sender: TObject);begin form3.show;end;procedure TForm2.N5Click(Sender: TObject);begin form4.show;end;procedure TForm2.N6Click(Sender: TObject);begin form5.show;end;procedure TForm2.N7Click(Sender: TObject);begin form6.show;end;procedure TForm2.N9Click(Sender: TObject);begin form7.show;end;procedure TForm2.N10Click(Sender: TObject);begin form8.show;end;procedure TForm2.N12Click(Sender: TObject);begin form9.show;end;procedure TForm2.N14Click(Sender: TObject);begin form10.show;end;procedure TForm2.Timer1Timer(Sender: TObject);begin if label2.Left=-216 then label2.Left:=label2.Left-5 else label2.left:=273;end;procedure TForm2.N13Click(Sender: TObject);beginclose;end;end.图2 进入主界面后可以看到有四个主菜单项，单击相应的菜单项，就可以使用相应的功能界面。下段代码是浏览表菜单项的实现代码，其相应的界面如图2.1、2.2、2.3、2.4所示。procedure TForm3.FormCreate(Sender: TObject);begin TMyNavigator(DBNavigator1).ButtonsnbFirst.Caption:=第一条; TMyNavigator(DBNavigator1).ButtonsnbPrior.Caption:=上一条; TMyNavigator(DBNavigator1).ButtonsnbNext.Caption:=下一条; TMyNavigator(DBNavigator1).ButtonsnbLast.Caption:=最后一条;end;end.图2.1procedure TForm4.Button1Click(Sender: TObject);begin adoquery1.First;end;procedure TForm4.Button2Click(Sender: TObject);begin adoquery1.Prior;end;procedure TForm4.Button3Click(Sender: TObject);begin adoquery1.Next;end;procedure TForm4.Button4Click(Sender: TObject);begin adoquery1.Last;end;procedure TForm4.FormCreate(Sender: TObject);begin statusbar1.Panels.Items2.text:=当前数据表中共有+ +inttostr(form4.ADOQuery1.RecordCount)+ +条记录;end;end.图2.2procedure TForm5.FormCreate(Sender: TObject);beginTMyNavigator(DBNavigator1).ButtonsnbFirst.Caption:=第一条; TMyNavigator(DBNavigator1).ButtonsnbPrior.Caption:=上一条; TMyNavigator(DBNavigator1).ButtonsnbNext.Caption:=下一条; TMyNavigator(DBNavigator1).ButtonsnbLast.Caption:=最后一条;end;end.图2.3procedure TForm6.Button1Click(Sender: TObject);begin adoquery1.First;end;procedure TForm6.Button2Click(Sender: TObject);begin adoquery1.Prior;end;procedure TForm6.Button3Click(Sender: TObject);begin adoquery1.Next;end;procedure TForm6.Button4Click(Sender: TObject);begin adoquery1.Last;end;procedure TForm6.FormCreate(Sender: TObject);begin statusbar1.Panels.Items2.text:=当前数据表中共有+ +inttostr(form6.ADOQuery1.RecordCount)+ +条记录;end;end.图2.4以上是浏览表的菜单项的所有内容，下面是查询表菜单中的内容，其界面如图3.1和3.2所示。procedure TForm7.Button1Click(Sender: TObject); vars:string;begin if(combobox1.Text=tno)and(edit1.Text) then begin s:=select * from teacher where tno like%+edit1.text+%; end;if(combobox1.Text=tname)and(edit1.Text) then begin s:=select * from teacher where tname like%+edit1.text+%; end;if(combobox1.Text=sex)and(edit1.Text) then begin s:=select * from teacher where sex like%+edit1.text+%; end;if(combobox1.Text=tbirthday)and(edit1.Text) then begin s:=select * from teacher where tbirthday like%+edit1.text+%; end;if(combobox1.Text=prof)and(edit1.Text) then begin s:=select * from teacher where prof like%+edit1.text+%; end;if(combobox1.Text=depart)and(edit1.Text) then begin s:=select * from teacher where depart like%+edit1.text+%; end;adoquery1.Close;adoquery1.SQL.Clear;adoquery1.sql.Text:=s;adoquery1.ExecSQL;adoquery1.Open;if(adoquery1.IsEmpty) then showmessage(对不起，没有您查找的信息！);end;end.图3.1procedure TForm8.Button1Click(Sender: TObject); vars:string;begin if(combobox1.Text=cno)and(edit1.Text) then begin s:=select * from 任课表 where cno like%+edit1.text+%; end;if(combobox1.Text=cname)and(edit1.Text) then begin s:=select * from 任课表 where cname like%+edit1.text+%; end;if(combobox1.Text=teacher)and(edit1.Text) then begin s:=select * from 任课表 where teacher like%+edit1.text+%; end; adoquery1.Close;adoquery1.SQL.Clear;adoquery1.sql.Text:=s;adoquery1.ExecSQL;adoquery1.Open;if(adoquery1.IsEmpty) then showmessage(对不起，没有您查找的信息！);end;end.图3.2最后是修改表菜单中的内容，代码如下，相应的图形界面如图4.1和4.2所示。procedure TForm9.FormCreate(Sender: TObject);begin TMyNavigator(DBNavigator1).Buttonsnbinsert.Caption:=插入; TMyNavigator(DBNavigator1).ButtonsnbDelete.Caption:=删除; TMyNavigator(DBNavigator1).ButtonsnbEdit.Caption:=修改; TMyNavigator(DBNavigator1).ButtonsnbPost.Caption:=提交; TMyNavigator(DBNavigator1).Buttonsnbcancel.Caption:=取消; TMyNavigator(DBNavigator1).Buttonsnbrefresh.Caption:=刷新;end;end.图4.1procedure TForm10.FormCreate(Sender: TObject);begin TMyNavigator(DBNavigator1).Buttonsnbinsert.Caption:=插入; TMyNavigator(DBNavigator1).ButtonsnbDelete.Caption:=删除; TMyNavigator(DBNavigator1).ButtonsnbEdit.Caption:=修改; TMyNavigator(DBNavigator1).ButtonsnbPost.Caption:=提交; TMyNavigator(DBNavigator1).Buttonsnbcancel.Caption:=取消; TMyNavigator(DBNavigator1).Buttonsnbrefresh.Caption:=刷新;end;end.六、参考文献(1)尚俊杰 网络程序设计ASP(第2版) 清华大学出版社,北方交通大学出版社,2004年2月(2)徐军,吴玉新 网站ASP后台解决方案 人民邮电出版社,2001年1月(3)吴振峰 网站建设与管理 高等教育出版社,2005年1月(4)白以恩 计算机网络基础及应用 哈尔滨工业大学出版社,2000年1月(5)包锦阳 大专生毕业论文(