VB教务管理系统论文.doc

1、1教务管理系统设计文档【摘要】为了更好地进行教师治理工作，根据本人的实际情况，我选择了开发一个教师治理系统对教师的基本信息进行管理，同时掌握教师的授课信息，以减轻管理人员的工作负担。通过本管理系统，实现教师信息管理的电子化，真正为教师管理提供一个电子平台。一切从学校的实际出发，充分考虑了学校在内部管理、资源共享、信息交流等方面的复杂需求，丰富使用的功能和强盛的权限体系确保有效地解决实际工作中的各类问题。【关键词】控件、窗体、数据库、VB2【Abstract】The system of managing teacher file is a typical application of manag

2、ing 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

3、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 w

4、ith it.3目 录一、简介 41.系统开发背景. .42.系统建设的目标. . 4二、可行性分析. .51.系统建设目标的管理可行性52.系统建设目标的经济可行性53.系统建设目标的技术可行性. 5三、需求分析 51.系统为用户提供的服务52.系统的结构组织6四、系统建设概要设计.6 1.系统的数据模型分析与设计.72.系统的功能模型分析与设计.8五、系统建设详细设计.91.系统数据库设计92.系统程序文件设计与编写.18六、参考文献23七、结束语244一、 简介本设计方案是为教务管理系统开发而编写的，主要方便管理员对学生和老师的基本信息进行管理。它包括了系统可行性研究，系统模块设计，模块

5、的具体流程设计，一些需要进一步讨论或者研究的问题，需要的资料与硬件，数据表的定义等。1、背景随着社会发展，我国各高校每年都在扩招，学生人数每日剧增，教师的基本信息也需要相应的改变。以前的管理手段已不能适应时代的发展，因为它浪费了了许多的人力和物力，在当今信息时代这种传统的管理方法必然被计算机为基础的信息管理系统所代替。我国每所高校的学生人都较多，学校要管理每个学生及教师的信息很困难，通过建立数据库对学生和教师信息进行管理具有重要的意义，帮助学校提高工作效率。教务管理系统是学校信息决策和管理的重要的组成部分，是一种典型的信息管理系统。2 、系统建设的目标通过本教务管理系统能够对学生和老师基本信息

6、进行修改，添加，查询，删除的操作，从而进一步提高学校办学效益和现代化水平，实现学生信息管理工作流程的系统化、规范化和自动化。5二、 可行性分析1、系统建设目标的管理可行性学生管理中总是面对大量的信息如学生个人信息，学生选课，学生查询成绩，学生的授课教师的信息等。因此需要信息进行及时管理，及时了解各个环节中信息的变更，力求提高管理效率。本系统力求使系统功能简洁明了,功能齐全且易于操作。2、系统建设目标的经济可行性系统具有效率高、成本低、质量高、功能强等特点，建立一个教务管理的数据库比较容易,经济费用开支不大。 3、系统建设目标的技术可行性开发语言：Delphi系统软件：Windows 95/98

7、/NT/2000DBMS： SQL Server Access 2002就整个系统的技术构成上来看，它属于一个数据库应用类的系统。其基本操作还是对存在数据库进行添加、删除、查找、编辑等。所以就单纯的数据库应用来看，暂不存在太大的技术问题。6三、 需求分析1.系统为用户提供的服务本系统的用户主要是管理员，通过该系统管理员可以对教师或学生的信息进行查看与查询，还可以对教师和学生的信息进行修改，增加或删除操作，这样在一定程度上做到管理信息的安全性，从而使教务管理工作顺利的进行。登 陆 主 页 面功能操作退出系统密码验证7四、系统建设概要设计1、系统的数据模型分析与设计任课表实体图：教师信息实体图：2

8、、系统的功能模型分析与设计功能模块图如下：任课课程名课程号任课教师教师性 别系部出生日期教师姓名教师编号8查看表：可以对教师表和任课表的信息进行整表或逐条查看。查询表：可以对教师表和任课表的信息进行按条件查询。修改表：可以对教师表和任课表的信息进行增加、删除、修改等操作。退出：单击可退出主窗体。五、系统建设详细设计1.数据库设计任课表：字段名称 类 型 大 小 字段描述cno char 20 课程编号,主键cname char 50 课程名称teacher char 50 任课教师姓名教师表表：字段名称 类 型 大 小 字段描述tno char 20 教师的编号，主键tname char 50

