教师评语管理系统设计

1、摘要1Abstract2第一章引言41 - 1课题背景41 - 2系统简介5第二章系统的分析62 - 1系统开发的目标和思想62 - 2系统的可行性分析8第三章系统的设计183 1 系统的功能结构设计183 - 2系统的数据库设计3 3 界面设计与代码设计2324结束语46&47参考文献教师评语管理系统用计算机管理教师给学生撰写评语信息的一种计算机应 用技术的创新，在计算机还未普及之前中介管理都是由教师人员手工抄写的方式 来操作的.现在一般的教师评语管理都是采用计算机作为工具的实用的计算机评 语生成管理程序来帮助学生管理员进行更有效的学生评语写作。评语管理系统是 典型的信息管理系统(M

2、IS),其开发主要包括后台数据库的建立和维护以及前端 应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安 全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。经过分析，我们使用MICROSOFT公司的VISUAL BASIC开发工具，利用其提供 的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智 能化对象，首先在短时间建立系统应用原型，然后，对初始原型系统进行需求迭代, 不斷修正和改进，直到形成用户满意的可行系统。关键字：评语管理,MIS, visual basic，数据库AbstractTeachers comment management s

3、ystem for teachers to use computer management information students wrote comments a computer application technology innovation, Management has not yet popular in the computer before the intermediary personnel manual transcription by teachers are the way to operate Now the general comments of teacher

4、s are using computers as a management tool for computer comments generated management procedures to help students managers more effective students writing comments Comment management system is a typical management information system (MIS), including its main development background to the establishme

5、nt and maintenance of the database and front-end application development 2 The request for the establishment of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use featuresAfter analysis, we use Microsoft visual

6、 basic development tool companies, the use of its various object-oriented development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects, the first prototype application system in a short time and then, computation of the initial prototy

7、pe system needs to constantly revise and improve until the formation of a viable system of user satisfactionKeyword : comments management MIS, visual basic database第一章引言1 -1课题背景教师评语管理系统用计算机管理教师给学生撰写评语信息的一 种计算机应用技术的创新，在计算机还未普及之前中介管理都是由教 师人员手工抄写的方式来操作的现在一般的教师评语管理都是采用 计算机作为工具的实用的计算机评语生成管理程序来帮助学生管理 员进行更

8、有效的学生评语写作。评语管理系统是典型的信息管理系统 （MIS）,其开发主要包括后台数据库的建立和维护以及前端应用程序 的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据 安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。1 - 2 系统简介本系统主要由以下功能模块构成：一评语项目管理（增加评语项目，删除选定项目，增加项目分类,删除项目分类）二评语维护三. 学生管理（查找学生，添加学生，删除学生，添加新评语）四. 系统管理（修改密码，添加用户，退出系统）第二章系统的分析21系统开发的目标和思想本系统主要服务于教师对学生写评语的工作利用本评语生成系 统，教师可以方便的快捷的

9、给班级的学生写评语，主要操作是定位学 生对数据库添加评语信息，最后可以完成对学生的查询以及评语的修 改.22系统的可行性分析技术上：本系统采用visual basic 6. 0与微软的access作为数 据库，技术上开发难度一般.经济上：本系统服务于学校教师，提高了教育工作者办事效率，节 省了开支所以具有经济上的可行性.社会上：本系统同时也方便了广大老师写评语寻求者，以及家长. 所以具有社会可行性.第三章系统的设计31系统的功能结构设计程序登陆32系统的数据库设计1. 工作评语：2. 集体活动评语：3. 纪律评语:4. 建议期望评语:5. 课堂评语：6. 特长爱好评语:7. 体育锻炼评语:8:

10、卫生评语：9:系统管理：10:学生操行:11:学生管理：12:学生成绩评语:13:印象评语:14:作业评语:32界面设计与代码设计1.登陆界面设计：登陆界面代码设计:Private Sub Commandl_Click()Dim sql As String'判斷输入的用户名是否为空Dim rs.login As New ADODB. RecordsetIf Trim(txtuser.Text) = ThenMsgBox ”没有这个用户"，vbOKOnly + vbExclamation, ,M,txtuser. SetFocusElsesql = "select *

