学生信息管理系统文档.doc

目录引言第一章 可行性研究报告11.1 编写目的31.2 项目背景31.3 可行性研究的前提31.4 项目范围5 1.5 初步想法及可行性研究6第二章 需求分析82.1 任务概述82.2 数据描述102.3 功能需求102.4 其他需求11 第三章 概要设计133.1 设计方案的选择133.2 软件结构设计13第四章 详细设计15 第五章 系统实现16总结 引言 这个文档主要是介绍了我在制作学生信息管理系统时的步骤。我首先对这方面以前的系统进行分析得出现有系统所具有的不足，然后根据自己所想的在头脑中形成了一个大概的系统形式，借鉴现有系统的优点进行设计。我对这个系统先进行调查看是否能够被使用。写好可行性研究报告进行需求分析，根据自己的需求分析来设计这个系统。 学生管理系统是一个很简单的系统，我是使用Visual Basic开发应用程序来开发这个系统，并按照软件开发的过程介绍软件的开发过程和技术要点。同时我在使用Visual Basic开发的过程中使用了数据库，我把Visual Basic与数据库连接起来。在这里我使用的数据库是很简单的Access 数据库。 第一章 可行性研究报告 1.1 编写目的随着学校的扩展，学校的学生越来越多，少则几十人、多则上万人。例如我们学校就有几万人，为了能够更好的了解，知道这些学生的信息，修改学生的信息，我们学校必须要有一个好的管理系统，管理学生的信息。我根据这个问题提出了这个系统的开发。我根据这些问题开发了一个小型的学习信息管理系统。1.2 项目背景项目名初步定为：学生信息管理系统。分为五个子功能模块：密码管理模块，学生信息模块，信息修改、删除、更新、编辑模块，查询模块和数据导入/导出模块。本项目的任务设计过程参考了数据库里的数据库管理系统。1.3 可行性研究的前提1. 模板中的英文说明 serial ： 学生的序号也是登录界面里的密码name : 学生的名字class: 学生所在的班级Birthday: 学生的生日 sex: 学生的性别Addess: 学生的地址 tel: 学生的电话2. 基本要求学生信息管理系统应便于对学生信息进行分类和管理，提高工作效率，便于操作，能有效地对数据进行更新、查询，并能在一定程度上实现自动化，大大的节省了各项开支时间。（1）功能：学生信息管理系统的主要功能为：数据更新、数据查询、密码管理和报表等功能。数据更新功能分为三部分：数据添加、数据删除和数据修改。登入界面有两种身份，如果你是教务管理人员，那么你登录时应该选择“教务管理人员”用这个身份登录的人可以修改、删除、添加学生信息也可以查找不同学生的信息，能够方便的管理学生的信息。如果你是学生，那么你选择“学生”这个身份，用这个身份登录系统的用户不能修改、删除、添加学生信息而且只能查找自己的信息，不能查找其他学生的信息。 数据删除功能将满足用户要求的相应记录从数据库中删除。数据修改功能允许用户对他所指定记录的相关信息进行修改。数据查询功能允许用户可以方便快捷地浏览全部记录且允许用户构造各种组合条件来处理所需信息。同时可对满足条件的信息进行报表生成。密码不能被修改。数据导入/导出功能允许将学生的信息打印出来。（2）性能：方便快捷有效地完成学生信息管理的各项工作，录入数据合法性的校验程度高，数据查询速度快，能大大减轻人力和物力、财力等。（3）系统的输入：学生的全部信息。（4）系统的输出：查询的结果和各种类型的报表。（5）处理流程：（6）安全和保密要求：系统对不同权限的用户提供不同的功能模块，对历史数行查询操作。对数据库的关键数据应要求保密。2、 开发目标系统的开发目标应考虑如下因素：（1） 人力与设备费用的相对减少；（2） 处理速度的提高；（3） 控制精度的提高；（4） 人员利用率的改进。硬件环境和软件环境可以比较宽松。用了我自己的电脑，在中文Windows xp的环境下。 1.4 项目范围可利用的信息和资源：可参考已有的应用程序和数据库管理系统。1.进行可行性研究采用的方法如下：（1） 客户调查；（2） 专家咨询；（3） 市场相关产品、同类产品调查；2.评价尺度系统进行评价时所使用的主要尺度为各项功能的优先次序、开发时间的长短及使用中的难易程度。1.5 初步想法及可行性研究1. 对现有系统的分析：我们通常使用的信息管理文件上的信息虽然不多，累积起来占据的空间却很大；同时，这些传统的手动管理方式存在着不易更新、不易存放、容易丢失、难以备份等重大缺陷；而自己建立简单的电子文档对信息管理进行管理虽然克服了以上的缺点，但查询效率较低，特别是当数据量十分庞大时，劣势尤其明显。随着商务通的出现，虽然实现了构造查询条件的电子化管理，但价格昂贵，难以在广大客户中进行全面普及。 2. 所建系统的技术可行性分析（1） 对所建议系统的简要描述：学生信息管理系统采用常规的数据库管理方法，根据信息管理的特点对数据库操作，比如对数据的增加、修改、删除、打印和输出等给予了优化。例如对学生的基本信息的记录和更改都实现了信息化（2） 与现有系统比较的优越性：学生信息管理系统有利数据的集中、有效管理。与手动管理方式相比，占据空间小，易更新，易备份。学生管理系统增强了系统的灵活性。当原始数据发生变动时，应用程序可以对数据库稍作修改即可，如某个学生的联系电话发生变动，只要教务管理人员知道就可以更改，便于学校能够全面的知道学生的信息。学生管理系统能够较好地保证数据库的安全，为用户并为之分配密码和操作权限，这样，任何用户只能在他的权限范围内对数据库进行操作。采用人事管理系统将大大提高用户查找相关信息的命中率，有利于决策优化及提高办公效率。同时本系统有利于节省办公用品，进一步减少经费支出和节省宝贵的时间。（3） 所建议系统的经济可行性分析（投资和效益分析）1支出：硬件设备， Visual Basic 6.0，Access数据库软件设计和开发费用。2效益：减少人力投资和办公费用，极大提高办公效率。3投资回收周期 （4） 数据流程： 密码身份验证用户打印机处理外设报表记录数据打开反馈信息密码 数据流图第二章 需求分析 2.1 任务概述1. 编写目的：随着学校的扩展，学校的学生越来越多，少则几十人、多则上万人。例如我们学校就有几万人，为了能够更好的了解，知道这些学生的信息，修改学生的信息，我们学校必须要有一个好的管理系统，管理学生的信息。我根据这个问题提出了这个系统的开发。我根据这些问题开发了一个小型的学习信息管理系统。 2. 项目背景：项目名初步定为：学生信息管理系统。分为五个子功能模块：密码管理模块，学生信息模块，信息修改、删除、更新、编辑模块，查询模块和数据导入/导出模块。本项目的任务设计过程参考了数据库里的数据库管理系统。 3. 术语说明serial ： 学生的序号也是登录界面里的密码name : 学生的名字class: 学生所在的班级Birthday: 学生的生日 sex: 学生的性别Addess: 学生的地址 tel: 学生的电话4. 项目概述 1. 待开发软件的一般描述 本软件旨在为学校事业单位中负责学生信息的人提供一个功能齐全、使用方便的学生信息关系数据库管理系统，以代替手工管理。 2. 待开发软件的功能如下图所示： 层次方块图： 图一 层次方块图报表记录数据打开 图二 顶层数据流图3. 运行环境 （1） 硬件环境 PC机或更加高档的微型机、笔记本等。（2） 软件环境 Windows 系列的系统4. 条件与限制考虑到本系统使用的广泛性，这设计时应该注意它的可移植性；能方便地将其移植到其它平台。本系统所管理的是学生的信息应该在一定程度上可以说是学生的隐私，必须注意安全的防范。同时应用标准的数据格式来实现，以方便数据的共享。2.2 数据描述1. 静态数据各位学生的信息2. 动态数据输入数据：学生的各种信息输出数据：查询的结果及各位学生的信息报表3. 数据库介绍 我使用的数据库是最简单的一种 Access 数据库4. 数据字典名字：学生基本信息别名：学生信息描述：唯一标识学生的一个特定的关键域定义：学生基本信息 =学号+姓名+班级+性别+出生日期+家庭住址+电话+简历位置：学生基本信息2.3 功能需求1. 功能划分本系统具有如下主要功能：登录功能身份验证功能查询功能删除功能添加功能更新功能编辑功能生成报表功能2. 功能描述（1）登录功能 登入界面有两种身份，如果你是教务管理人员，那么你登录时应该选择“教务管理人员”用这个身份登录。如果你是学生，那么你选择“学生”这个身份，用这个身份登录系统。（2）身份验证功能 如果你登录的密码或用户名是错误的，系统会提示你登录错误，请重复登录。（3）查询功能不论你时学生还是教务管理人员，你都有权利查询信息。不过学生只能查询自己的信息不能查询其他学生的信息，而教务管理人员就不同了，他可以查询所用学生的信息。（4）删除功能 这个功能只有你是以教务管理人员的身份登录后才有的功能。所以这是教务管理人员独有的权利。删除一位学生的信息，并且提供确认机制。（5）添加功能与删除功能一样只有教务管理人员才有的。添加一位学生的信息，并且提供确认机制。（6）更新功能与删除功能一样只有教务管理人员才有的。更新学生的信息。（7）编辑功能 也是只有教务管理人员才有的功能。编辑功能其实就是修改学生的信息。（8）报表生成功能 只有教务管理人员才有的功能。把学生的基本信息导出来。可以用打印机打印出来。2.4 其它需求1. 外部接口需求（1）用户界面：采用Windows 的通用图形界面，对用户友好，且必须对鼠标和键盘提供支持，界面的设计应遵循如下的规则. 界面要具有一致性，界面规范应遵循Windows 软件的界面的规范。 提供简单的错误处理。 提供信息反馈，画面要简洁明快，富有现代气息。（2）硬件接口支持一般的PC机或更高的微机，笔记本。（3） 软件接口运行于Windows 的操作系统。2. 性能需求（1）数据准确度查询时应保证查全所有的相关信息。即保证查全率。查询时应保证你所查信息的准确率。（2）适应性满足个人使用的需求，对前面提到的运行环境要求不应该存在困难。3.软件属性需求（1） 正确性要求完成的系统达到自己预定的目标，运行时基本没有错误。（2）可靠性在一般的情况下，应该不能出现故障。（3）效率对于查询、删除、编辑、更新等设置的操作要求及时回应。（4）完整性要求能在意外的情况下，保证数据不丢失。（5）保密性要求提供身份认证，只允许通过身份验证的用户使用本系统。 第三章 概要设计3.1 设计方案的选择分析员应以数据流图为依据设想不同的自动化边界，导出多个初步的实现方案，分析比较这些方案，从中选出一个最佳方案向用户和使用部门负责人推荐。对于学生信息管理系统在图中描绘了一些自动化边界。如图3.2 软件结构设计软件结构设计的主要任务是把系统内部各种功能关系变换成程序模块之间的控制系统。（1）复查并确定数据流图的类型。学生信息管理系统的数据流图具有较明显的输入、中心变换和输出等几个部分。学生信息是输入部分，查询、修改等是中心变换部分，报表等是输出部分。（2）设计上层模块。上层模块如图所示。主控模块“学生系统”为顶层，分输入，中心变换，输出。学生信心管理系统上层模块如图：（3）分解上层模块设计中、下模块。可以把上层模块分解为下图所示：由图可见，“学生信息管理”模块总是最先开始运行。最后的得到完整的结构图：第四章 详细设计详细设计阶段的根本目标是确定应该怎样具体地实现所需求的系统，也就是说，经过这个阶段的设计工作，得出对目标系统的精确描述，从而在编码阶段可以把这个描述直接翻译成某种程序设计的代码。根据概要设计里最后得出的完整结构图已经表示成由若干模块组成的层次结构。每个模块代表一组详细的处理逻辑。为了更好的描述模块的逻辑，应对每个模块用一张IPO图进行细节描述。例如学生信息管理主控模块的IPO图为：程序设计说明模块描述本系统的详细功能模块是概要设计里的完整结构图。 第五章 系统实现根据开始的需求分析得出的设计方案，我用VB来实现这个系统。具体实现步骤如下：首先我设计了这个系统版面：第一个模块如图这个模块的实现代码如下：Option ExplicitPublic mbAbout As BooleanSub UnloadForm() Unload Me If Not mbAbout Then frmLogin.ShowEnd SubPrivate Sub Form_Click() UnloadFormEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer) UnloadFormEnd SubPrivate Sub fraEdge_Click() UnloadFormEnd SubPrivate Sub imgLogo_Click() UnloadFormEnd SubPrivate Sub Label3_Click() UnloadFormEnd SubPrivate Sub lblInfo_Click(Index As Integer) UnloadFormEnd Sub第二个模块的界面如下图所示：这个模块的实现代码如下：Option Explicit 表示当前用户登录所选择的身份，即用户类型, 0-表示教务管理人员；1-表示学生 Dim mnUserType As IntegerPrivate Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdOK_Click() 取得用户输入的用户名和密码 Dim user As String, pwd As String user = txtUser pwd = txtPwd 根据不同的身份，选择不同的表用以查询 Dim r As New ADODB.Recordset Set r = DataEnv.rssqlSeek Dim strSQL As String Select Case mnUserType Case 0: 若身份为管理员 strSQL = select * from admin where name= & user & and pwd= & pwd & Case 1: 若身份为学生 strSQL = select * from student where name= & user & and serial= & pwd & End SelectOn Error Resume Next 查询DataEnv.rssqlSeek的状态，如果已经打开，则先关闭 If r.State = adStateOpen Then r.Close r.Open strSQL 根据strSQL的内容刷新DataEnv.rssqlSeek 用户密码错误的次数，如果错误次数超过3次，则退出系统 Static nTryCount As Integer If r.EOF Then 登录失败 MsgBox 对不起，无此用户或者密码不正确！请重新输入！, vbCritical, 错误 txtUser.SetFocus txtUser.SelStart = 0 txtUser.SelLength = Len(txtUser) nTryCount = nTryCount + 1 If nTryCount = 3 Then MsgBox 您无权操作本系统!再见！, vbCritical, 无权限 Unload Me End If Else 登陆成功 显示MDI窗体, 并将用户类型和用户名传到MDI窗体中的mnUserType, msUserName中 Load MDIMain With MDIMain .mnUserType = mnUserType .msUserName = pwd .Show End With Unload Me End IfEnd SubPrivate Sub Form_Load() optUserType(0).Value = TrueEnd SubPrivate Sub optUserType_Click(Index As Integer) mnUserType = IndexEnd Sub第三个模块界面如图所示：这个模块很简单代码如下：Option Explicit 表示当前的用户类型0-管理员类型的用户; 1-学生类型的用户Public mnUserType As Integer 表示当前登录的用户名Public msUserName As StringPrivate Sub MDIForm_Activate() 根据不同的用户类型，使相应的菜单项可见 Select Case mnUserType Case 0: 以管理员身份登录 mnuFind.Visible = True Case 1: 以学生身份登录， 只能查询自己的信息 mnuFind.Visible = False End SelectEnd SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(真的要对出本系统吗？, vbQuestion + vbYesNo + vbDefaultButton2, 退出) = vbNo Then Cancel = 1 End IfEnd SubPrivate Sub mnuAbout_Click() 显示“关于.”窗口 Load frmSplash frmSplash.mbAbout = True frmSplash.Show vbModalEnd SubPrivate Sub mnuExit_Click() Unload MeEnd SubPrivate Sub mnuFind_Click() frmStudent.Show frmStudent.cmdSeek.Value = TrueEnd SubPrivate Sub mnuLogin_Click() If MsgBox(若重新登录，所有窗体都将关闭！是否重新登录？, _ vbQuestion + vbYesNo + vbDefaultButton2, 重新登录) = vbYes Then Unload MDIMain frmLogin.Show End IfEnd SubPrivate Sub mnuStudent_Click() If mnUserType = 0 Then 若为管理员用户 frmStudent.Show Else 若为学生类用户 frmView.Show End IfEnd Sub如果登录的是学生并且我是一个学生为例。我在登录界面里选择学生登录。学生登录时的用户名是自己的名字，密码是自己的学号。我是用张三这个用户名登录他的密码是9811101。则下个界面如下：这个界面的代码如下：Option ExplicitPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub Form_Load() 根据当前登录的用户在DataEnv.rsStudent中查找到对应的记录 DataEnv.rsStudent.Find serial = & MDIMain.msUserName & End Sub如果你是用教务管理人员的身份登录的话，你得到的界面如下图所示：在这里我用的用户名是admin,密码是111。这样就是一个教务工作者的权利。代码如下：Option ExplicitDim mbClose As BooleanDim mstrFileName As String Sub RefreshBinding() On Error Resume Next With DataEnv.rsStudent If DataEnv.rssqlSeek.BOF And DataEnv.rssqlSeek.EOF Then txtSerial = txtName = txtBirthday = txtTelephone = txtAddress = txtResume = Else txtSerial = .Fields(serial) txtName = .Fields(name) txtBirthday = .Fields(birthday) txtTelephone = .Fields(tel) txtAddress = .Fields(address) txtResume = .Fields(resume) cboSex.Text = .Fields(sex) dcbClass.Text = .Fields(class) End If End WithEnd SubSub SeekStudent(sSerial As String) If Not (DataEnv.rsStudent.EOF And DataEnv.rsStudent.BOF) Then Dim Temp As String Temp = serial = & & sSerial & DataEnv.rsStudent.MoveFirst DataEnv.rsStudent.Find Temp Call RefreshBinding End IfEnd SubSub RefreshGrid() grdScan.DataMember = grdScan.Refresh DataEnv.rssqlSeek.Requery grdScan.DataMember = sqlSeek grdScan.Refresh Call grdScan_ChangeEnd SubSub ChangeBrowseState() With DataEnv.rssqlSeek If .State = adStateClosed Then .Open If .BOF And .EOF Then cmdAdd.Enabled = True cmdEdit.Enabled = False cmdDelete.Enabled = False cmdUpdate.Enabled = False cmdReport.Enabled = FalsefraBrowse.Enabled = False Else cmdAdd.Enabled = True cmdEdit.Enabled = True cmdDelete.Enabled = True cmdUpdate.Enabled = False cmdReport.Enabled = True fraBrowse.Enabled = True End If If .BOF Then If Not .EOF Then DataEnv.rsStudent.MoveFirst cmdPrevious.Enabled = False cmdFirst.Enabled = False Else cmdPrevious.Enabled = True cmdFirst.Enabled = True End If If .EOF Then If Not .BOF Then DataEnv.rsStudent.MoveLast cmdNext.Enabled = False cmdLast.Enabled = False Else cmdNext.Enabled = True cmdLast.Enabled = True End If End With mstrFileName = End SubPrivate Sub cboDep_Click() Dim rsClass As New ADODB.Recordset Dim strSQL If cboDep.ItemData(cboDep.ListIndex) = 0 Then strSQL = select * from class Else strSQL = select * from class where dept_id= & cboDep.ItemData(cboDep.ListIndex) End If rsClass.Open strSQL, DataEnv.Con cboClass.Clear cboClass.AddItem 全部 While Not rsClass.EOF cboClass.AddItem rsClass(Name) rsClass.MoveNext Wend cboClass.ListIndex = 0 rsClass.Close Set rsClass = NothingEnd SubPrivate Sub cmdAdd_Click() fraSeek.Enabled = False fraBrowse.Enabled = False grdScan.Enabled = False DataEnv.rsStudent.AddNew txtBirthday.Text = 1980-01-01fraInfo.Enabled = True fraBrowse.Enabled = False cmdAdd.Enabled = False cmdEdit.Enabled = False cmdDelete.Enabled = False cmdUpdate.Enabled = True cmdReport.Caption = 取消 cmdReport.Enabled = True mbClose = FalseEnd SubPrivate Sub cmdDelete_Click() On Error GoTo errHandler If MsgBox(要删除记录?, vbYesNo + vbQuestion + vbDefaultButton2, 确认) = vbYes Then DataEnv.Con.Execute delete from student where serial = & txtSerial & DataEnv.rsStudent.MoveNext If DataEnv.rsStudent.EOF Then DataEnv.rsStudent.MoveLast Call RefreshGrid End If Exit Sub errHandler: MsgBox Err.Description, vbCritical, 错误End SubPrivate Sub cmdEdit_Click() fraSeek.Enabled = False fraBrowse.Enabled = False grdScan.Enabled = False fraInfo.Enabled = True cmdAdd.Enabled = False cmdEdit.Enabled = False cmdDelete.Enabled = False cmdUpdate.Enabled = True cmdReport.Caption = 取消 cmdReport.Enabled = True mbClose = FalseEnd SubPrivate Sub cmdFirst_Click() DataEnv.rssqlSeek.MoveFirst DataEnv.rssqlSeek.MovePrevious Call ChangeBrowseStateEnd SubPrivate Sub cmdLast_Click()DataEnv.rssqlSeek.MoveLast DataEnv.rssqlSeek.MoveNext Call ChangeBrowseStateEnd SubPrivate Sub cmdList_Click() Dim strSQL If cboClass.Text = 全部 Then strSQL = from student order by serial Else strSQL = from student where class= & cboClass & order by serial End If DataEnv.rsStudent.Close DataEnv.rsStudent.Open select * & strSQL DataEnv.rssqlSeek.Close DataEnv.rssqlSeek.Open select serial, name & strSQL Call RefreshGrid Call ChangeBrowseState Call grdScan_ChangeEnd SubPrivate Sub cmdNext_Click() DataEnv.rssqlSeek.MoveNext Call ChangeBrowseStateEnd SubPrivate Sub cmdPrevious_Click() 移动到记录的上一条 DataEnv.rssqlSeek.MovePrevious Call ChangeBrowseStateEnd SubPrivate Sub cmdReport_Click() On Error Resume Next If cmdReport.Caption = 取消 Then DataEnv.rsStudent.CancelUpdate If DataEnv.rsStudent.BOF Then DataEnv.rsStudent.MoveFirst Else DataEnv.rsStudent.MovePrevious DataEnv.rsStudent.MoveNext End If Call RefreshBinding Call ChangeBrowseState fraSeek.Enabled = True fraBrowse.Enabled = True fraInfo.Enabled = False grdScan.Enabled = True cmdReport.Caption = 报表(R) mbClose = True Else Dim strSQL As String DataEnv.rsrptStudent.Close strSQL = select * from student where serial = & txtSerial.Text & DataEnv.rsrptStudent.Open strSQL rptStudent.Show End IfEnd SubPrivate Sub cmdSeek_Click() With frmFind Dim i As Integer Load frmFind .lstFields.Clear For i = 0 To DataEnv.rsStudent.Fields.Count - 1 .lstFields.AddItem (DataEnv.rsStudent(i).Name) Next i .lstFields.ListIndex = 0 .Show 1 If .mbFindFailed Then Exit Sub Dim sTemp As String If LCase(.msFindOp) = like Then sTemp = .msFindField & & .msFindOp & % & .msFindExpr & % Else sTemp = .msFindField & & .msFindOp & & .msFindExpr & End If sTemp = select * from student where & sTemp & order by serial Unload frmFind End With DataEnv.rssqlSeek.Close DataEnv.rssqlSeek.Open sTemp Call RefreshGrid Exit Sub errHandler: MsgBox 没有符合条件的纪录！, vbExclamation, 确认End SubPrivate Sub cmdUpdate_Click() On Error GoTo errHandler: Dim str As String str = txtSerial.Text With DataEnv.rsStudent .Fields(Serial) = txtSerial.Text .Fields(name) = txtName.Text .Fields(sex) = cboSex.Text .Fields(class) = dcbClass.Text .Fields(birthday) = txtBirthday.Text .Fields(tel) = txtTelephone.Text .Fields(address) = txtAddress.Text .Fields(resume) = txtResume.Text .Update End With cmdReport.Caption = 报表(&R) cmdUpdate.Enabled = False fraInfo.Enabled = False mbClose = True If DataEnv.rssqlSeek.State = adStateClosed Then DataEnv.rssqlSeek.Open Call RefreshGrid Call ChangeBrowseState DataEnv.rssqlSeek.MoveFirst DataEnv.rssqlSeek.Find serial= & str & fraSeek.Enabled = True fraBrowse.Enabled = True grdScan.Enabled = True Exit Sub errHandler: MsgBox Err.Description, vbCritical, 错误End SubPrivate Sub dcbClass_Click(Area As Integer) If txtSerial = Then txtSerial = dcbClass.Text End IfEnd SubPrivate Sub Form_Load() On Error Resume Next Dim rsDep As New ADODB.Recordset, rsClass As New ADODB.Recordset Set rsDep = DataEnv.rsDepartment Set rsClass = DataEnv.rsClass rsDep.Open