苏风正文Word下载.docx

苏风正文Word下载.docx

《苏风正文Word下载.docx》由会员分享，可在线阅读，更多相关《苏风正文Word下载.docx（27页珍藏版）》请在冰豆网上搜索。

6VB系统模块设计18

6.1主体窗体的设计18

6.2系统登陆窗口设计22

6.3学生信息的查询24

6.4学生信息查询报表设计26

7总结27

谢辞28

参考文献29

1绪论

1.1引言

人类有几千年的历史，计算机从产生到现在只不过50多年，而网络的迅速发展也不过10年的时间。

但是，计算机和网络对社会的影响已经迅速扩大，甚至在改变人们的生活。

特别是90年代以来，多媒体和网络技术的飞速发展正在以惊人的速度改变着人们的工作方式、交往方式和生活方式。

正像著名的未来学家尼葛洛庞帝（1997）所说的：

“数字不再只和计算有关，它决定我们的生存。

”

由于一直以来在教育单位中人们都是使用传统人工的方式管理学生学籍档案，这种管理方式存在着许多缺点,如:

效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难.

学籍管理管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,学籍管理管理系统能够为用户提供充足的信息和快捷的查询手段。

本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生信息进行日常管理，如查询、修改、增加、删除等。

在设计开始，通过上网的查询，找相似系统的参考，并通过于学校老师进行沟通，并在书上找到一些相关资料进入查阅。

经过一系列的了解，深入，便明确了本系统要有哪些功能，要如果去实现这些功能，要怎么样才能去实现，并进行相关操作，因此，本系统采用了，VisualBasic和MSSQLService2005数据库系统进行开发。

1.2本系统实现了如下功能

1.2.1管理员的登录

1.2.2学籍信息的管理

（1）增加学生信息。

（2）删除学生信息。

（3）修改学生信息。

（4）打印、查询学生信息。

1.2.3课程信息的管理

（1）管年级，班级，学期等信息。

（2）管理课程信息。

（3）按年级设置开设的课程。

1.2.4成绩信息的管理

（1）登记学生各科成绩。

（2）查询，打印各科成绩。

1.2.5基本信息的管理

1.3设计目的

信息技术的发展，计算机应用技术更是应用到了我们生活的每一个角落，作为计算机应用的一部分，对信息的处理，已经具有人工管理无法比较的优点，所以，本系统设计的目的是：

实现学生学籍的信息化管理，提高工作人员的效率提高学生信息管理的可靠性，保密性，降低管理成本

1.4系统特色

（1）本系统使用Windows可视化操作界面。

（2）减少数据的重复录入。

年级、班级信息，课程信息等数据只需录入一次，即可在其他模块中使用。

（3）可以进行实用的查询功能。

（4）快捷，准确的输入方式。

对于需要在系统中反复使用的数据，系统可以实现下拉列表框，从中可以减少输入的出错几率。

2系统开发环境

2.1MicrosoftVisualBasic6.0中文版简介

VisualBasic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。

从任何标准来说，VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。

它源自于BASIC编程语言。

VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。

程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

2.2MSSQLServer2005简介

MSSQLServer是一个全面的数据库平台，使用集成的商业智能（BI）工具提供了企业级的数据管理。

MSSQLServer数据库引擎为关系型数据和结构化数据提供了更安全可靠的存储功能，使您可以构建和管理用于业务的高可用和高性能的数据应用程序。

MSSQLServer数据引擎是本企业数据管理解决方案的核心。

此外MSSQLServer结合了分析、报表、集成和通知功能。

这使您的企业可以构建和部署经济有效的BI解决方案，帮助您的团队通过记分卡、Dashboard、Webservices和移动设备将数据应用推向业务的各个领域。

2.3系统运行平台

建议使用WindowsXP系统

3系统所用关键技术

3.1VB连接SQL数据

1）添加引用和部件（如下两图）蓝色部分，要选中打勾。

注意，一个是“引用”，如图3.1，一个是“部件”，如图3.2。

图3.1引用信息图

图3.2部件信息图

2）添加一个模块，如图3.3，并把所用代码加入主体模块中。

图3.3添加模块图

程序代码：

'

连接SQL的模块

PublicconnAsADODB.Connection

PublicrsAsADODB.Recordset

PublicaddFlagAsBoolean'

声明部分

PublicFunctionOpenCn（ByValCipAsString,ByValusersAsString,ByValpwAsString）AsBoolean'

连接模块填写数据库等信息

DimmagAsString

OnErrorGoTostrerrmag

Setconn=NewADODB.Connection

conn.ConnectionTimeout=25

