VB学生信息管理(整理)

1、学生信息管理系统1课程设计目的目的是进一步培养我们综合应用Visual Basic 的各种编程知识和技巧进行程序设计的能力。通过课程设计，我们能达到具备设计功能较为复杂的Windows 应用程序的能力。同时，通过课程设计，培养我们自主学习和独立创新的精神，是人才培养体系中极为重要 的一环。随着高校规模的不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长， 庞大学生信息的管理工作成了高校教案管理工作中的一项重要任务，一方面，假如遵从以 往旧式的工作方式，该工作的工作量大，管理繁琐，既耗人力，又耗物力；另一方面，由 于计算机技术的飞速发展及应用的普及，学生信息管理这样烦琐的工作更需要由计算

2、机来 完成。因此开发一套对学生信息进行管理的软件是极其重要的，而且是必需的，通过这样 的系统，可以做到信息的规范管理、科学统计和快速的查询，从而减少管理方面的工作 量。学生信息管理系统是典型的信息管理系统（MIS）,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数 据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。针对高校现在存在的学生成绩管理的弊端和基本流程，设计了学生成绩管理系统，实 现学生成绩管理的电子化，减轻管理人员的负担。利用这一系统，管理人员能够更好的对 现有的学生成绩进行管理，也方便了学生自己查询成绩，同

3、时可以避免人为错误。本模块 实现的主要功能有专业信息、班级信息、学生信息及课程安排、成绩查询的功能。系统采 用 Visual basic 高级语言进行程序编制，以 SQL Server 2000 数据库为后台数据库。希望通过这次课程更清楚地了解自己的知识水平。充分的认识到自己真实情况。都说 要想把学到的理论知识彻底的变成自己的东西就要不断地学习不停的实践，只有彻底明白 的道理和它的一切结构才不至于学的一知半解。通过这次学生信息系统的设计，希望自己 能把以前不会的东西学会，然后把自己会的东西能充分的运用到实际课程设计当中，做出 理想的效果。彻底的把知识学透而不是把知识学死板了，自己做这次课程设计

4、一定会让我 得到很多我在课堂上多学不到的东西。更好的完善自己，为以后的学习生活以及工作奠定 良好的基础。2学生信息管理系统分析与设计2.1 可行性分析由于本系统管理的对象单一，都是在校学生，且每个数据内容具有较强的关联性，涉 及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微 机都是奔腾 3以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度 方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的 功能，因此完全可以实现。数据库是 MIS 中的重要支持技术，在 MIS 开发过程中，如何 选择数据库管理是一个重要的问题，目前，数据

5、库产品较多，每种产品都具有各自的特点 和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用 的数据库语言介绍如下： Visual Basic 是一种可视化的、面对对象和调用事件驱动方式的结构化高级程序设计，可用于开发Win dows 环境下的种类应用程序。它简单易学、效率高，且功能强大。在 Visual Basic 环境下，利用事件驱动的编程机制、新颖易用的可视化 设计工具，可以高效、快速地开发出Win dows 环境下功能强大、图形界面丰富的应用软件系统。2.2 系统功能分析此学生信息管理信息系统是面向大学的管理系统，其目的是对学校内的学生，班级，和其它信息进行统一

6、有序的管理。班级管理信息的输入，包括班级设置、年级的设置等；班级管理信息管理的查询；班 级管理信息的修改；学校基本课程信息的输入；基本课程信息的修改；学生课程信息的设 置和修改；学生成绩信息的输入；学生成绩信息的修改；学生成绩信息的查询；学生成绩 信息的统计。1） 系统安全性操作员在登录界面输入操作员帐号及密码进入主页面进行相应操作，加强了此系统的 安全可靠性。2） 主页界面采用视窗的风格，点击菜单可以进入相应的界面，对其进行相应的操作。既方便又实用3） 专业信息管理对所有专业信息查询，并能直接实现添加记录、删除记录、刷新、打印报表等功能。专业信息表包括的字段：专业号、专业名。4） 班级信息管

