苏风正文.docx

1、苏风正文摘要学籍管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学籍管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。关键字：学籍管理，VB连接SQL，计算机应用 ABSTRACTStudent management system is an indi

2、spensable part of the education unit, its contents for the school administrators and policy makers is crucial, so student management system should be able to provide users with sufficient information and efficient means of the inquiry.But since people use traditional artificial waymanagement documen

3、t file, this management way has many shortcomings, such as: low efficiency, confidentiality of the poor, another time a long, will produce the massive documents and the data, this find, update and maintenance has brought a lot of difficulties.With the continuous improvement of science and technology

4、, computer science increasingly mature, its powerful features for people to have a profound understanding, it has entered the human society in various fields and play an increasingly important role in.KEYWORDS： School Management, VB Connection SQL, Computer Application目录摘要 IABSTRACT II1绪论 11.1引言 11.

5、2本系统实现了如下功能 11.3设计目的 21.4系统特色 22系统开发环境 32.1 Microsoft Visual Basic 6.0 中文版简介 32.2 MS SQL Server 2005简介 32.3系统运行平台 33系统所用关键技术 43.1 VB连接 SQL 数据 43.2建立数据库 63.3使用VB中DataRepor创建报表 74本系统功能结构与实体E-R图 84.1本系统E-R图 84.2系统流程E-R图 85数据库结构的设计 116 VB系统模块设计 186.1主体窗体的设计 186.2系统登陆窗口设计 226.3学生信息的查询 246.4学生信息查询报表设计 267

6、总结 27谢辞 28参考文献 291绪论1.1引言人类有几千年的历史，计算机从产生到现在只不过50多年，而网络的迅速发展也不过10年的时间。但是，计算机和网络对社会的影响已经迅速扩大，甚至在改变人们的生活。特别是90年代以来，多媒体和网络技术的飞速发展正在以惊人的速度改变着人们的工作方式、交往方式和生活方式。正像著名的未来学家尼葛洛庞帝（1997）所说的：“数字不再只和计算有关，它决定我们的生存。”由于一直以来在教育单位中人们都是使用传统人工的方式管理学生学籍档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难.

7、学籍管理管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要, 学籍管理管理系统能够为用户提供充足的信息和快捷的查询手段。本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生信息进行日常管理，如查询、修改 、增加、删除等。在设计开始，通过上网的查询，找相似系统的参考，并通过于学校老师进行沟通，并在书上找到一些相关资料进入查阅。经过一系列的了解，深入，便明确了本系统要有哪些功能 ，要如果去实现这些功能 ，要怎么样才能去实现，并进行相关操作，因此，本系统采用了，Visual Basic和MS SQL Serv

8、ice 2005数据库系统进行开发。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设计目的信息技术的发展，计算机应用技术更是应用到了我们生活的每一个角落，作为计算机应用的一部分，对信息的处理，已经具有人工管理无法比较的优点，所以，本系统设计的目的是：实现学生

9、学籍的信息化管理，提高工作人员的效率提高学生信息管理的可靠性，保密性，降低管理成本 1.4系统特色（1） 本系统使用Windows可视化操作界面。（2） 减少数据的重复录入。年级、 班级信息，课程信息等数据只需录入一次，即可在其他模块中使用。（3） 可以进行实用的查询功能。（4） 快捷，准确的输入方式。对于需要在系统中反复使用的数据，系统可以实现下拉列表框，从中可以减少输入的出错几率。 2系统开发环境2.1 Microsoft Visual Basic 6.0 中文版简介Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多

10、的语言不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。2.2 MS SQL Server 2005简介MS SQL Server是一个全面的数据库平台，使用集成的商业智能 (BI) 工具提供了企业级的数据管理。MS SQL Server 数据库引擎为关系型数据和结构化数据提供了更安全可靠的存储功能，使您可以构建和管理用于业务的高可用和高性能的数据应用程序。 MS S

11、QL Server数据引擎是本企业数据管理解决方案的核心。此外MS SQL Server结合了分析、报表、集成和通知功能。这使您的企业可以构建和部署经济有效的 BI 解决方案，帮助您的团队通过记分卡、Dashboard、Web services 和移动设备将数据应用推向业务的各个领域。2.3系统运行平台建议使用WindowsXP系统 3系统所用关键技术3.1 VB连接 SQL 数据 1)添加引用和部件（如下两图）蓝色部分，要选中打勾。注意，一个是“引用”，如图3.1，一个是“部件”，如图 3.2。图3.1 引用信息图图3.2 部件信息图2)添加一个模块，如图3.3，并把所用代码加入主体模块中。

