《vb课程设计学生信息管理系统-.pdf》由会员分享，可在线阅读，更多相关《vb课程设计学生信息管理系统-.pdf（21页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、课程设计说明书NO.1 课程设计题目：学生信息管理系统1.课程设计目的根据课堂讲授内容，学生做相应的自主练习，消化课堂所讲解的内容。老师希望通过这次课程设计，让同学们更好的了解VB 软件的使用和对程序的设计。通过让同学对具体的系统进行开发，增加学生的动手能力、分析能力，增强同学的编程能力，让同学走出教室，通过实践来加深对课堂知识的理解，从而应用到实际的生活中。2.功能描述随着学校规模的不断扩大，学生的数量急剧增加，有关学生的各种信息管理也成倍增长。而对于庞大的信息量，就需要有学生信息管理系统来提高学生管理工作的效率，取代从前的手工操作。基于今后计算机的网路普及以及方便实现用户阅读及统一查询，所
2、以使用 SQL server2000做数据库系统，使用Visual Basic 作为前台处理软件建立一个学生信息管理系统。实现的功能包括：系统管理，实现的功能是对用户的管理，包括用户的注册、和身份的验证；学籍信息管理，实现学生信息的添加、修改、查询；班级信息管理，包括班级信息的添加、修改；课程信息管理，实现对课程信息的添加、修改，对年级课程的设置；成绩管理，实现对成绩的添加、修改、查询。3.概要设计系统的功能模块包括系统管理模块、学籍信息管理模块、班级信息管理模块、课程信息管理模块、成绩信息管理模块。框架图如下：图 1：学生信息管理结构图沈阳大学课程设计说明书NO.2 系统各模块的功能：系统管
3、理：实现的功能是对用户的管理，包括用户的注册、和身份的验证。学籍信息管理：实现学生信息的添加、修改、查询。班级信息管理：包括班级信息的添加、修改。课程信息管理：实现对课程信息的添加、修改，对年级课程的设置。成绩管理：实现对成绩的添加、修改、查询。4.详细设计4.1 对数据库的设计数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可提高数据存储的效率，保证数据的完整和一致。同时，合理的数据库结构也将有利于程序的实现。用户的需求具体体现在各种信息的提供、保证、更新和查询，这就要求数据库结构能够充分满足各种信息的输出和
4、输入。针对一般学生信息管理系统的要求，通过对学生学习过程的内容和数据流程分析，设计如下的数据项和数据结构：学生基本信息：包括的数据项有：学生学号、学生姓名、性别、出身日期、班号、联系电话、入校日期、家庭地址、备注等。班级信息：包括的数据项有：班号、所在年级、班主任姓名、所在教室等。课程基本信息：包括的数据项有：课程号、课程名称、课程类别、课程描述等。课程设置信息：包括数据项有：年级信息、所学课程等。学生成绩信息：包括数据项有：考试编号、所在班号、学生学号、学生姓名、所学课程、考试分数等。根据上面的数据结构、数据项和数据流程，进行以下的图表设计，如表1、表 2、表 3、表 4、表 5：沈阳大学课
5、程设计说明书NO.3 表 1：学生基本信息表字段类型宽度学生学号字符型8 学生姓名字符型8 性别字符型2 出生日期日期型8 班号整型4 联系电话字符型11 入校日期日期型8 家庭地址字符型50 备注字符型100 表 2：班级信息表字段类型宽度班号整型4 所在年级字符型10 班主任姓名字符型8 所在教室字符型10 表 3：课程基本信息表字段类型宽度课程号整型4 课程名称字符型10 课程类别字符型10 课程描述字符型50 表 4：课程设置信息表字段类型宽度年级信息字符型10 所学课程字符型10 沈阳大学课程设计说明书NO.4 表 5：学生成绩信息字段类型宽度考试编号字符型10 所在班号数字型8 学
6、生学号整型4 学生姓名字符型10 考试分数浮点数8 4.2 系统设计用 Visual Basic 来编写数据库系统客户端程序即学生信息管理系统中各功能模块。该系统包括：工程文件Student_Mis.vbp，标准模块文件Module1.bas，主窗体文件 frmMain.frm，登陆窗体文件 frmLogin.frm，添加用户窗体文件frmAdduser.frm。修改 用 户 密 码 窗 体 文 件frmModifyuserinfo.frm，添 加 学 籍 信 息 窗 体 文 件frmAddsinfo.frm，修改学籍信息窗体文件frmModifysinfo.frm，查询学籍信息窗体文件 fr
7、mInquiresinfo.frm，添加班级信息窗体文件frmAddclassinfo.frm，修改班级信息窗体文件 frmModifyclassinfo.frm，添加课程信息窗体文件frmAddcourseinfo.frm，修 改 课 程 信 息 窗 体 文 件frmModifycourseinfo.frm，设 置 年 级 课 程 窗 体 文 件frmSetcourseinfo.frm，添加成绩信息窗体文件frmAddresult.frm，修改成绩窗体文件frmModifyresult.frm，查询成绩信息窗体文件frmInquireresult.frm。4.2.1 学生信息管理系统主窗体的
8、创建（1）创建一个工程名为Student_Mis 的工程文件 Student_Mis.vbp。（2）创建学生信息管理系统的主窗体MID 窗体，窗体名为frmMain，窗体文件名为：frmMain.frm。（3）创建主窗体的菜单。沈阳大学课程设计说明书NO.5 表 6：菜单结果表对象属性属性值对象属性属性值主菜单项1 名称sysMenu 子菜单项2 名称modifycionfoMenu 标题系统标题修改班级信息子菜单项1 名称adduserMenu 主菜单项4 名称courseMenu 标题添加用户标题课程设置子菜单项2 名称modifypwdMenu 子菜单项1 名称addcourseMenu
9、 标题修改密码标题添加课程设计子菜单项3 名称exitMenu 子菜单项2 名称modifycourseMenu 标题退出系统标题修改课程信息主菜单项2 名称sinfoMenu 子菜单项3 名称gradecourseMenu 标题学籍信息标题设计年级课程子菜单项1 名称addsinfoMenu 主菜单项5 名称resultMenu 标题添加学籍信息标题成绩管理子菜单项2 名称modifysinfoMenu 子菜单项1 名称addresultMenu 标题修改学籍信息标题添加成绩信息子菜单项3 名称inquiresinfoMenu 子菜单项2 名称modifyresultMenu 标题查询学籍信
10、息标题修好学籍信息主菜单项3 名称classinfoMenu 子菜单项3 名称inquireresultMenu 标题班级管理标题查询成绩信息子菜单项1 名称addcinfoMenu 标题添加班级信息（4）创建公共模块。在工程资源管理器中为项目添加一个名称为Module 的标准模块文件。4.2.2 系统用户管理模块的创建（1）系统用户管理模块主页实现：用户登陆、用户添加、修改用户密码。用户登陆窗体的创建。进入系统后出现用户登陆窗体，用户首先输入用户名，然后输入密码。如果用户 3 次输入密码不正确，将退出程序。4.2.3学籍管理模块的创建学籍信息管理主题实现如下功能：添加学籍信息、修改学籍信息、
11、查询学校信息。通过学籍信息管理模块，能方便的对学生的学号、性别、班号、年龄、出生日期、姓名、入校日期、家庭住址、备注等进行方便的修改和添加。4.2.4 班级管理模块的创建沈阳大学课程设计说明书NO.6 班级管理模块主要实现如下功能：添加班级信息、修改班级信息。窗体中各个表的控件属性设置见下表：表 7 班级信息表控件属性属性取值控件属性属性取值FrmAddclassinfo(Form)Name FrmAddclassinfo Label1 Caption 班号Caption 添加班级信息Command2 Name Command2 MIDChild True Caption 退出按钮txtCla
12、ssno Name txtClassno Label2 Caption 年级comboGrade Name comboGrade Label3 Caption 班主任txtDirector Name txtDirector Label4 Caption 教室txtClassroom Name txtClassroom Command1 Name Command1 Caption 确定添加4.2.5课程设置模块的创建课程设置模块主要实现如下功能：添加课程信息、修改课程信息、设置年级课程。方便的进行课程的添加，主要包括课程编号、课程名称、课程类型和课程描述进行添加。通过对课程的设计，能快速的对课程
13、进行管理。4.2.6 成绩管理模块的创建成绩管理模块主要实现如下功能：添加成绩信息、修改成绩信息、查询成绩信息。通过成绩管理模块，能对学生的成绩进行方便的修改、添加。能通过学生的考试编号、学号、班号和课程对学生的成绩进行录入，方便了成绩的管理。5.效果及存在问题（1）用户登录首页图 2：用户登录沈阳大学课程设计说明书NO.7 用户登陆窗体的创建。进入系统后出现用户登陆窗体，用户首先输入用户名，然后输入密码。如果用户3 次输入密码不正确，将退出程序。（2）用户管理界面图 3：添加用户界面通过用户界面，可以进行添加用户，方便的对用户的身份进行管理。（3）学籍管理模块学籍信息管理主题实现如下功能：添
14、加学籍信息；修改学籍信息；查询学校信息。添加学籍信息窗体的创建。选择“学籍管理|添加学籍信息”菜单，将出现如图4所示的窗体。图 4：添加学生信息修改学籍信息窗体的创建。选择“学籍管理|修改学籍信息”菜单，将会出现如图5所示的窗体。这个窗体在添加学籍信息窗体的基础上增加了两排按钮。沈阳大学课程设计说明书NO.8 图 5：修改学籍信息查询学籍信息窗体的建立。选择“学籍管理|查询学籍信息”菜单，将出现如图6所示的窗体。这里可以按照各种方式以及它们的组合进行查询。图 6：查询学籍信息（4）班级管理模块班级管理模块主要实现如下功能：添加班级信息；修改班级信息。沈阳大学课程设计说明书NO.9 添加班级信息
15、窗体的创建。选择“班级管理|添加班级信息”菜单，将出现如图7所示的窗体。图 7：添加班级信息界面（5）课程设置模块课程设置模块主要实现如下功能：添加课程信息；修改课程信息；设置年级课程。添加课程信息窗体的创建。选择“课程设置|添加课程信息”菜单，将出现如图8 所示的窗体。图 8：添加课程信息界面单击“确定添加”按钮，添加班级信息。单击“取消添加”将退出程序。代码可以参照上面的添加班级信息修改课程信息窗体的创建。选择“课程设置|修改课程信息”菜单，将出现如图9所示的窗体。沈阳大学课程设计说明书NO.10 图 9：修改课程信息界面查看课程信息和修改基础信息框架中的按钮的功能，方法前面已经介绍过，参
16、照前面的内容。设置年级课程窗体的创建。选择菜单“课程设置|设置年级课程”，将出现如图 10所示的窗体。图 10：年级课程信息界面单击“确认设置”按钮，将课程设置数据保存到数据库中。单击“退出课程设置”按钮沈阳大学课程设计说明书NO.11 将推出界面。（6）成绩管理模块成绩管理模块主要实现如下功能：添加成绩信息；修改成绩信息；查询成绩信息。添加成绩信息窗体的创建。选择“成绩管理|添加成绩信息”菜单，将出现如图11 所示的窗体。图 11：添加成绩界面控件属性及代码和前面大部分窗体一样。修改成绩信息窗体的创建。如图12 图 12：修改成绩界面沈阳大学课程设计说明书NO.12 查询成绩信息窗体的创建。
17、如图13 所示图 13：添加成绩信息界面通过成绩查询，可以方便的选择各种查询的方式，例如选择按姓名查询。6.心得体会：通过对学生信息管理系统的设计，让我看到了自己的不足点，在思考问题时才真正觉得“书到用时方恨少”，到实验时才想起来翻看书本，暴露出平时学习知识不扎实，我相信自己会更专心的学习，逐步提高理论知识，从而更好的实践。通过本次课程设计我发现了自身知识的欠缺，在对资料的查询和阅读过程中学到了很多新的东西，这在很大程度上拓宽了我的知识面,锻炼了能力，使得我的综合素质得到较大提高。只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正为社会服务，从而提高自己
18、的实际动手能力和独立思考的能力。当然在课程设计过程中也发现了很多问题，有些在设计过程中已经解决，有些还要待今后慢慢学习，无论遇到多少困难，我坚信，只要不断进取，不断学习，就会不断收获。最后还要感谢同学的帮助和老师的指导，让我完成了这次课程设计。7.参考文献1 周扬，郭晓东.动态链接库技术及应用 J.电脑编程技巧与维护2 岂兴明，银华强等编著.营 Visual Basic.NET项目开发宝典 M.电子工业出版社.2002.4：88-112 3 甘仞初.信息系统开发 M.北京经济科学出版社.2003.1：216-235沈阳大学课程设计说明书NO.13 4 郝春强.新概念 VISUAL BA SIC
19、 6 教程M.工业出版社.2007.8：186-199 5 龙浩健.图书馆计算机集成系统管理及维护策略M.北京：科学出版社.2004.7：17-38 6 何 旭 洪.Visual Basic 数 据 库 开 发 实 例 导 航 M.南 京:东 南 大 学 出 版社.2002.1:310-342 8.附录（1）学生信息管理系统主窗体代码如下：Private Sub MDIForm_Load()Me.Left=GetSetting(App.Title,Settings,MainLeft,1000)Me.Top=GetSetting(App.Title,Settings,MainTop,1000)M
20、e.Width=GetSetting(App.Title,Settings,MainWidth,6500)Me.Height=GetSetting(App.Title,Settings,MainHeight,6500)End Sub Private Sub MDIForm_Unload(Cancel As Integer)If Me.WindowState vbMinimized Then SaveSetting App.Title,Settings,MainLeft,Me.Left SaveSetting App.Title,Settings,MainTop,Me.Top SaveSetti
21、ng App.Title,Settings,MainWidth,Me.Width SaveSetting App.Title,Settings,MainHeight,Me.Height End If End Sub Private Sub modifycinfoMenu_Click()frmModifyclassinfo.Show End Sub Private Sub modifycourseMenu_Click()frmModifycourseinfo.Show End Sub Private Sub modifypwdMenu_Click()frmModifyuserinfo.Show
22、End Sub Private Sub modifyresultMenu_Click()frmModifyresult.Show End Sub Private Sub modifysinfo_Menu_Click()frmModifysinfo.Show End Sub 在工程资源管理器中为项目添加一个名称为Module 的标准模块文件Module.bas。代码如下：Public fMainForm As frmMain Public UserName As String Sub Main()沈阳大学课程设计说明书NO.14 Dim fLogin As New frmLogin fLogin
23、.Show vbModal If Not fLogin.OK Then Login Failed so exit app End End If Unload fLogin Set fMainForm=New frmMain fMainForm.Show End Sub Public Function ConnectString()_ As String returns a DB ConnectString ConnectString=FileDSN=studentinfo.dsn End Function Public Function ExecuteSQL(ByVal SQL _ As St
24、ring,MsgString As String)_ As ADODB.Recordset executes SQL and returns Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens()As String On Error GoTo ExecuteSQL_Error sTokens=Split(SQL)Set cnn=New ADODB.Connection cnn.Open ConnectString If InStr(INSERT,DELETE,UPDATE,_ UCase$(s
25、Tokens(0)Then cnn.Execute SQL MsgString=sTokens(0)&_ query successful Else Set rst=New ADODB.Recordset rst.Open Trim$(SQL),cnn,_ adOpenKeyset,_ adLockOptimistic rst.MoveLast get RecordCount Set ExecuteSQL=rst MsgString=查询到&rst.RecordCount&_ 条记录 End If 沈阳大学课程设计说明书NO.15 ExecuteSQL_Exit:Set rst=Nothing
26、 Set cnn=Nothing Exit Function ExecuteSQL_Error:MsgString=查询错误:&_ Err.Description Resume ExecuteSQL_Exit End Function Public Function Testtxt(txt As String)As Boolean If Trim(txt)=Then Testtxt=False Else Testtxt=True End If End Function（2）用户登录代码如下：Option Explicit Public OK As Boolean 记录确定次数Dim miCou
27、nt As Integer Private Sub Form_Load()OK=False miCount=0 End Sub Private Sub cmdCancel_Click()OK=False Me.Hide End Sub Private Sub cmdOK_Click()Dim txtSQL As String Dim mrc As ADODB.Recordset Dim MsgText As String ToDo:create test for correct password check for correct password UserName=If Trim(txtUs
28、erName.Text=)Then MsgBox 没有这个用户，请重新输入用户名！,vbOKOnly+vbExclamation,警告 txtUserName.SetFocus Else沈阳大学课程设计说明书NO.16 txtSQL=select*from user_Info where user_ID=&txtUserName.Text&Set mrc=ExecuteSQL(txtSQL,MsgText)If mrc.EOF=True Then MsgBox 没有这个用户，请重新输入用户名!,vbOKOnly+vbExclamation,警告 txtUserName.SetFocus Els
29、e If Trim(mrc.Fields(1)=Trim(txtPassword.Text)Then OK=True mrc.Close Me.Hide UserName=Trim(txtUserName.Text)Else MsgBox 输入密码不正确，请重新输入！,vbOKOnly+vbExclamation,警告 txtPassword.SetFocus txtPassword.Text=End If End If End If miCount=miCount+1 If miCount=3 Then Me.Hide End If Exit Sub End Sub（3）学籍管理代码如下：P
30、rivate Sub Command1_Click()Dim mrc As ADODB.Recordset Dim txtSQL As String Dim MsgText As String if Not Testtxt(txtSID.Text)Then MsgBox 请输入学号！,vbOKOnly+vbExclamation,警告 txtSID.SetFocus Exit Sub End If If Not Testtxt(txtName.Text)Then MsgBox 请输入姓名！,vbOKOnly+vbExclamation,警告 txtName.SetFocus Exit Sub
31、End If If Not Testtxt(comboSex.Text)Then沈阳大学课程设计说明书NO.17 MsgBox 请选择性别！,vbOKOnly+vbExclamation,警告 comboSex.SetFocus Exit Sub End If If Not Testtxt(txtBorndate.Text)Then MsgBox 请输入出生日期！,vbOKOnly+vbExclamation,警告 txtBorndate.SetFocus Exit Sub End If If Not Testtxt(comboClassno.Text)Then MsgBox 请选择班号！,v
32、bOKOnly+vbExclamation,警告 comboClassno.SetFocus Exit Sub End If If Not Testtxt(txtTel.Text)Then MsgBox 请输入联系电话！,vbOKOnly+vbExclamation,警告 txtTel.SetFocus Exit Sub End If If Not Testtxt(txtRudate.Text)Then MsgBox 请输入入校日期！,vbOKOnly+vbExclamation,警告 txtRudate.SetFocus Exit Sub End If If Not Testtxt(txtA
33、ddress.Text)Then MsgBox 请输入家庭住址！,vbOKOnly+vbExclamation,警告 txtAddress.SetFocus Exit Sub End If If Not IsNumeric(Trim(txtSID.Text)Then MsgBox 请输入数字！,vbOKOnly+vbExclamation,警告 Exit Sub txtSID.SetFocus End If txtSQL=select*from student_Info where student_ID=&Trim(txtSID.Text)&Set mrc=ExecuteSQL(txtSQL,
34、MsgText)If mrc.EOF=False Then MsgBox 学号重复，请重新输入！,vbOKOnly+vbExclamation,警告 mrc.Close txtSID.SetFocus Else沈阳大学课程设计说明书NO.18 mrc.Close If Not IsDate(txtBorndate.Text)Then MsgBox 出生时间应输入日期格式（yyyy-mm-dd）！,vbOKOnly+vbExclamation,警告 txtBorndate.SetFocus Else txtBorndate=Format(txtBorndate,yyyy-mm-dd)If Not
35、 IsDate(txtRudate.Text)Then MsgBox 入校时间应输入日期格式（yyyy-mm-dd）！,vbOKOnly+vbExclamation,警告 txtRudate.SetFocus Else txtRudate=Format(txtRudate,yyyy-mm-dd)txtSQL=select*from student_Info Set mrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNew mrc.Fields(0)=Trim(txtSID.Text)mrc.Fields(1)=Trim(txtName.Text)mrc.Fields(2
36、)=Trim(comboSex.Text)mrc.Fields(3)=Trim(txtBorndate.Text)mrc.Fields(4)=Trim(comboClassno.Text)mrc.Fields(5)=Trim(txtTel.Text)mrc.Fields(6)=Trim(txtRudate.Text)mrc.Fields(7)=Trim(txtAddress.Text)mrc.Fields(8)=Trim(txtComment.Text)mrc.Update MsgBox 添加学籍信息成功！,vbOKOnly+vbExclamation,警告 mrc.Close Me.Hide
37、 End If End If End If End Sub Private Sub Command2_Click()Unload Me End Sub Private Sub Form_Load()Dim mrc As ADODB.Recordset Dim txtSQL As String Dim MsgText As String Dim i As Integer 沈阳大学课程设计说明书NO.19 comboSex.AddItem 男 comboSex.AddItem 女 txtSQL=select*from class_Info Set mrc=ExecuteSQL(txtSQL,Msg
38、Text)For i=1 To mrc.RecordCount comboClassno.AddItem mrc.Fields(0)mrc.MoveNext Next i mrc.Close End Sub（4）班级管理Private Sub Command1_Click()Dim mrc As ADODB.Recordset Dim MsgText As String Dim txtSQL As String If Not Testtxt(txtClassno.Text)Then MsgBox 请输入班号！,vbOKOnly+vbExclamation,警告 txtClassno.SetFo
39、cus Exit Sub End If If Not Testtxt(comboGrade.Text)Then MsgBox 请选择年级！,vbOKOnly+vbExclamation,警告 comboGrade.SetFocus Exit Sub End If If Not Testtxt(txtDirector.Text)Then MsgBox 请输入班主任姓名！,vbOKOnly+vbExclamation,警告 txtDirector.SetFocus Exit Sub End If if Not Testtxt(txtClassroom.Text)Then MsgBox 请输入教室房
40、间号！,vbOKOnly+vbExclamation,警告 txtClassroom.SetFocus Exit Sub End If If Not IsNumeric(Trim(txtClassno.Text)Then MsgBox 请输入数字！,vbOKOnly+vbExclamation,警告 Exit Sub txtClassno.SetFocus End If txtSQL=select*from class_Info 沈阳大学课程设计说明书NO.20 Set mrc=ExecuteSQL(txtSQL,MsgText)mrc.MoveFirst While(mrc.EOF=Fals
41、e)If(Trim(mrc.Fields(0)=Trim(txtClassno.Text)Then MsgBox 班号已经存在，请重新输入班号！,vbOKOnly+vbExclamation,警告 Exit Sub txtClassno.Text=txtClassno.SetFocus Else mrc.MoveNext End If Wend mrc.AddNew mrc.Fields(0)=Trim(txtClassno.Text)mrc.Fields(1)=Trim(comboGrade.Text)mrc.Fields(2)=Trim(txtDirector.Text)mrc.Field
42、s(3)=Trim(txtClassroom.Text)mrc.Update mrc.Close MsgBox 添加班级信息成功！,vbOKOnly+vbExclamation,添加班级信息 End Sub Private Sub Command2_Click()Unload Me End Sub Private Sub Form_Load()comboGrade.AddItem 初中一年级 comboGrade.AddItem 初中二年级 comboGrade.AddItem 初中三年级 comboGrade.AddItem 高中一年级 comboGrade.AddItem 高中二年级 co
43、mboGrade.AddItem 高中三年级 End Sub（5）年级课程窗体Private Sub cmdModify_Click()Dim i As Integer Dim mrc As ADODB.Recordset Dim mrcc As ADODB.Recordset Dim txtSQL As String Dim MsgText As String Dim myBookmark As Variant 沈阳大学课程设计说明书NO.21 If Not Testtxt(comboGrade.Text)Then MsgBox 请先选择年级！,vbOKOnly+vbExclamation,
44、警告 Exit Sub End If If Not Testtxt(listSelectcourse.List(0)Then MsgBox 请选择课程！,vbOKOnly+vbExclamation,警告 Exit Sub End If txtSQL=select*from gradecourse_Info where grade=&Trim(comboGrade.Text)&Set mrc=ExecuteSQL(txtSQL,MsgText)If mrc.EOF Then For i=1 To listSelectcourse.ListCount mrc.AddNew mrc.Fields(
45、0)=comboGrade.Text mrc.Fields(1)=listSelectcourse.List(i-1)mrc.Update Next i mrc.Close MsgBox 课程设置成功！,vbOKOnly+vbExclamation,警告 Else mrc.Close txtSQL=delete from gradecourse_Info where grade=&Trim(comboGrade.Text)&Set mrcc=ExecuteSQL(txtSQL,MsgText)txtSQL=select*from gradecourse_Info Set mrcc=ExecuteSQL(txtSQL,MsgText)For i=1 To listSelectcourse.ListCount mrcc.AddNew mrcc.Fields(0)=comboGrade.Text mrcc.Fields(1)=listSelectcourse.List(i-1)mrcc.Update Next i mrcc.Close MsgBox 课程设置成功！,vbOKOnly+vbExclamation,警告 End If End Sub沈阳大学