学生成绩管理系统 (2).doc

1、 摘 要 随着信息处理技术的飞速发展，基于计算机网络的信息处理已成为人们日常工作，学习和生活必备系统。信息管理系统的实施在技术上已逐步成熟且已成为社会生活的一部分。信息管理系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。本文介绍了在Visual Basic6.0环境下，首先对学生信息管理系统进行需求分析，并给出系统总体架构及设计步骤。文章介绍了学生管理信息系统的系统分析部分，包括可行性分析、业务流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个主要模块的算法,本系统界

2、面友好，操作简单，比较实用。【关键字】：信息管理系统、学生管理、Visual Basic应用。SummaryWith more and more widespread and profound application of information technology in management, the implement of management information system has become mature in technology step by step. Managing information system is a new subject. Enterprise

3、needs existence and development, so enterprise activities should be organized efficiently and organically, which means tightening up the enterprise management and strengthening effective management of any resource (staff, finance, property, etc.) internal the enterprise, and also establishing a mana

4、gement information system fitting in with its own characteristics.This article introduces the detailed process of exploring a management information system under the environment of visual foxpro, utilizing “Top-Bottom” overall plan and a strategy according to “Bottom-Top” application and exploitatio

5、n. That is to establish a set of effective scheme for student management by computer, through analyzing disadvantages of student management by human resources. This article emphasizes on three sections. The system analysis section of student management information includes feasible analysis, managem

6、ent function analysis.The system design section mainly focuses on system function design and data base design and data number design. And the system realization section has provided several major function , together with the main windows and programs.This economical and pragmatic system has explicit

7、 interface, with simple operation.Keywords ：MIS、student management、visual basic application 目 录 摘要3 SUMMARY41 VISUAL BASIC 概述71.1 Visual Basic 语言的特点71.2 Visual Basic 系统几个在程序应用中的常用名词72 WINDOWS下的VISUAL BASIC 编程环境简介92.1 面对对象的编程92.2 实现菜单选项92.3 实现工具栏93 使用ACCESS2000创建数据库113.1数据库的概念113.2新建一个数据库113.3修改已建的数据

8、库114 可行性分析125 系统总体规划135.1系统功能描述135.2系统模块图145.3 数据库设计156 系统具体实现186.1各功能模块程序设计186.1.1建立学生信息管理系统186.1.2登录模块的设计196.1.3主界面模块设计216.1.4学生（档案管理）信息录入与删除226.1.5学生档案的修改246.1.6学生档案的查询266.1.7统计打印设计276.2 系统的运行与测试29结束语30谢 辞31参 考 文 献321 Visual Basic 概述1.1 Visual Basic 语言的特点 Visual Basic 语言用其设计应用程序时具有两个基本特点：可视化设计和事件

9、驱动编程。（1） 可视化设计：表现在VB在设计应用于程序界面时有“所见即所得”的处理功能。（2） 事件驱动编程：在设计应用程序时，把对象添加到窗体中，在用户与程序进行交互时，用户基本上是通过鼠标、键盘与应用程序进行交互的，那些对象就必须对鼠标和键盘操作所引发的事件做出响应，来执行一段应用程序。1.2 Visual Basic 系统几个在程序应用中的常用名词 Visual Basic 系统除了一般高级语言所具有的一些名词术语外，还有几个系统常用的名词。其基本含义如下：(1) 视窗（Form）视窗是进行人机交互的界面或接口，也叫窗体。VB系统的人机交互界面或接口，无论是在设计时或是在运行时，都是W

10、indows 系统的标准视窗。此次程序的启动Form如图一(2) 对象 (Object)对象是VB系统内部提供给设计者可以直接使用的处理输出的控制工具。本程序所应用到的对象类型有标签框 (Label Box)，文本框 (Text Box)，命令按扭 (Command Button)，网格 (Data Grid)，ADO控件 (Adodc1)等。当把这些工具放置到用户界面对应的窗体上时，被称为对象或控件。用户可以通过设置对象的“属性”和“方法”，便于对象适应自己所设计应用程序的输入输出内容，对象的生成过程及结构都被封装起来。正确使用对象可以减少程序和开发时间，提高程序设计者的工作效率。(3) 属

