《VB+SQL应用系统开发》实训报告书().doc

茂名职业技术学院VB+SQL应用系统开发实 训 报 告 书课题： 学生管理系统（VB+SQL）系 部: 计算机工程系 班 别: D11 软件应用班 学 号: 3110214122 姓 名: 李龙生 实训日期： 2012.6.11-2012.6.22 实训场地： 机房 14 指导老师: 张丽妹 成 绩： 一、摘要系统是用Visual Basic6.0和SQL Server 2000开发的，随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个管理信息系统的过程。通过分析某一学校学生管理的不足，创建了一套行之有效的计算机管理学生的方案。关键字：管理信息系统；学生管理；Visual Basic6.0和SQL Server 2000开发应用二、目录一、 摘要1二、 目录2三、 前言3四、 系统概述31.1 系统及需求分析31.2 可行性分析3五、 系统功能说明2.1 系统功能分析42.2 系统功能模块设计.4六、 数据库设计53.1数据库需求分析. . . . . 53.2数据库概念结构设计 .53.3数据库逻辑结构设计 .8七、 程序清单.10八、 测试结果.66九、 实训心得.68十、 致谢69十一、 参考文献.69十二、 附表1：每日实训安排表.70十三、 个人资料70三、前言随着计算机技术的发展和互连网时代的到来，计算机早已涉及到我们生活的各个方面，人们对于计算机的应用不再是简单的文字处理和最初的科学计算，更多的利用计算机来进行管理从而减轻我们的工作。而对于学校，Internet技术持续迅猛的发展，也给传统的办学提出了新的模式。但一直以来，学校使用传统人工的方式进行管理，这种管理方式存在着许多缺点，如：效率低、保密性差，另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护带来了不少的困难。为了提高工作效率，提高整个学校的学生信息管理水平，我们开发了这套学生信息管理系统，通过它，我们可以帮助学校、老师方便，快捷的掌握学生的情况，实现学生信息的系统化、规范化、自动化、达到提高学生信息管理效率的目的。而且此系统功能强、稳定性好、操作简单、维护方便。Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。四、系统概述本学生信息管理系统可以说是一个综合性的学校学生管理系统，这它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统、系统等多种功能，因而具有较强的实用性和先进性。1.1 系统及需求分析l 由于操作人员的计算机知识普遍较差,要求有良好的人机界面;l 由于该系统的使用对象多,要求有较好的权限管理; l 原始数据修改简单方便,支持多条件修改l 方便的数据查询，支持多条件查询;l 在相应的权限下，删除数据方便简单，数据稳定性好；l 数据计算自动完成，尽量减少人工干预;1.2 可行性分析u 对象运用可行性由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器，在存储量、速度方面都能满足数据库运行的要求。u 社会与经济可行性利用学生信息管理系统实现了无纸化办公，提高效率的同时还保护了环境。本来大量的计算、数据统计工作需要几天、甚至一个月完成的工作，可以在几个小时，最多几天内完成，大量节省了人力资本。学生信息管理系统同时也给老师和学生带来了极大的方便。老师可以将课程安排，第一时间录入到系统。学生也可以第一时间登录到该系统，查询自己本学期课程安排和考试方式，大大提高了时间成本。五、系统功能说明2.1 系统功能分析系统功能分析是在系统开发的总体任务的基础上完成的。本次实训学生信息管理系统需要完成的功能主要有：l 有关学籍等信息的输入，包括学生基本信息、所在班级、所学课程和成绩等；l 学生信息的查询，包括学生基本信息、所在班级、已学课程和成绩等；l 学生信息的修改；l 班级管理信息的输入，包括班级设置、年级信息等；l 班级管理信息的查询；l 班级管理信息的修改；l 学校基本课程信息的输入；l 基本课程信息的修改；l 学生课程的设置和修改；l 学生成绩信息的输入；l 学生成绩信息的修改；l 学生成绩信息的查询；l 学生成绩信息的统计。2.2 系统功能模块设计对上述各项功能进行集中、分块，按照结构化程序设计的要求，得到如下图所示的系统功能模块图。六、数据库设计 数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。同时，合理的数据库结构也将有利于程序的实现。设计数据库系统时应该首先了解用户各个方面的需求，包括现有的以及将来可能增加的需求。3.1 数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输入和输出。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。再仔细分析调查有关学生信息需求的基础上，将得到如下图所示的系统所处理的数据流程。学生注册基本信息输入班级设置班级管理班级课程设置课程基本信息学籍信息管理成绩信息输入班级课程管理成绩信息管理针对一般学生信息管理系统的需求，通过对学生学习过程的内容和数据流程分析，设计如下所示的数据项和数据结构。l 学生基本信息：包括学生学号、学生姓名、性别、出生日期、班号、联系电话、入校日期、家庭住址和备注等数据项。l 班级信息：包括班号、所在班级、班主任姓名、和所在教室等数据项。l 课程基本信息：包括课程号、课程名称、课程类别和课程描述等数据项。l 课程设置信息：包括年级信息和所学课程等数据项。l 学生成绩信息：包括考试编号、所在班号、学生学号、学生姓名、所学课程和考试分数等数据项。有了上面的数据结构、数据项和数据流程，就可以进行下面的数据库设计。3.2 数据库概念结构设计得到上面的数据项和数据结构后，就可以设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包括各种具体信息，通过相互之间的作用形成数据的流动。本次实训根据上面的设计规划出的实体有：学生实体、班级实体、年级实体和课程实体。各个实体具体的描述如图。学生实体图学生学号姓名性别出生日期班号入校时间家庭住址联系电话班级实体图班级班号年级班主任所在教室课程实体图课程课程号课程名课程类型课程描述年级实体图年级年级名称包括班级设置课程实体和实体之间的关系如图所示。学生班级年级课程班级设置年级设置考核过程课程设置3.3 数据库逻辑结构设计现在需要将上面的数据库概念结构转化为SQL Server 2000 数据库所支持的实际数据模型，也就是数据库的逻辑结构。在上面的实体以及实体之间的关系的基础上，形成数据库中的表格以及各个表格之间的关系。学生信息管理系统数据库中各个表格的设计结果如表所示。每个表格表示在数据库中的一个表。表1 ： class_Info 班级信息表格表2： course_Info 课程基本信息表表3： gradecourse_Info 年级课程设置表格表4： result_Info 学生成绩信息表表5： user_Info 系统用户表表6： student_Info 学生基本信息表七、程序清单下面是一个登陆窗体：代码以下：Option ExplicitPublic OK As Boolean记录确定数Dim micount As IntegerPrivate Sub cmdCancel_Click()OK = FalseMe.HideEnd SubPrivate Sub cmdOK_Click()用来存放SQL语句Dim txtSQL As String用来存放记录集对象Dim mrc As ADODB.Recordset用来存放返回信息Dim MsgText As StringUserName = If Trim(txtUserName.Text = ) ThenMsgBox 请输入用户名！, vbOKOnly + vbExclamation, 警告txtUserName.SetFocusElsetxtSQL = select * from user_info where user_ID= & txtUserName.Text & Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = True ThenMsgBox 没有这个用户，请重新输入用户名！, vbOKOnly + vbExclamation, 警告txtUserName.SetFocusElseIf Trim(mrc.Fields(1) = Trim(txtPassword.Text) ThenOK = Truemrc.CloseMe.HideUserName = Trim(txtUserName.Text)txtSQL = select * from user_info where user_ID= & txtUserName.Text & Set mrc = ExecuteSQL(txtSQL, MsgText)If Trim(mrc.Fields(2) = 管理员 ThenFrmMain.tjyh.Enabled = TrueFrmMain.tjxjxx.Enabled = TrueFrmMain.bjgl.Enabled = TrueFrmMain.kcsz.Enabled = TrueFrmMain.tjcjxx.Enabled = TrueFrmMain.xgcjxx.Enabled = TrueElseFrmMain.tjyh.Enabled = FalseFrmMain.tjxjxx.Enabled = FalseFrmMain.bjgl.Enabled = FalseFrmMain.kcsz.Enabled = FalseFrmMain.tjcjxx.Enabled = FalseFrmMain.xgcjxx.Enabled = FalseEnd IfElseMsgBox 输入密码不正确，请重新输入！, vbOKOnly + vbExclamation, 警告txtPassword.SetFocustxtPassword.Text = End IfEnd IfEnd Ifmicount = micount + 1If micount = 3 ThenMe.HideEnd IfExit SubEnd SubPrivate Sub Form_Load()OK = Falsemicount = 0End Sub下面是一个添加用户窗体：代码以下：Private Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub cmdOK_Click()Dim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringIf Trim(txtUserName(0).Text) = ThenMsgBox 请输入用户名称！, vbOKOnly + vbExclamation, 警告Exit SubtxtUserName(0).SetFocusElsetxtSQL = select * from user_infoSet mrc = ExecuteSQL(txtSQL, MsgText)While (mrc.EOF = False)If Trim(mrc.Fields(0) = Trim(txtUserName(0).Text) ThenMsgBox 用户已经存在，请重新输入用户名！, vbOKOnly + vbExclamation, 警告txtUserName(0).SetFocustxtUserName(0).Text = txtPassword1(1).Text = txtPassword2(2).Text = Exit SubElsemrc.MoveNextEnd IfWendEnd IfIf Trim(txtPassword1(1).Text) Trim(txtPassword2(2).Text) ThenMsgBox 两次输入密码不一致，请确认！, vbOKOnly + vbExclamation, 警告txtPassword1(1).SetFocustxtPassword1(1).Text = txtPassword2(2).Text = Exit SubElseIf txtPassword1(1).Text = ThenMsgBox 密码不能为空！, vbOKOnly + vbExclamation, 警告txtPassword1(1).SetFocustxtPassword1(1).Text = txtPassword2(2).Text = Elsemrc.AddNewmrc.Fields(0) = Trim(txtUserName(0).Text)mrc.Fields(1) = Trim(txtPassword1(1).Text)mrc.Fields(2) = Trim(Combo1.Text)mrc.Updatemrc.CloseMsgBox 添加用户成功！, vbOKOnly + vbExclamation, 添加用户End IfEnd IfEnd SubPrivate Sub Form_Load()Me.Width = 5040Me.Height = 4065txtUserName(0).Text = txtPassword1(1).Text = txtPassword2(2).Text = Combo1.Text = Combo1.AddItem 管理员Combo1.AddItem 客户End Sub下面是一个修改密码窗体：代码以下;Private Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub cmdOK_Click()Dim txtSQL, MsgText As StringDim mrc As ADODB.RecordsetIf Trim(txtPassword1.Text = ) ThenMsgBox 请输入新密码！, vbOKOnly + vbExclamation, 警告txtPassword1.SetFocustxtPassword1.Text = End IfIf Trim(txtPassword1.Text) Trim(txtPassword2.Text) ThenMsgBox 密码输入不一致！, vbOKOnly + vbExclamation, 警告txtPassword1.SetFocustxtPassword1.Text = ElsetxtSQL = select * from user_info where user_ID= & UserName & Set mrc = ExecuteSQL(txtSQL, MsgText)mrc.Fields(1) = txtPassword1.Textmrc.Updatemrc.CloseMsgBox 密码修改成功！, vbOKOnly + vbExclamation, 修改密码Me.HideEnd IfEnd SubPrivate Sub Form_Load()Me.Width = 4875Me.Height = 3660txtPassword1.Text = txtPassword2.Text = End Sub下面是一个添加学籍信息窗体：代码以下：Private Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub cmdOK_Click()Dim mrc As ADODB.RecordsetDim txtSQL As StringDim MsgText As String判断是否输入学号If Not Testtxt(txtSID.Text) ThenMsgBox 请输入学号！, vbOKOnly + vbExclamation, 警告txtSID.SetFocusExit SubEnd If判断是否输入姓名If Not Testtxt(txtName.Text) ThenMsgBox 请输入姓名！, vbOKOnly + vbExclamation, 警告txtName.SetFocusExit SubEnd If判断是否输入性别If Not Testtxt(ComboGender.Text) ThenMsgBox 请选择性别！, vbOKOnly + vbExclamation, 警告ComboGender.SetFocusExit SubEnd If判断是否输入出生日期If Not Testtxt(txtBorndate.Text) ThenMsgBox 请输入出生日期！, vbOKOnly + vbExclamation, 警告txtBorndate.SetFocusExit SubEnd If判断是否输入班号If Not Testtxt(ComboClassno.Text) ThenMsgBox 请选择班号！, vbOKOnly + vbExclamation, 警告ComboClassno.SetFocusExit SubEnd If判断是否输入联系电话If Not Testtxt(txtTel.Text) ThenMsgBox 请输入联系电话！, vbOKOnly + vbExclamation, 警告txtTel.SetFocusExit SubEnd If判断是否输入入校日期If Not Testtxt(txtRudate.Text) ThenMsgBox 请输入入校日期！, vbOKOnly + vbExclamation, 警告txtRudate.SetFocusExit SubEnd If判断是否输入家庭住址If Not Testtxt(txtAddress.Text) ThenMsgBox 请输入家庭住址！, vbOKOnly + vbExclamation, 警告txtAddress.SetFocusExit SubEnd IfIf Not IsNumeric(Trim(txtSID.Text) ThenMsgBox 学号请输入数字！, vbOKOnly + vbExclamation, 警告Exit SubtxtSID.SetFocusEnd IfIf Not Len(txtSID.Text) = 4 ThenMsgBox 学号请输入4位数字！, vbOKOnly + vbExclamation, 警告Exit SubtxtSID.SetFocusEnd IfIf Not IsNumeric(Trim(ComboClassno.Text) ThenMsgBox 班号请输入数字！, vbOKOnly + vbExclamation, 警告Exit SubComboClassno.SetFocusEnd IfIf Not Len(ComboClassno.Text) = 4 ThenMsgBox 班号请输入4位数字！, vbOKOnly + vbExclamation, 警告Exit SubComboClassno.SetFocusEnd IftxtSQL = select * from student_info where student_ID= & txtSID.Text & Set mrc = ExecuteSQL(txtSQL, MsgText)判断是否有重复记录If mrc.EOF = False ThenMsgBox 学号重复，请重新输入！, vbOKOnly + vbExclamation, 警告mrc.ClosetxtSID.SetFocusElsemrc.Close判断输入的出生日期是否按照格式If Not IsDate(txtBorndate.Text) ThenMsgBox 出生时间应输入日期格式（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告txtBorndate.SetFocusElsetxtBorndate = Format(txtBorndate, yyyy-mm-dd)判断输入的日期是否按照格式If Not IsDate(txtRudate.Text) ThenMsgBox 入校时间应输入日期格式（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告txtRudate.SetFocusElsetxtRudate = Format(txtRudate, yyyy-mm-dd)txtSQL = select * from student_infoSet mrc = ExecuteSQL(txtSQL, MsgText)mrc.AddNewmrc.Fields(0) = Trim(txtSID.Text)mrc.Fields(1) = Trim(txtName.Text)mrc.Fields(2) = Trim(ComboGender.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.Updatemrc.CloseMsgBox 添加学籍信息成功！, vbOKOnly + vbExclamation, 警告End IfEnd IfEnd IfEnd SubPrivate Sub Form_Load()Me.Width = 6000Me.Height = 4905txtSID.Text = txtName.Text = ComboGender.Text = txtBorndate.Text = ComboClassno.Text = txtTel.Text = txtRudate.Text = txtAddress.Text = txtComment.Text = Dim mrc As ADODB.RecordsetDim txtSQL As StringDim MsgText As StringDim i As Integer为下拉列表框添加内容ComboGender.AddItem 男ComboGender.AddItem 女txtSQL = select * from student_infoSet mrc = ExecuteSQL(txtSQL, MsgText)添加内容到列表框For i = 1 To mrc.RecordCountComboClassno.AddItem mrc.Fields(4)mrc.MoveNextNext imrc.CloseEnd Sub下面是一个修改学籍信息窗体：代码以下：Dim mrc As ADODB.Recordset定义书签，用来记录当前记录位置Dim myBookmark As Variant判断是否修改记录Dim mcclean As BooleanPrivate Sub cmdCancel_Click()使各个按钮有效cmdFirst.Enabled = TruecmdNext.Enabled = TruecmdPrevious.Enabled = TruecmdLast.Enabled = TruecmdEditt.Enabled = TruecmdDelete.Enabled = True使各个文本框失效txtName.Enabled = FalsetxtSID.Enabled = FalsetxtRudate.Enabled = FalsetxtBorndate.Enabled = FalsetxtTel.Enabled = FalsetxtComment.Enabled = FalsetxtAddress.Enabled = FalseComboClassno.Enabled = FalseComboGender.Enabled = FalsecmdUpdate.Enabled = FalsecmdCancel.Enabled = FalseMsgBox 什么都没有修改！, vbOKOnly + vbExclamation, 警告End SubPrivate Sub cmdDelete_Click()记下当前记录位置myBookmark = mrc.Bookmarkstr2$ = MsgBox(是否删除当前记录？, vbOKCancel, 删除当前记录)If str2$ = vbOK Thenmrc.MoveNextIf mrc.EOF Thenmrc.MoveFirstmyBookmark = mrc.Bookmarkmrc.MoveLastmrc.Deletemrc.Bookmark = myBookmark调用函数显示数据Call viewDataElsemyBookmark = mrc.Bookmarkmrc.MovePreviousmrc.Delete回到原来位置mrc.Bookmark = myBookmark调用函数显示数据Call viewDataEnd IfElsemrc.Bookmark = myBookmarkCall viewDataEnd IfEnd SubPrivate Sub cmdEditt_Click()Dim mrcc As ADODB.RecordsetDim txtSQL As StringDim MsgText As String使移动记录按钮失效cmdFirst.Enabled = FalsecmdNext.Enabled = FalsecmdPrevious.Enabled = FalsecmdLast.Enabled = FalsecmdEditt.Enabled = False使各个文本框有效txtName.Enabled = TruetxtSID.Enabled = TruetxtRudate.Enabled = TruetxtBorndate.Enabled = TruetxtTel.Enabled = TruetxtComment.Enabled = TruetxtAddress.Enabled = TrueComboClassno.Enabled = TrueComboGender.Enabled = TruecmdUpdate.Enabled = TruecmdCancel.Enabled = TrueEnd SubPrivate Sub cmdFirst_Click()mrc.MoveFirstCall viewDataEnd SubPrivate Sub cmdLast_Click()mrc.MoveLastCall viewDataEnd SubPrivate Sub cmdNext_Click()mrc.MoveNextIf mrc.EOF = True Thenmrc.MoveFirstEnd IfCall viewDataEnd SubPrivate Sub cmdPrevious_Click()mrc.MovePreviousIf mrc.BOF = True Thenmrc.MoveLastEnd IfCall viewDataEnd SubPrivate Sub cmdUpdate_Click()Dim txtSQL As StringDim MsgText As StringDim mrcc As ADODB.Recordset判断学号是否为空If Not Testtxt(txtSID.Text) ThenMsgBox 请输入学号！, vbOKOnly + vbExclamation, 警告txtSID.SetFocusExit SubEnd If判断姓名是否为空If Not Testtxt(txtName.Text) ThenMsgBox 请输入姓名！, vbOKOnly + vbExclamation, 警告txtName.SetFocusExit SubEnd If判断性别是否为空If Not Testtxt(ComboGender.Text) ThenMsgBox 请选择性别！, vbOKOnly + vbExclamation, 警告ComboGender.SetFocusExit SubEnd If判断出生日期是否为空If Not Testtxt(txtBorndate.Text) ThenMsgBox 请输入出生日期！, vbOKOnly + vbExclamation, 警告txtBorndate.SetFocusExit SubEnd If判断班号是否为空If Not Testtxt(ComboClassno.Text) ThenMsgBox 请选择班号！, vbOKOnly + vbExclamation, 警告ComboClassno.SetFocusExit SubEnd If判断联系电话是否为空If Not Testtxt(txtTel.Text) ThenMsgBox 请输入联系电话！, vbOKOnly + vbExclamation, 警告txtTel.SetFocusExit SubEnd If判断入校日期是否为空If Not Testtxt(txtRudate.Text) ThenMsgBox 请输入入校日期！, vbOKOnly + vbExclamation, 警告txtRudate.SetFocusExit SubEnd If判断家庭住址是否为空If Not Testtxt(txtAddress.Text) ThentxtAddress.SetFocusExit SubEnd If判断数据是否为数字If Not IsNumeric(Trim(txtSID.Text) ThenMsgBox 学号请输入数字！, vbOKOnly + vbExclamation, 警告txtSID.SetFocusExit SubEnd If判断数据是否为数字If Not IsNumeric(Trim(ComboClassno.Text) ThenMsgBox 学号请输入数字！, vbOKOnly + vbExclamation, 警告ComboClassno.SetFocusExit SubEnd If判断输入学号的位数If Not Len(txtSID.Text) = 4 ThenMsgBox 学号请输入4位数字！, vbOKOnly + vbExclamation, 警告Exit SubtxtSID.SetFocusEnd If判断输入班号的位数If Not Len(ComboClassno.Text) = 4 ThenMsgBox 学号请输入4位数字！, vbOKOnly + vbExclamation, 警告Exit SubComboClassno.SetFocusEnd If判断是否有重复记录mrc.DeletetxtSQL = select * from student_info where student_ID= & Trim(txtSID.Text) & Set mrcc = ExecuteSQL(txtSQL, MsgText)If mrcc.EOF = False ThenMsgBox 学号重复，请重新输入！, vbOKOnly + vbExclamation, 警告mrcc.ClosetxtSID.SetFocusElsemrcc.CloseIf Not IsDate(txtBorndate.Text) ThenMsgBox 出生时间应输入日期格式（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告txtBorndate.SetFocusElsetxtBorndate = Format(txtBorndate, yyyy-mm-dd)If Not IsDate(txtRudate.Text) ThenMsgBox 入校时间应输入日期格式（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告txtRudate.SetFocusElsetxtRudate = Format(txtRudate, yyyy-mm-dd)mrc.AddNewmrc.Fields(0) = Trim(txtSID.Text)mrc.Fields(1) = Trim(txtName.Text)mrc.Fields(2) = Trim(ComboGender.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.UpdateMsgBox 修改学籍信息成功！, vbOKOnly + vbExclamation, 警告使移动记录按钮有效cmdFirst.Enabled = TruecmdNext.Enabled = TruecmdPrevious.Enabled = TruecmdLast.Enabled = TruecmdEditt.Enabled = True使各个文本框失效txtName.Enabled = FalsetxtSID.Enabled = FalsetxtRudate.Enabled = FalsetxtBorndate.Enabled = FalsetxtTel.Enabled = FalsetxtComment.Enabled = FalsetxtAddress.Enabled = FalseComboClassno.Enabled = FalseComboGender.Enabled = FalsecmdUpdate.Enabled = FalsecmdCancel.Enabled = Falsemcclean = TrueEnd IfEnd IfEnd IfEnd SubPrivate Sub Form_Load()Me.Width = 7290Me.Height = 6165ComboGender.AddItem 男ComboGender.AddItem 女Dim txtSQL As StringDim MsgText As StringcmdFirst.Enabled = TruecmdNext.Enabled = TruecmdPrevious.Enabled = TruecmdLast.Enabled = TruecmdEditt.Enabled = TruecmdDelete.Enabled = TruetxtName.Enabled = FalsetxtSID.Enabled = FalsetxtRudate.Enabled = FalsetxtBorndate.Enabled = FalsetxtTel.Enabled = FalsetxtComment.Enabled = FalsetxtAddress.Enabled = FalseComboClassno.Enabled = FalseComboGender.Enabled = FalsecmdUpdate.Enabled = FalsecmdCancel.Enabled = FalsetxtSQL = select * from student_infoSet mrc = ExecuteSQL(txtSQL, MsgText)ComboClassno.AddItem mrc.Fields(4)If mrc.EOF = False Thenmrc.MoveFirstCall viewDatamyBookmark = mrc.BookmarkElseMsgBox 没有记录！, vbOKOnly + vbExclamation, 警告Exit SubEnd IfEnd SubPublic Sub viewData()txtName.Text = mrc!studen