7、理对所有班级信息查询，并能直接实现添加记录、删除记录、打印报表及刷新等功能。班级信息表包括的字段：班级号，专业号5） 学生信息管理对全体学生信息查询，或某个学生信息查询，并能直接实现添加记录、删除记录、打印 报表及刷新等功能。学生表包括的字段：学号、姓名、性别、出生日期、政治面貌、专 业号、班级号。6） 课程安排管理对所有课程具体安排信息进行查询或某一科单独查询，且也能够实现添加、删除记录、 打印报表及刷新等功能。课程表包括的字段：课程号、课程名、专业号、开课学期、学 时、教师编号。7） 成绩查询管理对全体的学生所有的科目成绩进行查询，也能单独对某一个学生某一科进行查询并能实 现添加、删除记录

8、、打印报表及刷新，还有就是能统计出补考的学生的名单及数量。成 绩表包括的字段：学号、姓名、课程号、课程名、成绩、考核、教师编号、专业号、班 级号。2.3 系统功能模块分析上述各功能的系统功能模块图如图 1图 1 系统功能模块2.4 数据库分析数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对 应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可提高数据存储的效 率，保证数据的完整和一致。同时，合理的数据库结构也将有利于程序的实现。数据库需求分析用户的需求具体体现在各种信息的提供、保证、更新和查询，这就要求数据库结构能 够充分满足各种信息的输出和输入。针对一般学生

9、信息管理系统的要求，通过对学生学习过程的内容和数据流程分析，设计如 下的数据项和数据结构：1) .学生基本信息：包括的数据项有：学生学号、学生姓名、性别、出身日期、班号、联系 电话、入校日期、家庭地址、备注等。2).班级信息：包括的数据项有：班号、所在年级、班主任姓名、所在教室等。3) .课程基本信息：包括的数据项有：课程号、课程名称、课程类别、课程描述等。4) .课程设置信息：包括数据项有：年级信息、所学课程等。5) .学生成绩信息：包括数据项有：考试编号、所在班号、学生学号、学生姓名、所学课 程、考试分数等。根据上面的数据结构、数据项和数据流程，进行数据库设计。3详细设计3.1 学生信息管

10、理系统主窗体的创建(1) .创建一个工程名为 Student_Mis 的工程文件 Student_Mis.vbp。(2) .创建学生信息管理系统的主窗体MID 窗体，窗体名为 frmMain，窗体文件名为:frmMain.frm。创建主窗体的菜单，利用菜单设计器来设置住窗体如下图所示。图2主窗体菜单表 1 主菜单结果表对象属性属性值对象属性属性值主菜单项1名称sysMe nu子菜单项2名称modifyci on foMe nu标题系统标题修改班级信息子菜单项1名称adduserMenu主菜单项4名称courseMe nu标题添加用户标题课程设置子菜单项2名称modifypwdMe nu子菜单项

11、1名称addcourseMe nu标题修改密码标题添加课程设计子菜单项3名称exitMe nu子菜单项2名称modifycourseMe nu标题退出系统标题修改课程信息主菜单项2名称sin foMe nu子菜单项3名称gradecourseMe nu标题学籍信息标题设计年级课程子菜单项1名称adds in foMe nu主菜单项5名称resultMe nu标题添加学籍信息标题成绩管理子菜单项2名称modifysi nfoMe nu子菜单项1名称addresultMe nu标题修改学籍信息标题添加成绩信息子菜单项3名称inq uires in foMe nu 子菜单项2名称modifyresu

12、ltMe nu标题查询学籍信息标题修好学籍信息主菜单项3名称class in foMe nu子菜单项3名称inq uireresultMe nu标题班级管理标题查询成绩信息子菜单项1名称addci nfoMe nu标题添加班级信息3.2 系统用户管理模块的创建系统用户管理模块主页实现：用户登陆；用户添加；修改用户密码3.2.1 用户登陆窗体的创建进入系统后出现如图 3 所示用户登陆窗体，用户首先输入用户名，然后输入密码。如果用 户 3 次输入密码不正确，将退出程序。图 3 系统登录界面3.2.2 成绩管理模块的创建(1) 成绩管理模块功能分析成绩管理模块主要实现如下功能：添加成绩信息；修改成绩