11、 from 系统管理 where 用户名& txtuser. Text & rs_login. Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_login. EOF = True ThenMsgBox "没有这个用户",vbOKOnly + vbExclamation,"" txtuser. SetFocusElse'检验密码是否正确If Trim(rs_login. Fields(D) = Trim(txtpwd. Text) ThenuserID = txtuser.

12、Textrs_login. CloseUnload Memainform. ShowElseMsgBox "密码不正确"，vbOKOnly + vbExclamation,""txtpwd. SetFocusEnd IfEnd IfEnd Ifent =t + 1Ift = 3 ThenUnload MeEnd IfExit SubEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim connectionstring As Stringconnectio

13、nstring = Hprovider=Microsoft. Jet. oledb40;"Hdata source=pingyit mdbMconn. Open connectionstringent = 0End Sub2.添加学生界面设计:添加学生代码设计：Private Sub Command1_C1ick()Dim sql As StringIf TrimCTextl. Text) = "" ThenMsgBox "学生不能为空"，vbOKOnly + vbExclamation, "uTextl. SetFocusExit

14、SubEnd IfIf Trim(Text2. Text) = "" ThenMsgBox "学号不能为空"，vbOKOnly + vbExclamation, "uText2. SetFocusExit SubEnd IfIf Trim(Text3. Text) = "" ThenMsgBox "班级不能为空",vbOKOnly + vbExclamation, "uText3. SetFocusExit SubEnd Ifsql = "select * from 学生管理"

15、;rs. CursorLocation = adUseClientrs. Open sql, conn, adOpenKeyset, adLockPessimisticWhile (rs. EOF = False)If TrimCrs. Fields(O) = Trim(Text2. Text) ThenMsgBox "学号不能重复！ "，vbOKOnly + vbExclamation, "nTextl. SetFocusTextl. TextText2. Text = H"Text3. Text = ”"Exit SubElsers. Mo

16、veNextEnd IfWendrs.AddNewrs.Fields(O) = Text2. Textrs.Fields(l) = Textl. Text rs.Fields(2) = Text3. Textrs.Updaters.CloseMsgBox "添加用户成功"，vbOKOnly + vbExclamation,""Unload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub3.查找学生界面设计:查找学生代码设计：Private Sub Command1_C1ick()Dim rs A

17、s New ADODB. RecordsetDim find As StringDim sql As StringListl. ClearListl. Additem u 学号” & Space(5) & ,M, & Space(5) & "班级”If Optionl. Value = True Thensql = nselect * from 学生管理 where 学生二& Text 1.Text &rs.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs. EOF = False

18、 Thenrs. MoveFirstWhile rs. EOF = FalseListl. Addltem rs. Fields(O) & Space(5) & rs. Fields(l) & Space(5)& rs. Fields(2)rs. MoveNextWendTextl.TextElseMsgBox "没有找到目标! ", vbOKOnly + vbExclamation,""End IfEnd IfIf 0ption2. Value = True Thensql = "select * from 学

19、生管理 where 学号& Text2.Text &rs. Open sql, conn, adOpenKeyset, adLockPessimisticIf rs. EOF = False Thenrs. MoveFirstWhile rs. EOF = FalseListl. Addltem rs. Fields(O) & Space(5) & rs. Fields(l) &Space(5) & rs. Fields(2)rs. MoveNextWendElseMsgBox "没有找到目标! ", vbOKOnly + v

20、bExclamation,""End IfEnd IfIf 0ption3. Value = True Thensql = "select * from 学生管理 where 班级"& Text3. Text &rs. Open sql, conn, adOpenKeyset, adLockPessimisticIf rs. EOF = False Thenrs. MoveFirstWhile rs. EOF = FalseListl. Addltem rs. Fields(O) & Space(5) & rs. Fiel

