评语管理系统论文.docx

评语管理系统论文.docx

《评语管理系统论文.docx》由会员分享，可在线阅读，更多相关《评语管理系统论文.docx（41页珍藏版）》请在冰点文库上搜索。

评语管理系统论文

摘要

教师评语管理系统用计算机管理教师给学生撰写评语信息的一种计算机应用技术的创新,在计算机还未普及之前中介管理都是由教师人员手工抄写的方式来操作的.现在一般的教师评语管理都是采用计算机作为工具的实用的计算机评语生成管理程序来帮助学生管理员进行更有效的学生评语写作。

评语管理系统是典型的信息管理系统（MIS）,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。

对于前者要求建立起数据一致性和完整性强、数据安全性好的库。

而对于后者则要求应用程序功能完备,易使用等特点。

经过分析,我们使用MICROSOFT公司的VISUALBASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。

关键字:

评语管理,MIS,visualbasic,数据库

Abstract

Teacherscommentmanagementsystemforteacherstousecomputermanagementinformationstudentswrotecommentsacomputerapplicationtechnologyinnovation,Managementhasnotyetpopularinthecomputerbeforetheintermediarypersonnelmanualtranscriptionbyteachersarethewaytooperate.Nowthegeneralcommentsofteachersareusingcomputersasamanagementtoolforcomputercommentsgeneratedmanagementprocedurestohelpstudentsmanagersmoreeffectivestudentswritingcomments.Commentmanagementsystemisatypicalmanagementinformationsystem（MIS）,includingitsmaindevelopmentbackgroundtotheestablishmentandmaintenanceofthedatabaseandfront-endapplicationdevelopment2.Therequestfortheestablishmentofstrongdataconsistencyandintegrity,goodforthesecurityofthedata.Forthelatterrequestapplicationsfunctions,suchaseasytousefeatures.

Afteranalysis,weuseMicrosoftvisualbasicdevelopmenttoolcompanies,theuseofitsvariousobject-orienteddevelopmenttools,especiallydatathatcanbeeasilyaccessibleandconcisewindowmanipulationdatabaseintelligentobjects,thefirstprototypeapplicationsysteminashorttimeandthen,computationoftheinitialprototypesystemneedstoconstantlyreviseandimproveuntiltheformationofaviablesystemofusersatisfaction.

Keyword:

commentsmanagementMIS,visualbasicdatabase

摘要…………………………………………………………………………1

Abstract………………………………………………………………………2

第一章引言…………………………………………………………………4

1．1课题背景……………………………………………………………………4

1．2系统简介……………………………………………………………………5

第二章系统的分析……………………………………………………………6

2．1系统开发的目标和思想……………………………………………………6

2．2系统的可行性分析…………………………………………………………8

第三章系统的设计……………………………………………………………18

3．1系统的功能结构设计………………………………………………………18

3．2系统的数据库设计

3．3界面设计与代码设计……………………………………………………………………23

…………………………………………………………24

结束语………………………………………………………………………………46

致谢…………………………………………………………………………………47

参考文献…………………………………………………

第一章引言

1．1课题背景

教师评语管理系统用计算机管理教师给学生撰写评语信息的一种计算机应用技术的创新,在计算机还未普及之前中介管理都是由教师人员手工抄写的方式来操作的.现在一般的教师评语管理都是采用计算机作为工具的实用的计算机评语生成管理程序来帮助学生管理员进行更有效的学生评语写作。

评语管理系统是典型的信息管理系统（MIS）,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。

对于前者要求建立起数据一致性和完整性强、数据安全性好的库。

而对于后者则要求应用程序功能完备,易使用等特点。

1．2系统简介

本系统主要由以下功能模块构成:

一.评语项目管理（增加评语项目,删除选定项目,增加项目分类,删除项目分类）

二.评语维护

三.学生管理（查找学生,添加学生,删除学生,添加新评语）

四.系统管理（修改密码,添加用户,退出系统）

第二章系统的分析

2．1系统开发的目标和思想

本系统主要服务于教师对学生写评语的工作.利用本评语生成系统,教师可以方便的快捷的给班级的学生写评语,主要操作是定位学生对数据库添加评语信息,最后可以完成对学生的查询以及评语的修改.

2．2系统的可行性分析

技术上:

本系统采用visualbasic6.0与微软的access作为数据库,技术上开发难度一般.

经济上:

本系统服务于学校教师,提高了教育工作者办事效率,节省了开支.所以具有经济上的可行性.

社会上:

本系统同时也方便了广大老师写评语寻求者,以及家长.所以具有社会可行性.

第三章系统的设计

3．1系统的功能结构设计

3．2系统的数据库设计

1.工作评语:

2.集体活动评语:

3.纪律评语:

4.建议期望评语:

5.课堂评语:

6.特长爱好评语:

7.体育锻炼评语:

8:

卫生评语:

