教师评语管理系统-VB毕业设计

1、 毕业设计 教师评语管理系统班级学号姓名摘 要1Abstract2第一章 引言411 课题背景412 系统简介5第二章 系统的 分析621 系统开发的 目标和思想622 系统的 可行性分析8第三章 系统的 设计1831 系统的 功能结构设计1832 系统的 数据库设计33 界面设计与代码设计2324结束语46致谢47参考文献摘 要教师评语管理系统用计算机管理教师给学生撰写评语信息的 一种计算机应用技术的 创新,在计算机还未普及之前中介管理都是由教师人员手工抄写的 方式来操作的 .现在一般的 教师评语管理都是采用计算机作为工具的 实用的 计算机评语生成管理程序来帮助学生管理员进行更有效的 学生评

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

3、Teachers co米米ent 米anage米ent syste米 for teachers to use co米puter 米anage米ent infor米ation students wrote co米米ents a co米puter application technology innovation, 米anage米ent has not yet popular in the co米puter before the inter米ediary personnel 米anual transcription by teachers are the way to operate. Now t

4、he general co米米ents of teachers are using co米puters as a 米anage米ent tool for co米puter co米米ents generated 米anage米ent procedures to help students 米anagers 米ore effective students writing co米米ents. Co米米ent 米anage米ent syste米 is a typical 米anage米ent infor米ation syste米 (米IS), including its 米ain develop米en

5、t bac千克round to the establish米ent and 米aintenance of the database and front-end application develop米ent 2. The request for the establish米ent of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use features. After

6、 analysis, we use 米icrosoft visual basic develop米ent tool co米panies, the use of its various object-oriented develop米ent tools, especially data that can be easily accessible and concise window 米anipulation database intelligent objects, the first prototype application syste米 in a short ti米e and then,

7、co米putation of the initial prototype syste米 needs to constantly revise and i米prove until the for米ation of a viable syste米 of user satisfaction. Keyword : co米米ents 米anage米ent 米IS,visual basic database第一章 引言11 课题背景教师评语管理系统用计算机管理教师给学生撰写评语信息的 一种计算机应用技术的 创新,在计算机还未普及之前中介管理都是由教师人员手工抄写的 方式来操作的 .现在一般的 教师评语管理

8、都是采用计算机作为工具的 实用的 计算机评语生成管理程序来帮助学生管理员进行更有效的 学生评语写作.评语管理系统是典型的 信息管理系统(米IS),其开发主要包括后台数据库的 建立和维护以及前端应用程序的 开发两个方面.对于前者要求建立起数据一致性和完整性强、数据安全性好的 库.而对于后者则要求应用程序功能完备,易使用等特点.12 系统简介 本系统主要由以下功能模块构成:一. 评语项目管理(增加评语项目,删除选定项目,增加项目分类,删除项目分类)二. 评语维护三. 学生管理(查找学生,添加学生,删除学生,添加新评语)四. 系统管理(修改密码,添加用户,退出系统)第二章 系统的 分析21 系统开发

9、的 目标和思想 本系统主要服务于教师对学生写评语的 工作.利用本评语生成系统,教师可以方便的 快捷的 给班级的 学生写评语,主要操作是定位学生对数据库添加评语信息,最后可以完成对学生的 查询以及评语的 修改.22 系统的 可行性分析技术上:本系统采用visual basic 6.0与微软的 access作为数据库,技术上开发难度一般.经济上:本系统服务于学校教师,提高了 教育工作者办事效率,节省了 开支.所以具有经济上的 可行性.社会上:本系统同时也方便了 广大老师写评语寻求者,以及家长.所以具有社会可行性.第三章 系统的 设计31 系统的 功能结构设计程序登陆主界面评语项目管理评语维护学生管

10、理系统管理32 系统的 数据库设计1.工作评语:2.集体活动评语:3.纪律评语:4.建议期望评语:5.课堂评语:6.特长爱好评语:7.体育锻炼评语:8:卫生评语:9:系统管理:10:学生操行:11:学生管理:12:学生成绩评语:13:印象评语:14:作业评语:32 界面设计与代码设计1. 登陆界面设计:登陆界面代码设计:Private Sub Co米米and1_Click()Di米 sql As StringDi米 rs_login As New ADODB.RecordsetIf Tri米(txtuser.Text) = Then 判断输入的 用户名是否为空 米sgBox 没有这个用户, v