21、ds(l) & Space(5)& rs. Fields(2)rs. MoveNextWendText3. Text = ”"ElseMsgBox "没有找到目标! ", vbOKOnly + vbExclamation,""End IfEnd Ifrs. CloseEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Listl_Click()Dim i As LongDim sql As StringDim rsclick As New ADODB. R

22、ecordseti = CLngCListl. Listindex)ID = Left(Listl. Text, 6)If i > 0 ThenrsclickCursorLocBtion = adUseClientsql = "select * from 学生操行 where 学号& ID && " order by学期”rsclick.0pen sql, conn, adOpenKeyset, adLockPessimisticIf rsclick. EOF = False Thenrsclick MoveFirstElseExit SubE

23、nd IfWhile rsclick. EOF = FalseText4. Text = Text4. Text & vbCrLf & "第"& rsclick. Fields(l) & " 学期“ & vbCrLf & Space(2) & _rsclick. Fields(2) & vbCrLf & Space(lO) & rsclick. Fields(3) &Space(2) & rsclick. Fields(4)rsclick. MoveNextWendrs

24、click. CloseExit SubElseMsgBox "请选择学生! ", vbOKOnly + vbExclamation, u"Exit SubEnd IfEnd Sub4. 添加学生界面设计:添加学生代码设计：Private Sub Command1_C1ick()Dim sql As StringDim rs_add As New ADODB. RecordsetIf TrimCTextl. Text) = "" ThenMsgBox "用户名不能为空",vbOKOn 1 y + vbExc 1 amat i

25、 on,""Exit SubTextl. SetFocusElsesql = "select * from 系统管理"rs_add. Open sql, conn, adOpenKeyset, adLockPessimisticWhile (rs_add. EOF = False)If Trim(rs_add. Fields(O) = TrimCTextl. Text) ThenTextl. SetFocusTextl. TextText3. TextExit SubElsers_add. MoveNextEnd IfWendIf Trim(Text2.

26、Text) <> Trim(Text3. Text) ThenMsgBox "两次密码不一致"，vbOKOnly + vbExclamation,Text2. SetFocusText2. Text ="”Text3. TextExit SubElsers_add. AddNewrs_add. Fields(O) = Textl. Textrs_add. Fields(l) = Text2. Textrs_add. Updaters_add. CloseUnload MeEnd IfEnd IfEnd Sub5. 修改密码界面设计:回区:输入新密码:确

27、认密码：:职消修改界面代码设计:Private Sub Commandl_Click()Dim rs.chang As New ADODB. RecordsetDim sql As StringIf Trim(Textl. Text) <> Trim(Text2. Text) ThenMsgBox "密码不一致! ", vbOKOnly + vbExclamation, "uText1. SetFocusTextl. TextText2. TextElsesql = nselect * from 系统管理 where 用户名二& userID

28、&rs_chang.0pen sql, conn, adOpenKeyset, adLockPessimisticrs_chang. Fields(l) = Textl. Textrs_chang Updaters_chang. CloseMsgBox "密码修改成功"，vbOKOn 1 y + vbExc lamat i on,""Unload MeEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub6. 主界面设计:/ 直倉 Q爲 昼册X C卜II 恕囹呂答脅巳T 1酝iOS 占1

29、S36O z 11E20评语顶目管誉 评语牡护 学生管理 系线管理字生信层字生 Label2学号 Label4班级 LabelG学生评港历年评邀恭加朝评谱学豈姓名学昌Li 511List2主界面代码设计：Option ExplicitDim rsl As New ADODB. RecordsetDim cat As New adox.CatalogDim tbl As New adox.tableDim list2state As Boolean'标记 list2 的状态Dim ID_num As String'记录学号Dim txttbl As String'记录当前

30、评语项目名称Dim txtfield As String'记录当前项目分支名称Dim strl As String'记录当前评语项目Dim str2 As String记录当前项目中类别Dim selstu As BooleanDim selxm As BooleanDim xing As StringPrivate mnode As NodePrivate Sub write_Click()End SubPrivate Sub addnewpyxm_C1i ck()Command9_ClickEnd SubPrivate Sub addpy_Click()Command4_C

