管理信息系统课程设计学生信息管理系统

管理信息系统课程设计设计报告设计名称： 学生管理系统 班 级： 信 管 031 学 号： 姓 名： 指导老师： 日 期：2006年1月4日 至 2006年 1月12日摘 要随着计算机技术的飞速发展，计算机在学生管理中应用的普及，利用计算机实现管理势在必行。我作为一个信息管理专业的大学生，希望能有所贡献。用我三年的所学编制了一个实用的程序来帮助教师们进行更有效的学生信息管理。本系统采用面向对象的程序设计思想进行编制，整个系统数据存在表格文件中，由数据库文件进行管理。并且运用信息系统分析与设计方法，应用Access数据库，Visual Basic发工具等开发出来的基于WINDOWS系列的学生管理系统。该系统面向学校和学生，实现对学生成绩管理、班级管理、奖惩管理、学籍管理。系统支持学生工作管理部门和各系工作人员、全校学生使用，支持按权限管理的查询和数十种统计报表的输出打印功能。减少了部门之间工作的中间环节，提高了跨部门管理的效率。 文章介绍了学生管理信息系统的系统分析部分，包括可行性分析、业务流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个主要模块的算法，本系统界面友好，操作简单，比较实用。【关键字】：学生管理系统，学生管理，数据库，信息系统分析，Visual Basic应用。30目录摘 要. . . . . . . . . . . . . . . . .II1.系统概述. . . . . . . . . . . . . . . . .41.1系统及需求分析41.1.1 系统需求41.1.2 可行性分析41.2系统设计的背景51.3系统的功能简介61.3.1用户管理模块(CTRL+A):61.3.2班级管理模块（CTRL+C）:61.3.3学生档案管理模块（CTRL+D）：71.3.4课程管理模块（CTRL+E）：71.3.5成绩管理模块（CTRL+F）：71.3.6奖惩管理模块（CTRL+G）：71.3.7报表打印模块（CTRL+J）：71.3.8帮助模块71.4系统开发的目标72. 系统分析. . . . . . . . . . . . . . . .82.1业务流程分析82.2数据流程分析：82.3数据存储分析：实体联系图92.4功能分析：功能层次图113.系统设计. . . . . . . . . . . . . . . .123.1软件模块结构设计12311系统方案确定12312软件结构设计123.2数据库设计144.系统的功能. . . . . . . . . . . . . . .1641系统登陆界面：1642用户管理模块：1843学藉管理模块：245. 运行及调试. . . . . . . . . . . . . . .276.全文总结. . . . . . . . . . . . . . . .28致 谢. . . . . . . . . . . . . . . . .28参考文献. . . . . . . . . . . . . . . .291.系统概述本学生信息管理系统可以说是一个综合性的学校学生管理系统，它集成了班级管理、学生学籍管理系统、学生成绩管理系统、学生档案管理系统、学生奖惩管理，因而具有较强的实用性和先进性。1.1系统及需求分析 1.1.1 系统需求 通过调查,要求系统需要有以下功能: 界面友好，易于操作； 针对不同的使用对象,要求有较好的权限管理； 能按学期、按班级完成对学生成绩的录入、修改； 能查询学生成绩，及学生名单； 能对各班级信息进行录入修改； 能按班级输出学生的成绩；1.1.2 可行性分析经济上可行性：现在，计算机的价格已经十分低廉，性能却有了长足的进步。而本系统的开发，为学校的工作效率带来了一个质的飞跃，为此主要表现有以下几个方面：第一，本系统的运行可以代替人工进行许多繁杂的劳动；第二，本系统的运行可以节省许多资源；第三，本系统的运行可以大大的提高学校的工作效率；第四，本系统可以使敏感文档更加安全，等等。所以，本系统在经济上是可行的。技术上可行性：为本系统的开发我特对我校管理系进行了深入的调查研究。现我校管理系有33个班，其中05级有7个班，04级10个班，03级有10个班,02级6个班，共有学生人数为1500多人。并且对用户的要求也都能够满足。 本系统的开发我利用Access作为本系统的数据库，它是一个支持多用户的新型数据库，适用于中小规模的数据量需求。学校的硬件建设也为新系统提供了硬件的支持。使用Visual Basic6.0作为系统开发的开发环境，它作为一种现代的编程语言，提供完善的指令控制语句、类与对象的支持及丰富的数据类型，给开发高性能系统提供的保障为开发满足客户要求的系统，保证了代码的模块化要求，而代码模块化的提高，非常有利于以后对新系统的扩展与修改。综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，因此，它在技术上是可行的。运行上可行性：本系统为一个小型的学生管理系统，所耗费的资源非常的小，学校的电脑无论是硬件还是软件都能够满足条件，因此，本系统在运行上是可行的。法律可行性：本系统纯为私人设计，在开发过程中没有涉及合同、责任等与法律相抵触的方面。因此，本系统在法律上是可行的。由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。1.2系统设计的背景本系统的设计是在Windows 98中文版操作系统环境下，使用Visual Basic 6.0中文版开发成功的。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下：Visual Basic语言Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的多种应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。电脑已经成为挂在我们嘴角的一句口头禅，它已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。Windows系统的推出使电脑从高雅的学术殿堂走入了寻常百姓家，各行各业的人们无须经过特别的训练就能够使用电脑完成许许多多复杂的工作。然而，虽然现在世界上已经充满了多如牛毛的各种软件，但它们依然不能满足用户的各种特殊需要，人们还不得不开发适合自己特殊需求的软件。我们都知道，学生管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。而使用计算机对学生信息进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生管理的效率,也是企业的科学化、正规化管理的重要途径。因此开发这样一套管理软件很有必要,在下面的各章中我将就这一套学生档案管理系统的开发,谈谈其开发过程和所涉及到的问题及解决方法。1.3系统的功能简介本系统主要可以实现以下的管理功能：学生档案管理、课程管理、成绩管理、奖惩管理等。学生管理系统是一个典型的数据库应用程序,由学生档案管理、课程管理、成绩管理、奖惩管理等模块组成,特规划如下:1.3.1用户管理模块(CTRL+A):该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户、修改密码、删除用户等等。1.3.2班级管理模块（CTRL+C）:该模块的功能是实现对全系班级的管理工作，包括：班级信息添加、班级信息修改、班级信息删除，这三个功能模块各自独立，完成班级信息的管理。1.3.3学生档案管理模块（CTRL+D）：该模块的主要功能是实现对学生的个人信息的管理工作，包括档案添加、档案修改、档案查询、删除等功能，从而方便学校管理部门对学校的基本情况的快速查询和了解。1.3.4课程管理模块（CTRL+E）：该模块对各个班级的课程进行设置，方便了学校教务处的教学管理人员的工作。该模块包括基本课程添加和班级课程设置两个模块。1.3.5成绩管理模块（CTRL+F）：学校的成绩管理工作是检验学生学习情况的一个主要手段，本模块包括成绩添加、成绩修改、成绩查询、删除等功能模块。1.3.6奖惩管理模块（CTRL+G）：奖惩管理工作是检验学生在校综合表现的一个方式，本模块包括奖项添加、学生获奖设置等到功能模块。1.3.7报表打印模块（CTRL+J）：该模块是方便管理人员打印相关信息，包括打印班级信息、学生学藉信息、学生成绩、学生获奖情况等模块。1.3.8帮助模块 该模块为首次操作该系统的人员提供了方便，它提供了有关操作的信息以及系统的版权。1.4系统开发的目标出于本系统是学校学生管理的一个综合性的系统，系统开发的总体任务是实现学生管理系统化、规范化，系统设计目标将最终定位于完成以上所述的系统主要业务的基本模型上。以提高工作效率为目的。2. 系统分析2.1业务流程分析班级管理业务流程图：学生班级班级输出教务处输入计算机班主任图21档案管理业务流程图：输出档案学生档案教务处输入计算机班主任图22课程管理业务流程图：输出教务处输入计算机教师学生课程课程图23成绩管理业务流程图：输出教务处输入计算机教师学生成绩教师图242.2数据流程分析：数据流程图：由于本系统的数据模块较多，下面仅以学生成绩管理模块为例来进行编制。学生成绩管理系统0层数据流程图：查询统计分析学生成绩管理系统学生情况学籍管理部门学生成绩教师教务处学生教师图25学生成绩管理系统1层数据流程图：成绩1.0学生管理2.0课程管理3.0成绩管理4.0统计分析学生D1课程D2D3管理部门教务教师查询管理图262.3数据存储分析：实体联系图1、数据模型设计。首先来做出学生成绩管理系统的E-R图，分析这个问题的实体，从系统分析可以知道，学生的成绩是由任课教师按照课程给出的，学生、课程、教师组成了这个系统的三个实体。2、再分析三个实体之间的联系。首先，这三个实体不是一个统一体，学生成绩与教师没有内在联系，教师必须通过课程实体才能与学生建立联系，因而先不考虑。课程与学生这两个实体是多对多联系；一位学生要学习多门课程，一门课程有多位学生共同学习。而学习成绩是这两个实体“学生”和“成绩”共有的属性，应填在二者的联系“学习”边。因为成绩既不是学生独有的，也不是课程独有的而是学生和课程二者共有的。这个E-R图可画成下图。学生管理系统中学生与课程的E-R图：mn学生课程成绩学习图27学生与班级的E-R图:mn学生班级学生人员组成图28 教师与课程的E-R图：n教师课程教学l图29 实体之间关系E-R图:nl班级组成组成人员nlmn课程成绩选修教学教师学生图210教师与课程的E-R图组合到一起，得到最后的E-R图，有了E-R图，就可以设计数据库。下图为数据模型图。实体模型数据模型lmn学习学生课程教师学习学习m课程教师学生数据库图2112.4功能分析：功能层次图学生管理登录打印报表课程管理班级程设基本课程添加成绩管理学生费浏览学生缴费添加基本学费设置学生费查询信息查询学藉管理档案查询档案添加档案浏览档案删除奖惩管理奖惩设置奖项添加用户管理添加用户退出班级管理添加班级班级浏览班级修改助图212图213.系统设计3.1软件模块结构设计311系统方案确定通过对系统的调研与分析，系统主要应完成的功能有：班级管理、学生成绩管理、学生交费管理、课程管理、成绩管理、系统管理等功能。312软件结构设计系统总体设计:cc班级课程(各班相关课程)；cf班级信息(各班的资料)；cuf课程信息(各门课程资料)；pf奖惩信息(奖惩信息)；ps奖惩情况(获奖人员情况)；sf成绩(学生成绩)；stf学生信息(学生的资料)；uf用户信息(用户名和密码)1. ufufpspssfsfcufcufstfstfufufufufcfcfSfpsSfps学生信息管理判断用户身份分配处 理用户管理班级管理学藉管理课程管理成绩管理奖惩管理打印报表输入数据识别身份帮助输入数据更新用户输入数据更新信息输入数据输入数据输入数据输入数据输入数据更新信息更新课程更新成绩更新信息打印帮助信息图31 sf sf cf stf stf cuf cuf sf sf ps ps ps ps 代码设计：学号： xx xx xxx 班级编号： xx xx 年级 专业 编号 年级 编号输出设计：a.确定输出内容：输出的内容主要是系统给出对用户进行的分析结果，其中包括用户的基本信息，选课情况，成绩单，成绩趋势表等。 b.确定输出设备及介质：我们拟定采用打印机为主要输出设备，打印出来的内容可以供以后用户随时随地查阅分析。c.确定输出格式：采用类似报表的形式输出，分表头，表体和表尾。报表的输出，可以根据用户的需求采用不同形式。对于单个用户一次性使用的表格，因为没有保留价值，可以在显示终端上输出。对于个用户需要多次使用的表格，可打印输出。需要长期保留的输出的报表，可采用磁盘文件形式输出，以便保存。输入设计：输入设计的目的是保证向系统输入正确的数据。在此前提下，应做到输入方法简单，迅速，经济，方便。所以，因该遵循最小量原则，也就是保证满足处理要求的前提下，使输入量最小，这样出错几率小；简单性原则，输入的准备，输入的过程应尽量容易，以减少错误发生。早检验原则，对数据的检验尽量接近原数据发生点，使错误能及时得到改正；少转换原则，输入数据尽量用其处理所需形式记录，以避免数据转换介质时发生错误。3.2数据库设计在关系数据库中的关系必须满足一定的要求。满足不同程度要求的为不同范式。目前主要有六种范式：第一范式、第二范式、第三范式、BC范式、第四范式和第五范式。在这六种范式中，一般只用前三种,对于常用系统就足够了。而且这五种范式是“向上兼容”的,即满足第五范式的数据结构自动满足一、二、三、四范式，满足第四范式的数据结构自动满足第一、二、三范式，依此类推。简单的介绍前三种范式。第一范式(first normal form，简称1st NF)就是指在同一表中没有重复项出现，如果有则应将重复项去掉。这个去掉重复项的过程就称之为规范化处理。在本文所讨论的开发方法里，1st NF实际上是没有什么意义的。因为我们按规范化建立的指标体系和表的过程都自动保证了所有表都满足1st NF。 第二范式(second normal form，简称 2nd NF)是指每个表必须有一个(而且仅一个)数据元素为主关键字(primary key)，其它数据元素与主关键字一一对应。即表中其它数据元素都依赖于主关键字，或称该数据元素唯一地被主关键字所标识。第三范式(third normal form，简称 3rd NF)就是指表中的所有数据元素不但要能够唯一地被主关键字所标识，而且它们之间还必须相互独立，不存在其它的函数关系。也就是说对于一个满足了 2nd NF的数据结构来说，表中有可能存在某些数据元素依赖于其它非关键字数据元素的现象，必须加以消除。此外，在这过程中要注意好表的主键、外键、用户自定义约束的条件，在模式分解过程中要尽量的保持函数依赖和无损联接。遵循上述说明，就可以设计出一个良好的关系数据库模式。考虑到我们暂时制作的是一个简单的桌面数据库系统，不需要网络的支持，因此我们采用的是access的数据库，他功能强大，简单易用。我们整个程序只需一个数据库（db.dbf），库中有8张物理表。Student表字段名类型宽度 限制student_NO文本20不能为空student_Name文本10不能为空student_Sex文本2不能为空student_Bir短日期不能为空student_Cla文本20不能为空student_Tel文本13不能为空student_Esd短日期不能为空student_Add文本60不能为空student_Rem备注不能为空class_Cour表字段名类型宽度限制class_NO文本20不能为空course_Name文本20不能为空Class表字段名类型宽度限制class_NO文本20不能为空class_Name文本10不能为空class_Teacher文本10不能为空class_Remarks文本不能为空Course表字段名类型宽度限制course_Name文本20不能为空course_Rem备注60不能为空Prize表字段名类型宽度限制prize_Name文本20不能为空prize_Rem备注60不能为空Score表字段名类型宽度限制score_NO文本14不能为空score_Per文本20不能为空score_Cla文本20不能为空score_Stu文本20不能为空score_Cou文本20不能为空score_Sco文本20不能为空prize_Stud表字段名类型宽度限制prize_NO文本14不能为空prize_Stu文本20不能为空prize_Dat短日期10不能为空prize_Nam文本20不能为空User表字段名类型宽度限制user_ID文本20不能为空user_PWD文本20不能为空user_DATE短日期不能为空4.系统的功能本部分主要内容为本系统的运行界面以及主要界面的源代码。41系统登陆界面：本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在USER表中，本系统根据不同的用户而设置了不同的权限，可以用111;111为用户名和密码来登陆本系统。Option ExplicitPrivate Declare Function GetUserName Lib advapi32.dll Alias GetUserNameA (ByVal lpbuffer As String, nSize As Long) As LongPublic OK As BooleanDim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringDim miCount As IntegerPrivate Sub Form_Load() Dim i As Integer i = 0 txtSQL = select * from user_Form Set mrc = ExecuteSQL(txtSQL, MsgText) With txtUserName Do While Not mrc.EOF i = i + 1 .AddItem Trim(mrc!user_ID) mrc.MoveNext Loop .ListIndex = i - 1 End With mrc.Close OK = False miCount = 0End SubPrivate Sub cmdCancel_Click() OK = False Me.HideEnd SubPrivate Sub cmdOK_Click() txtSQL = select * from user_Form where user_ID = & txtUserName.Text & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = True Then MsgBox 没有这个用户，请重新输入用户名!, vbOKOnly + vbExclamation, 警告 txtUserName.SetFocus Else 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 miCount = miCount + 1 If miCount = 3 Then Me.Hide End If Exit SubEnd SubPrivate Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd SubPrivate Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call cmdOK_Click End IfEnd SubPrivate Sub txtUserName_Click() txtPassword.Text = End SubPrivate Sub txtUserName_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub42用户管理模块：本模块是本系统的安全性设置模块，根据学校不同部门以及不同使用人员对本系统的要求和需要，从而实行了分级管理，对用户的权限和类别进行了分类管理。Private Sub Command1_Click() Dim txtSQL As String If Text1(0) = Then MsgBox 用户名称不能为空!, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If If Text1(1) = Then MsgBox 用户密码不能为空!, vbOKOnly, 提示 Text1(1).SetFocus Exit Sub Else If Text1(1) Text1(2) Then MsgBox 两次密码输入不同!, vbOKOnly, 提示 Text1(1) = Text1(2) = Text1(1).SetFocus Exit Sub End If End If txtSQL = select * from user_Form where user_ID= & Trim(Text1(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox 此用户名已经存在!, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If mrc.Close txtSQL = select * from user_Form Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(0) mrc.Fields(1) = Trim(Text1(1) mrc.Fields(2) = Now mrc.Update mrc.Close For i = 0 To 2 Text1(i) = Next MsgBox 用户信息添加成功!, vbOKOnly, 提示 ListappEnd SubPrivate Sub Command2_Click() Text1(0) = Text1(1) = Text1(2) = End SubPrivate Sub Command3_Click() Dim txtSQL As String If Text1(3) = Then MsgBox 请你选择用户名称!, vbOKOnly, 提示 List1.SetFocus Exit Sub End If If Text1(4) = Then MsgBox 修改密码要旧密码!, vbOKOnly, 警告 Text1(4).SetFocus Exit Sub End If If Text1(5) = Then MsgBox 新的密码不能为空!, vbOKOnly, 提示 Text1(5).SetFocus Exit Sub Else If Text1(5) Text1(6) Then MsgBox 两次密码输入不同!, vbOKOnly, 提示 Text1(5) = Text1(6) = Text1(5).SetFocus Exit Sub End If End If txtSQL = select * from user_Form where user_ID= & Trim(Text1(3) & and user_PWD= & Trim(Text1(4) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then txtSQL = delete from user_Form where user_ID= & Trim(Text1(3) & Else MsgBox 用户密码输入错误!, vbOKOnly, 警告 Text1(4).SetFocus Exit Sub End If Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = select * from user_Form Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(3) mrc.Fields(1) = Trim(Text1(5) mrc.Fields(2) = Now mrc.Update mrc.Close For i = 3 To 6 Text1(i) = Next MsgBox 用户信息修改成功!, vbOKOnly, 提示End SubPrivate Sub Command4_Click() Text1(3) = Text1(4) = Text1(5) = Text1(6) = End SubPrivate Sub Command5_Click() Dim txtSQL As String If Text1(7) = Then MsgBox 请你选择用户名称!, vbOKOnly, 提示 List1.SetFocus Exit Sub Else If Text1(7) = UserName Then MsgBox 不可以删除正在使用的用户!, vbOKOnly, 警告 Text1(7) = Text1(8) = List1.SetFocus Exit Sub End If End If If Text1(8) = Then MsgBox 删除用户需要密码!, vbOKOnly, 警告 Text1(8).SetFocus Exit Sub End If txtSQL = select * from user_Form where user_ID= & Trim(Text1(7) & and user_PWD= & Trim(Text1(8) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then txtSQL = delete from user_Form where user_ID= & Trim(Text1(7) & Else MsgBox 用户密码输入错误!, vbOKOnly, 警告 Text1(8).SetFocus Exit Sub End If Set mrc = ExecuteSQL(txtSQL, MsgText) Text1(7) = Text1(8) = MsgBox 用户信息已经删除!, vbOKOnly, 提示 ListappEnd SubPrivate Sub Command6_Click() Text1(7) = Text1(8) = End SubPrivate Sub Form_Load() Me.Caption = 用户信息-添 加 Picture1(1).Top = Picture1(0).Top Picture1(1).Left = Picture1(0).Left Picture1(2).Top = Picture1(0).Top Picture1(2).Left = Picture1(0).Left Listapp For i = 0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(0).BackColor = &HFFFFFF Picture1(0).Visible = TrueEnd SubPrivate Sub Label2_Click(Index As Integer) Me.Caption = 用户信息 Me.Caption = Me.Caption & - & Trim(Label2(Index).Caption) For i = 0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(Index).BackColor = &HFFFFFF Picture1(Index).Visible = True For i = 0 To 8 Text1(i) = NextEnd SubPrivate Sub Listapp() Dim txSQL As String Dim mrcc As ADODB.Recordset txSQL = select * from user_Form Set mrcc = ExecuteSQL(txSQL, MsgText) List1.Clear Do While Not mrcc.EOF List1.AddItem Trim(mrcc!user_ID) mrcc.MoveNext Loop mrcc.CloseEnd SubPrivate Sub List1_Click() If Picture1(1).Visible = True Then Text1(3) = List1.Text End If If Picture1(2).Visible = True Then Text1(7) = List1.Text End IfEnd SubPrivate Sub List1_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd SubPrivate Sub Text1_GotFocus(Index As Integer) Text1(Index).SelStart = 0 Text1(Index).SelLength = Len(Text1(Index)End Sub43学藉管理模块：因为本系统中有些功能模块具有相似之处，因此在本文只用此模块进行一个简单的说明。其它的相似模块的代码可以参阅本模块的设计思路。Private Sub Text1_Change(Index As Integer) If Index = 0 Then txtSQL = select * from student_Form where student_NO= & Trim(Text1(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then For i = 1 To 6 Text1(i) = mrc.Fields(i) Next Picture1.Visible = True Else Picture1.Visible = False For i = 1 To 6 Text1(i) = Next End If mrc.Close txtSQL = select * from prize_Stud where prize_Stu= & Trim(Text1(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then With MSFlexGrid1 .Rows = 1 Do While Not mrc.EOF .Rows = .Rows + 1 For i = 0 To mrc.Fields.Count - 1 Select Case mrc.Fields(i).Type Case adDBDate .TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i) & , yyyy-mm-dd) Case Else .TextMatrix(.Rows - 1, i) = mrc.Fields(i) & End Select Next i mrc.MoveNext Loop End With mrc.Close MSFlexGrid1.Visible = True Else MSFlexGrid1.Visible = False With MSFlexGrid1 .Clear .Cols = 4 .ColWidth(0) = 0 .ColWidth(1) = 0 .ColWidth(2) = 1700 .ColWidth(3) = 1700 .TextMatrix(0, 2) = 奖惩日期 .TextMatrix(0, 3) = 奖惩名称 .Rows = 1 End With End If txtSQL = select * from score_Form where score_Stu= & Trim(Text1(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then With MSFlexGrid2 .Rows = 1 Do While Not mrc.EOF .Rows = .Rows + 1 For i = 0 To mrc.Fields.Count - 1 Select Case mrc.Fields(i).Type Case adDBDate TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i) & , yyyy-mm-dd) Case Else .TextMatrix(.Rows - 1, i) = mrc.Fields(i) & End Select Next i mrc.MoveNext Loop