11、性 (Properties)属性是VB系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变对象的属性来确定对象的外观及性能特征，从而有效地使用系统提供的对象。比如，对象的名称、在屏幕上显示的位置、大小、颜色、接收或容纳的数据内容及数据的表现格式等。(4) 事件 (Events)事件是指用户或操作者对计算机进行的某一操作（如击键、单击或移动鼠标等）的行为或系统状态发生的变化。VB系统常用事件来引导计算机执行一段程序。程序所用的键盘事件有KeyPress（按键）事件，KeyDown事件和KeyUp事件；鼠标事件有Click（单击鼠标）事件，DbDlicd（双击鼠标）。(5) 方法 (Met

12、hod)方法主要是指对一个对象使用某种作用的过程。它是在程序执行的过程中要计算机执行的某种操作。其程序的方法有Show（显示）方法，Hide（隐藏）方法，Refresh（刷新）方法。(6) 过程 (Procedure)过程是指经过定义或说明的，或基于某一对象对应的事件所引发的程序段。(7) 模块 (Module)模块是指一些运算量或过程进行声明或定义的一个集合。系统程序大体可分成四个模块：数据输入、根据查询、数据打印和通讯。 2 Windows下的Visual Basic 编程环境简介2.1 面对对象的编程面向对象的设计方法 (OOP, Objected Programming) 从应用领域内

13、的问题着手，以直观自然的方式描述客观世界的实体。Visual Basic 作为一种面向对象的编程方法，把程序和数据封装起来作为一个对象，并为每个对象赋予相应的属性。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，由 Visual Basic 自动生成对象的程序代码并封装起来。Visual Basic 应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和方法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可说扩展性和强有力的功能。Visual Basic 应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、

14、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。2.2 实现菜单选项菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护，Visual Basic 也提供了强大的创建菜单功能是程序更加标准。本系统使用 Visual Basic 的菜单编辑器建立菜单或者修改已经存在的菜单，您也可以使用Visual Basic 的Application Wizard 来操作。2.3 实现工具栏CoolBar控件与Office2000 中看到的CoolBar是类似的。CoolBar就是一个可以在窗体上浮动的工具，同时也是其他A

15、ctiveX的容器。通过在CoolBar中迁入其他空间你也可以向用户提供更好的灵活性和义用性。选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在“控件”选项卡列表中选择“Microsoft Windows Common Controls 6.0”后工具相中增加改控件。本系统就用了Cool工具中的Statubar控件，在系统这一界面中，添加了状态栏，在第一个栏中，在样式这一栏中选择了文本，在第二个栏中，选择了系统日期，第三个栏中选择了系统时间，这样，任何时候操作本系统，都可以看到当前的时间和日期。3 使用Access2000创建数据库3.1数据库的概念数据库是一种存储数据并对数据进行操

16、作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库(flat-file)和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。3.2新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1 标识需要的数据；2 收集被子标识的字段到表中；3 标识主关键字字段；4 规范数据；5 标识指定字段的信息；3.3修改已建的数据库 数据库的修改分为；添加、编辑和删除记录。这三种操作均可由Visual B

17、asic创建的程序来完成，下面的章节将详细描述实现的具体方法。4 可行性分析学生信息，作为一个学校，就有一定的工作量存在，而学生信息，它的工作量可能是其它信息工作量的几倍，班级的增加、班级的查找、班级的修改；学生档案；课程管理；成绩管理；缴费管理；统计等等，每个信息的数据都在不断地变化着，如果采用人工的方式进行操作，那么，一天的工作量，足以让人觉得比较繁琐，吃不消。针对这样的情况，采用让数据的查询变得简单化，数据变的更让每个人都在任何时刻都可以了解到。学生信息管理系统是为本校开发的，本系统所采用的语言是Visual Basic，用Microsoft Access 2000数据库完成。该系统总体

