学生信息管理系统设计与实现.doc

学生信息管理系统设计与实现*物理与电子信息学院 电子信息科学与技术 学号：080524027指导教师：*摘要：本设计在Windows XP环境下，以VB 6.0作为开发工具，采用SQL Server数据库，开发了一套学生信息管理系统。使用该系统可对学生信息进行日常管理，如查询、修改 、增加、删除等操作。论文首先对开发环境和开发工具做了简要介绍，接着以图表的形式说明系统各模块的功能，重点描述了各部分的实现方法，并给出了运行结果。实验结果表明，该系统能够完成信息的输入/输出，数据的查询、修改、增删等功能。并且系统界面友好，操作简单，能实现基本的信息管理功能，具有一定的实用价值。关键词：Design and Realization of Students Information Management System Li Yan-nanCollege of Physics and Electronic Information Electronic Information Science and Technology No:080524027Tutor: Cui Jian-huaAbstract: A students information management system was developed with VB 6.0 as developing tool and SQL Server as database in the Windows XP environment. Daily management of students information, such as query, modify, add, delete and other operations, can be completed using the system. In the paper, the development environment and tools were introduced briefly, and then each module function of the system was illustrated with pictures and charts. Then, the realization method was described in detail and the running results of those modules were exhibited. The experimental results show that, the system can complete functions such as information input /output, query, modify, add and delete etc. The system with a friendly interface can complete basic information management simply, so it has a certain practical value. Key words: information management system; database; VB 6.0; SQL server; ADO目 录摘要11 引言22 开发环境和工具32.1 Visual Basic 6.032.2 SQL Server 200852.3 ADO简介62.4 VB使用ADO访问数据库的方法73 系统设计方案83.1 系统功能分析83.2 系统结构83.3 系统E-R图93.4 数据库设计104系统的实现124.1 欢迎和登陆界面124.2 主窗体设计134.3 关于系统窗体设计174.4 系统主要功能介绍175 总结21参考文献22附录231 引言随着全球以信息技术为主导的科技革命进程的加快，人类社会逐步由工业社会进入信息社会。信息技术是当代最具潜力的新生产力，信息资源是经济和社会发展的重要战略资源。信息化成为各国经济和科技竞争的制高点，信息化程度已成为衡量一个国家和地区现代化水平和综合实力的重要标志。随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对如此庞大的信息量，建立一个完善的学生信息管理系统对学生管理工作效率的提高至关重要。使用学生信息管理系统可以做到信息的规范管理和科学统计，从而减少管理方面的工作量1。本次毕业设计在Windows XP环境下，以Visual Basic 6.0作为开发工具，采用SQL Server数据库，开发了一套学生信息管理系统。使用该系统可对学生信息进行日常管理，如查询、修改 、增加、删除等操作，从而实现系统化、规范化和自动化的信息管理。2 开发环境和工具2.1 Visual Basic 6.0微软公司的Visual Basic 6.0（以下简称VB6.0）是Windows应用程序开发工具，也是目前最为广泛的、易学易用的面向对象的开发工具之一。VB6.0提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性2。利用VB 程序设计语言，可以很方便地设计出在Windows环境下运行的应用程序。2.1.1 Visual Basic的编程特点（1）可视化的设计平台VB提供的可视化的设计平台，把Windows界面设计的复杂性“封装”起来。程序员不必再为界面的设计而编写大量的程序代码，只需按设计的要求，用系统提供的工具在屏幕上“画出”各种对象，VB自动产生界面设计代码，程序员所需要编写的只是实现程序功能的那部分代码，从而大大提高了编程的效率。 （2）面向对象的设计方法 VB采用面向对象的编程方法（Object Oriented Programming），把程序和数据封装起来作为一个对象，并为每个对象赋予相应的属性。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具“画”在界面上，由VB自动生成对象的程序代码并封装起来。 （3）事件驱动的编程机制VB通过事件来执行对象的操作。在设计应用程序的时候，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或由事件驱动程序调用通用过程来执行指定的操作。（4）结构化的设计语言 VB是在结构化的BASIC语言基础上发展起来的，加上了面向对象的设计方法，因此是更出色的结构化程序设计语言。（5）充分利用Windows资源VB提供的动态数据交换（Dynamic Data Exchange）编程技术，可以在应用中实现与其它Windows应用程序建立动态数据库交换，并可在不同的应用程序之间进行通信的功能3。2.1.2 VB支持的数据库和数据库开发工具VB支持对多格式的数据库的访问和维护，无论是Access还是Foxpro中创建的数据库，都可以用VB打开，对其进行查询、修改和删除等操作3。事实上，VB几乎支持对市面上所有数据库的访问。VB对多种数据库格式的支持，大大的增强了开发数据库应用程序的能力。在应用程序开发中，VB提供包含数据管理（DataManager），数据控件（Data Control）以及数据编程对象（数据访问对象（DAO）、远程数据对象（RDO）和ActiveX数据对象（ADO）等功能强大的工具4，协助设计人员轻松的连接数据库文件，并访问其中的数据，在功能方面与其他一些专业数据库软件（如FoxPro，Micosoft Access等）不相上下。（1）数据管理器（Data Manager）数据管理器是Visual Basical已有的老成员之一，它有Jet数据库引擎（Database Engine）可以帮助VB程序元件立即维护数据库内容，并可通过输入查询或查找数据库信息，而不必再通过其他数据库软件另外去设计数据库。（2）数据控件（Data Control）数据控件是VB所提供的基本控件成员之一。它使得设计者省下一堆程序代码编写的工作，能够轻松的设计及维护数据库内容。数据控件可以通过一些属性的设置去链接某个数据库文件，但是它本身并无法显示数据库各个记录的内容，必须在搭配其他具有数据感知（Data Aware）功能的控件对应并显示一个字段内容，以方便地进行记录的浏览及编辑工作。（3）数据编程对象DAO让程序设计者拥有更大的发挥空间。借助程序代码编写，直接控制Jet数据库引擎，配合数据库控件，能够开发出更具弹性且高效率的数据应用程序。RDO是处理远程数据库的一些专门需要的对象集合。使用RDO可以不用本地的查询机就能访问ODBC数据源，这无疑将大大提高应用程序的性能。ADO是VB6.0中新增的对象，它是一个更简单的对象模型，它更好的集成了其它数据访问技术，并且对本地和远程数据库均有共同的界面，可以取代DAO和RDO。ADO更易于使用。2.2 SQL Server 20082.2.1 SQL Server 2008简介SQL是Structure Query Language的缩写，即结构化查询语言，是操作关系型数据库的标准语言。通过SQL命令，可以从数据库的多个表中获取数据，也可对数据进行更新操作5。SQL具有结构简洁功能强大简单易学等特点。目前无论是SQL ServerSybaseOracel这些大型的数据库管理系统还是Accessvisual FoxPro这些桌面数据库管理系统，都支持SQL。SQL Server 2008是微软公司推出的中大型数据库管理系统，建立在成熟而强大的关系模型基础之上，可以很好地支持客户机服务器网络模式。SQL Server 2008是杰出的数据库平台，能够满足各种类型的企事业单位对构建网络数据库的需求，同时还具有功能强大安全可靠等特点，可用于大型联机事务处理数据仓库及电子商务等。它与Windows操作系统紧密集成，具有方便易用的图形界面，并提供了一套完整的管理工具和实用程序，大大减轻了管理员的工作量，使用户对数据库的操作变得简单，使许多以前需要手工进行处理的复杂任务，现在可以通过图形化界面和向导工具来轻松完成6。正是由于SQL Server 2008具有操作简单、功能强大、安全性高等特点，目前已经成为各类学校学习大型数据库管理系统的所选对象之一。2.2.2 SQL 基本语句SQL的基本语句有：Select、Delete、Update、Insert Into5。（1）筛选及排序记录的Select指令基本句型一：Select 字段串列 From 数据表基本句型二：Select From Where 筛选条件基本句型三：Select From Order By字段串列Select Top：限定选取数据的条数（2）删除数据记录的Delete指令基本语法：Delete From 数据表 Where 条件式（3）更新数据记录的Update指令基本语法：Update 数据表Set 表达式（4）增加数据记录的Insert Into 指令基本句型一：Insert Into 数据表 (字段串列) Values (字段串列)基本句型二：Insert Into 数据表 (字段串列) Select 查询语句2.3 ADO简介ADO 是ActiveX Data Objects的缩写，是一项新的数据库的存取技术。可供应用程序通过OLE DB提供者对数据库服务器的数据进行访问和操作（OLE DB是Microsoft推出的一种数据访问模式）。ADO实质上是一种提供访问各种数据类型的连接机制，它通过其内部的属性和方法提供统一的数据访问接口。适用于SQL serverOracleAccess等关系型数据库，也适合Excel表格电子邮件系统图形格式文本文件等数据资源。ADO的主要优势是易于使用高速低内存开销和较少的磁盘占用。为了便于用户使用ADO数据访问技术，VB 6.0提供了一个图形控件Ado Data Control，它有一个易于使用的界面，可以用最少的代码创建数据库应用程序3。ADO基本编程模型如下：连接到数据源指定访问数据源的命令执行命令若命令式数据按行的形式返回，则将行存入缓存中用缓存行的更改内容来更新数据源提供常规方法检测错误ADO只有6个对象，如图1所示，却涵盖了所有数据库应用程序的基本任务类型，包括读写数据排序筛选记录集及更新数据等。下面主要介绍ADO的Connection对象Command对象和Recordset对象。图1 ADO对象模型（1）Connection对象：用于建立与数据库的连接。通过连接可从应用程序访问数据源。它保存诸如指针类型连接字符串查询超时连接超时和缺省数据库这样的连接信息。（2）Command对象：在建立Connection后可以发出命令操作数据源。一般情况下Command对象可以在数据库中添加删除或更新数据或者在表中进行数据查询。Command对象在定义查询参数或执行一个有输出参数的存储过程时非常有用。 （3）Recordset对象：Recordset对象只代表一个记录集这个记录集是一个连接的数据库中的表或者是Command对象的执行结果返回的记录集。在ADO对象模型中是在行中检查和修改数据的最主要的方法所有对数据的操作几乎都是在Recordset对象中完成的8。2.4 VB使用ADO访问数据库的方法ADO能够存取到数据库的内容。首先要求数据库的驱动程序（ODBC驱动程序与OLE DB驱动程序）必须安装上，否则，ADO是无法存取数据库中内容。如图2所示，图中的“各种数据库所对应的驱动程序”即ODBC驱动程序与OLE DB驱动程序9。图2 数据库操作原理图使用ADO控件实现数据库访问的过程通常需要以下几步：（1）在窗体上添加ADO数据控件。（2）使用ADO连接对象建立与数据提供者直接的连接。（3）使用ADO命令对象操作数据源，从数据源中产生记录集并存放在内存中。（4）建立记录集与数据绑定控件的关联，在窗体上显示数据10。3 系统设计方案3.1 系统功能分析本系统是为学校管理学生和老师信息而开发的，其目的是实现科学、规范和自动化的信息管理，提高工作效率。使用本系统能够对信息进行科学管理和及时更新，应具备快速查询、修改、增删等功能。系统管理员或普通用户登陆该系统可进行六个模块操作：（1）学生基本情况更新：增加、修改、删除、查询（2）课程信息更新：增加、修改、删除、查询及成绩查询（3）系别信息更新：增加、修改、删除、查询（4）教师信息更新：增加、修改、删除、查询（5）帐户管理：增加、修改、删除、查询（6）查看详细信息：查看信息和密码修改3.2 系统结构本系统主要包括学生基本情况更新、课程信息更新、系别信息更新、教师信息更新、帐户管理和查看详细信息6个大的模块，各模块具体功能如图3所示。图3 系统各模块功能和权限示意图3.3 系统E-R图1. 用户（普通用户、管理员）实体图图4 用户实体图2. 学生实体图图5 学生实体图3. 学生选课关系图图6 学生选课关系图3.4 数据库设计在系统设计过程中，首先要建立的就是数据库。本数据库采用SQL Server 2008来构造，共使用了7个表，它们分别是用户信息表（userInfo）、学生信息表（student）、学生成绩表（sc）、课程信息表（course）、系别信息表（dept）、学生系别信息表（sd）、教师信息表（teacher）。 表1 用户信息表（userInfo）列名数据类型长度允许Null值userIDchar6NOT NULLuserNamechar12NOT NULLisAdminbitNOT NULLPasswordchar12NOT NULLtelchar11NOT NULLemailchar30NOT NULLaddresschar30NOT NULLcreateDatedatetimeNOT NULL表2 学生信息表（student）列名数据类型长度允许Null值学号char12NOT NULL姓名char8NOT NULL身份证号char18性别char2生日datatime联系电话char11宿舍char10表3 学生成绩表（sc）名称数据类型长度允许Null值学号char10NOT NULL课程名char10NOT NULL成绩int3表4 课程信息表（course）名称数据类型长度允许Null值课程号int6NOT NULL课程名char20NOT NULL学分intNOT NULL授课教师char10NOT NULL表5 系别信息表（dept）名称数据类型长度允许Null值系别号char4NOT NULL系别名char30NOT NULL负责人char8NOT NULL表6 学生系别信息表（sd）列名数据类型长度允许Null值系别号char4NOT NULL学号char10NOT NULL表7 教师信息表（teacher）列名数据类型长度允许Null值工号char7NOT NULL姓名char10NOT NULL性别char2NOT NULL生日datatimeNOT NULL职称char6NOT NULL身份证号char19NOT NULL联系电话char11NOT NULL4系统的实现4.1 欢迎和登陆界面添加一个窗体head（from1），窗体运行情况如图7所示，点击里面的label2“登陆管理”，即可调用如图8所示的登陆窗体。图7 登陆管理窗体图该部分主要为用户的验证。主要代码为：Adodc1.RecordSource = select password,isAdmin,userID from userInfo where userName= & txtUserName.Text & 通过SQL的select语句将ADO数据控件连接到数据库的用户信息表Adodc1.RefreshSet DataGrid1.DataSource = Adodc1 将DataGrid1绑定到ADO数据控件psw = RTrim$(DataGrid1.Text) :If psw = txtPassword.Text Then MsgBox (用户名及密码匹配成功。) 密码正确弹出如图8所示对话框 DataGrid1.Col = 1 :isAdmin = DataGrid1.Text: userName = txtUserName.Text DataGrid1.Col = 2 :userID = DataGrid1.Text : localPassword = psw frmMain.Show 调出主窗体 Unload MeElse MsgBox (用户名或密码错误，登录失败。) 密码错误弹出对话框 txtUserName.Text = ： txtPassword.Text = :txtUserName.SetFocusEnd If :Exit Subcuo:MsgBox (数据库连接失败，请确认数据库被正确载入。): Exit Sub 数据库连接失败，弹出如图9所示对话框图8 登陆窗体图图9 数据库连接失败窗体图4.2 主窗体设计添加一个窗体（frmMain）。该部分添加了DataGrid、Adodc、command控件，菜单编辑器等多个控件。主窗体上有三个框架：信息总览、登陆用户信息、登出。4.2.1 菜单设计主窗体有文件和帮助两个菜单项。其中文件菜单项有四个选项：登陆信息、账号管理、注销登陆、退出。帮助菜单项有使用两个选项：帮助和关于。其中“登陆信息”功能模块可查看用户详细资料，进行密码修改。主要通过以下代码来显示用户信息：Adodc1.RecordSource = select * from userInfo where userID= & frmMain.Label2.Caption & 将ADO数据控件连接到数据库Adodc1.RefreshSet Label4.DataSource = Adodc1 将label绑定到ADO数据控件If isAdmin = False Then Label9.Caption = 普通 Else Label9.Caption = 管理员 在信息总览框架中显示出身份授权通过以下代码修改密码：con.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=SIM 设置ADO数据控件属性con.Execute (update userInfo set password= & Text2.Text & where userID= & Label4.Caption & ) 使用SQL的update更新指令con.Close图10 登陆信息图账号管理模块仅管理员可用，可以检索账号新建账号修改账号设置账号权限和删除账号。以管理员身份登陆后运行界面如图11所示。图11 账号管理界面图4.2.2 信息总览设计主窗体的信息总览包括四个部分，即：学生信息课程信息系别信息和教师信息。运行情况分别见图12 图15所示。 1. 学生信息管理界面在学生信息管理界面上，学生可进行条件查询和复位显示。管理员还可以添加、删除和修改学生信息。 图12 学生信息管理界面图2. 课程信息管理界面在课程信息管理界面上，学生可查询课程，可显示课程名、课程号、授课老师、选课人数及每个学生该门课的成绩，还可从自己的课表中添加或删除某门课。管理员还可以在课程列表中新增删除或修改一门选修课。图13 课程信息管理界面图3. 在系别信息管理界面学生可以对系别进行查询和复位显示，可显示系别名、系别号、系负责人和系内学生。还可以直接输入学号或学生名来检索学生。管理员则还可以新增删除或修改系别，可以在系内学生列表增加或删除学生。图14 系别信息管理界面4. 教师信息管理界面在教师信息管理界面，学生可以对教师信息进行条件查询和复位显示。管理员则还可以新增删除或修改教师信息。图15 教师信息管理界面图4.3 关于系统窗体设计由于这个窗体的设计很简单，所以在此只给出窗体的运行结果。关于系统运行情况如图16所示。 图16 关于窗体界面图4.4 系统主要功能介绍本系统的功能主要是查询、修改、添加删除信息。所以各举一个例子来说明。4.4.1条件查询以教师信息中的条件查询为例说明。点击“条件查询”命令按钮，运行效果如图17所示。输入工号、姓名、性别等信息进行查询，当“完全匹配”被选中时，查询的结果就会完全对应输入的信息。否则就进行模糊查询。图17 条件查询界面图主要代码为：If Check4.Value = 1 Or Check5.Value = 1 Then isLimit = True Else isLimit = False isLimit = True时限定了年龄If isLimit = True Then searchString = select * from teacher,teacherAge where teacher.工号=teacherAge.工号 Else searchString = select * from teacher where teacher.工号 is not null If Text1.Text Then If Check6.Value = 1 Then searchString = searchString & and 工号= & Text1.Text & Else searchString = searchString & and 工号 like % & Text1.Text & % 工号后的“完全匹配”被选中时查询的结果就会完全对应输入的信息。否则就使用like运算符进行模糊查询。 End IfIf Option1.Value = True Then searchString = searchString & and 性别=男If Option2.Value = True Then searchString = searchString & and 性别=女限定了性别If Check1.Value * Check2.Value 1 Then If Check1.Value = 1 Then searchString = searchString & and 职称=教授 If Check2.Value = 1 Then searchString = searchString & and 职称=讲师 End If 限定了职称对ADO数据控件进行数据绑定的代码为：frmMain.Adodc4.RecordSource = searchStringfrmMain.Adodc4.RefreshSet frmMain.DataGrid6.DataSource = frmMain.Adodc4 使查询结果在网格控件DataGrid6显示出来详细代码见附录代码清单2。4.4.2 修改信息以学生信息管理界面为例，只有管理员有权限修改信息。当以管理员的身份登陆时，双击网格时，可修改被选中的学生信息。运行效果如图18所示。图18 修改信息界面图主要代码为：con.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=SIM 对ADO数据控件进行数据库连接设置con.Execute (update student set 学号= & Text1.Text & ,姓名= & Text2.Text & ,身份证号= & Text4.Text & ,性别= & whatSex & ,生日= & Text3.Text & ,联系电话= & Text6.Text & ,宿舍= & Text5.Text & where 学号= & frmMain.Label14(0).Caption & ) 使用了SQL的update修改语句对ADO数据控件进行数据绑定的代码为：frmMain.Adodc1.RecordSource = select * from studentfrmMain.Adodc1.RefreshSet frmMain.DataGrid1.DataSource = frmMain.Adodc1详细代码见附录代码清单3。4.4.3 添加记录仍然以学生信息管理界面为例，只有管理员有权限添加信息。当以管理员的身份登陆，点击窗体上的“添加记录”命令按钮，可新增学生信息。运行效果如图19所示。图19 增加记录界面图主要代码为：con.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=SIM 对ADO数据控件进行数据库连接设置rs.Open select 学号 from student where 学号= & Text1.Text & , conIf rs.EOF = False Then MsgBox (重复的学号，请重新输入。): Text1.Text = : Text1.SetFocus: 用EOF属性判断记录指针是否在末记录之后，EOF = False时说明学生信息表中已经存在这个学号，则弹出对话框，要求重新输入rs.Close: con.Close: Exit Sub :rs.Close :con.CloseIf Option1.Value = True Then whatSex = 男 Else whatSex = 女con.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=SIM 对ADO数据控件进行数据库连接设置con.Execute (insert into student values( & Text1.Text & , & Text2.Text & , & Text3.Text & , & whatSex & , & Text4.Text & , & Text6.Text & , & Text5.Text & ) 使用了SQL的insert into添加语句新增学生信息con.Close详细代码见附录代码清单4。4.4.4 删除记录仍以学生信息管理界面为例，只有管理员有权限删除信息。当以管理员的身份登陆，点击窗体上的“删除记录”命令按钮，可删除学生信息。主要代码：snum = Label14(0).Caption 将选中的学生学号赋值给snumYesNo = MsgBox(确认要删除选中项么？, vbYesNo, 提示)If YesNo = vbNo Then Exit Subcon.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=SIM 对ADO数据控件进行数据库连接设置con.Execute (delete from student where 学号= & snum & ) 使用了SQL的delete删除语句移除该学生信息5 总结本文论述了利用数据库设计信息管理系统的方法。在Windows XP环境下，使用Visual Basic编程语言、采用SQL Server 2008数据库管理系统，设计了一个对学生及与学生有关的课程、系别、教师等信息进行查询、修改、增加、删除等功能为一体的学生信息管理系统。设计完成后，经过运行和调试，各功能模块运行正常。参考文献1 魏长宝, 魏妍. ADO访问学生学籍管理系统的设计J. 软件设计与开发, 2011, (06): 86-88. 2 孟德欣, 谢婷. VisualBasic 6.0项目化教程M. 北京: 清华大学出版社, 2003: 214-215.3 龚沛. Visual Basic程序设计教程M. 北京: 高等教育出版社, 2007: 5-6.4 祝旭. VB访问数据库的三种技术J. 湖南: 湖南工业职业技术学院学报, 2010, (04): 8-9.5 夏邦贵. SQL Server数据库开发入门与范例解析M. 北京: 机械工业出版社, 2004: 7-9.6 赵斌. SQL Server 2008应用开发案例解析M. 北京: 科学出版社, 2009: 89-101.7 王祥瑞, 黄国华. ADO数据库访问技术J. 长春大学学报, 2010, (02): 23-25.8 李中凯, 魏修亭, 唐文静. 用ADO控件实现VB与SQL Server 2000的连接J. 电脑开发与应用, 2004, (05): 16-20.8 董国芃. ADO控件在VB中的应用J. 哈尔滨职业技术学院学报, 2009, (06): 122-123.9 吴青林, 王焱. VB中ADO访问数据库技术探讨J. 软件导刊, 2010, (02): 89-92.10 李澎, 刘建. 浅析VB中ADO控件的使用J.计算机与数字工程, 2004, (01): 20-22.附录程序清单：1. 模板public部分代码Public con As New ADODB.ConnectionPublic rs As New ADODB.RecordsetPublic studentNumber As StringPublic studentName As StringPublic courseNumber As StringPublic courseName As StringPublic selectedUserID As StringPublic localPassword As StringPublic searchString As StringPublic userID As IntegerPublic userName As StringPublic boysCount As IntegerPublic girlsCount As IntegerPublic isAdmin As BooleanPublic Sub freshMainData()Dim ia As StringDim row As IntegerfrmMain.Adodc1.RecordSource = select * from studentfrmMain.Adodc1.RefreshSet frmMain.DataGrid1.DataSource = frmMain.Adodc1frmMain.Adodc2.RecordSource = select 课程号,课程名,学分 from coursefrmMain.Adodc2.RefreshSet frmMain.DataGrid2.DataSource = frmMain.Adodc2frmMain.Adodc3.RecordSource = select * from deptfrmMain.Adodc3.RefreshSet frmMain.DataGrid4.DataSource = frmMain.Adodc3frmMain.Adodc4.RecordSource = select * from teacherfrmMain.Adodc4.RefreshSet frmMain.DataGrid6.DataSource = frmMain.Adodc4frmMain.Label2.Caption = userIDfrmMain.Label4.Caption = userNameSet frmMain.Label14(0).DataSource = frmMain.Adodc1Set frmMain.Label14(1).DataSource = frmMain.Adodc1Set frmMain.Label14(2).DataSource = frmMain.Adodc1frmMain.Label14(0).DataField = 学号frmMain.Label14(1).DataField = 姓名frmMain.Label14(2).DataField = 生日Set frmMain.Label30.DataSource = frmMain.Adodc4Set frmMain.Label32.DataSource = frmMain.Adodc4Set frmMain.Label34.DataSource = frmMain.Adodc4frmMain.Label30.DataField = 工号frmMain.Label32.DataField = 姓名frmMain.Label34.DataField = 职称Set frmMain.Label27.DataSource = frmMain.Adodc3frmMain.Label27.DataField = 系别号Set frmMain.Label45.DataSource = frmMain.Adodc6frmMain.Label45.DataField = 学号Set frmMain.Label18.DataSource = frmMain.Adodc2Set frmMain.Label20.DataSource = frmMain.Adodc2frmMain.Label18.DataField = 课程号frmMain.Label20.DataField = 课程名Set frmMain.Label44.DataSource = frmMain.Adodc5frmMain.Label44.DataField = 学号Call freshCourseInfoCall freshDeptInfoCall mainCountEnd SubPublic Sub mainCount()On Error GoTo cuofrmMain.Label8.Caption = frmMain.DataGrid1.ApproxCountfrmMain.Label26.Caption = frmMain.DataGrid2.ApproxCountfrmMain.Label42.Caption = frmMain.DataGrid4.ApproxCountfrmMain.Label36.Caption = frmMain.DataGrid6.ApproxCountfrmMain.DataGrid1.Col = 3maleteacher = 0femalteacher = 0boysCount = 0girlsCount = 0con.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=SIM_hautrs.Open select count(*) from teacher where 性别=男, conmaleteacher = rs.Fields(0)rs.Closers.Open select count(*) from teacher where 性别=女, confemalteacher = rs.Fields(0)rs.Closecon.ClosefrmMain.Label38.Caption = maleteacherfrmMain.Label40.Caption = femalteacherFor row = 0 To frmMain.DataGrid1.ApproxCount - 1 frmMain.DataGrid1.row = row If frmMain.DataGrid1.Text = 男 Then boysCount = boysCount + 1 Else girlsCount = girlsCount + 1 End IfNext rowfrmMain.Label10 = boysCountfrmMain.Label12 = girlsCount