学生学籍管理系统VB论文Word格式.docx

1、通过调查,要求系统需要有以下功能: 由于操作人员的计算机知识普遍较差,要求有良好的人机界面; 由于该系统的使用对象多,要求有较好的权限管理; 原始数据修改简单方便,支持多条件修 方便的数据查询，支持多条件查询; 在相应的权限下，删除数据方便简单，数据稳定性好； 数据计算自动完成，尽量减少人工干预;第二章 可行性分析由于本系统管理的对象单一,都是学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。本系统的设计是在Windows XP操作系统环

2、境下，使用Visual Basic 6.0中文版开发成功的。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，本系统选用的数据库语言介绍如下：Visual Basic具有以下特点：（1）可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而

3、编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。（2）面向对象的程序设计4.0版以后的Visual Basic支持面向对象的程序设计，是应用面向对象的程序设计方法（OOP），把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个

4、对象以图形方式显示在界面上，都是可视的。第三章 系统设计31.系统功能分析系统开发的总体任务是实现学生信息关系的系统化，规范化和自动化。 学生管理系统需要完成的功能主要有： 学生信息的输入，包括输入学生基本信息、所在班级、所学课和 成 绩等。 学生信息的查询，包括输入学生基本信息、所在班级、已学课程和成绩 等。 学生信息的修改。 班级管理信息的输入、查询、修改，包括输入班级设置，年级信息等。 基本课程信息的输入、查询、修改。 学生成绩信息的输入、查询、修改。 对上述各功能进行集中、分块、按照结构化程序设计的要求。图3-1 系统功能模块图2.系统流程图 图3-2 系统流程图第四章、数据库设计41

5、.数据库需求分析 用户信息：包括的数据项有：用户名、密码、用户描述。 学生基本信息：学生学号、学生姓名、性别、出生日期、班号、联系电话、入校日期、家庭地址、备注等。 班级信息：班号、所在年级、班主任姓名、所在教室等。 课程基本信息：课程号、课程名称、课程类别、课程描述等。 课程设置信息：年级信息、所学课程等。 学生成绩信息：考试编号、所在班号、学生学号、学生姓名、所学课程、考试分数等。 图4-1 学生管理系统数据流程图2.数据库概念结构设计 本系统的实体有：学生实体、班级实体、年级实体、课程实体。各个实体具体的描述E-R图如图下所示。图4-2 学生实体ER图 图4-3 班级实体ER图 图4-4

6、 课程实体ER图图4-5 年级实体ER图图4-6 实体之间关系ER图 现在需要将上面的数据库概念结构转化为SQL Server 2000 数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。学生管理系统数据库中各个表格的设计结果如下面的几个表所示。每个表表示在数据库中的一个数据表表4-1 student-info学生基本信息表表4-2 class-info班级基本信息表表4-3 course-info 课程基本信息表 表4-4 gradecourse-info年级课程设置表格表4-5 result-info学生成绩基本信息表表4-6 user-info 系统用户表 3.数据库结构的实现 经

7、过前面的需求分析和概念结构设计以后，得到数据库的逻辑结构。就可以在SQL Servr 2000数据库系统中实现该逻辑结构，利用SQL Server 2000数据库系统中SQL查询分析器实现的。（1）创建系统用户表格user_infoCREATE TABLE dbo.user_Info （user_ID char （10） COLLATE Chinese_PRC_CI_AS NOT NULL ,user_PWD char （10） COLLATE Chinese_PRC_CI_AS NULL ,user_Des char （10） COLLATE Chinese_PRC_CI_AS NULL）

8、ON PRIMARYGO（2）创建学生基本信息表格student_infoCREATE TABLE dbo.student_Info （student_ID int NOT NULL ,student_Name char （10） COLLATE Chinese_PRC_CI_AS NULL ,student_Sex char （2） COLLATE Chinese_PRC_CI_AS NULL ,born_Date datetime NULL ,class_NO int NULL ,tele_Number char （10） COLLATE Chinese_PRC_CI_AS NULL ,r