18、有四部分组成，包括学生信息查询、教务信息维护、学生选课及用户管理。通过本系统，把本校内部查询学生信息、教务信息、学生选课各个环节进行有效地计划、组织和控制。通过本校内部的信息，依据统一数据信息进行管理，把任何一块信息所产生的数据变动及时地反映给其它相关信息，做到数据共享。本系统主要信息流程为：教务信息维护接受学生的信息，学生信息查询根据教务信息维护的学生信息做出对所接收的信息合理性进行判断，并交于信息维护进行相应的修改，再把信息存入数据库中。学生选课是对学生进行相应选择自己相关的课程。最后进行打印。采用本系统，能够使整个系统内部所有信息的工作简化，提高工作效益。由于采用统一的数据信息，使相关资

19、料能够快速地查询所需的数据、资料及其它信息的，使信息快速高效运行。本系统中使用到的数据表主要有班级表、成绩表、缴费表、课程表、学生档案、用户资料，由这六个表，组成了名为信息的数据库。其中学生档案是本系统最主要的。5 系统总体规划5.1系统功能描述本系统的主要任务是实现对学校教导处的学生信息管理、成绩管理、课程管理及相关查询。其主要功能包括：1、学生信息管理功能班级管理。提供给班主任进行本班学生的信息更新、删除。添加学生。以班级为单位，进行学生入库。其中分为单个添加和成批添加。单个添加学生供数量较少的学生信息入库；成批添加可以从现存的学生信息EXCEL文件中成批录入到数据库中。删除学生。当学生毕

20、业后，学生信息转移备份数据库中，系统的基本数据库中需要删除学生信息。该功能主要进行成批地删除学生信息，如连续学号区段的多位学生信息删除，整个班级的删除，所有学生信息的删除。新生管理。本部分的功能主要有新生导入、分班、及设置学号。新生导入实现从现存的EXCEL新生名单中录入学生信息。分班功能实现按新生的报考专业、成绩及性别进行分班。设置学号实现自动为各班学生编发学号。学生信息备份。在学生信息删除前，将其按班级为单位保存到备份数据库。2、学生成绩管理功能分数录入。以班级为单位，录入各科目的期中、期末、总评成绩。总分及名次。计算指定班级学生的总分及名次。补考成绩录入。修改总评成绩，以决定最终补考人数

21、。成绩备份。为指定班级及指定的学期数的学生成绩保存到备份数据库中。3、课程信息管理功能课程管理。提供本学期各年级各专业所开课程名称的录入、修改、删除。它是学生成绩管理的基础。用以保证数据库中一致性原则。4、查询功能。学生信息查询。根据用户的要求，查询学生数据库的所有可能的信息，其中包括成绩查询。备份成绩查询。按班级为单位查询备份数据库的学生信息，补考情况。5.2系统模块图 系统设置班级管理档案管理课程管理成绩管理交费管理打印统计帮 助学生信息管理系统用户管理重新登录退出系统增加班级班级查询档案增加档案查询课程查询课程设置成绩增加成绩查询学生考试违规管理课程查询课程查询操作说明关于课程查询课程查

22、询课程查询课程查询课程查询图5-1 系统模块图5.3 数据库设计数据库设计图如下：图5-2 数据库设计图1.班级表：编号字段名称字段类型字段宽度1年级CHAR502专业CHAR503人数CHAR504辅导员DATE505备注CHAR50 表5-1 班级表 2、成绩表结构：表5-2 成绩表编号字段名称字段类型字段宽度1学号CHAR152课程名称CHAR153期中成绩LONG44期末成绩LONG45总评成绩LONG46班级char20 3、交费表结构： 表5-3 交费结构表编号字段名称字段类型字段宽度1年级CHAR502学号CHAR503姓名CHAR505专业CHAR506学期CHAR507日期D

23、ATE短日期8本学期应交费CHAR509实际交费CHAR5010本次欠费CHAR50 4、课程表结构： 表5-4 课程表编号字段名称字段类型字段宽度1课程名称CHAR152年级CHAR103专业char20 5、学生档案表结构： 表5-5 学生档案表 编号字段名称字段类型字段宽度1学号CHAR152姓名CHAR103性别CHAR24出生日期DATE85电话CHAR106家庭住址CHAR507班级CHAR208原毕业学校CHAR509是否住宿CHAR410政治面貌CHAR611入学总分LONG412专业char20 6、用户表结构： 表5-6 用户表编号字段名称字段类型字段宽度说明1用户名VAR

