学生档案管理系统-VB编程毕业设计

1、目 录摘要-3第一章 系统规约说明书-4引言-4系统功能和数据描述及子系统描述- 4第二章 软件项目计划-5引言-5可行性分析-5系统数据流图-6数据字典-6结论意见-6第三章 软件项目计划-7引言-7实施计划-7第四章 需求规格说明书-8引言-8任务概述-8数据库-8各种需求描述-10第五章 总体设计说明书-11引言-11任务概述-11总体结构图-11数据逻辑结构设计-12运行设计-13其他-13第六章 详细设计说明书-14引言-14过程设计-14第七章 软件实现-17引言-17编码实现-17系统测试-34第八章 结束语-36致谢-37参考文献-38附录-39摘要学生档案管理系统是典型的信息

2、管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。学生信息管理系统主要是完成学生各种信息的管理工作(包括基本信息、成绩、课程等),通过对不同的用户设置不同的权限来完成整个系统的管

3、理,这样不但方便了老师和学生查阅自己所想得到的信息而且还有效的保证了系统数据的安全性.关键字:控件、窗体、域。ABSTRACTThe system of managing student file is a typical application of managing information system (know as MIS),which mainly includes building up data-base of back-end and developing the application interface of front-end. The former required

4、consistency and integrality and security of data. The later should make the application powerful and easily used.By looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools in Win32. VB offered a series of ActiveX operating a data-base. It can give you

5、 a short-cut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied with it.Students information management system mainly finishes students managements of different information, through set up to different user different authority is it

6、finish whole management of system to come, help teacher and student consult but also information oneself want to get have security system security of datum of result like this.Keywords: ActiveX , Form , Field . 第一章 系统规约说明书引言该文档处于软件问题的提出阶段,任务是定义用户要解决的问题,确定系统的目标规模。目的是通过对用户的调查访问,写出关于软件性质的书面报告,经过讨论修改得到用

7、户的确认,为以后的工作确定方向。随着教育事业的不断发展,学校规模的扩大,随之而来的是学生数量的急剧增加,对学生进行各种信息管理越来越困难,面对日益增大的信息量,要实现信息的规范管理和快速查询,就需要有相应的学生信息管理系统来提高学生管理工作的效率。系统功能和数据描述及子系统描述(1)系统功能和数据描述系统开发的总体任务是实现信息关系的系统化、规范化和易操作化。系统的结构关系图是对系统总体功能的分析,是在系统开发的总体任务的基础上完成的。学生信息管理系统需要完成的功能主要包括对学生基本信息、课程、成绩的输入、查询、修改、统计和维护等操作。并且还设置了专门的用户管理,用于保证系统数据的安全性。(2

8、)子系统的结构图规约说明a、班级子系统应该包括班级设置、年级信息等与之对应的数据结构。b、学生子系统的结构图应该包括学生基本信息、所在班级、所学课程及成绩等以及相对应的数据结构。c、课程子系统应该包括对课程信息、开课时间、选课人数等的管理。第二章 软件项目可行性研究报告引言编写目的可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决,最根本的任务是对以后的设计提出建议。如果问题没有可行的解,分析员应该建议停止这项开发工程,以避免时间、资源、人力和金钱的浪费。如果问题值得解,分析员应该推荐一个较好的解决方案,并且为工程制定一个初步的计划。项目背景该项目为学校学生信息管理系统软件

9、,是为了更好的方便对学生各项信息进行综合的管理。开发该软件的要求与功能是实现学生信息数据管理与操作处理,软件的基本数据流动为用户数据的输入,学生信息,课程信息,班级信息的输入,以及用户提出对学生信息等的查询要求所产生的输出。数据的输入与输出依靠数据库的支持。该软件设计 完成后可用于所有的教育单位进行学生信息的管理。随着目前社会上信息管理系统的飞快发展,各个企事业单位都引入了信息管理软件来管理自己日益增长的各种信息,学生管理系统也是有了很大的发展,商业化的学生信息管理软件也不少。但本系统完全独立开发,力求功能齐全且易于操作。缩略词定义经济可行性-估计开发费用以及最终从开发成功的系统所获得的收入或

