教师评语管理系统的设计

毕业设计教师评语管理系统班级学号姓名目录摘要………………3Abstract……………4第一章引言………………………41．1课题背景…………………41．2系统简介…………………5第二章系统的分析………………62．1系统开发的目标和思想…………………62．2系统的可行性分析………………………6第三章系统的设计………………73．1系统的功能结构设计……………………73．2系统的数据库设计………………………73．3界面设计与代码设计……………………10结束语………………32致谢…………………33参考文献……………34摘要教师评语管理系统用计算机管理教师给学生撰写评语信息的一种计算机应用技术的创新,在计算机还未普及之前中介管理都是由教师人员手工抄写的方式来操作的.现在一般的教师评语管理都是采用计算机作为工具的实用的计算机评语生成管理程序来帮助学生管理员进行更有效的学生评语写作。评语管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。

经过分析,我们使用MICROSOFT公司的VISUALBASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。关键字:评语管理,MIS,visualbasic,数据库AbstractTeacherscommentmanagementsystemforteacherstousecomputermanagementinformationstudentswrotecommentsacomputerapplicationtechnologyinnovation,Managementhasnotyetpopularinthecomputerbeforetheintermediarypersonnelmanualtranscriptionbyteachersarethewaytooperate.Nowthegeneralcommentsofteachersareusingcomputersasamanagementtoolforcomputercommentsgeneratedmanagementprocedurestohelpstudentsmanagersmoreeffectivestudentswritingcomments.Commentmanagementsystemisatypicalmanagementinformationsystem(MIS),includingitsmaindevelopmentbackgroundtotheestablishmentandmaintenanceofthedatabaseandfront-endapplicationdevelopment2.Therequestfortheestablishmentofstrongdataconsistencyandintegrity,goodforthesecurityofthedata.Forthelatterrequestapplicationsfunctions,suchaseasytousefeatures.

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

Keyword:commentsmanagementMIS,visualbasicdatabase引言课题背景教师评语管理系统用计算机管理教师给学生撰写评语信息的一种计算机应用技术的创新,在计算机还未普及之前中介管理都是由教师人员手工抄写的方式来操作的.现在一般的教师评语管理都是采用计算机作为工具的实用的计算机评语生成管理程序来帮助学生管理员进行更有效的学生评语写作。评语管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。