12、图3.3 添加模块图程序代码：连接SQL的模块Public conn As ADODB.ConnectionPublic rs As ADODB.RecordsetPublic addFlag As Boolean 声明部分Public Function OpenCn(ByVal Cip As String, ByVal users As String, ByVal pw As String) As Boolean 连接模块 填写数据库等信息Dim mag As StringOn Error GoTo strerrmagSet conn = New ADODB.Connectionconn.C

13、onnectionTimeout = 25conn.Provider = sqloledbconn.Properties(data source).Value = jojo 服务器的名字conn.Properties(initial catalog).Value = Student 库名conn.Properties(integrated security).Value = SSPI 登陆类型conn.Properties(user id).Value = sa SQL库名conn.Properties(password).Value = 1111 密码conn.ConnectionStrin

14、g = sql conn.OpenOpenCn = TrueIf conn.State = 1 Then addFlag = TrueExit Functionstrerrmag:mag = Data cant connectCall MsgBox(mag, vbOKOnly, Error:Data connect)addFlag = FalseExit Function 连接错误消息End Function 3.2建立数据库在MS SQL Service 2005中，数据定义语言（Data Definition Language 。DDL ）用来执行数据库中的任务，这些语言包括CREATE

15、，ALTER ， DROP 等，分别来创建和修改、删除数据库，下面为实现数据库所用代码：USE masterGO IF EXISTS(SELECT * FROM sysdatabases WHERE name=student) DROP DATABASE student/*用于检查是否有Student这个数据库，如果有将其删除*/GOCREATE DATABASE student ON PRIMARY ( NAME = student_Data, FILENAME = E:student_Data.MDF , SIZE = 1984KB , MAXSIZE = UNLIMITED, FILEG

16、ROWTH = 10%) LOG ON ( NAME = student_Log, FILENAME = E:student_Log.LDF , SIZE = 1024KB , MAXSIZE = UNLIMITED, FILEGROWTH = 10%)3.3使用VB中DataRepor创建报表使用DataReport可根据数据库中的记录来创建报表。使用DateReport对象时，可以通过更改每一个Section对象的布局，在设计中改变数据报表的外观。数据报表设计对象：DataReport对象，Section对象，报表控件。4本系统功能结构与实体E-R图4.1本系统E-R图图4.1本系统E-R

17、图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_cou

18、rsetype)、所学课程 (s_course)、学期(s_term)、学生成绩(s_result)、开课信息(s_gradecourse)，具体数据库建设如下：5.1操作员（admin）所得结果如图5.1所示。图5.1操作员信息所实现代码：CREATE TABLE dbo.s_admin(admin_id int IDENTITY(1,1) NOT NULL,admin_name varchar(20) COLLATE Chinese_PRC_CI_AS NOT NULL,admin_pwd varchar(16) COLLATE Chinese_PRC_CI_AS NOT NULL,adm

19、in_right int NOT NULL,admin_memo varchar(50) COLLATE Chinese_PRC_CI_AS NULL,) ON PRIMARY5.2学校（s_school）所得结果如图5.2所示。图5.2 学校信息所实现代码：GOCREATE TABLE dbo.s_school(scl_name varchar(40) COLLATE Chinese_PRC_CI_AS NOT NULL,scl_address varchar(50) COLLATE Chinese_PRC_CI_AS NULL,scl_head varchar(10) COLLATE Ch

20、inese_PRC_CI_AS NULL,scl_tele varchar(20) COLLATE Chinese_PRC_CI_AS NULL,scl_memo varchar(50) COLLATE Chinese_PRC_CI_AS NULL) ON PRIMARY5.3年级(s_grade)所得结果如图5.3所示。图5.3 年级信息图所实现代码：GOCREATE TABLE dbo.s_grade(grade_id int NOT NULL,grade_name varchar(20) COLLATE Chinese_PRC_CI_AS NOT NULL,grade_memo varc

21、har(50) COLLATE Chinese_PRC_CI_AS NULL, CONSTRAINT PK_s_grade PRIMARY KEY CLUSTERED /*设置为主键*/(grade_id ASC)WITH (IGNORE_DUP_KEY = OFF) ON PRIMARY/*设置标识为是*/) ON PRIMARY5.4班级(s_class)所得结果如图5.4所示。图5.4 班级信息图所实现代码：GOCREATE TABLE dbo.s_class(class_id int NOT NULL,grade_id int NOT NULL,class_name varchar(2

22、0) COLLATE Chinese_PRC_CI_AS NOT NULL,class_memo varchar(50) COLLATE Chinese_PRC_CI_AS NULL) ON PRIMARY5.5 学生(s_student)所得结果如图5.5所示。图5.5 学生信息图所实现代码：GOCREATE TABLE dbo.s_student(stu_id int IDENTITY(1,1) NOT NULL,stu_name varchar(20) COLLATE Chinese_PRC_CI_AS NOT NULL,stu_sex char(2) COLLATE Chinese_P

23、RC_CI_AS NOT NULL,stu_birthday datetime NULL,stu_father varchar(20) COLLATE Chinese_PRC_CI_AS NULL,stu_tele varchar(20) COLLATE Chinese_PRC_CI_AS NULL,stu_address varchar(50) COLLATE Chinese_PRC_CI_AS NULL,stu_date datetime NULL,class_id int NOT NULL,stu_memo varchar(50) COLLATE Chinese_PRC_CI_AS NU

24、LL) ON PRIMARY5.6课程类型(s_coursetype)所得结果如图5.6所示。图5.6 课程类型信息图所实现代码：GOCREATE TABLE dbo.s_coursetype(ct_id int IDENTITY(1,1) NOT NULL,ct_name varchar(20) COLLATE Chinese_PRC_CI_AS NOT NULL) ON PRIMARY5.7所学课程 (s_course)所得结果如图5.7所示。图5.7 所学课程信息图所实现代码：GOCREATE TABLE dbo.s_course(course_id int NOT NULL,cours

25、e_name varchar(40) COLLATE Chinese_PRC_CI_AS NOT NULL,ct_id int NOT NULL,course_memo varchar(50) COLLATE Chinese_PRC_CI_AS NULL) ON PRIMARY5.8学期(s_term)所得结果如图5.8所示。图5.8 学期信息图所实现代码：GOCREATE TABLE dbo.s_term(term_id int IDENTITY(1,1) NOT NULL,term_name varchar(20) COLLATE Chinese_PRC_CI_AS NOT NULL) O