13、信 息；查询成绩信息。成绩信息管理模块图如下图所示。图 4 成绩信息管理模块界面设计时添加窗体，添加相关控件，设置控件的相关属性来完成界面的设计要求， 然后调整控件的排版问题，让整体达到美观的效果。界面的设计以及属性的设置如下图所 示。图 5 界面设计及属性设置3.2.3 添加成绩信息窗体的创建选择成绩管理添加成绩信息”菜单，将出现如图所示的窗体。图 6 添加成绩信息打开添加成绩界面之后，可以通过系统添加考试编号、选择学生所在的班级、添加学 生的学号、姓名、考试的课程科目以及考试所得的分数。添加完事之后如果没有错误和实 际相符合就可以单击 确认添加”按钮把刚刚录入的成绩及学生信息保存到系统当中

14、。方便 以后用户的查询。如果发现在录入信息的时候不小心录入了错误信息，可以修改录入的信 息，或者用户单击取消添加”按钮取消添加信息。控件属性的设置：根据以上的操作界面，在设计时候创建窗体，往窗体当中添加相关的控件，调整控件 的位置以达到美观优雅的设计效果，添加控件的同时也要在设计界面把把各个控件的相关 属性按照设计要求目的来设置好，窗体中各种控件的属性列成表格的形式，如下表所示。表 2 控件属性控件属性属性取值控件属性属性取值FrmAddgradeNameFrmAddgradeLabel1Capti on考试编号(Form)Capti on添加成绩信息Comma nd2NameComma nd

15、2MIDChil d TrueCapti on取消添加txtTest noNametxtTest noLabel2Capti on选择班号comboGradeNamecomboGradeLabel3Capti on选择学号txtDirectorNametxtDirectorLabel4Capti on姓名txtn ameNametxt nameLable15Capti on选择课程Comma nd1NameComma nd1Lable16Capti on输入分数Capti on确定添加3 2 4 修改成绩信息窗体的创建这个窗体在添加成绩信息窗体的基础上又增加了两排按钮，查看成绩信息和修改成绩信

16、息。如 7 图所示。方便了用户的相关操作。图 7 修改成绩信息控件的属性设置：在设计操作界面的时候来设置相关控件的属性设置，修改框架的标题，让人看了之后就 知道该操作界面是用来做什么的，设置该框架的 Caption 属性为修改成绩信息”其他一些空 间的属性按照设计要求和目的来分别设置。具体控件的属性设置如下表所示。表 3 控件属性控件属性属性取值控件属性属性取值FrmCha ngeNameFrmCha ngeLabel1Capti on考试编号(Form)Capti on修改成绩信息Comma ndNameComma nd3MIDChil dTrue3Capti on取消修改记录txtTest

17、 noNametxtTest noComma ng4Capti on删除记录comboGradeNamecomboGradeLabel2Capti on选择班号txtDirectorNametxtDirectorLabel3Capti on选择学号txtn ameNamext nameLabel4Capti on姓名Comma nd1Capti on修改记录Lable15Capti on选择课程Comma nd2Capti on更新数据 vLable16Capti on输入分数当需要修改学生成绩信息的时候可以通过打开系统的如上界面来对成绩信息进行查看 和修改，点击查看成绩信息栏里面的第一条记录

18、”按钮或者其他几个按钮可以根据点击按钮的不同来跳转到相关的界面来显示想要的信息。如果系统当中的数据需要做相关的修改 时，点击修改成绩信息栏里面的按钮来修改当前系统当中的记录，更新数据，删除不想保 存在数据库中的信息，如果不是想要修改数据和更新数据库信息可以单击取消修改记录”按钮来放弃刚刚所作出的操作。3 2 5 查询成绩信息窗体的创建新建一个 Form 窗体，在窗体上加入一个 Data 控件，其 DatabaseName 属性设置连接 到数库，RecordSource 属性连接到数据库中的相关表。在窗体上加入两个 Frame 控件，在 一个上放置 3wh TextBox 控件，3 个 Labe