24、CHAR(10)10存用户名2用户密码VARCHAR(20)20存用户密码3用户权限INT登录权限 最重要的表是学生档案，所有信息都是根据这张学生档案进行有关的操作，主要的字段有：学号、姓名、年级、专业、性别、出生年月、民族、籍贯、政治面貌、家庭地址、邮政编码、联系电话、入学时间、备注。其中日期的数据类型为日期/时间天型，其它的数据类型为文本型；成绩表中字段为：学号、姓名、年级、专业、学期、考试时间、考试科目、考试地点、课程性质、科目分数、违纪类型、备注；课程表中字段为：专业、年级、学期、课程名称、教材、任课老师、课时、上课地点、课程性质、考试性质；用户资料中的字段包括：用户名、密码、身份。数

25、据库与VB的连接：本系统的数据链接采用的是ADO方法，打开控制面板，打开ODBC数据源图标，选择“系统DSN”标签，点击“添加”按钮，在弹出的“创建新数据源”对话框中选择名称为“Microsoft Access Drive（*.mdb）”，点击“完成”按钮，在ODBC Microsoft Access 安装对话框中在数据源名中输入信息，在数据库这个框中， 单击“选择”按钮，在弹出的选择数据库这一对话框架中，在驱动器下拉列表框中选择本系统数据库所在驱动器，在目录中选择库所在的文件夹，在文件类型中选择选“Access数据库（*.mdb）”，在数据库名中选择本系统的数据库，点击“确定”按钮即完成数据

26、链接。 在VB中，用ADODC链接数据库，用DataGrid或DATA将库中的数据在界面中显示出来，本系统采用DataGrid。在界面上右击Adodc控制，在弹出的快捷菜单中选择属性，在属性对话框中，在“属性”这一标签中， 选中单选框“Use ODBC Data Source Name”，并在下拉文本框中选择已经配置好的数据源名信息，再在“RecordSoure”标签中，在Commard Text（SQL）文本框中输入查询语句，如：select * from 学生档案。同时，将桌面的DataGrid控件选中，在属性框中，将它的Datasoure设为Adodc。我可以设置DataGrid控件的外

27、观：选中该控件，右击，在弹出的快捷菜单中选择“检索字段”，在弹出的对话框中单击“确定”，这时，表格中出现了表的字段。然后再右击，同样，在弹出的快捷菜单中选择“编辑”，我们就可以所在的表格的宽度进行调整。6 系统具体实现6.1各功能模块程序设计6.1.1建立学生信息管理系统1建立学生成绩管理系统工程文件（1）在硬盘上建立学生成绩管理系统程序文件目录，如在E盘上建立e:vbxscjgl目录。（2）用VB建立学生成绩管理系统工程文件与与主窗体文件，工程文件名为xscjgl.vbp，主窗体名为Form_XSCJ，保存在E:vbxscjgl目录中。各模块窗体命名规则为Form_XSCJXY，其中X为模块

28、在主窗体菜单中的列坐标，Y为模块在主窗体菜单中的行坐标，如学生成绩初始化程序窗体名为Form_XSCJ21。2设计主窗体程序整个学生成绩管理系统采用MDI多文档界面方式，在主窗体Form_XSCJ中用菜单设计器，按表要求设计出下拉式菜单，学生成绩管理系统主界面如图二所示。在窗口主菜单项中要能显示已打开子窗体的标题名称，并能对打开子窗体进行层叠、平铺、垂直与排列操作。3.定义标准模块Module1在学生成绩管理系统中将大量使用ADO对象模型中的Connection 对象、Command对象、Recordset对象。因此，在工程文件xscjgl.vbp中定义标准模块Module1。在该Module