10、利益,衡量比较支出的费用和收到的利益技术可行性-分析功能,性能以及限制条件,能否是一个技术上可实现的系统法律可行性-明确系统开发可能导致的责任,有无违法问题操作可行性-系统的操作方式在这个用户组织内是否行的通可行性分析(1)新系统在原有系统的基础上加入了新的数据库的支持,使数据的准确性与安全性得到了很大的提高,且在用户操作与用户管理方面也有了极大地改善,增加了数据的安全性保护功能,而且在可用性和稳健性方面也有了很大的进步。就目前使用的开发技术来说该系统的功能目标应该能够达到,利用现有的软件工具在规定的期限内开发工作基本能够完成。(2)经济可行性分析中最重要的内容之一是对成本效益问题的分析。成本

11、效益分析要估计出研制开发的花费并与具体收益进行衡量比较。由于该软件较小易于实现,所以经济可行性问题也得到解决。(3)该项目为独立开发,在技术上没有使用任何现有的软件与方法。所以在法律方面不会存在侵权等问题。(4)在现有的条件下,使用Windows和Visual Basic 可以完成软件的开发。系统数据流图信息用户名 密码登录失败信息事务信息查询结果事务信息图2.2 系统数据流图数据字典数据字典精确严格的定义了每个系统相关的数据元素并以字典式顺序将它们组织起来,使得用户和分析员对所有的输入、输出存储成分和中间计算有共同的理解。本系统的数据字典如下:学生基本信息学号学生姓名学生性别年级班级专业年制

12、出生年月家庭住址班级信息班号年级班主任教室专业年制+备注年级课程信息年级课程名称课程信息课程编号课程名称课程类型课程描述成绩信息考试编号学生学号学生姓名学生班号课程名称分数用户信息用户名称用户密码用户描述学号=”0000000”9999999999”出生日期=年+月+日年= “1960”20XX”月=”01”12”日=”01”31”名称=4字母20XX系TEL=”0000000000”99999999999”密码=”000000”999999”结论意见经过一系列的各个不同方面的可行性分析,对需要解决的问题取得基本的一致看法,该软件的开发方案得到批准,使得开发工程继续进行下去。第三章 软件项目计

13、划引言经过可行性分析阶段的研究,得出项目可进一步进行下去的结论,在软件继续进一步的开发之前首先给出此软件项目计划,以使软件开发者理解软件开发要求,进行开发。实施计划任务分解鉴于软件开发工作过于简单,所以整个开发工作可以同时一起完成。 进度对于该小系统,系统从开发开始到结束为期较短,分开始准备阶段、系统管理模块设计阶段、班级管理模块设计阶段、课程管理模块设计阶段、系统结束阶段五部分进行。 第四章 需求规格说明书引言编写目的需求分析是软件系统生存期中定义阶段的最后一个步骤,它的基本任务是准确的回答“系统必须做什么”这个问题。在需求分析阶段结束之前,系统分析员应该写出软件需求规格说明书,以书面形式准

14、确的描述软件需求。定义静态数据固化在系统之内的用于描述系统功能实现的数据。动态数据用于系统要处理和输出的数据。数据字典精确严格定义每个与系统相关的数据元素,并以字典式顺序将它们组织起来,使得用户和分析员对其所有的输入输出存储成分和中间计算有共同的理解。任务概述(1)确定对系统的综合要求,包括功能需求,性能需求,可靠性和可用性需求,出错处理需求,接口需求,约束及将来可能提出的要求。(2)分析系统的数据要求(通常采用建立数据模型的方法)。(3)导出系统的逻辑模型(通常采用数据流图、实体联系图、状态转换图、数据字典和主要处理算法描述该逻辑模型)。(4)修正系统开发计划。数据库数据库描述根据上面的分析