31、lickEnd SubPrivate Sub addstudent.C1i ck()FormL ShowPrivate Sub addstupy_Click()Command10_ClickEnd SubPrivate Sub adduser_Click()Form3 ShowEnd SubPrivate Sub addxmfl_Click()Command12_ClickEnd SubPrivate Sub changepwd_Click()Form4. ShowEnd SubPrivate Sub Combol_Click()Dim caoxing As Stringcaoxing = C

32、ombol. TextTextl(l).Text = Textl(l).Text & "操行评定"& caoxingPrivate Sub Commandl_Click()Textl(l). Text = Textl(l). Text & vbCrLf & DateEnd SubPrivate Sub CommandlO_Click()If seistu = True ThenCommand1. Enabled = TrueCommand2. Enabled = TrueCommand7. Enabled = TrueCommand8 .En

33、abled = TrueCommand14. Enabled = TrueCombo1. Enabled = TrueSSTabl. TabEnabled(l) = TrueCommand10. Enabled = FalseListl. Enabled = FalseSSTabl. Tab = 1ElseMsgBox "请选择学生！ "，vbOKOnly + vbExclamation,""End IfPrivate Sub Commandll_Click()Dim answer As StringDim delxm As StringDim tabl

34、e As New tableDim ind As IntegerIf TreeViewl. Selectedltem. Children > 0 Thendelxm = TreeView1. Selectedltem.Textanswer = MsgBoxC'确定要删除这一项吗？”，vbYesNo,"")If answer = vbYes Thencat. Tables. Delete (delxm)ind = TreeViewl. Selectedltem IndexTreeView LN odes. Remove (ind)ElseExit SubEnd

35、IfElseMsgBox ”请选择要删除的项目!而不是项目分类!", vbOKOnly,"Exit SubEnd IfExit SubPrivate Sub Command12_Click()Dim flname As StringDim tbl As tableDim sql As StringDim rs As New ADODB. RecordsetDim xmname As StringDim ind As IntegerDim nod As NodeSet nod = TreeViewl. Selectedltemfl name = InputBoxC'输

36、入项目分类名称"，"增加项目分类")If flname = "" ThenMsgBox ”分类名称不能为空厂,vbOKOn 1 y, ” ”Exit SubElsexmname = TreeViewl. Selectedltem .Textind = TreeView1. Selectedltem Indexcat. Tables(xmname). Columns .Append flname, adVarWChar, 255mnode .Text = flnameEnd IfElseMsgBoxn只能在项目中添加分类，请单击要添如分类的项目名

37、称! vbOKOnly,If IIEnd IfEnd SubPrivate Sub Command13_Click()Dim flname As StringDim answer As StringDim xmname As StringDim ind As IntegerIf InStr(TreeViewl. Selected Item. Ful IPath, 'A1') = 0 ThenMsgBox ”请选择要删除的项目分类!而不是项目名称! ", vbOKOnly, "uExit SubElsexmname = TreeView1. SelectedI

38、tem .Parent .Textind = TreeViewl. Selectedltem Indexflname = TreeView1. Selectedltem .Textanswer = MsgBox("确定要删除这一项吗？"，vbYesNo,"删除项目分类")If answer = vbYes Thencat.Tables(xmname). Columns Delete flnameTreeViewl. Nodes .Remove indEnd IfExit SubEnd SubPrivate Sub Commandl4_Click()Tex

39、tKD.TextEnd SubPrivate Sub Commandl5_Click()Listl.ClearDim refreshstu As New ADODB. RecordsetDim sql As Stringrefreshstu. CursorLocation = adUseClientsql = "select * from学生管理oi'der by学号"打开学生管理数据表，在 列表框中显示所有的学生refreshstu.Open sql, conn, adOpenKeyset, adLockPessimisticWhile refreshstu. E