26、N PRIMARY5.9学生成绩(s_result)所得结果如图5.9所示。图5.9 学习成绩信息图所实现代码：GOCREATE TABLE dbo.s_result(result_id int NOT NULL,term_id int NOT NULL,stu_id int NOT NULL,course_id int NOT NULL,result float NOT NULL,result_memo varchar(50) COLLATE Chinese_PRC_CI_AS NULL) ON PRIMARY5.10开课信息(s_gradecourse)所得结果如图5.10所示。图5.10

27、 开课信息图所实现代码：GOCREATE TABLE dbo.s_gradecourse(gc_id int IDENTITY(1,1) NOT NULL,term_id int NOT NULL,grade_id int NOT NULL,course_id int NOT NULL,gc_memo varchar(50) COLLATE Chinese_PRC_CI_AS NULL) ON PRIMARY6 VB系统模块设计本部分主要内容为本系统的各个运行界面以及主要界面的源代码。主要模块包括：（1） 系统。包括管理员的增加，修改密码，删除管理员等。（2） 基础数据。包括学校信息，学期信息

28、，课程信息等。（3） 课程设置。包括课程类型，开设课程等。（4） 学生信息。包括学生资料，学生成绩等。（5） 查询。包括查询学生信息，学生成绩等。6.1主体窗体的设计6.1.1主窗体设计（1） 打开 Visual Basic 6.0，新建一个标准工程，添加MDIForm，设置名称属性为“frmMain”，标题为“学籍管理系统”。（2） 然后在菜单栏中选择“工程”“部件”，添加部件，如图6.1。如图6.1 添加部件图（3） 然后进行一些设置，完成如图6.2效果。图6.2 主窗体图6.1.2主窗体代码Private Sub MDIForm_Load() 窗体装载事件，从注册表中获取窗体的位置、大小

29、Me.Left = GetSetting(App.Title, Settings, MainLeft, 1000) 左边位置Me.Top = GetSetting(App.Title, Settings, MainTop, 1000) 窗体顶部坐标Me.Width = GetSetting(App.Title, Settings, MainWidth, 6500) 窗体宽度Me.Height = GetSetting(App.Title, Settings, MainHeight, 6500) 窗体高度End SubPrivate Sub MDIForm_Unload(Cancel As Integer) 窗体卸载事件，保存窗体位置和大小If Me.WindowState vbMinimized Then 窗体不是最小化SaveSetting App.Title, Settings, MainLeft, Me.Left 保存左侧位置SaveSetting App.Title, Settings, MainTop, Me.Top 保存顶部位置SaveSetting App.Title, Settings, MainWidth, Me.Width 保存宽度SaveSett