9、 教师的姓名sex char 50 性别tbirthday char 50 教师的出生日期prof char 50 教师的职称depart char 20 教师所在的系部(1)创建数据库：use master教师管 理 系 统查询表修改表退出查看表9goset nocount onIF EXISTS (SELECT * FROM mastersysdatabases WHERE name =TEACHER)DROP DATABASE TEACHERGOCREATE DATABASE TEACHERGO (2)建表（1） 创建任课表：create table 任课( cno char(20) p

10、rimary 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 int

11、o 任课表 values (00016,c 语言,关亮);insert into 任课表 values(00001,数据结构,王涛);insert into 任课表 values (00023,英语,王晓);insert into 任课表 values(00009,高等数学,李莉莉);（2） 插入到 teacher 表中10insert into teacher values(01,王方,男,1981-1-2, 助教,计算机系 );insert into teacher values(09,赵艳,女,1982-4-5, 教授,语言系 );insert into teacher values(1

12、2,郭涛,男,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);varpastword:string;b

13、eginpastword:=InputBox(登陆,请输入密码!,) ;begin11if pastword=123 then begin showmessage(欢迎进入!);form2.Show; endelseShowMessage(密码不正确,请重新输入密码!);end;end;procedure TForm1.Button2Click(Sender: TObject);beginclose;end;end.图 1.1图 1.2在登陆界面上输入下面的一段代码，即可以登陆到主界面，主界面如图 2 所示：procedure TForm2.N4Click(Sender: TObject);b

14、eginform3.show;12end;procedure TForm2.N5Click(Sender: TObject);beginform4.show;end;procedure TForm2.N6Click(Sender: TObject);beginform5.show;end;procedure TForm2.N7Click(Sender: TObject);beginform6.show;end;procedure TForm2.N9Click(Sender: TObject);beginform7.show;end;procedure TForm2.N10Click(Sende

15、r: TObject);beginform8.show;end;procedure TForm2.N12Click(Sender: TObject);13beginform9.show;end;procedure TForm2.N14Click(Sender: TObject);beginform10.show;end;procedure TForm2.Timer1Timer(Sender: TObject);beginif label2.Left=-216 thenlabel2.Left:=label2.Left-5elselabel2.left:=273;end;procedure TFo

16、rm2.N13Click(Sender: TObject);beginclose;end;end.14图 2进入主界面后可以看到有四个主菜单项，单击相应的菜单项，就可以使用相应的功能界面。下段代码是浏览表菜单项的实现代码，其相应的界面如图 2.1、2.2、2.3、2.4 所示。procedure TForm3.FormCreate(Sender: TObject);beginTMyNavigator(DBNavigator1).ButtonsnbFirst.Caption:=第一条;TMyNavigator(DBNavigator1).ButtonsnbPrior.Caption:=上一条;T

17、MyNavigator(DBNavigator1).ButtonsnbNext.Caption:=下一条;TMyNavigator(DBNavigator1).ButtonsnbLast.Caption:=最后一条;end;end.15图 2.1procedure TForm4.Button1Click(Sender: TObject);beginadoquery1.First;end;procedure TForm4.Button2Click(Sender: TObject);beginadoquery1.Prior;end;procedure TForm4.Button3Click(Sen

18、der: TObject);beginadoquery1.Next;end;procedure TForm4.Button4Click(Sender: TObject);beginadoquery1.Last;end;16procedure TForm4.FormCreate(Sender: TObject);beginstatusbar1.Panels.Items2.text:=当前数据表中共有+ +inttostr(form4.ADOQuery1.RecordCount)+ +条记录;end;end.图 2.2procedure TForm5.FormCreate(Sender: TObj

19、ect);beginTMyNavigator(DBNavigator1).ButtonsnbFirst.Caption:=第一条;TMyNavigator(DBNavigator1).ButtonsnbPrior.Caption:=上一条;TMyNavigator(DBNavigator1).ButtonsnbNext.Caption:=下一条;TMyNavigator(DBNavigator1).ButtonsnbLast.Caption:=最后一条;end;end.17图 2.3procedure TForm6.Button1Click(Sender: TObject);beginadoq

20、uery1.First;end;procedure TForm6.Button2Click(Sender: TObject);beginadoquery1.Prior;end;procedure TForm6.Button3Click(Sender: TObject);beginadoquery1.Next;end;procedure TForm6.Button4Click(Sender: TObject);beginadoquery1.Last;end;18procedure TForm6.FormCreate(Sender: TObject);beginstatusbar1.Panels.

21、Items2.text:=当前数据表中共有+ +inttostr(form6.ADOQuery1.RecordCount)+ +条记录;end;end.图 2.4以上是浏览表的菜单项的所有内容，下面是查询表菜单中的内容，其界面如图 3.1 和 3.2 所示。procedure TForm7.Button1Click(Sender: TObject);vars:string;beginif(combobox1.Text=tno)and(edit1.Text) thenbegins:=select * from teacher where tname like%+edit1.text+%;end;

22、if(combobox1.Text=sex)and(edit1.Text) thenbegins:=select * from teacher where tbirthday like%+edit1.text+%;end;if(combobox1.Text=prof)and(edit1.Text) then20begins:=select * from teacher where depart like%+edit1.text+%;end;adoquery1.Close;adoquery1.SQL.Clear;adoquery1.sql.Text:=s;adoquery1.ExecSQL;ad

23、oquery1.Open;if(adoquery1.IsEmpty) thenshowmessage(对不起，没有您查找的信息！);end;end.图 3.1procedure TForm8.Button1Click(Sender: TObject);vars:string;21beginif(combobox1.Text=cno)and(edit1.Text) thenbegins:=select * from 任课表 where cname like%+edit1.text+%;end;if(combobox1.Text=teacher)and(edit1.Text) thenbegins

24、:=select * from 任课表 where teacher like%+edit1.text+%;end;adoquery1.Close;adoquery1.SQL.Clear;adoquery1.sql.Text:=s;adoquery1.ExecSQL;adoquery1.Open;if(adoquery1.IsEmpty) then22showmessage(对不起，没有您查找的信息！);end;end.图 3.2最后是修改表菜单中的内容，代码如下，相应的图形界面如图 4.1和 4.2 所示。procedure TForm9.FormCreate(Sender: TObject)

25、;beginTMyNavigator(DBNavigator1).Buttonsnbinsert.Caption:=插入;TMyNavigator(DBNavigator1).ButtonsnbDelete.Caption:=删除;TMyNavigator(DBNavigator1).ButtonsnbEdit.Caption:=修改;TMyNavigator(DBNavigator1).ButtonsnbPost.Caption:=提交;TMyNavigator(DBNavigator1).Buttonsnbcancel.Caption:=取消;TMyNavigator(DBNavigato

26、r1).Buttonsnbrefresh.Caption:=刷新;end;end.23图 4.1procedure TForm10.FormCreate(Sender: TObject);beginTMyNavigator(DBNavigator1).Buttonsnbinsert.Caption:=插入;TMyNavigator(DBNavigator1).ButtonsnbDelete.Caption:=删除;TMyNavigator(DBNavigator1).ButtonsnbEdit.Caption:=修改;TMyNavigator(DBNavigator1).ButtonsnbPo

27、st.Caption:=提交;TMyNavigator(DBNavigator1).Buttonsnbcancel.Caption:=取消;TMyNavigator(DBNavigator1).Buttonsnbrefresh.Caption:=刷新;end;end.24六、参考文献(1)尚俊杰 网络程序设计ASP(第 2 版) 清华大学出版社,北方交通大学出版社,2004 年 2 月(2)徐军,吴玉新 网站 ASP 后台解决方案 人民邮电出版社,2001 年 1 月(3)吴振峰 网站建设与管理 高等教育出版社,2005 年 1 月(4)白以恩 计算机网络基础及应用 哈尔滨工业大学出版社,2000 年 1 月(5)包锦阳 大专生毕业论文(设计)写作指导 浙江大学出版社,2004 年 6 月(6)吴林华 网站建设与维护 电子工业出版社,2004 年 6 月(7)邵丽萍,张后杨,柯新生 网页编程技术 清华大学出版社,2004 年 1 月(8)杨翼川,徐梅 ASP 动态网页设计实战 机械工业出版社,2000 年 11 月教务管理系统文档(9)白以恩 计算机网络基础及应用 哈尔滨工业大学出版社,2000 年 1 月(10)包锦阳 大专生毕业论文(设计)写作指导浙江大学出版社,2004 年 6 月七、结束语