9、u_Date datetime NULL ,address varchar （50） COLLATE Chinese_PRC_CI_AS NULL ,comment varchar （200） COLLATE Chinese_PRC_CI_AS NULL（3）创建班级信息表格class-infoCREATE TABLE dbo.class_Info （class_No int NOT NULL ,grade char （10） COLLATE Chinese_PRC_CI_AS NULL ,director char （10） COLLATE Chinese_PRC_CI_AS NULL ,c

10、lassroom_No char （10） COLLATE Chinese_PRC_CI_AS NULL（4）创建课程基本信息表格course-infoCREATE TABLE dbo.course_Info （course_No int NOT NULL ,course_Name char （10） COLLATE Chinese_PRC_CI_AS NULL ,course_Type char （10） COLLATE Chinese_PRC_CI_AS NULL ,course_Des char （50） COLLATE Chinese_PRC_CI_AS NULL（5）创建年级课程设置

11、信息表gradecourse-infoCREATE TABLE dbo.gradecourse_Info （course_Name char （10） COLLATE Chinese_PRC_CI_AS NULL（6）创建学生成绩信息表result-infoCREATE TABLE dbo.result_Info （exam_No char （10） COLLATE Chinese_PRC_CI_AS NOT NULL ,class_No int NULL ,result float NULL第五章、详细设计51主窗体的创建 上面的SQL语句在SQL Server 2000中查询分析器执行后，

12、将自动产生需要的所有表。有关数据库结构的所有后台工作已经完成。现在将通过学生管理系统中各个功能模块的实现，来编写数据库系统的客户端程序。1. 创建工程项目Student-MIS 为了用Visual Basic创建应用程序，应当使用工程。一个工程是用来建造应用程序的文件的集合，它包括： 跟踪所有部件的工程文件（.vbp）。 每个窗体的文件（.frm）。 每个窗体的二进制数据文件（.frx），它含有窗体上控件的属性数据。对含有二进制属性的任何.frm文件都是不可编辑的，这些文件都是自动产生的。 每个类模块的一个文件（.cls），该文件是可选项。 每个标准模块的一个文件（.bas），该文件是可选项。

13、 一个或多个包含ActiveX控件的文件（.ocx），该文件是可选项。 单个资源文件（.res），该文件是可选项。 启动Visual Basic后，单击File|New Project菜单，如图所示的工程模块中选择Standard EXE，Visual Basic将自动产生一个Form窗体，属性都是缺省设置。这里我们删除这个窗体，单击File|New Project菜单，将这个工程项目命名为Student-MIS。 如图5-1： 创建Student-MIS项目 2.创建主窗体 Visual Basic创建的应用程序可以是SDI（单文档界面）和MDI（多文档界面）。在SDI的程序中，每个窗体之间

14、是独立的。而MDI的程序中，有一个窗体是主窗体，可以包含其他窗体，它的类型是MDI Form。本系统采用多文档界面，这样可以使程序更加美观，整齐有序。 单击工具栏的“ADD MDI Form”按钮，生成一个如下所示的窗体， 图5-2 程序主窗体创建主窗体的菜单 ： 图5-3主窗体中菜单结构3.创建公用模块 在Visual Basic中可以用共用模块来存放整个工程项目公用的函数、全局变量等。整个工程项目中的任何地方都可以调用公用模块中的函数、变量，这样可以极大地提高代码的效率。在项目资源管理器中为项目添加一个Module，保存为Module.bas。下面就可以开始添加需要的代码。 由于系统中各个

15、功能模块都将频繁使用数据库中的各种数据，因此需要一个公共的数据操作函数，用以执行各种SQL语句。添加函数ExecuteSQL，代码如下：Public Function ExecuteSQL（ByVal SQL _As String, MsgString As String） _As ADODB.Recordset传递参数SQL查询语句，MsgString传递查询信息自身以一个数据集对象的形式返回Dim CNn As ADODB.Connection定义连接Dim rst As ADODB.Recordset定义字符串Dim sTokens（） As String异常处理On Error GoT

16、o ExecuteSQL_Error用Split函数产生一个包含各个子串的数组sTokens = Split（SQL）创建连接Set CNn = New ADODB.ConnectionCNn.Open ConnectString判断字符串中是否有指定内容If InStr（INSERT,DELETE,UPDATE, _UCase$（sTokens（0） Then执行查询语句CNn.Execute SQL返回查询信息MsgString = sTokens（0） & _ query successfulElse创建数据集对象Set rst = New ADODB.Recordset返回查询结果rs