conn.Provider="

sqloledb"

conn.Properties（"

datasource"

）.Value=jojo'

服务器的名字

initialcatalog"

）.Value="

Student"

'

库名

integratedsecurity"

SSPI"

登陆类型

userid"

）.Value=sa'

SQL库名

password"

）.Value=1111'

密码

conn.ConnectionString=sql

conn.Open

OpenCn=True

Ifconn.State=1ThenaddFlag=True

ExitFunction

strerrmag:

mag="

Datacan'

tconnect"

CallMsgBox（mag,vbOKOnly,"

Error:

Dataconnect"

）

addFlag=False

ExitFunction'

连接错误消息

EndFunction

3.2建立数据库

在MSSQLService2005中，数据定义语言（DataDefinitionLanguage。

DDL）用来执行数据库中的任务，这些语言包括CREATE，ALTER，DROP等，分别来创建和修改、删除数据库，下面为实现数据库所用代码：

USEmaster

GO

IFEXISTS（SELECT*FROMsysdatabasesWHEREname=’student）

DROPDATABASEstudent

/******用于检查是否有Student这个数据库，如果有将其删除******/

CREATEDATABASE[student]

ONPRIMARY

（NAME='

student_Data'

FILENAME=E:

\student_Data.MDF,

SIZE=1984KB,

MAXSIZE=UNLIMITED,

FILEGROWTH=10%）

LOGON

student_Log'

\student_Log.LDF'

SIZE=1024KB,

3.3使用VB中DataRepor创建报表

使用DataReport可根据数据库中的记录来创建报表。

使用DateReport对象时，可以通过更改每一个Section对象的布局，在设计中改变数据报表的外观。

数据报表设计对象：

DataReport对象，Section对象，报表控件。

4本系统功能结构与实体E-R图

4.1本系统E-R图

图4.1本系统E-R图

4.2系统流程E-R图

图4.2系统流程E-R图

4.3操作员实体，学校实体E-R图

图4.3操作员实体，学校实体E-R图

4.4年级实体，班级实体E-R图

4.4年级实体，班级实体E-R图

4.5学期实体，课程实体E-R图

4.5学期实体，课程实体E-R图

4.6成绩实体，年级开课信息实体E-R图

4.6成绩实体，年级开课信息实体E-R图

4.7学生实体，课程实体E-R图

4.7学生实体，课程实体E-R图

5数据库结构的设计

本系统因所实现的功能共建立10张表：

操作员（s_admin）、学校（s_school）、年级（s_grade）、班级（s_class）、学生（s_student）、课程类型（s_coursetype）、所学课程（s_course）、学期（s_term）、学生成绩（s_result）、开课信息（s_gradecourse），具体数据库建设如下：

5.1操作员（admin）

所得结果如图5.1所示。

图5.1操作员信息

所实现代码：

CREATETABLE[dbo].[s_admin]（

[admin_id][int]IDENTITY（1,1）NOTNULL,

[admin_name][varchar]（20）COLLATEChinese_PRC_CI_ASNOTNULL,

[admin_pwd][varchar]（16）COLLATEChinese_PRC_CI_ASNOTNULL,

[admin_right][int]NOTNULL,

[admin_memo][varchar]（50）COLLATEChinese_PRC_CI_ASNULL,

）ON[PRIMARY]

5.2学校（s_school）

所得结果如图5.2所示。

图5.2学校信息

CREATETABLE[dbo].[s_school]（

[scl_name][varchar]（40）COLLATEChinese_PRC_CI_ASNOTNULL,

[scl_address][varchar]（50）COLLATEChinese_PRC_CI_ASNULL,

[scl_head][varchar]（10）COLLATEChinese_PRC_CI_ASNULL,

[scl_tele][varchar]（20）COLLATEChinese_PRC_CI_ASNULL,

[scl_memo][varchar]（50）COLLATEChinese_PRC_CI_ASNULL

5.3年级（s_grade）

所得结果如图5.3所示。

图5.3年级信息图

CREATETABLE[dbo].[s_grade]（

[grade_id][int]NOTNULL,

[grade_name][varchar]（20）COLLATEChinese_PRC_CI_ASNOTNULL,

[grade_memo][varchar]（50）COLLATEChinese_PRC_CI_ASNULL,

CONSTRAINT[PK_s_grade]PRIMARYKEYCLUSTERED

/*****设置为主键*****/

（

[grade_id]ASC

）WITH（IGNORE_DUP_KEY=OFF）ON[PRIMARY]

/*****设置标识为是*****/

5.4班级（s_class）

所得结果如图5.4所示。