15、就可以设计出能够满足用户需求的各种数据实体以及它们之间的关系,为后面的逻辑结构设计打下基础。本系统的实体有:学生实体,班级实体,课程实体。各个实体具体的描述E-R图如下:学生学号姓名性别住址专业班级年龄图4.1 学生实体图图4.2 班级实体图课程名开课时间选课人数 课程专业教师编号 图4.3课程实体图学生教师教学课程图4.3 系统E-R图各种需求描述功能需求由于系统较简单且前面对系统的功能已作了详细的介绍,在此就略过了。性能需求在数据精确度方面,由于对数据精确度的要求不高,所以这点在系统中表现得比较少,用户数据的安全性与正确性可以完全保证。在时间方面,由于本系统的数据库较小,所以程序在响应时间

16、,数据更新处理时间上性能比较突出。运行需求本系统采用多文档界面(MDI),即在单个容器窗体中包含多个窗体的应用程序。这样设计的软件简化了文档之间的信息交换,使系统用户无须掌握专业知识即可方便的进行各种操作且由于软件较小,运行时不易出现严重的影响整个管理系统的故障。第五章 总体设计说明书引言经过需求分析阶段的工作,系统必需“做什么”已经很清楚了,现在是决定“怎么做”的时候了。总体设计的基本目的就是回答“概括的说,系统应该如何实现”这个问题。从该阶段开发正式进入软件的实际开发阶段,总体设计过程通常有两个主要阶段组成,即系统设计阶段和结构设计阶段。总体设计说明书的目的就是进一步细化软件设计阶段得出的

17、软件总体概貌,把它加工成在程序细节上接近于源程序的软件表示。任务概述典型的总体设计过程包括下述9个步骤:(1)考虑各种可能的实现方案,力求选出最佳的一个,以提高系统的性能/价格比(2)综合考虑可行性研究阶段确定的各种方案,选取合理的方案(3)推荐最佳方案 (4)功能分解(5)设计软件结构(6)设计数据库(7)制定测试计划(8)书写文档,包括系统说明、用户手册、测试计划、详细实现计划、数据库设计结果(9)审查和复审总体结构图学生信息管理成绩信息管理课程信息管理班级信息管理系统管理课程修改课程添加班级查询教师添加密码管理用户管理权限设置学生档案管理信息添加信息查询信息删除成绩添加成绩查询成绩删除课

18、程删除班级删除学生交费管理信息查询信息删除信息添加图5.1系统总体结构图数据逻辑结构设计列名数据类型可否为空说明Stuent _IDINT(4)NOT NULL学号(主键)Student _NameCHAR(10)NULL学生姓名Student_GenderCHAR(2)NULL学生性别Student_ageInt(2)NULL年龄addressVARCHAR(50)NULL住址Class_NoINT(4)NULL专业班级Tele_NumberINT(10)NULL联系TEL表5.1 学生基本信息表 列名数据类型可否为空说明Course_NoINT(4)NOT NULL课程编号(主键)Cour

19、se_NameCHAR(10)NULL姓名Course_zyCHAR(10)NULL专业Tercher-NoINT(4)NULL教师编号表5.2 课程基本信息表列名数据类型可否为空说明Exam_NoCHAR(10)NOT NULL考试编号Student_IDINT(4)NOT NULL学生学号Course_NameCHAR(10)NULL课程名称resultFLOAT(8)NULL分数表5.3 学生成绩信息表列名数据类型可否为空说明 User_IDCHAR(10)NOT NULL用户名称(主键)User_PWDCHAR(10)NULL用户密码User_quanxianChar(10)Null权

20、限表5.4 系统用户表 运行设计具体软件的运行模块组合为程序多窗口的运行环境,各个模块在软件运行过程中实现信息的交换和数据处理。软件运行时有较友好的界面,基本能够实现用户的数据处理要求。其他(1)出错输出信息在用户输入错误或访问超出权限时,系统应能给出相应的提示。(2)系统的用户管理保证了用户对系统数据的操作受其所拥有权限的限制,系统数据的安全保密性较高。第六章 详细设计说明书引言详细设计阶段的根本目标是确定应该怎样具体实现所要求的系统,也就是说经过这个阶段的设计工作,应该得出对目标系统的精确描述,详细设计阶段的任务还不是具体的编写程序,而是要设计出程序的“蓝图”。软件设计是把软件需求变换成为