19、l 控件，其 Caption 属性分别设为 按学号”按姓 名”按课程”。设置有复选框。在另一个 Frame 控件上放置 2 个 CommandButton 控件，其 Caption 属性分别设置为 查询”、退出查询”。完成后的整个界面如下图所示。图 8 查询成绩信息进入系统的查询成绩信息界面以后， 可以按照不同的方式来查询想要查看的同学的成 绩信息。该系统分为按学号查询学生的成绩信息，输入学生的学号之后，然后单击查询”按钮跳转到下一界面，即为查询学生的成绩信息。按姓名查询学生成绩信息，如截图当中 显示的即为通过按姓名的方式来查询数据库中已有的学生成绩信息。在按姓名文本框当中 输入 张三”然后单

20、击 查询”按钮即可以跳到张三的成绩相关信息界面。查询完毕之后通过 单击 退出查询”按钮来退出该模块。图中即为数据库中有的关于张三的成绩信息，考试编 号、张三的学号、班级号、所考试的课程名称，和该科目的考试成绩。再有按课程名称来 查看学生成绩信息。手动输入课程名称来查询相关的成绩信息。4设计体会在本系统的开发过程中，由于本人是初次开发软件，在知识、经验方面都存在着不 足。因此，该系统必然会存在一些缺陷。因为对学生信息管理的整个流程的熟悉程度还不 够深刻，在需求分析时未能做到完全满足用户的需求。虽然网络在学生成绩管理系统中的 应用不是很多，在本次开发过程由于硬件的限制，未能实现网络功能。尽管本管理

21、系统存在着很多不足，但其功能还是比较全面的、易于日后程序更新、数 据库管理容易、界面友好、操作方便、效率高、安全性好等优点是本管理系统所必需的。 相信本学生管理系统是一套学校在日常管理中必不可少的管理软件，通过开发这个系统， 掌握了信息管理设计过程。加强了对Visual Basic 6.0 的学习，巩固了基本知识，提高了自学能力。在这次毕业设计中的最大收获并不仅是掌握了开发工具的应用，而是学会了设 计系统的思维方法，以及与同学们之间相互帮助的精神。总之在这次设计中我知道了很 多，获得了很多。有了这次的学生系统的课程设计，让我在课堂上学到的书本理论知识得到了更好理 解。更进一步巩固了自己的知识，

22、没有这次课程设计，自己一直以为自己学的还算很好一 半知识自己都会，但是在做课设的时候发现有很多东西运用到实践当中还不我所达不到的 水平，这才发现自己会得东西只是一知半解。运用到实际当中自己的欠缺还是很大。幸好 很多热心的室友和同学以及老师的帮助，自己通过查阅丰富的图书资源，搜索丰富的网络 资源，设计界面，设置各种控件的属性，编写相关的代码。反复的调试程序才算把这个学 生信息管理的系统做完。虽然刚开始时候因为很多东西不会烦躁，无从下手。但是程序最 后调试出来那一瞬间，真的很高兴。课程设计完成了，首先非常感谢学校给我们这次机会，让我们扩大了知识量，弥补 了知识的欠缺，进一步完善了自我。忠心的感谢老

23、师在设计过程中对我孜孜不倦的教导， 使我的设计顺利完成。我还要感谢我的同学们，在这一阶段给了我极大的帮助。参考文献1 刘天慧等编著.Visual Basic 程序设计教程M.北京:清华大学出版社，20062156-1852 萨师煊，王珊.数据库系统概论M,（第三版）.北京：高等教育出版社，2006.5:198-2333 梁伟等编.Visual Basic 管理信息系统工程开发实践，北京：科学出版社，2003:127-2114 程斌等编.Visual Basic 6.数据库开发指南，西安：电子科技大学出版社，2000:232-254武马群.Visual Basic 程序设计M.北京：北京工业大学

24、出版社，2005.03: 67-906 陈元春.Visual Basic 数据库编程M.北京：清华大学出版社，2007.07: 37-707 蒋加伏.Visual Basic 程序设计教程M.北京：北京邮电大学出版社，2003.11： 10-568 王国荣,VisualBasic6.0 与 Windows API 讲座M.北京:人民邮电出版社.2007.4:100-1309 刘新民，蔡琼,白康生编著.Visual Basic 6.0 程序设计M.北京:清华大学出版社.2004.3 202510 李春葆，曾平编著.数据库原理与应用M.北京：清华大学出版社.2006.1 41-7411 A Blo