系统简介本系统主要由以下功能模块构成:评语项目管理(增加评语项目,删除选定项目,增加项目分类,删除项目分类)评语维护学生管理(查找学生,添加学生,删除学生,添加新评语)系统管理(修改密码,添加用户,退出系统)系统的分析系统开发的目标和思想本系统主要服务于教师对学生写评语的工作.利用本评语生成系统,教师可以方便的快捷的给班级的学生写评语,主要操作是定位学生对数据库添加评语信息,最后可以完成对学生的查询以及评语的修改.系统的可行性分析技术上:本系统采用visualbasic6.0与微软的access作为数据库,技术上开发难度一般.经济上:本系统服务于学校教师,提高了教育工作者办事效率,节省了开支.所以具有经济上的可行性.社会上:本系统同时也方便了广大老师写评语寻求者,以及家长.所以具有社会可行性.系统的设计系统的功能结构设计程序登陆程序登陆主界面评语项目管理评语维护学生管理系统管理3．2系统的数据库设计1.工作评语:2.集体活动评语:3.纪律评语:4.建议期望评语:5.课堂评语:6.特长爱好评语:7.体育锻炼评语:8:卫生评语:9:系统管理:10:学生操行:11:学生管理:12:学生成绩评语:13:印象评语:14:作业评语:界面设计与代码设计登陆界面设计:登陆界面代码设计:PrivateSubCommand1_Click()DimsqlAsStringDimrs_loginAsNewADODB.RecordsetIfTrim(txtuser.Text)=""Then'判断输入的用户名是否为空MsgBox"没有这个用户",vbOKOnly+vbExclamation,""txtuser.SetFocusElsesql="select*from系统管理where用户名='"&txtuser.Text&"'"rs_login.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_login.EOF=TrueThenMsgBox"没有这个用户",vbOKOnly+vbExclamation,""txtuser.SetFocusElse'检验密码是否正确IfTrim(rs_login.Fields(1))=Trim(txtpwd.Text)ThenuserID=txtuser.Textrs_login.CloseUnloadMemainform.ShowElseMsgBox"密码不正确",vbOKOnly+vbExclamation,""txtpwd.SetFocusEndIfEndIfEndIfcnt=cnt+1Ifcnt=3ThenUnloadMeEndIfExitSubEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DimconnectionstringAsStringconnectionstring="provider=Microsoft.Jet.oledb.4.0;"&_"datasource=pingyu.mdb"conn.Openconnectionstringcnt=0EndSub添加学生界面设计:添加学生代码设计:PrivateSubCommand1_Click()DimsqlAsStringIfTrim(Text1.Text)=""ThenMsgBox"学生姓名不能为空",vbOKOnly+vbExclamation,""Text1.SetFocusExitSubEndIfIfTrim(Text2.Text)=""ThenMsgBox"学号不能为空",vbOKOnly+vbExclamation,""Text2.SetFocusExitSubEndIfIfTrim(Text3.Text)=""ThenMsgBox"班级不能为空",vbOKOnly+vbExclamation,""Text3.SetFocusExitSubEndIfsql="select*from学生管理"rs.CursorLocation=adUseClientrs.Opensql,conn,adOpenKeyset,adLockPessimisticWhile(rs.EOF=False)IfTrim(rs.Fields(0))=Trim(Text2.Text)ThenMsgBox"学号不能重复！",vbOKOnly+vbExclamation,""Text1.SetFocusText1.Text=""Text2.Text=""Text3.Text=""ExitSubElsers.MoveNextEndIfWendrs.AddNewrs.Fields(0)=Text2.Textrs.Fields(1)=Text1.Textrs.Fields(2)=Text3.Textrs.Updaters.CloseMsgBox"添加用户成功",vbOKOnly+vbExclamation,""UnloadMeEndSubPrivateSubCommand2_Click()UnloadMeEndSub查找学生界面设计:查找学生代码设计:PrivateSubCommand1_Click()DimrsAsNewADODB.RecordsetDimfindAsStringDimsqlAsStringList1.ClearList1.AddItem"学号"&Space(5)&"姓名"&Space(5)&"班级"IfOption1.Value=TrueThensql="select*from学生管理where学生姓名='"&Text1.Text&"'"rs.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs.EOF=FalseThenrs.MoveFirstWhilers.EOF=FalseList1.AddItemrs.Fields(0)&Space(5)&rs.Fields(1)&Space(5)&rs.Fields(2)rs.MoveNextWendText1.Text=""ElseMsgBox"没有找到目标！",vbOKOnly+vbExclamation,""EndIfEndIfIfOption2.Value=TrueThensql="select*from学生管理where学号='"&Text2.Text&"'"rs.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs.EOF=FalseThenrs.MoveFirstWhilers.EOF=FalseList1.AddItemrs.Fields(0)&Space(5)&rs.Fields(1)&Space(5)&rs.Fields(2)rs.MoveNextWendText2.Text=""ElseMsgBox"没有找到目标！",vbOKOnly+vbExclamation,""EndIfEndIfIfOption3.Value=TrueThensql="select*from学生管理where班级='"&Text3.Text&"'"rs.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs.EOF=FalseThenrs.MoveFirstWhilers.EOF=FalseList1.AddItemrs.Fields(0)&Space(5)&rs.Fields(1)&Space(5)&rs.Fields(2)rs.MoveNextWendText3.Text=""ElseMsgBox"没有找到目标！",vbOKOnly+vbExclamation,""EndIfEndIfrs.CloseEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubList1_Click()DimiAsLongDimsqlAsStringDimrsclickAsNewADODB.Recordseti=CLng(List1.ListIndex)ID=Left(List1.Text,6)Ifi>0Thenrsclick.CursorLocation=adUseClientsql="select*from学生操行where学号='"&ID&"'"&"orderby学期"rsclick.Opensql,conn,adOpenKeyset,adLockPessimisticIfrsclick.EOF=FalseThenrsclick.MoveFirstElseMsgBox"该生没有评语！",vbOKOnly+vbExclamation,""ExitSubEndIfText4.Text=""'文本框清空Whilersclick.EOF=FalseText4.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.MoveNextWendrsclick.CloseExitSubElseMsgBox"请选择学生！",vbOKOnly+vbExclamation,""ExitSubEndIfEndSub添加学生界面设计:添加学生代码设计:PrivateSubCommand1_Click()DimsqlAsStringDimrs_addAsNewADODB.RecordsetIfTrim(Text1.Text)=""ThenMsgBox"用户名不能为空",vbOKOnly+vbExclamation,""ExitSubText1.SetFocusElsesql="select*from系统管理"rs_add.Opensql,conn,adOpenKeyset,adLockPessimisticWhile(rs_add.EOF=False)IfTrim(rs_add.Fields(0))=Trim(Text1.Text)ThenMsgBox"已有这个用户",vbOKOnly+vbExclamation,""Text1.SetFocusText1.Text=""Text2.Text=""Text3.Text=""ExitSubElsers_add.MoveNextEndIfWendIfTrim(Text2.Text)<>Trim(Text3.Text)ThenMsgBox"两次密码不一致",vbOKOnly+vbExclamation,""Text2.SetFocusText2.Text=""Text3.Text=""ExitSubElsers_add.AddNewrs_add.Fields(0)=Text1.Textrs_add.Fields(1)=Text2.Textrs_add.Updaters_add.CloseMsgBox"添加用户成功",vbOKOnly+vbExclamation,""UnloadMeEndIfEndIfEndSub修改密码界面设计:修改界面代码设计:PrivateSubCommand1_Click()Dimrs_changAsNewADODB.RecordsetDimsqlAsStringIfTrim(Text1.Text)<>Trim(Text2.Text)ThenMsgBox"密码不一致！",vbOKOnly+vbExclamation,""Text1.SetFocusText1.Text=""Text2.Text=""Elsesql="select*from系统管理where用户名='"&userID&"'"rs_chang.Opensql,conn,adOpenKeyset,adLockPessimisticrs_chang.Fields(1)=Text1.Textrs_chang.Updaters_chang.CloseMsgBox"密码修改成功",vbOKOnly+vbExclamation,""UnloadMeEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub主界面设计:主界面代码设计:OptionExplicitDimrs1AsNewADODB.RecordsetDimcatAsNewadox.CatalogDimtblAsNewadox.tableDimlist2stateAsBoolean'标记list2的状态DimID_numAsString'记录学号DimtxttblAsString'记录当前评语项目名称DimtxtfieldAsString'记录当前项目分支名称Dimstr1AsString'记录当前评语项目Dimstr2AsString'记录当前项目中类别DimxqAsInteger'记录学期DimselstuAsBooleanDimselxmAsBooleanDimxingAsString'记录教师姓名PrivatemnodeAsNodePrivateSubwrite_Click()EndSubPrivateSubaddnewpyxm_Click()Command9_ClickEndSubPrivateSubaddpy_Click()Command4_ClickEndSubPrivateSubaddstudent_Click()Form1.ShowEndSubPrivateSubaddstupy_Click()Command10_ClickEndSubPrivateSubadduser_Click()Form3.ShowEndSubPrivateSubaddxmfl_Click()Command12_ClickEndSubPrivateSubchangepwd_Click()Form4.ShowEndSubPrivateSubCombo1_Click()DimcaoxingAsStringcaoxing=Combo1.TextText1(1).Text=Text1(1).Text&"操行评定"&caoxingEndSubPrivateSubCommand1_Click()Text1(1).Text=Text1(1).Text&vbCrLf&DateEndSubPrivateSubCommand10_Click()Ifselstu=TrueThenCommand1.Enabled=TrueCommand2.Enabled=TrueCommand7.Enabled=TrueCommand8.Enabled=TrueCommand14.Enabled=TrueCombo1.Enabled=TrueSSTab1.TabEnabled(1)=TrueCommand10.Enabled=FalseList1.Enabled=FalseSSTab1.Tab=1ElseMsgBox"请选择学生！",vbOKOnly+vbExclamation,""EndIfEndSubPrivateSubCommand11_Click()DimanswerAsStringDimdelxmAsStringDimtableAsNewtableDimindAsIntegerIfTreeView1.SelectedItem.Children>0Thendelxm=TreeView1.SelectedItem.Textanswer=MsgBox("确定要删除这一项吗？",vbYesNo,"")Ifanswer=vbYesThencat.Tables.Delete(delxm)ind=TreeView1.SelectedItem.IndexTreeView1.Nodes.Remove(ind)ElseExitSubEndIfElseMsgBox"请选择要删除的项目！而不是项目分类！",vbOKOnly,""ExitSubEndIfExitSubEndSubPrivateSubCommand12_Click()DimflnameAsStringDimtblAstableDimsqlAsStringDimrsAsNewADODB.RecordsetDimxmnameAsStringDimindAsIntegerDimnodAsNodeSetnod=TreeView1.SelectedItemIfInStr(TreeView1.SelectedItem.FullPath,"\")=0Thenflname=InputBox("输入项目分类名称","增加项目分类")Ifflname=""ThenMsgBox"分类名称不能为空！",vbOKOnly,""ExitSubElsexmname=TreeView1.SelectedItem.Textind=TreeView1.SelectedItem.Indexcat.Tables(xmname).Columns.Appendflname,adVarWChar,255Setmnode=TreeView1.Nodes.Add(ind,tvwChild)mnode.Text=flnameEndIfElseMsgBox"只能在项目中添加分类，请单击要添加分类的项目名称！",vbOKOnly,""EndIfEndSubPrivateSubCommand13_Click()DimflnameAsStringDimanswerAsStringDimxmnameAsStringDimindAsIntegerIfInStr(TreeView1.SelectedItem.FullPath,"\")=0ThenMsgBox"请选择要删除的项目分类！而不是项目名称！",vbOKOnly,""ExitSubElsexmname=TreeView1.SelectedItem.Parent.Textind=TreeView1.SelectedItem.Indexflname=TreeView1.SelectedItem.Textanswer=MsgBox("确定要删除这一项吗？",vbYesNo,"删除项目分类")Ifanswer=vbYesThencat.Tables(xmname).Columns.DeleteflnameTreeView1.Nodes.RemoveindEndIfEndIfExitSubEndSubPrivateSubCommand14_Click()Text1(1).Text=""EndSubPrivateSubCommand15_Click()List1.ClearDimrefreshstuAsNewADODB.RecordsetDimsqlAsStringrefreshstu.CursorLocation=adUseClientsql="select*from学生管理orderby学号"'打开学生管理数据表，在列表框中显示所有的学生refreshstu.Opensql,conn,adOpenKeyset,adLockPessimisticWhilerefreshstu.EOF=FalseList1.AddItemrefreshstu.Fields(1)&""&refreshstu.Fields(0)refreshstu.MoveNextWendrefreshstu.CloseEndSubPrivateSubCommand2_Click()xing=InputBox("输入老师姓或姓名：")Text1(1).Text=Text1(1).Text&vbCrLf&Space(12)&xing&"老师"EndSubPrivateSubCommand3_Click()DimiAsIntegeri=List2.ListIndexIfText1(1).Text=""ThenText1(1).Text=Space(2)&Text1(1).Text&List2.TextElseText1(1).Text=Text1(1).Text&List2.TextEndIfEndSubPrivateSubCommand4_Click()DimrsAsNewADODB.RecordsetDimsqlAsStringDimstrAsString'记录用户输入DimpromptAsString'函数参数prompt="在“"+str1+"”中的“"+str2+"”类别中添加新的评语："str=InputBox(prompt,"添加新评语")List2.AddItem(str)sql="select"&str2&"from"&str1rs.Opensql,conn,adOpenKeyset,adLockPessimisticrs.AddNewrs.Fields(str2)=strrs.Updaters.CloseEndSubPrivateSubCommand5_Click()DimrsAsNewADODB.RecordsetDimsqlAsStringDimiAsIntegerDimstrAsString'记录用户输入DimpromptAsString'函数参数prompt="修改“"+str1+"”中的“"+str2+"”类别评语："&List2.Textstr=InputBox(prompt,"修改评语")Ifstr=""ThenExitSubElsei=List2.ListIndexList2.RemoveItem(List2.ListIndex)List2.AddItemstrsql="select"&str2&"from"&str1rs.Opensql,conn,adOpenKeyset,adLockPessimisticrs.Moveirs.Fields(str2)=strrs.Updaters.CloseEndIfEndSubPrivateSubCommand6_Click()DimrsAsNewADODB.RecordsetDimsqlAsStringDimiAsIntegerDimanswerAsString'记录用户输入DimpromptAsString'函数参数prompt="确实要删除此条评语吗？"answer=MsgBox(prompt,vbYesNo,"删除评语")Ifanswer=vbYesTheni=List2.ListIndexList2.RemoveItem(List2.ListIndex)sql="select"&str2&"from"&str1rs.Opensql,conn,adOpenKeyset,adLockPessimisticrs.Moveirs.Deleters.Updaters.CloseEndIfEndSubPrivateSubCommand7_Click()DimrsAsNewADODB.RecordsetDimsqlAsStringrs.CursorLocation=adUseClientsql="select*from学生操行where学号='"&ID_num&"'"&"orderby学期"rs.Opensql,conn,adOpenKeyset,adLockPessimisticDimcxAsStringrs.AddNewrs.Fields(0)=ID_numrs.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.CloseCommand1.Enabled=FalseCommand2.Enabled=FalseCommand7.Enabled=FalseCommand8.Enabled=FalseCommand14.Enabled=FalseCombo1.Enabled=FalseSSTab1.TabEnabled(1)=FalseCommand10.Enabled=TrueList1.Enabled=TrueEndSubPrivateSubCommand8_Click()List1.Enabled=TrueCommand10.Enabled=TrueCommand1.Enabled=FalseCommand2.Enabled=FalseCommand7.Enabled=FalseCommand8.Enabled=FalseCommand14.Enabled=FalseCombo1.Enabled=FalseEndSubPrivateSubCommand9_Click()DimxmnameAsStringDimrsAsNewADODB.RecordsetDimtableAsNewtableDimtblAstableDimfieldAsStringDimstrAsStringOnErrorGoToadderrorxmname=InputBox("输入新评语项目名称","添加评语项目")Ifxmname=""ThenMsgBox"项目名称不能为空！",vbOKOnly,""ExitSubElseIfRight(xmname,2)="评语"Thentable.Name=xmnameElsetable.Name=xmname+"评语"EndIfcat.Tables.AppendtableTreeView1.Nodes.ClearForEachtblIncat.Tablesstr=tbl.NameIfRight(str,2)="评语"ThenSetmnode=TreeView1.Nodes.Add()mnode.Text=strDimiAsIntegerDimnodeindexAsIntegernodeindex=mnode.IndexFori=0Totbl.Columns.Count-1Setmnode=TreeView1.Nodes.Add(nodeindex,tvwChild)mnode.Text=tbl.Columns.Item(i).NameNextEndIfNextEndIfExitSubadderror:MsgBoxErr.Description,vbOKOnly+vbExclamation,""EndSubPrivateSubdelpy_Click()Command6_ClickEndSubPrivateSubdelstudent_Click()DimanswerAsStringDimiAsIntegerDimIDAsStringDimsqlAsStringDimrsdelstuAsNewADODB.RecordsetID=Label4.Captioni=List1.ListIndexIfselstu=TrueThenanswer=MsgBox("确定要删除此学生吗？",vbYesNo,"")Ifanswer=vbYesThensql="select*from学生管理where学号='"&ID&"'"rsdelstu.CursorLocation=adUseClientrsdelstu.Opensql,conn,adOpenKeyset,adLockPessimisticrsdelstu.Deletersdelstu.Updatersdelstu.CloseList1.RemoveItemiEndIfElseMsgBox"请选择要删除的学生！",vbOKOnly+vbExclamation,""EndIfExitSubEndSubPrivateSubdelxmfl_Click()Command13_ClickEndSubPrivateSubexitsys_Click()UnloadMeEndSubPrivateSubfindstudent_Click()Form2.ShowEndSubPrivateSubForm_Load()DimconnectionstringAsStringDimsqlAsStringOnErrorGoToopenerrorrs1.CursorLocation=adUseClientsql="select*from学生管理orderby学号"'打开学生管理数据表，在列表框中显示所有的学生rs1.Opensql,conn,adOpenKeyset,adLockPessimisticWhilers1.EOF=FalseList1.AddItemrs1.Fields(1)&""&rs1.Fields(0)rs1.MoveNextWendCombo1.AddItem"优"Combo1.AddItem"良"Combo1.AddItem"中"Combo1.AddItem"差"pymanage.Enabled=Falseweihupy.Enabled=Falselist2state=FalsesetcommandstateSSTab1.TabEnabled(1)=FalseCommand1.Enabled=FalseCommand2.Enabled=FalseCommand8.Enabled=FalseCommand7.Enabled=FalseCommand14.Enabled=FalseCombo1.Enabled=Falseselstu=False'selxm=FalseCommand9.Enabled=FalseCommand11.Enabled=FalseCommand13.Enabled=FalseCommand12.Enabled=FalseDimstrAsStringSetcat.ActiveConnection=connTreeView1.LabelEdit=tvwManualForEachtblIncat.Tablesstr=tbl.NameIfRight(str,2)="评语"ThenSetmnode=TreeView1.Nodes.Add()mnode.Text=strDimiAsIntegerDimnodeindexAsIntegernodeindex=mnode.IndexFori=0Totbl.Columns.Count-1Setmnode=TreeView1.Nodes.Add(nodeindex,tvwChild)mnode.Text=tbl.Columns.Item(i).NameNextEndIfNextExitSubopenerror:MsgBoxErr.DescriptionEndSubPrivateSubList1_Click()DimiAsLongrs1.Requeryrs1.MoveFirsti=CLng(List1.ListIndex)rs1.MoveiID_num=rs1.Fields(0)selstu=TruedisplaystudentdisplaypyEndSubPublicSubdisplaystudent()Label2.Caption=rs1.Fields(1)Label4.Caption=rs1.Fields(0)Label6.Caption=rs1.Fields(2)EndSubPublicSubdisplaypy()DimrsAsNewADODB.RecordsetDimsqlAsStringDimcntAsIntegerDimiAsIntegerOnErrorGoTodisplaypyerrorrs.CursorLocation=adUseClientsql="select*from学生操行where学号='"&ID_num&"'"&"orderby学期"rs.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs.EOF=FalseThenrs.MoveFirstElseMsgBox"该生没有评语！",vbOKOnly+vbExclamation,""ExitSubEndIfText1(0).Text=""'文本框清空Whilers.EOF=FalseText1(0).Text=Text1(0).Text&vbCrLf&"第"&rs.Fields(1)&"学期"&vbCrLf&Space(2)&_rs.Fields(2)&vbCrLf&Space(10)&rs.Fields(3)&Space(2)&rs.Fields(4)rs.MoveNextWendrs.MovePreviousxq=rs.Fields(1)rs.CloseExitSubdisplaypyerror:MsgBoxErr.DescriptionEndSubPrivateSubList2_Click()weihupy.Enabled=TrueEndSubPrivateSubmodifypyxm_Click()Command11_ClickEndSubPrivateSubTreeView1_NodeClick(ByValNodeAsMSComctlLib.Node)OnErrorGoToclickerrorDimiAsIntegerDimrsAsNewADODB.RecordsetDimsqlAsStringi=TreeView1.SelectedItem.Indexpymanage.Enabled=TrueDimaAsIntegerCommand9.Enabled=TrueCommand11.Enabled=TrueCommand12.Enabled=TrueCommand13.Enabled=TrueIfTreeView1.SelectedItem.Children>0Thentxttbl=TreeView1.SelectedItem.TextIfTreeView1.SelectedItem.Expanded=TrueThenTreeView1.SelectedItem.Expanded=FalseElseTreeView1.SelectedItem.Expanded=TrueEndIfElseIfInStr(TreeView1.SelectedItem.FullPath,"\")<>0Thentxttbl=TreeView1.SelectedItem.Parent.Texttxtfield=TreeView1.SelectedItem.Textstr1=txttblstr