21、软件的具体设计方案,即模块结构的过程。软件设计一般分为总体设计和详细设计两个阶段。总体设计阶段根据软件需求分析所得到的数据流程或数据结构,使用结构化设计技术,导出软件的模块结构。详细设计阶段是给出软件模块的内部过程描述。内部过程描述是模块内部的算法设计。该文档是直接给软件开发人员看的。过程设计以下逐个模块给出说明:系统用户管理模块a、系统管理模块主要实现用户登录、用户添加和用户的密码修改功能。系统启动后,将首先出现用户登录窗体,用户首先输入用户名,然后输入密码,如果用户3次输入密码不正确,将退出程序。b、算法在本文档中都统一使用 PAD图即树形问题分析图(Problem Analysis Di

22、agram)作为描述程序处理过程的工具。学生管理模块a、学生基本信息管理模块主要实现查询学生基本信息、添加学生基本信息、修改学生信息的功能。b、算法添加输入是否完整学号是否重复日期格式是否正确添加记录更新数据库输出添加成功信息出错处理出错处理出错处理图6.2添加功能子模块PAD图修改日期格式是否正确出错处理找到要修改的记录记录是否完整出错处理学号是否重复出错处理修改记录更新数据库修改成功输出信息图6.3修改功能子模块PAD图 查询按姓名输出成功信息按学号学号是否有效出错处理按班号班号有效？出错处理输出记录输出记录输出记录出错处理姓名有效？图6.4 查询功能子模块PAD图班级信息管理模块a、班级

23、信息管理模块主要实现添加和修改班级信息的功能。b、算法班级信息管理模块(添加及修改)的算法与学籍管理模块的添加和修改类似,实现方法和前面介绍的一样,这里不再重复。(4)课程设置模块a、课程设置模块主要实现添加课程信息、修改课程信息以及设置年级课程信息的功能。b、算法与班级和学籍的添加与修改类似。(5)成绩管理模块a、成绩管理模块主要实现添加成绩管理、修改成绩和查询成绩管理的功能。b、算法与班级和学生基本信息的添加与修改类似。第七章 软件实现引言通常把编码和测试统称为实现。所谓编码就是把软件设计结果翻译成用某种程序设计语言书写的程序。软件测试是为了发现软件的错误而执行程序的过程,该文档的读者对象

24、是软件测试部门,以指导整个软件的测试过程。编码实现(1) 系统登入窗口图7.1用户登入窗口系统把用户分成超级用户和普通用户两类,超级用户登入需要用户名和密码,可以对系统进行添加、删除以及查询等操作,而普通用户可直接登入系统进行简单的查询工作。这样设计更好的维护了系统数据的正确性。(2)系统主窗口用户进入主窗口后,根据自己的系统使用权限选择系统管理、课程管理、班级管理等模块进行操作。图7.2 系统主窗口(3)学生档案管理模块图7.3 学生信息录入窗口代码如下:Dim txtsql1 As StringPrivate Sub Combo1_Click(Index As Integer)Dim mr

25、c As ADODB.Recordsettxtsql1 = select 专业,年制 from class where 班级= & Trim(Combo1(1).Text) & Set mrc = ExecuteSQL(txtsql1)mrc.CloseEnd SubPrivate Sub Combo1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then SendKeys TAB End IfEnd SubPrivate Sub Command1_Click() For j = 0 To 7 If Text

26、1(j) = Then ss = MsgBox(Label1(j).Caption & 不能为空！, vbExclamation + vbOKOnly, 警告) Text1(j).SetFocus Text1(j).SelStart = 0 Text1(j).SelLength = Len(Text1(j).Text) Exit Sub End IfNextDim mrc As ADODB.Recordset txtsql1 = select * from xj where 学号= & Trim(Text1(0).Text) & Set mrc = ExecuteSQL(txtsql1)If

27、modi = False Then If mrc.EOF = False Then sss = MsgBox(已经存在该学号的记录,学号不能重复！, vbExclamation + vbOKOnly, 警告) Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) mrc.Close Exit Sub End If End If If Not IsDate(Text1(2).Text) Then 判断是否日期格式 ssss = MsgBox(应输入日期 mm-dd-yy, vbInforma

28、tion + vbOKOnly, 警告) Text1(2).SetFocus Text1(2).SelStart = 0 Text1(2).SelLength = Len(Text1(2).Text) Exit Sub End If If Not IsDate(Text1(6).Text) Then ssss = MsgBox(应输入日期 mm-dd-yy, vbInformation + vbOKOnly, 警告) Text1(6).SetFocus Text1(6).SelStart = 0 Text1(6).SelLength = Len(Text1(6).Text) Exit Sub