29、1中定义连接数据库的对象Con、连接数据表或执行SQL语句的Cmd对象，并定义连接数据库的过程Connect。6.1.2登录模块的设计 图6-1 登陆模块图打开程序 进入欢迎界面 按任意键进入登录窗口1进入登录窗口之后，通过输入用户名和密码并选择身份，点击登录按钮后与数据库中的用户信息表进行核对:若正确，则进入学生信息管理系统界面，否则提示输入信息有误2如果想要在用户资料表中添加新用户，可以在登录窗口巾点1行注册新用户按钮，输入用户名、密码和身份，若这个新输入的用户名与用户信息表里的不重复，则提示注册成功可以用该用户名进行登录;3同时选择用户身份和管理员身份登陆系统是有区别的:当以用户身份登录

30、时，只能对数据进行浏览和查询; 图6-2 用户身份登陆图部分代码如下：If myRs.Fields(密码) Trim(Text2.Text) Then MsgBox 密码不正确,请重新输入!, vbOKOnly + vbExclamation, 警告 Text2.SetFocus myRs.Close myCon.Close zong = zong + 1 Exit SubEnd IfIf myRs.Fields(身份) Combo1.Text Then MsgBox 身份不正确,请重新选择!, vbOKOnly + vbExclamation, 警告 Combo1.SetFocus myRs

31、.Close myCon.Close zong = zong + 1 Exit SubEnd If sf = myRs.Fields(身份)myRs.ClosemyCon.CloseXingMing = Text1.TextUnload MeFrm_Main.ShowIf sf = 管理员 Then admin = 0End IfIf sf = 管理员 Then admin = 1 Else admin = 0 End IfEnd Sub6.1.3主界面模块设计图6-3 主界面设计图该模块是整个系统的主界而，用户登录系统后便进入该页而，实现用户同本系统进行交互，登录系统后的用户可以通过点击本页

32、面上相应的菜单栏和工具栏实现相应的信息管理功能。学生信息窗体界面如图所示。包括系统设置、班级管理、档案管理、课程管理、成绩管理、缴费管理、打印统计、帮助。系统设置包括用户管理、重新登录、退出系统；班级管理包括班级增加、班级查询；档案管理包括档案增加、档案查询；课程管理包括课程设置、课程查询；成绩管理包括成绩增加、成绩查询、考生考试违规管理；缴费管理包括学生缴费增加、学生缴费查询；打印统计包括班级统计打印、档案统计打印、课程统计打印、成绩统计打印、缴费统计打印。6.1.4学生（档案管理）信息录入与删除图6-4 学生 信息录入与删除表运行程序后，进入学生信息管理系统，档案管理模块的第一块是档案添加

33、，在这模块中可以把姓名、专业、年级、学号、性别、出任年月、民族、籍贯、政治面貌和家庭地址等信息输入，以便记录。档案的增加:在“学生档案设置”窗门的文本框中输入要添加的内容，点击增加按钮，完成添加功能。若输入的“学号”内容同“学生挡案”表的“学号”重复则显示“学号重复，请重新输入”的消息框，此时重新输入一个新的学号，使之不一与“学生档案”中的“学号”重复，完成添加。档案的删除：选中想要删除的学生档案，单击下方的删除按钮，这时会弹出消息框“是否删除”，点击“是”将执行删除操作；点击“否”取消删除操作。部分代码如下：myCon.Open Provider=Microsoft.Jet.OLEDB.4.

34、0;Data Source=信息.mdb;myRs.Open select * from 学生档案 where 学号= & Trim(Text1.Text) & and 姓名= & Trim(Text2.Text) & , myConIf myRs.EOF = False Then MsgBox 该学生档案已经存在，请重新输入！ myRs.Close myCon.Close Text1.SetFocus Exit SubEnd IfmyRs.ClosemyRs.Open 学生档案, myCon, 3, 2myRs.AddNew myRs.Fields(学号) = Text1.Text myRs

35、.Fields(姓名) = Text2.Text myRs.Fields(年级) = Text3.Text myRs.Fields(专业) = Text4.Text myRs.Fields(性别) = Combo2.Text myRs.Fields(出生年月) = DTPicker2.Value myRs.Fields(民族) = Text7.Text myRs.Fields(籍贯) = Text8.Text myRs.Fields(政治面貌) = Combo1.Text myRs.Fields(家庭地址) = Text9.Text myRs.Fields(邮政编码) = Text10.Tex