17、t.Open Trim$（SQL）, CNn, _adOpenKeyset, _adLockOptimisticrst.MoveLast get RecordCountSet ExecuteSQL = rstMsgString = 查询到 & rst.RecordCount &End IfExecuteSQL_Exit:清空数据集对象Set rst = Nothing中断连接Set CNn = NothingExit Function错误类型判断ExecuteSQL_Error:查询错误: Err.DescriptionResume ExecuteSQL_ExitEnd Function Ex

18、ecuteSQL函数有两了参数：SQL和MsgString。其中SQL用来存放需要执行的SQL语句，MsgString用来返回执行的提示信息。函数执行时，首先判断SQL语句中包含的内容。当执行查询操作时，ExecuteSQL函数将返回一个与函数同名的记录名对象（Recordset），所有满足条件的记录包含在对象中。当执行如删除、更新、添加等操作时，不返回记录集对象。 在ExecuteSQL函数中使用Connect String函数，这个函数用来连接数据库，代码如下：Public Function ConnectString（） _As String返回一个数据库连接ConnectString

19、= FileDSN=studentinfo.dsn;UID=sa;PWD=由于在后面的程序中，需要频繁检查各种文本框的内容是否为空，这里定义了Testtxt函数，代码如下：Public Function Testtxt（txt As String） As BooleanIf Trim（txt） = ThenTesttxt = FalseTesttxt = True 由于学生管理系统启动后，需要对用户进行判断。如果登录者是授权用户，将进入系统，否则将停止程序的执行。这个判断需要在系统运行的最初进行，因此将代码放在公用模块中，代码如下：Public fMainForm As frmMainPubl

20、ic UserName As StringSub Main（）Dim fLogin As New frmLogin显示登陆窗体fLogin.Show vbModal判断是否授权用户If Not fLogin.OK ThenLogin Failed so exit appEndUnload fLoginSet fMainForm = New frmMainfMainForm.ShowEnd Sub过程Main将在系统启动是首先执行，这就保证对用户的管理。2.用户管理模块的创建系统管理模块主要实现： 用户登录。 添加用户。 修改用户密码。1.用户登陆窗体的创建系统启动后，将首先出现如下所示的用户登

21、陆窗体，用户首先输入用户名，然后输入密码。如果用户3次输入密码不正确，将退出程序。图5-4用户登录窗体用户登陆窗体中放置了两个文本框（TextBox），用来输入用户名和用户密码。两个按钮（CommandButton）用来确定或者取消登陆。2个标签（Label）用来标示窗体的信息。为窗体定义全局变量OK，用来判断登陆是否成功。定义 miCount，用来记载输入密码的次数。并且在载入窗体时初始化这两个全局变量，代码如下：强制变量声明Option ExplicitPublic OK As Boolean记录确定次数Dim miCount As IntegerPrivate Sub Form_Load

22、（）Dim sBuffer As StringDim lSize As LongsBuffer = Space$（255）lSize = Len（sBuffer）Call GetUserName（sBuffer, lSize）If lSize 0 ThentxtUserName.Text = txtUserName.Text = vbNullStringOK = FalsemiCount = 0Option Explicit是用来规定所有变量使用前必须定义。这样可以避免由于输入错误而产生的新变量。当用户输入完用户名和用户密码，单击cmdOK按钮将对用户输入信息进行判断。用户单击该按钮，将触发按

23、钮cmdOK的Click事件，代码如下：Private Sub cmdOK_Click（）用来存放SQL语句Dim txtSQL As String用来存放记录集对象Dim mrc As ADODB.Recordset用来存放返回信息Dim MsgText As StringUserName = 判断输入用户名是否为空If Trim（txtUserName.Text = ） ThenMsgBox 没有这个用户，请重新输入用户名！, vbOKOnly + vbExclamation, 警告txtUserName.SetFocustxtSQL = select * from user_Info where user_ID = txtUserName.Text &Set mrc = Execut