29、End IfIf modi = True Thentxtsql1 = update xj set 学号= & Trim(Text1(0).Text) & ,姓名= & Trim(Text1(1).Text) & ,性别= & Trim(Combo1(0).Text) & ,班级= & Trim(Combo1(1).Text) & ,出生年月=# & Trim(Text1(2).Text) & # ,家庭住址= & Trim(Text1(3).Text) & ,邮政编码= & Trim(Text1(4).Text) & ,联系TEL= & Trim(Text1(5).Text) & ,入学时间=

30、# & Trim(Text1(6).Text) & # ,备注= & Trim(Text1(7).Text) & where 学号= & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql1)txtsql1 = update cj set 学号= & Trim(Text1(0).Text) & where 学号= & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql1)txtsql1 = upd

31、ate jf set 学号= & Trim(Text1(0).Text) & where 学号= & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql1)Unload MeExit SubEnd Iftxtsql1 = select * from xj Set mrc = ExecuteSQL(txtsql1) mrc.AddNew For i = 4 To 9 mrc.Fields(i) = Text1(i - 2).Text Next i mrc.Fields(0) = Trim(Text

32、1(0).Text) mrc.Fields(1) = Trim(Text1(1).Text) mrc.Fields(2) = Trim(Combo1(0).Text) mrc.Fields(3) = Trim(Combo1(1).Text) mrc.Update Set mrc = Nothing For j = 0 To 7 Text1(j) = NextEnd SubPrivate Sub Command2_Click()Unload Me End SubPrivate Sub Form_Activate()Text1(0).SetFocusForm1.load1End SubPublic

33、 Sub load1()Dim mrc As ADODB.Recordset txtsql1 = select DISTINCT 班级 from class order by 班级 Set mrc = ExecuteSQL(txtsql1) If mrc.EOF Then ddd = MsgBox(请先设置班级部署！, 警告) mrc.Close Exit Sub End If Combo1(1).Clear mrc.MoveFirst Do While Not mrc.EOF Combo1(1).AddItem mrc.Fields(0) mrc.MoveNext Loop Combo1(1

34、).ListIndex = 0 Combo1(0).ListIndex = 0If modi Then 如果是修改状态 Me.Caption = 修改 txtsql1 = select * from xj where 学号= & Trim(Form3.MSF1.TextMatrix(Form3.MSF1.Row, 1) & Set mrc = ExecuteSQL(txtsql1) mrc.MoveFirst For i = 4 To 9 Text1(i - 2).Text = mrc.Fields(i) Next i Text1(0).Text = mrc.Fields(0) Text1(1

35、).Text = mrc.Fields(1) Combo1(0).Text = mrc.Fields(2) Combo1(1).Text = mrc.Fields(3) mrc.CloseElse Me.Caption = 登记 For i = 2 To 7 Text1(i).Text = Next i Text1(6).Text = Date Text1(0).Text = Text1(1).Text = End IfEnd SubPrivate Sub Text1_GotFocus(Index As Integer) If Index = 6 Then Text1(6).SelStart

36、= 0 Text1(6).SelLength = Len(Text1(6).Text) End IfEnd SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then SendKeys TAB End IfEnd Sub超级用户对系统拥有添加修改的权限,对学生信息的录入如上图所示,用户可以将新增学生的记录写入数据库,以方便用户查询。课程信息录入同上。图7.4学生信息查询窗口所有用户都可以进行学生信息查询操作,用户可以根据自己的要求进行查询,也可按姓名关键字查询(如上图所示)

37、。(4)课程管理模块图7.5基本课程设置课程管理分为基本课程设置和班级课程设置两种操作。进行基本课程设置时,用户在对新增资料对话框中输入新的课和条目,按回车即可完成。选中列表框中条目点击删除钮即可删除选中条目。超级用户可以对课程进行添加操作和删除操作,将课程所学专业,课程名,开始学习时间及任课教师等信息输入数据库中,删除操作必须在该课程没有成绩时才能进行。(5)成绩管理模块成绩管理分为成绩添加、成绩浏览、成绩查询和考试类型设置几种操作。具体操作同上两个模块一样。(6)班级管理模块 班级管理分为班级浏览、班级查询、添加班级几种操作。具体操作同上。(7)学生交费管理模块 学生交费管理分为学生交费浏

38、览,学生交费查询,学生交费添加,基本学费设置。其中基本学费设置又包括学费设置浏览,学费设置查询,学费设置添加。学生交费浏览图如下:图7.6 学生交费浏览图代码如下:Public maxx As StringPublic classtxt As StringDim num As StringPublic Sub jfshowtitle()MSF1.Clear Dim i As Integer With MSF1 .Cols = 10 .TextMatrix(0, 1) = 学号 .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3) = 班级 .TextMatrix(0

39、, 4) = 学期 .TextMatrix(0, 5) = 本次交费(元) .TextMatrix(0, 6) = 本次欠费(元) .TextMatrix(0, 7) = 累计欠费(元) .TextMatrix(0, 8) = 日期 .TextMatrix(0, 9) = 操作员 .ColWidth(0) = 20XX .ColWidth(1) = 800 .ColWidth(2) = 1000 .ColWidth(3) = 1000 .ColWidth(4) = 2300 .ColWidth(5) = 120XX .ColWidth(6) = 120XX .ColWidth(7) = 120