9:

系统管理:

10:

学生操行:

11:

学生管理:

12:

学生成绩评语:

13:

印象评语:

14:

作业评语:

3．2界面设计与代码设计

1.登陆界面设计:

登陆界面代码设计:

PrivateSubCommand1_Click（）

DimsqlAsString

Dimrs_loginAsNewADODB.Recordset

IfTrim（txtuser.Text）=""Then'判断输入的用户名是否为空

MsgBox"没有这个用户",vbOKOnly+vbExclamation,""

txtuser.SetFocus

Else

sql="select*from系统管理where用户名='"&txtuser.Text&"'"

rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic

Ifrs_login.EOF=TrueThen

MsgBox"没有这个用户",vbOKOnly+vbExclamation,""

txtuser.SetFocus

Else'检验密码是否正确

IfTrim（rs_login.Fields

（1））=Trim（txtpwd.Text）Then

userID=txtuser.Text

rs_login.Close

UnloadMe

mainform.Show

Else

MsgBox"密码不正确",vbOKOnly+vbExclamation,""

txtpwd.SetFocus

EndIf

EndIf

EndIf

cnt=cnt+1

Ifcnt=3Then

UnloadMe

EndIf

ExitSub

EndSub

PrivateSubCommand2_Click（）

UnloadMe

EndSub

PrivateSubForm_Load（）

DimconnectionstringAsString

connectionstring="provider=Microsoft.Jet.oledb.4.0;"&_

"datasource=pingyu.mdb"

conn.Openconnectionstring

cnt=0

EndSub

2.添加学生界面设计:

添加学生代码设计:

PrivateSubCommand1_Click（）

DimsqlAsString

IfTrim（Text1.Text）=""Then

MsgBox"学生姓名不能为空",vbOKOnly+vbExclamation,""

Text1.SetFocus

ExitSub

EndIf

IfTrim（Text2.Text）=""Then

MsgBox"学号不能为空",vbOKOnly+vbExclamation,""

Text2.SetFocus

ExitSub

EndIf

IfTrim（Text3.Text）=""Then

MsgBox"班级不能为空",vbOKOnly+vbExclamation,""

Text3.SetFocus

ExitSub

EndIf

sql="select*from学生管理"

rs.CursorLocation=adUseClient

rs.Opensql,conn,adOpenKeyset,adLockPessimistic

While（rs.EOF=False）

IfTrim（rs.Fields（0））=Trim（Text2.Text）Then

MsgBox"学号不能重复！

",vbOKOnly+vbExclamation,""

Text1.SetFocus

Text1.Text=""

Text2.Text=""

Text3.Text=""

ExitSub

Else

rs.MoveNext

EndIf

Wend

rs.AddNew

rs.Fields（0）=Text2.Text

rs.Fields

（1）=Text1.Text

rs.Fields

（2）=Text3.Text

rs.Update

rs.Close

MsgBox"添加用户成功",vbOKOnly+vbExclamation,""

UnloadMe

EndSub

PrivateSubCommand2_Click（）

UnloadMe

EndSub

3.查找学生界面设计:

查找学生代码设计:

PrivateSubCommand1_Click（）

DimrsAsNewADODB.Recordset

DimfindAsString

DimsqlAsString

List1.Clear

List1.AddItem"学号"&Space（5）&"姓名"&Space（5）&"班级"

IfOption1.Value=TrueThen

sql="select*from学生管理where学生姓名='"&Text1.Text&"'"

rs.Opensql,conn,adOpenKeyset,adLockPessimistic

Ifrs.EOF=FalseThen

rs.MoveFirst

Whilers.EOF=False

List1.AddItemrs.Fields（0）&Space（5）&rs.Fields

（1）&Space（5）&rs.Fields

（2）

rs.MoveNext

Wend

Text1.Text=""

Else

MsgBox"没有找到目标！

",vbOKOnly+vbExclamation,""

EndIf

EndIf

IfOption2.Value=TrueThen

sql="select*from学生管理where学号='"&Text2.Text&"'"

rs.Opensql,conn,adOpenKeyset,adLockPessimistic

Ifrs.EOF=FalseThen

rs.MoveFirst

Whilers.EOF=False

List1.AddItemrs.Fields（0）&Space（5）&rs.Fields

（1）&Space（5）&rs.Fields

（2）

rs.MoveNext

Wend

Text2.Text=""

Else

MsgBox"没有找到目标！

",vbOKOnly+vbExclamation,""

EndIf

EndIf

IfOption3.Value=TrueThen

sql="select*from学生管理where班级='"&Text3.Text&"'"

rs.Opensql,conn,adOpenKeyset,adLockPessimistic

Ifrs.EOF=FalseThen

rs.MoveFirst

Whilers.EOF=False

List1.AddItemrs.Fields（0）&Space（5）&rs.Fields

（1）&Space（5）&rs.Fields