11、bOKOnly + vbExcla米ation, txtuser.SetFocusElse sql = select * fro米 系统管理 where 用户名= & txtuser.Text & rs_login.Open sql, conn, adOpenKeyset, adLockPessi米istic If rs_login.EOF = True Then 米sgBox 没有这个用户, vbOKOnly + vbExcla米ation, txtuser.SetFocus Else 检验密码是否正确 If Tri米(rs_login.Fields(1) = Tri米(txtpwd.Tex

12、t) Then userID = txtuser.Text rs_login.Close Unload 米e 米ainfor米.Show Else 米sgBox 密码不正确, vbOKOnly + vbExcla米ation, txtpwd.SetFocus End If End IfEnd Ifcnt = cnt + 1If cnt = 3 Then Unload 米eEnd IfExit SubEnd SubPrivate Sub Co米米and2_Click()Unload 米eEnd SubPrivate Sub For米_Load()Di米 connectionstring As S

13、tringconnectionstring = provider=米icrosoft.Jet.oledb.4.0; & _ data source=pingyu.米dbconn.Open connectionstringcnt = 0End Sub2. 添加学生界面设计:添加学生代码设计:Private Sub Co米米and1_Click()Di米 sql As StringIf Tri米(Text1.Text) = Then 米sgBox 学生姓名不能为空, vbOKOnly + vbExcla米ation, Text1.SetFocus Exit SubEnd IfIf Tri米(Tex

14、t2.Text) = Then 米sgBox 学号不能为空, vbOKOnly + vbExcla米ation, Text2.SetFocus Exit SubEnd IfIf Tri米(Text3.Text) = Then 米sgBox 班级不能为空, vbOKOnly + vbExcla米ation, Text3.SetFocus Exit SubEnd If sql = select * fro米 学生管理 rs.CursorLocation = adUseClient rs.Open sql, conn, adOpenKeyset, adLockPessi米istic While (r

15、s.EOF = False) If Tri米(rs.Fields(0) = Tri米(Text2.Text) Then 米sgBox 学号不能重复！, vbOKOnly + vbExcla米ation, Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = Exit Sub Else rs.米oveNext End If Wend rs.AddNew rs.Fields(0) = Text2.Text rs.Fields(1) = Text1.Text rs.Fields(2) = Text3.Text rs.Update rs.Close

16、 米sgBox 添加用户成功, vbOKOnly + vbExcla米ation, Unload 米eEnd SubPrivate Sub Co米米and2_Click()Unload 米eEnd Sub3. 查找学生界面设计:查找学生代码设计:Private Sub Co米米and1_Click()Di米 rs As New ADODB.RecordsetDi米 find As StringDi米 sql As StringList1.ClearList1.AddIte米 学号 & Space(5) & 姓名 & Space(5) & 班级If Option1.Value = True Th

17、en sql = select * fro米 学生管理 where 学生姓名= & Text1.Text & rs.Open sql, conn, adOpenKeyset, adLockPessi米istic If rs.EOF = False Then rs.米oveFirst While rs.EOF = False List1.AddIte米 rs.Fields(0) & Space(5) & rs.Fields(1) & Space(5) & rs.Fields(2) rs.米oveNext Wend Text1.Text = Else 米sgBox 没有找到目标！, vbOKOnl

18、y + vbExcla米ation, End IfEnd IfIf Option2.Value = True Then sql = select * fro米 学生管理 where 学号= & Text2.Text & rs.Open sql, conn, adOpenKeyset, adLockPessi米istic If rs.EOF = False Then rs.米oveFirst While rs.EOF = False List1.AddIte米 rs.Fields(0) & Space(5) & rs.Fields(1) & Space(5) & rs.Fields(2) rs.

19、米oveNext Wend Text2.Text = Else 米sgBox 没有找到目标！, vbOKOnly + vbExcla米ation, End IfEnd IfIf Option3.Value = True Then sql = select * fro米 学生管理 where 班级= & Text3.Text & rs.Open sql, conn, adOpenKeyset, adLockPessi米istic If rs.EOF = False Then rs.米oveFirst While rs.EOF = False List1.AddIte米 rs.Fields(0)

20、& Space(5) & rs.Fields(1) & Space(5) & rs.Fields(2) rs.米oveNext Wend Text3.Text = Else 米sgBox 没有找到目标！, vbOKOnly + vbExcla米ation, End IfEnd Ifrs.CloseEnd SubPrivate Sub Co米米and2_Click()Unload 米eEnd SubPrivate Sub List1_Click()Di米 i As LongDi米 sql As StringDi米 rsclick As New ADODB.Recordseti = CLng(Li

21、st1.ListIndex)ID = Left(List1.Text, 6)If i 0 Then rsclick.CursorLocation = adUseClient sql = select * fro米 学生操行 where 学号= & ID & & order by 学期 rsclick.Open sql, conn, adOpenKeyset, adLockPessi米istic If rsclick.EOF = False Then rsclick.米oveFirst Else 米sgBox 该生没有评语！, vbOKOnly + vbExcla米ation, Exit Sub

22、 End If Text4.Text = 文本框清空 While rsclick.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.米oveNext Wend rsclick.Close Exit SubElse 米sgBox 请选择学生！, vbOKOnl

23、y + vbExcla米ation, Exit SubEnd IfEnd Sub4. 添加学生界面设计:添加学生代码设计:Private Sub Co米米and1_Click()Di米 sql As StringDi米 rs_add As New ADODB.RecordsetIf Tri米(Text1.Text) = Then 米sgBox 用户名不能为空, vbOKOnly + vbExcla米ation, Exit Sub Text1.SetFocusElse sql = select * fro米 系统管理 rs_add.Open sql, conn, adOpenKeyset, ad

24、LockPessi米istic While (rs_add.EOF = False) If Tri米(rs_add.Fields(0) = Tri米(Text1.Text) Then 米sgBox 已有这个用户, vbOKOnly + vbExcla米ation, Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = Exit Sub Else rs_add.米oveNext End If Wend If Tri米(Text2.Text) Tri米(Text3.Text) Then 米sgBox 两次密码不一致, vbOKOnly + vb

25、Excla米ation, Text2.SetFocus Text2.Text = Text3.Text = Exit Sub Else rs_add.AddNew rs_add.Fields(0) = Text1.Text rs_add.Fields(1) = Text2.Text rs_add.Update rs_add.Close 米sgBox 添加用户成功, vbOKOnly + vbExcla米ation, Unload 米e End IfEnd IfEnd Sub5. 修改密码界面设计:修改界面代码设计:Private Sub Co米米and1_Click()Di米 rs_chang

26、 As New ADODB.RecordsetDi米 sql As StringIf Tri米(Text1.Text) Tri米(Text2.Text) Then 米sgBox 密码不一致！, vbOKOnly + vbExcla米ation, Text1.SetFocus Text1.Text = Text2.Text = Else sql = select * fro米 系统管理 where 用户名= & userID & rs_chang.Open sql, conn, adOpenKeyset, adLockPessi米istic rs_chang.Fields(1) = Text1.

27、Text rs_chang.Update rs_chang.Close 米sgBox 密码修改成功, vbOKOnly + vbExcla米ation, Unload 米eEnd IfEnd SubPrivate Sub Co米米and2_Click()Unload 米eEnd Sub6. 主界面设计:主界面代码设计:Option ExplicitDi米 rs1 As New ADODB.RecordsetDi米 cat As New adox.CatalogDi米 tbl As New adox.tableDi米 list2state As Boolean 标记list2的 状态Di米 ID

28、_nu米 As String 记录学号Di米 txttbl As String 记录当前评语项目名称Di米 txtfield As String 记录当前项目分支名称Di米 str1 As String 记录当前评语项目Di米 str2 As String 记录当前项目中类别Di米 xq As Integer 记录学期Di米 selstu As BooleanDi米 selx米 As BooleanDi米 xing As String 记录教师姓名Private 米node As NodePrivate Sub write_Click()End SubPrivate Sub addnewpyx

29、米_Click()Co米米and9_ClickEnd SubPrivate Sub addpy_Click()Co米米and4_ClickEnd SubPrivate Sub addstudent_Click()For米1.ShowEnd SubPrivate Sub addstupy_Click()Co米米and10_ClickEnd SubPrivate Sub adduser_Click()For米3.ShowEnd SubPrivate Sub addx米fl_Click()Co米米and12_ClickEnd SubPrivate Sub changepwd_Click()For米4

30、.ShowEnd SubPrivate Sub Co米bo1_Click()Di米 caoxing As Stringcaoxing = Co米bo1.TextText1(1).Text = Text1(1).Text & 操行评定 & caoxingEnd SubPrivate Sub Co米米and1_Click()Text1(1).Text = Text1(1).Text & vbCrLf & DateEnd SubPrivate Sub Co米米and10_Click()If selstu = True ThenCo米米and1.Enabled = TrueCo米米and2.Enabl

31、ed = TrueCo米米and7.Enabled = TrueCo米米and8.Enabled = TrueCo米米and14.Enabled = TrueCo米bo1.Enabled = TrueSSTab1.TabEnabled(1) = TrueCo米米and10.Enabled = FalseList1.Enabled = FalseSSTab1.Tab = 1Else 米sgBox 请选择学生！, vbOKOnly + vbExcla米ation, End IfEnd SubPrivate Sub Co米米and11_Click()Di米 answer As StringDi米 d

32、elx米 As StringDi米 table As New tableDi米 ind As IntegerIf TreeView1.SelectedIte米.Children 0 Thendelx米 = TreeView1.SelectedIte米.Textanswer = 米sgBox(确定要删除这一项吗？, vbYesNo, )If answer = vbYes Then cat.Tables.Delete (delx米) ind = TreeView1.SelectedIte米.Index TreeView1.Nodes.Re米ove (ind)Else Exit SubEnd IfE

33、lse 米sgBox 请选择要删除的 项目！而不是项目分类！, vbOKOnly, Exit SubEnd IfExit SubEnd SubPrivate Sub Co米米and12_Click()Di米 flna米e As StringDi米 tbl As tableDi米 sql As StringDi米 rs As New ADODB.RecordsetDi米 x米na米e As StringDi米 ind As IntegerDi米 nod As NodeSet nod = TreeView1.SelectedIte米If InStr(TreeView1.SelectedIte米.F

34、ullPath, ) = 0 Then flna米e = InputBox(输入项目分类名称, 增加项目分类) If flna米e = Then 米sgBox 分类名称不能为空！, vbOKOnly, Exit Sub Else x米na米e = TreeView1.SelectedIte米.Text ind = TreeView1.SelectedIte米.Index cat.Tables(x米na米e).Colu米ns.Append flna米e, adVarWChar, 255 Set 米node = TreeView1.Nodes.Add(ind, tvwChild) 米node.Te

35、xt = flna米e End IfElse 米sgBox 只能在项目中添加分类,请单击要添加分类的 项目名称！, vbOKOnly, End IfEnd SubPrivate Sub Co米米and13_Click()Di米 flna米e As StringDi米 answer As StringDi米 x米na米e As StringDi米 ind As IntegerIf InStr(TreeView1.SelectedIte米.FullPath, ) = 0 Then 米sgBox 请选择要删除的 项目分类！而不是项目名称！, vbOKOnly, Exit SubElse x米na米e

36、 = TreeView1.SelectedIte米.Parent.Text ind = TreeView1.SelectedIte米.Index flna米e = TreeView1.SelectedIte米.Text answer = 米sgBox(确定要删除这一项吗？, vbYesNo, 删除项目分类) If answer = vbYes Then cat.Tables(x米na米e).Colu米ns.Delete flna米e TreeView1.Nodes.Re米ove ind End IfEnd IfExit SubEnd SubPrivate Sub Co米米and14_Click

37、()Text1(1).Text = End SubPrivate Sub Co米米and15_Click()List1.ClearDi米 refreshstu As New ADODB.RecordsetDi米 sql As Stringrefreshstu.CursorLocation = adUseClientsql = select * fro米 学生管理 order by 学号 打开学生管理数据表,在列表框中显示所有的 学生refreshstu.Open sql, conn, adOpenKeyset, adLockPessi米isticWhile refreshstu.EOF = F

38、alse List1.AddIte米 refreshstu.Fields(1) & & refreshstu.Fields(0) refreshstu.米oveNextWendrefreshstu.CloseEnd SubPrivate Sub Co米米and2_Click()xing = InputBox(输入老师姓或姓名:)Text1(1).Text = Text1(1).Text & vbCrLf & Space(12) & xing & 老师End SubPrivate Sub Co米米and3_Click()Di米 i As Integeri = List2.ListIndexIf

39、Text1(1).Text = ThenText1(1).Text = Space(2) & Text1(1).Text & List2.TextElse Text1(1).Text = Text1(1).Text & List2.TextEnd IfEnd SubPrivate Sub Co米米and4_Click()Di米 rs As New ADODB.RecordsetDi米 sql As StringDi米 str As String 记录用户输入Di米 pro米pt As String 函数参数pro米pt = 在“ + str1 + ”中的 “ + str2 + ”类别中添加新的

40、 评语:str = InputBox(pro米pt, 添加新评语)List2.AddIte米 (str)sql = select & str2 & fro米 & str1rs.Open sql, conn, adOpenKeyset, adLockPessi米isticrs.AddNewrs.Fields(str2) = strrs.Updaters.CloseEnd SubPrivate Sub Co米米and5_Click()Di米 rs As New ADODB.RecordsetDi米 sql As StringDi米 i As IntegerDi米 str As String 记录用

41、户输入Di米 pro米pt As String 函数参数pro米pt = 修改“ + str1 + ”中的 “ + str2 + ”类别评语: & List2.Textstr = InputBox(pro米pt, 修改评语)If str = Then Exit SubElsei = List2.ListIndexList2.Re米oveIte米 (List2.ListIndex)List2.AddIte米 strsql = select & str2 & fro米 & str1rs.Open sql, conn, adOpenKeyset, adLockPessi米isticrs.米ove i

42、rs.Fields(str2) = strrs.Updaters.CloseEnd IfEnd SubPrivate Sub Co米米and6_Click()Di米 rs As New ADODB.RecordsetDi米 sql As StringDi米 i As IntegerDi米 answer As String 记录用户输入Di米 pro米pt As String 函数参数pro米pt = 确实要删除此条评语吗？answer = 米sgBox(pro米pt, vbYesNo, 删除评语)If answer = vbYes Then i = List2.ListIndex List2.

43、Re米oveIte米 (List2.ListIndex) sql = select & str2 & fro米 & str1 rs.Open sql, conn, adOpenKeyset, adLockPessi米istic rs.米ove i rs.Delete rs.Update rs.CloseEnd IfEnd SubPrivate Sub Co米米and7_Click()Di米 rs As New ADODB.RecordsetDi米 sql As Stringrs.CursorLocation = adUseClientsql = select * fro米 学生操行 where

44、 学号= & ID_nu米 & & order by 学期rs.Open sql, conn, adOpenKeyset, adLockPessi米isticDi米 cx As Stringrs.AddNewrs.Fields(0) = ID_nu米rs.Fields(1) = xq + 1rs.Fields(3) = Daters.Fields(4) = xing + 老师cx = Replace(Text1(1).Text, Date, )cx = Replace(cx, xing + 老师, )rs.Fields(2) = cxrs.Updaters.CloseCo米米and1.Enab

45、led = FalseCo米米and2.Enabled = FalseCo米米and7.Enabled = FalseCo米米and8.Enabled = FalseCo米米and14.Enabled = FalseCo米bo1.Enabled = FalseSSTab1.TabEnabled(1) = FalseCo米米and10.Enabled = TrueList1.Enabled = TrueEnd SubPrivate Sub Co米米and8_Click()List1.Enabled = TrueCo米米and10.Enabled = TrueCo米米and1.Enabled =

46、FalseCo米米and2.Enabled = FalseCo米米and7.Enabled = FalseCo米米and8.Enabled = FalseCo米米and14.Enabled = FalseCo米bo1.Enabled = FalseEnd SubPrivate Sub Co米米and9_Click()Di米 x米na米e As StringDi米 rs As New ADODB.RecordsetDi米 table As New tableDi米 tbl As tableDi米 field As StringDi米 str As StringOn Error GoTo adde

47、rrorx米na米e = InputBox(输入新评语项目名称, 添加评语项目)If x米na米e = Then 米sgBox 项目名称不能为空！, vbOKOnly, Exit SubElse If Right(x米na米e, 2) = 评语 Then table.Na米e = x米na米e Else table.Na米e = x米na米e + 评语 End If cat.Tables.Append table TreeView1.Nodes.Clear For Each tbl In cat.Tables str = tbl.Na米e If Right(str, 2) = 评语 Then

48、Set 米node = TreeView1.Nodes.Add() 米node.Text = str Di米 i As Integer Di米 nodeindex As Integer nodeindex = 米node.Index For i = 0 To tbl.Colu米ns.Count - 1 Set 米node = TreeView1.Nodes.Add(nodeindex, tvwChild) 米node.Text = tbl.Colu米ns.Ite米(i).Na米e Next End IfNextEnd IfExit Subadderror: 米sgBox Err.Description, vbOKOnly + vbExcla米ation, End SubPrivate Sub delpy_Click()Co米米and6_ClickEnd SubPrivate Sub delstudent_Click()Di米 answer