36、t myRs.Fields(联系电话) = Text11.Text myRs.Fields(入学时间) = DTPicker3.Value If Text12.Text = Then myRs.Fields(备注) = Else myRs.Fields(备注) = Text12.Text End If myRs.UpdatemyRs.ClosemyCon.CloseMsgBox 添加成功!Adodc1.RecordSource = select * from 学生档案 order by 学号 Frm_AddDangA.Adodc1.RefreshFrm_AddDangA.DataGrid1.R

37、efresh6.1.5学生档案的修改档案修改:选中要修改的记录，进入修改画面，将学生资料修改后，单击“修改”完成信息的修改。图6-5 档案修改表部分代码如下：Private Sub Command1_Click()If admin = 1 ThenDim myCon As New ADODB.Connection 连接数据库Dim myRs As New ADODB.Recordset 操作数据Dim XueHao, XingMing, XingBie, ChuShengNY As StringXueHao = Text1.TextXingMing = Text2.TextXingBie =

38、Combo2.TextChuShengNY = Text6.TextIf Trim(XueHao) = Or Trim(XingMing) = Or Trim(XingBie) = Then MsgBox 请填写要修改学生档案资料的内容！ Exit SubEnd IfmyCon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb; 打开数据库myRs.Open select * from 学生档案 where 学号= & Text1.Text & , myCon, 3, 2 myRs!姓名 = Text2.Text myRs!年级

39、= Text3.Text myRs!专业 = Text4.Text myRs!性别 = Combo2.Text myRs!出生年月 = DTPicker1.Value myRs!民族 = Text7.Text myRs!籍贯 = Text8.Text myRs!政治面貌 = Combo1.Text myRs!家庭地址 = Text9.Text myRs!邮政编码 = Text10.Text myRs!联系电话 = Text11.Text mrys!入学时间 = DTPicker1.ValuemyRs.UpdatemyRs.ClosemyCon.CloseMsgBox 您确定要修改吗？, vbY

40、esNo, 提示Frm_UpdateDangA.Adodc1.RecordSource = select * from 学生档案 order by 学号Frm_UpdateDangA.Adodc1.RefreshFrm_UpdateDangA.DataGrid1.Refresh6.1.6学生档案的查询单击档案查询，出现查询档案信息窗体。在这里可以按照各种方式以及它们的组全进行查询。窗体上添加了表格控件，用来显示查询后得到的结果。首选选择查询方式，然后输入查询内容。程序首选判断查询方式，在文本框中输入要查找的条件，若查找成功，则显示查找到的记录，如查找不成功则查找记录为空。查询到数据集以后，需要

41、正常显示在表格控件中。运用循环将每一条记录的每一个字段显示出来。单击按钮“退出查询”将退出程序。图6-6 学生档案查询表部分代码如下： If XSDA1 = Then strTiaoJian = select * from 学生档案 where & XSDA2 ElseIf XSDA2 = Then strTiaoJian = select * from 学生档案 where & XSDA1 Else MsgBox 请选择连接方式！, vbOKOnly, 警告 Exit Sub End IfEnd If If (XSDA1 & XSDA2) = Then MsgBox 请输入查询类别！, vb

42、OKOnly, 警告Exit SubElse Unload Me Frm_UpdateDangA.Show 1End IfEnd Sub6.1.7统计打印设计运行打印统计后可以按条件把符合条件的各种信息以报表形式罗列出来，各种信息还可以以打印出来或以报表形式保存。打印统计包括班级统计分析、档案统计分析、课程统计分析、成绩统计分析和交费统计分析五类。以班级统计打印为例 如图 图6-7 统计打印设计表为了方便统计和打印特别设计了4个复选框，用户可以根据自己的需要来选择需要的内容。不仅可以使打印出来的文件看去来清爽整洁，还免去了用户的重新排版。简略代码如下：SQLoriginal = SELECT 年级,专业,人数,辅导员,备注 FROM 班级表 SQLadd = WHERE 年级=年级 AND 专业=专业 SQLorder = If Check1.Value = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 年级= + Text1 + End If If Check2.Value = 1 And Not IsNull(Text2) Then SQLadd =