40、OF = FalseListl. Addltem refreshstu. Fields(l) & ""&refreshstu. Fields(O)refreshstu. MoveNextWendrefreshstu. ClosePrivate Sub Command2_Click()xing = InputBoxC输入老师姓或：")Textl(l). Text = Textl(l). Text & vbCrLf & Space(12) & xing & "老师"End SubPrivate Sub

41、 Command3_Click()Dim i As Integeri = List2. ListindexIf TextKD.Text 二小 ThenTextl(l).Text = Space(2) & Textl(l).Text & List2.TextElse& List2. TextTextl(l). Text = Textl(l). TextEnd IfEnd SubPrivate Sub Command4_Click()Dim rs As New ADODB. RecordsetDim sql As StringDim str As String'记录

42、用户输入Dim prompt As String'函数参数prompt”在 “ + strl + 中的"+ str2 + ”类别中添加新的评语：”str = InputBox(prompt, H 添加新评语”)List2. AddItem (str)sql = "select " & str2 & ” from " & strlrs. Open sql, conn, adOpenKeyset, adLockPessimisticrs.AddNewrs.Fields(str2) = strrs.Updaters. Close

43、End SubPrivate Sub Command5_Click()Dim rs As New ADODB. RecordsetDim sql As StringDim i As IntegerDim str As String'记录用户输入Dim prompt As String'函数参数prompt ="修改 “” + strl + ” 中的 “” + str2 + ” 类别评语："& List2. Textstr = InputBox(prompt,"修改评语")If str = "" ThenExit

44、 SubElse i = List2ListindexList2 RemoveI tern (List2. List index)List2. AddItem strsql = "select " & str2 & ” from " & strlrs.Open sql, conn, adOpenKeyset, adLockPessimisticrs. Move irs. Fields(str2) = strrs Updaters. CloseEnd IfEnd SubPrivate Sub Command6_Click()Dim rs As

45、 New ADODB. RecordsetDim sql As StringDim i As IntegerDim answer As String'记录用户输入Dim prompt As String'函数参数prompt确实要删除此条评语吗？"answer = MsgBoxCprompt, vbYesNo, n 删除评语")If answer = vbYes Theni = List2. ListindexList2 RemoveItem (List2. Listindex)sql = nselect ” & str2 & H from

46、n & strlrs.Open sql, conn, adOpenKeyset, adLockPessimisticrs. Move irs. Deleters Updaters. CloseEnd IfEnd SubPrivate Sub Command7_Click()Dim rs As New ADODB. RecordsetDim sql As Stringrs. CursorLocation = adUseClientsql = "select * from 学生操行 where 学号& ID_num && "order by学期”

47、rs.Open sql, conn, adOpenKeyset, adLockPessimisticDim ex As Stringrs. AddNewrs. Fields(O) = ID_numrs. Fields(l) = xq + 1rs. Fields(3) = Date rs. Fields(4) = xing + "老师" ex = Replace(Textl (1). Text, Date, 11M)ex = Rep lace (ex, xing + ” 老师","")rs.Fields(2) = exrs. Updaters.

48、CloseCommandL Enabled = FalseConimand2 .Enabled = FalseCommand7. Enabled = FalseConimand8 .Enabled = FalseCommand14. Enabled = FalseCombo1. Enabled = FalseSSTabl. TabEnabled(l) = FalseCommand10. Enabled = TrueListl. Enabled = TrueEnd SubPrivate Sub Conimand8_Click()Listl. Enabled = TrueCommand10. En

49、abled = TrueCommandL Enabled = FalseConimand2 .Enabled = FalseCommand7. Enabled = FalseCommand8 .Enabled = FalseCommand14. Enabled = FalseCombo1. Enabled = FalseEnd SubPrivate Sub Command9_Click()Dim xmname As StringDim rs As New ADODB. RecordsetDim table As New tableDim tbl As tableDim field As Str

50、ingDim str As StringOn Error GoTo adderror添加评语项目")xmname = InputBoxC输入新评语项目名称"If xmname = "" ThenMsgBox "项目名称不能为空! ”, vbOKOnly,Exit SubElseIf RightCxmname, 2)="评语"Then table. Name = xmnameElsetableName = xmname + H ifi吾"End Ifcat. Tables. Append tableTreeView1

51、. Nodes. ClearFor Each tbl In cat. Tablesstr = tbl. NameIf RightCstr, 2)="评语” ThenSet mnode = TreeViewl. NodesAdd()mnode .Text = strDim i As IntegerDim nodeindex As Integernodeindex = mnode IndexFor i = 0 To tbl. Columns. Count - 1Set mnode = TreeViewl. NodesAdd(nodeindex, tvwChild) mnode.Text