40、XX .ColWidth(8) = 900 .ColWidth(9) = 900 .FixedRows = 1 For i = 1 To 4 .ColAlignment(i) = 0 Next i For i = 5 To 9 .ColAlignment(i) = 6 靠右 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols - 1 .CellAlignment = 4 .Row = 1 End WithEnd SubPublic Sub xuefeidata()jfshowtitle

41、maxDim mrc As ADODB.RecordsetDim mrc2 As ADODB.Recordsettxtsql = select jf.学号,xj.姓名,xj.班级,jf.学期,jf.交费,jf.欠费,jf.日期,jf.操作员 from jf inner join xj on jf.学号=xj.学号 where jf.学期= & maxx & 年度第二学期 and xj.班级= & Trim(classtxt) & order by jf.学号,jf.日期Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Thentxtsql = sele

42、ct jf.学号,xj.姓名,xj.班级,jf.学期,jf.交费,jf.欠费,jf.日期,jf.操作员 from jf inner join xj on jf.学号=xj.学号 where jf.学期= & maxx & 年度第一学期 and xj.班级= & Trim(classtxt) & order by jf.学号,jf.日期Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Then MSF1.Clear Exit SubElse maxx = maxx & 年度第一学期End IfElsemaxx = maxx & 年度第二学期End Ift

43、xtsql = select 学号,sum(欠费) from jf where 学期 & maxx & and 学号 in (select 学号 from jf where 学期= & maxx & ) and 学号 in (select 学号 from xj where 班级= & Trim(classtxt) & ) group by 学号 Set mrc1 = ExecuteSQL(txtsql)txtsql = select 学号,sum(欠费) from jf where 学号 in (select 学号 from xj where 班级= & Trim(classtxt) & )

44、group by 学号 Set mrc2 = ExecuteSQL(txtsql)Dim j As IntegerDim i As IntegerIf mrc.EOF = True Then MSF1.Clear Exit SubEnd Ifmrc.MoveFirstWith MSF1 .Rows = 20XX .Row = 1 Do Until mrc.EOF .Rows = .Rows + 1 .TextMatrix(.Row, 1) = mrc.Fields(0) .TextMatrix(.Row, 2) = mrc.Fields(1) .TextMatrix(.Row, 3) = mrc.Fields(2) .TextMatrix(.Row, 4) = mrc.Fields(3) .TextMatrix(.Row, 5) = ￥ & Format(mrc.Fields(4), 0.00) If Val(mrc.Fields(5) = 0 Then .MergeCells = flexMergeFree .MergeRow(0) = True .M