（2）

rs.MoveNext

Wend

Text3.Text=""

Else

MsgBox"没有找到目标！

",vbOKOnly+vbExclamation,""

EndIf

EndIf

rs.Close

EndSub

PrivateSubCommand2_Click（）

UnloadMe

EndSub

PrivateSubList1_Click（）

DimiAsLong

DimsqlAsString

DimrsclickAsNewADODB.Recordset

i=CLng（List1.ListIndex）

ID=Left（List1.Text,6）

Ifi>0Then

rsclick.CursorLocation=adUseClient

sql="select*from学生操行where学号='"&ID&"'"&"orderby学期"

rsclick.Opensql,conn,adOpenKeyset,adLockPessimistic

Ifrsclick.EOF=FalseThen

rsclick.MoveFirst

Else

MsgBox"该生没有评语！

",vbOKOnly+vbExclamation,""

ExitSub

EndIf

Text4.Text=""'文本框清空

Whilersclick.EOF=False

Text4.Text=Text4.Text&vbCrLf&"第"&rsclick.Fields

（1）&"学期"&vbCrLf&Space

（2）&_

rsclick.Fields

（2）&vbCrLf&Space（10）&rsclick.Fields（3）&Space

（2）&rsclick.Fields（4）

rsclick.MoveNext

Wend

rsclick.Close

ExitSub

Else

MsgBox"请选择学生！

",vbOKOnly+vbExclamation,""

ExitSub

EndIf

EndSub

4.添加学生界面设计:

添加学生代码设计:

PrivateSubCommand1_Click（）

DimsqlAsString

Dimrs_addAsNewADODB.Recordset

IfTrim（Text1.Text）=""Then

MsgBox"用户名不能为空",vbOKOnly+vbExclamation,""

ExitSub

Text1.SetFocus

Else

sql="select*from系统管理"

rs_add.Opensql,conn,adOpenKeyset,adLockPessimistic

While（rs_add.EOF=False）

IfTrim（rs_add.Fields（0））=Trim（Text1.Text）Then

MsgBox"已有这个用户",vbOKOnly+vbExclamation,""

Text1.SetFocus

Text1.Text=""

Text2.Text=""

Text3.Text=""

ExitSub

Else

rs_add.MoveNext

EndIf

Wend

IfTrim（Text2.Text）<>Trim（Text3.Text）Then

MsgBox"两次密码不一致",vbOKOnly+vbExclamation,""

Text2.SetFocus

Text2.Text=""

Text3.Text=""

ExitSub

Else

rs_add.AddNew

rs_add.Fields（0）=Text1.Text

rs_add.Fields

（1）=Text2.Text

rs_add.Update

rs_add.Close

MsgBox"添加用户成功",vbOKOnly+vbExclamation,""

UnloadMe

EndIf

EndIf

EndSub

5.修改密码界面设计:

修改界面代码设计:

PrivateSubCommand1_Click（）

Dimrs_changAsNewADODB.Recordset

DimsqlAsString

IfTrim（Text1.Text）<>Trim（Text2.Text）Then

MsgBox"密码不一致！

",vbOKOnly+vbExclamation,""

Text1.SetFocus

Text1.Text=""

Text2.Text=""

Else

sql="select*from系统管理where用户名='"&userID&"'"

rs_chang.Opensql,conn,adOpenKeyset,adLockPessimistic

rs_chang.Fields

（1）=Text1.Text

rs_chang.Update

rs_chang.Close

MsgBox"密码修改成功",vbOKOnly+vbExclamation,""

UnloadMe

EndIf

EndSub

PrivateSubCommand2_Click（）

UnloadMe

EndSub

6.主界面设计:

主界面代码设计:

OptionExplicit

Dimrs1AsNewADODB.Recordset

DimcatAsNewadox.Catalog

DimtblAsNewadox.table

Dimlist2stateAsBoolean'标记list2的状态

DimID_numAsString'记录学号

DimtxttblAsString'记录当前评语项目名称

DimtxtfieldAsString'记录当前项目分支名称

Dimstr1AsString'记录当前评语项目

Dimstr2AsString'记录当前项目中类别

DimxqAsInteger'记录学期

DimselstuAsBoolean

DimselxmAsBoolean

DimxingAsString'记录教师姓名

PrivatemnodeAsNode

PrivateSubwrite_Click（）

EndSub

PrivateSubaddnewpyxm_Click（）

Command9_Click

EndSub

PrivateSubaddpy_Click（）

Command4_Click

EndSub

PrivateSubaddstudent_Click（）

Form1.Show

EndSub

PrivateSubaddstupy_Click（）

Command10_Click

EndSub

PrivateSubadduser_Click（）

Form3.Show

EndSub

PrivateSubaddxmfl_Click（）

Command12_Click

EndSub

PrivateSubchangepwd_Click（）

Form4.Show