52、= tbl.ColumnsItem(i). NameNextEnd IfNextEnd IfExit Subadderror:MsgBox Err. Description, vbOKOnly + vbExclamation,End SubPrivate Sub delpy_Click()Command6_ClickEnd SubPrivate Sub delstudent_Click()Dim answer As StringDim i As IntegerDim II) As StringDim sql As StringDim rsdelstu As New ADODB. Records

53、etID = Labe14. Captioni = Listl. ListindexIf seistu = True Thenanswer = MsgBoxC确定要删除此学生吗？ ”，vbYesNo, ,u)If answer = vbYes Thensql = "select * from 学生管理 where 学号& ID &rsdelstit CursorLocation = adUseClientrsdelstilOpen sql, conn, adOpenKeyset, adLockPessimisticrsdelstit Deletersdelstit U

54、pdate rsdelstu. CloseListL RemoveItem iEnd IfElseMsgBox "请选择要删除的学生! ", vbOKOnly + vbExclamation,"End IfExit SubEnd SubPrivate Sub delxmfl_Click()Command13_ClickEnd SubPrivate Sub exitsys_Click()Unload MeEnd SubPrivate Sub f i ndstudent_C1i ck()Form2. ShowEnd SubPrivate Sub Form_Load()

55、Dim connectionstring As StringDim sql As StringOn Error GoTo openerrorrsl.CursorLocation = adUseClientsql = "select * from学生管理oi'der by学号"打开学生管理数据表，在列表框中显示所有的学生rsl.Open sql, conn, adOpenKeyset, adLockPessimisticWhile rsl. EOF = FalseListl.Addltem rsl.Fields(l) & ”"& rsl. F

56、ields(O)rsl. MoveNextWendCombo 1. Add Item "优"Combol.Addltem ” 良”Combo 1. Add Item "中"Combol.Addltem ”差”pymanage .Enabled = FalseweihupyEnabled = Falselist2state = FalsesetcommandstateSSTabl. TabEnabled(l) = FalseCommandL Enabled = FalseConimand2 .Enabled = FalseConimand8 .Enable

57、d = FalseCommand7. Enabled = FalseCommand14. Enabled = FalseCombo1. Enabled = Falseseistu = False'selxm = FalseCommand9 .Enabled = FalseCommandll. Enabled = FalseCommand13. Enabled = FalseCommand12. Enabled = FalseDim str As StringSet catActiveConnection = connTreeViewl. LabelEdit = tvwManualFor

58、 Each tbl In cat. Tablesstr = tbl. NameIf RightCstr, 2)="评语“ ThenSet mnode = TreeViewl. NodesAdd()mnode .Text = strDim i As IntegerDim nodeindex As Integernodeindex = mnode IndexFor i = 0 To tbl.ColumnsCount - 1Set mnode = TreeView1NodesAdd(nodeindex, tvwChild)mnode.Text = tbl.Columns. Item(i). NameNextEnd IfNextExit Subopenerror:MsgBox Err. DescriptionEnd SubPrivate Sub Listl_Click() Dim i As Longrsl. Requeryrsl. MoveFirsti = CLng(Listl. Listindex) rsl. Move iII)_num = rsl. Fields(O) selstu