图5.4班级信息图

CREATETABLE[dbo].[s_class]（

[class_id][int]NOTNULL,

[class_name][varchar]（20）COLLATEChinese_PRC_CI_ASNOTNULL,

[class_memo][varchar]（50）COLLATEChinese_PRC_CI_ASNULL

5.5学生（s_student）

所得结果如图5.5所示。

图5.5学生信息图

CREATETABLE[dbo].[s_student]（

[stu_id][int]IDENTITY（1,1）NOTNULL,

[stu_name][varchar]（20）COLLATEChinese_PRC_CI_ASNOTNULL,

[stu_sex][char]

（2）COLLATEChinese_PRC_CI_ASNOTNULL,

[stu_birthday][datetime]NULL,

[stu_father][varchar]（20）COLLATEChinese_PRC_CI_ASNULL,

[stu_tele][varchar]（20）COLLATEChinese_PRC_CI_ASNULL,

[stu_address][varchar]（50）COLLATEChinese_PRC_CI_ASNULL,

[stu_date][datetime]NULL,

[stu_memo][varchar]（50）COLLATEChinese_PRC_CI_ASNULL

5.6课程类型（s_coursetype）

所得结果如图5.6所示。

图5.6课程类型信息图

CREATETABLE[dbo].[s_coursetype]（

[ct_id][int]IDENTITY（1,1）NOTNULL,

[ct_name][varchar]（20）COLLATEChinese_PRC_CI_ASNOTNULL

5.7所学课程（s_course）

所得结果如图5.7所示。

图5.7所学课程信息图

CREATETABLE[dbo].[s_course]（

[course_id][int]NOTNULL,

[course_name][varchar]（40）COLLATEChinese_PRC_CI_ASNOTNULL,

[ct_id][int]NOTNULL,

[course_memo][varchar]（50）COLLATEChinese_PRC_CI_ASNULL

5.8学期（s_term）

所得结果如图5.8所示。

图5.8学期信息图

CREATETABLE[dbo].[s_term]（

[term_id][int]IDENTITY（1,1）NOTNULL,

[term_name][varchar]（20）COLLATEChinese_PRC_CI_ASNOTNULL

5.9学生成绩（s_result）

所得结果如图5.9所示。

图5.9学习成绩信息图

CREATETABLE[dbo].[s_result]（

[result_id][int]NOTNULL,

[term_id][int]NOTNULL,

[stu_id][int]NOTNULL,

[result][float]NOTNULL,

[result_memo][varchar]（50）COLLATEChinese_PRC_CI_ASNULL

5.10开课信息（s_gradecourse）

所得结果如图5.10所示。

图5.10开课信息图

CREATETABLE[dbo].[s_gradecourse]（

[gc_id][int]IDENTITY（1,1）NOTNULL,

[gc_memo][varchar]（50）COLLATEChinese_PRC_CI_ASNULL

6VB系统模块设计

本部分主要内容为本系统的各个运行界面以及主要界面的源代码。

主要模块包括：

（1）系统。

包括管理员的增加，修改密码，删除管理员等。

（2）基础数据。

包括学校信息，学期信息，课程信息等。

（3）课程设置。

包括课程类型，开设课程等。

（4）学生信息。

包括学生资料，学生成绩等。

（5）查询。

包括查询学生信息，学生成绩等。

6.1主体窗体的设计

6.1.1主窗体设计

（1）打开VisualBasic6.0，新建一个标准工程，添加MDIForm，设置名称属性为“frmMain”，标题为“学籍管理系统”。

（2）然后在菜单栏中选择“工程”——“部件”，添加部件，如图6.1。

如图6.1添加部件图

（3）然后进行一些设置，完成如图6.2效果。

图6.2主窗体图

6.1.2主窗体代码

PrivateSubMDIForm_Load（）'

窗体装载事件，从注册表中获取窗体的位置、大小

Me.Left=GetSetting（App.Title,"

Settings"

"

MainLeft"

1000）'

左边位置

Me.Top=GetSetting（App.Title,"

MainTop"

窗体顶部坐标

Me.Width=GetSetting（App.Title,"

MainWidth"

6500）'

窗体宽度

Me.Height=GetSetting（App.Title,"

MainHeight"

窗体高度

EndSub

PrivateSubMDIForm_Unload（CancelAsInteger）'

窗体卸载事件，保存窗体位置和大小

IfMe.WindowState<

>

vbMinimizedThen'

窗体不是最小化

SaveSettingApp.Title,"

Me.Left'

保存左侧位置

Me.Top'

保存顶部位置

Me.Width'

保存宽度

SaveSett