25、g Mining Framework IT Professional J.卷次：11 刊期：1 January 2009 .附录：源代码学生信息管理系统主窗体代码如下：Private Sub MDIForm_Load()Me Left = GetSett in g(App.Title, Setti ngs, Mai nLeft, 1000)Me.Top = GetSett in g(App.Title, Setti ngs, Ma in Top, 1000)Me.Width = GetSetti ng(App.Title, Setti ngs, Mai nWidth, 6500)Me.Heig

26、ht = GetSetti ng(App.Title, Setti ngs, Mai nHeight, 6500)End SubPrivate Sub MDIForm_U nl oad(Ca ncel As In teger)If Me.Wi ndowState vbMi ni mized The nSaveSetti ng App.Title, Setti ngs, Mai nLeft, Me LeftSaveSetti ng App.Title, Setti ngs, Mai nTop, Me.TopSaveSetting App.Title, Settings, MainWidth, M

27、e.WidthSaveSetti ng App.Title, Setti ngs, Mai nHeight, Me.HeightEnd IfEnd SubPrivate Sub modifyci nfoMe nu_Click()frmModifyclassi nfo.ShowEnd SubPrivate Sub modifycourseMe nu _Click()frmModifycoursei nfo.ShowEnd SubPrivate Sub modifypwdMe nu_Click()frmModifyuseri nfo.ShowEnd SubPrivate Sub modifyres

28、ultMe nu_Click()frmModifyresult.ShowEnd SubPrivate Sub modifysi nfo_Me nu_Click()frmModifysi nfo.ShowEnd Sub创建公共模块。在工程资源管理器中为工程添加一个名称为Module 的标准模块文件Module.bas。代码如下：Public fMai nForm As frmMa inPublic UserName As Stri ngSub Mai n()Dim fLog in As New frmLogi nfLogi n.Show vbModalIf Not fLog in .OK The

29、 nLog in Failed so exit appEndEnd IfUni oad fLog inSet fMai nForm = New frmMa infMai nForm.ShowEnd SubPublic Function Conn ectStri ng() _As Stri ngreturns a DB Conn ectStri ngConn ectStri ng = FileDSN=stude nti nfo.ds n End Fun cti onPublic Fun ction ExecuteSQL(ByVal SQL _As Stri ng, MsgStri ng As S

30、tri ng) _As ADODB.Recordsetexecutes SQL and retur ns RecordsetDim cnn As ADODB.Co nn ectio nDim rst As ADODB. RecordsetDim sToke ns() As Stri ngOn Error GoTo ExecuteSQL_Error sToke ns = Split(SQL)Set cn n = New ADODB.Co nn ectio n cnn. Ope n Conn ectStri ngIf In Str(INSERT,DELETE,UPDATE, _ UCase$(sT

31、oke ns(0) Then cnn .Execute SQLMsgStri ng = sToke ns(0) & _query successfulElseSet rst = New ADODB. Recordset rst.Ope n Trim$(SQL), cnn, _ adOpe nKeyset, _adLockOptimisticrst.MoveLast get RecordCo untSet ExecuteSQL = rstMsgString =查询到& rst.RecordCount & _ 条记录End IfExecuteSQL_Exit:Set rst = Noth ingS

32、et cnn = Noth ing Exit Fun cti onExecuteSQL_Error:MsgString =查询错误：& _Err.Descripti onResume ExecuteSQL_ExitEnd Fun cti onPublic Fu nction Testtxt(txt As Stri ng) As Boolean If Trim(txt) = ” The nTesttxt = FalseElseTesttxt = TrueEnd IfEnd Fun cti on系统用户管理模块的创建代码如下：Option ExplicitPublic OK As Boolea n

33、记录确定次数Dim miCo unt As In tegerPrivate Sub Form_Load()OK = FalsemiCo unt = 0End SubPrivate Sub cmdCa ncel_Click()OK = FalseMe.HideEnd SubPrivate Sub cmdOK_Click()Dim txtSQL As Stri ngDim mrc As ADODB.RecordsetDim MsgText As Stri ngToDo: create test for correct passwordcheck for correct passwordUserNa

34、me =If Trim(txtUserName.Text = ) The nMsgBox 没有这个用户，请重新输入用户名！, vbOKOnly + vbExclamation,警告txtUserName.SetFocusElsetxtSQL = select * from user_I nfo where user_ID = & txtUserName.Text & ”Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = True The nMsgBox 没有这个用户，请重新输入用户名!, vbOKOnly + vbExclamation,警告tx

35、tUserName.SetFocusElseIf Trim(mrc.Fields(1) = Trim(txtPassword.Text) The nOK = Truemrc.CloseMe.HideUserName = Trim(txtUserName.Text)ElseMsgBox 输入密码不正确，请重新输入！ , vbOKOnly + vbExclamation,警告txtPassword.SetFocustxtPassword.Text =End IfEnd IfEnd IfmiCo unt = miCo unt + 1If miCou nt = 3 The nMe.HideEnd If

36、Exit SubEnd Sub成绩管理模块的创建代码如下：Private Sub Comma nd1_Click()Dim mrc As ADODB.RecordsetDim MsgText As Stri ngDim txtSQL As Stri ngIf Not Testtxt(txtClassno.Text) ThenMsgBox 请输入考试编号！ , vbOKOnly + vbExclamation,警告 txtClass no .SetFocusExit SubEnd IfIf Not Testtxt(comboGrade.Text) The nMsgBox 请选择班号！ , vbO

37、KOnly + vbExclamation,警告comboGrade.SetFocusExit SubEnd IfIf Not Testtxt(txtDirector.Text) The nMsgBox 请输入姓名！ , vbOKOnly + vbExclamation,警告txtDirector.SetFocusExit SubEnd Ifif Not Testtxt(txtClassroom.Text) The nMsgBox 请输入教室房间号！ , vbOKOnly + vbExclamation,警告txtClassroom.SetFocusExit SubEnd IfIf Not I

38、sNumeric(Trim(txtClass no.Text) The nMsgBox 请输入数字！ , vbOKOnly + vbExclamation,警告Exit SubtxtClass no .SetFocusEnd IftxtSQL = select * from class_I nfo Set mrc = ExecuteSQL(txtSQL, MsgText)mrc.MoveFirstWhile (mrc.EOF = False)If (Trim(mrc.Fields(O) = Trim(txtClass no .Text) The nMsgBox 班号已经存在，请重新输入班号！

39、, vbOKOnly + vbExclamation,警告Exit Sub txtClass no.Text = txtClass no .SetFocusElsemrc.MoveNextEnd IfWendmrc.AddNewmrc.Fields(O) = Trim(txtClass no .Text)mrc.Fields(1) = Trim(comboGrade.Text)mrc.Fields(2) = Trim(txtDirector.Text)mrc.Fields(3) = Trim(txtClassroom.Text)mrc.Updatemrc.CloseMsgBox 添加成绩信息成

40、功！ , vbOKOnly + vbExclamation,添加成绩信息End SubPrivate Sub Comma nd2_Click()Un load MeEnd Sub修改查询成绩模块代码如下：Private Sub Comma nd1_Click()If Text1.Text = The nMsgBox 请输入内容！Else输入内容不能为空Data1.Recordset.EditData1.Recordset.Fields(0) = Text2.TextData1.Recordset.Fields(1) = Text3.TextData1.Recordset.Fields (2)

41、= text4.TextData1.Recordset.Fields (3) = Text5.TextData1.Recordset.Fields=Text6.TextData1.Recordset.Fields (5) = Text7.TextData1.Recordset.Fields (6) = Text8.TextText9.Text = Str(Val(Text6.Text) + Val(Text8.Text) + Val(Text7.Text) / 3)Data1.Recordset.Fields=Text9.TextData1.Recordset.UpdateMsgBox 修改成功对数据库进行修改，并将修改后的数据存入数据库End IfEnd SubPrivate Sub Comma nd10_Click()If Trim(Text1.Text) = The nMsgBox 学号不能为空，请重新输入！, vbOKOnly + vbExclamation,警告Text1.SetFocusElse输入学号不能为空Datal.RecordSource = select * from 成绩表 where 学号=& Textl.Text & ”Datal. RefreshIf Data1.Recordset.EOF The n