学生信息管理系统数据库课程设计报告

1、学生信息管理系统数据库课程设计报告TPMK standardization office【TPMK5AB- TPMK08- TPMK2C- TPMK18数据库原理与应用课程设计报告设计题目：图书管理系统学生姓名学 号专业名称日 期朱圣尧2008050813508计应专2010. 12. 22设计名称：学生信息管理系统设计内容：设计一个学生信息管理系统设计目的与要求：采用VB和SQL Server设计一个学生管理系统，并使系统达到以下功能:（1）大大提高学校管理的运作效率;（2）快捷，有效的处理学生的各种信息，通过全面的信息采集和处理，辅助提高管理水平;（3）使用本系统，可以迅速提升学生的管理水

2、平，为提高效益，方便用户查询，提 供有效的技术保障。设计环境或器材、原理与说明：前台开发工具：Vasual Basic 6. 0后台数据库工具：SQL Server 2000设计过程（步骤）或程序代码：1需求分析1. 1相关功能要求：1）添加：可以添加学生学籍信息、课程信息、班级信息、成绩信息2）査询：可以查询学生学籍信息、课程信息、班级信息、成绩信息3）修改：可以修改学生学籍信息、课程信息、班级信息、成绩信息1.2数据流图：学生信息管理的第一层数据流图:图1.1学生信息的第二层数据流图:图1.2班级信息和课程信息的第二层数据流图:2.ia i.3学生成绩信息的第二层数据流图:图141.3相关

3、的数据:1）数据项：学生学号含义说明：惟一标识一个学生别名：student_ID类型：字符型整型长度：8取值范圉：00000000-99999999取值含义：前两位表示入学年份的后两位，第3、4位表示学院代号，第5、6位表示专业代号，最后两位表示报到序号2）数据结构：学生含义说明：定义了一个描述学生的信息结构组成:学生编号、学生姓名、学生性别、出生年月、班级编号、电话号码、入学日期、家 庭住址数据结构：课程含义说明：定义了一个描述课程的信息结构组成：课程编号、课程名称、课程类型数据结构：班级含义：定义了一个描述班级的信息组成:班级编号、班级所属的年级、班主任、教室数据结构：成绩含义：定义了一个

4、描述成绩的信息组成：成绩总评、课程名称、考试成绩3）数据流：成绩管理信息说明：表示学生与课程的关系数据流来源：学生信息表、课程信息表数据流去向：成绩信息表组成：学生编号、课程编号数据流：课程安排信息说明：表示年级和课程的关系数据流来源：班级信息表、课程信息表数据流去向：课程安排表组成：年级、课程名称4）数据存储：班级信息表、课程信息表、课程安排表、成绩信息表、学生学籍信息表说明：记录学生、班级、成绩、课程的情况流入数据流：学籍管理信息、课程管理信息、班级管理信息流出数据流：课程安排信息、成绩管理信息组成：学生编号、学生姓名、课程名称、班级编号、考试成绩、年级存取方式：随即存取5）处理过程：添加

5、、修改、删除学生学籍信息、课程信息、班级信息、成绩信息说明：完成学籍、课程、班级、成绩的各种操作输入：学生编号、班级编号、课程名称、输出：学生学籍信息、课程信息、班级信息、成绩信息的添加、删除、修改结果处理：如果有新生入学，就要进行学生各种信息的添加；如果有毕业生离校，就要对学生的各种信息进行删除；如果某个学生的信息需要修改，则对其相应的信息进行修改2概念结构设计1）学生实体E_R图:2）班级实体E_R图:3）课程实体E_R图:4）年级实体E_R图:5）成绩实体E_R图:6）实体和实体之间的E_R图:3.逻辑结构设计现在需要将上面的数据库概念结构转化为SQL Server 2000数据库系统所

6、支持的实际 数据模型，也就是数据库的逻辑结构。在上面的实体以及实体之间关系的基础上，形成数 据库中的表格以及各个表格之间的关系。Student_Info学生信息表列名数据类型可否为空说明Student_IDint(4)Not null学生学号（主键）Student_NameChar(10)Null学生姓名Stdent_SexChar(2)Null学生性别Born_DateDatetime(8)Null出生日期Class_N0Int(4)Null班号Tele_NumberVarchar (12)Null联系电话Ru_DateDatetime(8)Null入校时间AddressVarchar(50

7、)Null家庭地址CommentVarchar(200)Null注释Class_Info班级信息表格列名数据类型可否为空说明Class_NoInt(4)null班号（主键）GradeChar(10)Null年级DirectorChar(20)Null班主任Classroom_NoChar(10)Null教室Course_Info课程基本信息表列名数据类型可否为空说明Course_NameChar(10)Not null课程名称（主键）Course_TypeChar(10)Null课程类型CourseDesChar(20)Null课程描述Gradecourse_Info年级课程设置表列名数据类型

8、可否为空说明GradeChar(10)null年级Course_NameChar(10)Null课程名称Result_Info学生成绩表列名数据类型可否为空说明Exam_NoChar(10)null考试类型Student_IDInt (4)Null学生学号Student_NameChar(10)Null学生姓名Class_NoInt (4)Null学生班号Course_NameChar(10)Null课程名称ResuItFloat(8)Null分数User_Info系统用户表列名数据类型可否为空说明User.IDChar(10)null用户名称User.PWDChar(10)Null用户密码U

9、ser_DesChar(10)Null用户描述4物理结构的设计建立的索引建立的约束关系5. 数据库的实施5.1用户表的SQL语句CREATE 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)ON PRIMARY52学生表的SQL语句CREATE TABLE dbo.student.Info(st

10、udent_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_N0 int NULL ,tele.Number char (10) COLLATE Chinese_PRC_CI_AS NULL ,ru_Date datetime NULL ,address varchar (50) COLLATE Chinese_PRC_CI_AS

11、 NULL ,)ON PRIMARY5. 3班级表的SQL语句CREATE 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 ,classroom.No char (10) COLLATE Chinese_PRC_CI_AS NULL)ON PRIMARY5. 4课程表的SQL语句CREATE TABLE dbo.course.Info(course_Xo int

12、 NOT NULL ,course.Xame char (10) COLLATE Chinese_PRC_CI_AS NULL ,course.Type char (10) COLLATE Chinese_PRC_CI_AS NULL ,)ON PRIMARY5. 5课程设置表的SQL语句CREATE TABLE dbo. gradecourse_Info(grade char (10) COLLATE Chinese_PRC_CI_AS NULL ,course.Name char (10) COLLATE Chinese_PRC_CI_AS NULL)ON PRIMARY5. 6成绩表的S

13、QL语句CREATE TABLE dbo.result.Info(exam_No char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,student.ID int NOT NULL ,student.Name char (10) COLLATE Chinese_PRC_CI_AS NULL ,class_No int NULL ,course.Name char (10) COLLATE Chinese_PRC_CI_AS NULL , result float NULL)ON PRIMARY5. 7写进相关数据5.71建立用户表5. 72建立学生信息表

14、5. 73建立班级信息表5. 73建立课程信息表5. 74建立课程设置表5. 75建立成绩表5.8 VB模块中与SQL Sever 2000连接的关键代码ConnectString = "Provider二SQLOLEDB. 1;Integrated Security=SSPI;Persist SecurityInfo二False;Initial Catalog=Student;ddtasource二"5. 9关系图6详细设计6. 1学生信息管理系统功能学生信息管理系统实现的功能：管理员登陆与修改密码，学生信息的添加、删除与修 改，班级信息的添加，修改，课程的设置、添加，成

15、绩的纪录、修改与删除，以及对学生 的各个信息的查询。6.2功能模块的实现(VB代码)1. 用户登录的设置：用于设置用户的基本信息，包括用户名和密码(修改)以及用户的退出。修改Private Sub cmdCance1_C1ick()Unload MeEnd SubPrivate Sub cmdOK_Click()Dim txtSQL, MsgText As StringDim mrc As ADODB RecordsetIf Trim(Textl(1). Text) <> Trim(Textl(2). Text) ThenMsgBox "密码输入不正确！ “，vbOKOn

16、ly + vbExclamation,"警告"Textl(1) SetFocusTextl(1). Text ="“ElsetxtSQL = "select * from user_Info where user_ID 二、& UserName &Set mrc = ExecuteSQL(txtSQL, MsgText)mrcFields(l) = Textl (1).Textmrc. Updatemrc.CloseMsgBox "密码修改成功！ ”，vbOKOnly + vbExclamation,"修改密码&quo

17、t;Me. HideEnd If2. 学生信息的设置:End Sub用于学生基本信息的查询、修改和添加学生的信息，包括学生的学号、姓名、性别、 班号、出生日期、入学年份、家庭住址以及备注。添加Private Sub Commandl_Click()Dim mrc As ADODB RecordsetDim txtSQL As StringDim MsgText As StringIf Not Testtxt (txtSID. Text) ThenMsgBox "请输入学号！ ”，vbOKOnly + vbExclamation,"警告"txtSID SetFocu

18、sExit SubEnd IfIf Not Testtxt(txt'ame.Text) ThenMsgBox "请输入姓名！ ”，vbOKOnly + vbExclamation,"警告"txtName SetFocusExit SubEnd IfIf ot Testtxt(comboSex.Text) ThenMsgBox "请选择性别！ ”，vbOKOnly + vbExclamation,"警告" comboSex SetFocusExit SubEnd IfIf Not Testtxt (txtBorndate .Te

19、xt) ThenMsgBox "请输入出生日期！ ”，vbOKOnly + vbExclamation,"警告" txtBorndate. SetFocusExit SubEnd IfIf Not Testtxt(comboClass、o. Text) ThenMsgBox "请选择班号！ ”，vbOKOnly + vbExclamation,"警告" comboClassNo. SetFocusEnd IfExit SubIf Not Testtxt (txtTel.Text) ThenMsgBox "请输入联系电话！ &

20、quot;、vbOKOnly + vbExclamation,"警告 txtTe1.SetFocusExit SubEnd IfIf Not Testtxt (txtRudate .Text) ThenMsgBox "请输入入校日期! ”，vbOKOnly + vbExclamation,"警告" txtRudate SetFocusExit SubEnd IfIf ot Testtxt(txtAddress.Text) ThenMsgBox "请输入家庭住址！ ”，vbOKOnly + vbExclamation,"警告"

21、 txtAddress SetFocusExit SubEnd IfMsgBox "请输入数字! "、vbOKOnly + vbExclamation,"警告"Exit SubtxtSID SetFocusEnd IftxtSQL = "select * from student_Info where student_ID =&Trim(txtSID. Text) &Set mrc = ExecuteSQL (txtSQL, MsgText)If mrc. EOF = False ThenMsgBox "学号重复，请重

22、新输入! ", vbOKOnly + vbExclamation,"警告"mrc. ClosetxtSID SetFocusElsemrc. CloseIf Not IsDate(txtBorndate.Text) ThenMsgBox "出生时间应输入日期格式(yyyy-mm-dd) ! "、vbOKOnly +vbExc 1 amat ion,"警告txtBorndate SetFocusElsetxtBorndate = Format(txtBorndate, "yyyy-mm-dd)If Not IsDate(txt

23、Rudate. Text) Then”、vbOKOnly +MsgBox "入校时间应输入卜期格式(yyyy-mm-dd) ! vbExclamation,"警告"txtRudate. SetFocusElsetxtRudate = Format(txtRudate, "yyyy-mm-dd)txtSQL = "select * from student_InfoSet mrc = ExecuteSQL (txtSQL, MsgText)mrc. AddNewmrc.Fields(0) = Trim(txtSID. Text)mrcFields

24、(l) = Trim(txtName. Text)mrcFields (2) = Trim(comboSex .Text) mrcFields (3) = Trim(txtBorndate .Text)mrcFields (4) = Trim(comboClassNo. Text) mrcFields (5) = Trim(txtTe 1. Text)mrcFields(6) = Trim(txtRudate .Text)mrcFields (7) = Trim(txtAddress .Text)mrc.UpdateMsgBox "添加学籍信息成功！ ”，vbOKOnly + vbE

25、xclamation,"警告"mrc. CloseMe. HideEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim mrc As ADODB RecordsetDim txtSQL As StringDim MsgText As StringDim i As IntegercomboSex Additem "男comboSexAddltem "女txtSQL = "select * from class_

26、InfoSet mrc = ExecuteSQL (txtSQL, MsgText)For i = 1 To mrc. RecordCountcomboClassNo. Additem mrc Fields(0) mrc. Move'extNext imrc. CloseEnd SubPrivate Sub txtComment_Change()End Sub修改Dim mrc As ADODB RecordsetDim myBookmark As VariantDim mcclean As BooleanPrivate Sub editCommand_Click()mcclean =

27、 FalseFrame2 .Enabled = FalsefirstCommand .Enabled = FalsepreviousCommand .Enabled = FalsenextCommand Enabled = FalselastCommand Enabled = FalsetxtSID. Enabled = TruetxtName Enabled = TruecomboSex Enabled = TruetxtBorndate Enabled = TruecomboClassNo. Enabled = TruetxtRudate Enabled = TruetxtTe1. Ena

28、bled = TruetxtAddress Enabled = TrueEnd SubPrivate Sub cancelCommand_Click()If Not mcclean ThenFrame2 Enabled = True firstCommand .Enabled = True previousCommand Enabled = True nextCommand Enabled = True lastCommand Enabled = True txtSID Enabled = False txtName Enabled = False comboSex .Enabled = Fa

29、lse comboClassNo. Enabled = FalsetxtBorndate .Enabled = FalsetxtRudate Enabled = False txtTe1.Enabled = FalsetxtAddress .Enabled = Falsemrc. Bookmark = myBookmarkCall viewDataElseMsgBox "什么都没有修改,有什么好取消的! “, vbOKOnly + vbExclamation,警告"End IfEnd SubPrivate Sub deleteCommand_Click()myBookmar

30、k = mrc. Bookmarkstr2S二MsgBox("是否删除当前记录？ “，vbOKCancel,"删除当前记录")If str2S = vbOK ThenIf mrc. EOF Thenmrc. Move'extmrc. MoveFirst myBookmark = mrc. Bookmarkmzrc. MoveLastmrc. Deletemrc. Bookmark = myBookmarkCall viewDataElsemyBookmark = mrc. Bookmarkmrc MovePreviousmrc.Deletemrc. Boo

31、kmark = myBookmarkCall viewDataEnd IfElseCall viewDatamrc. Bookmark = myBookmarkEnd IfEnd SubPrivate Sub firstCommand_Click()mrc. MoveFirstCall viewDataEnd SubPrivate Sub Form_Load()Dim txtSQL As StringDim MsgText As StringtxtSQL = "select * from student_InfoSet mrc = ExecuteSQL (txtSQL, MsgTex

32、t)mrc. MoveFirstCall viewDatemeclean = TrueEnd SubPublic Sub viewData()txtSID. Text = mrc.Fields(0)txtName.Text 二 mrcFields(l)comboSex .Text = mrcFields(2)txtBorndate Text = Format(mrc Fields(3), "yyyy一mm-dd)comboClassNo. Text = mrcFields(4)txtTe1.Text = mrcFields(5)txtRudate Text = Format(mrc

33、Fields(6), "yyyy一mm-dd)txtAddress .Text = mrcFields(7)End SubPrivate Sub lastCommand_C1ick()mrc. MoveLastCall viewDataEnd SubPrivate Sub next Commanded ick ()If mrc. EOF Thenmrc. MoveNextmrc. MoveFirstEnd IfCall viewDataEnd SubPrivate Sub previousCommand_Click()mrc. MovePreviousIf mrc. BOF Then

34、mrc. MoveLastEnd IfCall viewDataEnd SubPrivate Sub updateCommand_Click()Dim txtSQL As StringDim MsgText As StringDim mrcc As ADODB RecordsetIf meclean ThenMsgBox 请先修改学籍信息，vbOKOnly + vbExclamation,警告"Exit SubEnd IfIf Not Testtxt (txtSID. Text) ThenMsgBox "请输入学号！ ”，vbOKOnly + vbExclamation,&

35、quot;警告"txtSID SetFocusExit SubEnd IfIf Not Testtxt(txtName.Text) ThenMsgBox "请输入姓名！ ”，vbOKOnly + vbExclamation,"警告"txtName SetFocusExit SubEnd IfIf Not Testtxt(comboSex.Text) ThenMsgBox "请选择性别! "、vbOKOnly + vbExclamation, 警告"comboSex SetFocusExit SubEnd IfIf Not T

36、esttxt(txtBorndate.Text) ThenMsgBox "请输入出生日期! ”，vbOKOnly + vbExclamation,"警告" txtBorndate. SetFocusExit SubEnd IfIf Not Testtxt(comboClass,o. Text) ThenMsgBox "请选择班号！ ”，vbOKOnly + vbExclamation,"警告" comboClassNo. SetFocusExit SubEnd IfIf Not Testtxt(txtTel. Text) ThenMs

37、gBox "请输入联系电话！ ”，vbOKOnly + vbExclamation,"警告" txtTe1. SetFocusExit SubEnd IfIf ot Testtxt(txtRudate.Text) ThenMsgBox "请输入入校H 期！ ”，vbOKOnly + vbExclamation,"警告"txtRudate SetFocusExit SubEnd IfIf Not Testtxt(txtAddress.Text) ThenMsgBox "请输入家庭住址！ ”，vbOKOnly + vbExcla

38、mation,"警告"txtAddress SetFocusExit SubEnd IfIf Not IsNumeric(Trim(txtSID.Text) ThenMsgBox "学号请输入数字！ ”，vbOKOnly + vbExclamation,"警告"txtSID SetFocusEnd IfExit Submrc. DeletetxtSQL = "select * from student_Info where student_ID =&Trim(txtSID. Text) &Set mrcc = Exec

39、uteSQL (txtSQL, MsgText)If mrcc.EOF = False ThenMsgBox "学号重复,请重新输入! “, vbOKOnly + vbExclamation,"警告"mrcc ClosetxtSID SetFocusElsemrcc CloseIf Not IsDate(txtBorndate.Text) ThenMsgBox "出生时间应输入日期格式(yyyy-mm-dd) ! “, vbOKOnly +vbExclamation,"警告"txtBorndate SetFocusElsetxtBor

40、ndate = Format(txtBorndate, "yyyy-mm-dd")If Not IsDate(txtRudate.Text) Then”、vbOKOnly +MsgBox "入校时间应输入日期格式(yyyy-mm-dd) !vbExclamation,"警告"txtRudate SetFocusElsetxtRudate = Format(txtRudate, "yyyy-rnm-dd") mrc. AddXewmrc.Fields(0)=Trim(txtSID. Text)mrc.Fields(1)=Tri

41、m(txt'ame. Text)mrc.Fields (2)=Trim(comboSexText)mrc.Fields(3)=Trim(txtBorndate .Text)mrc.Fields(4)=Trim(comboClassNo. Text)mrc.Fields(5)=Trim(txtTel. Text)mrc.Fields(6)=Trim(txtRudate .Text)mrc.Fields (7)=Trim(txtAddress .Text)mrc.UpdateMsgBox "修改学籍信息成功！ "、vbOKOnly + vbExclamation, 修改

42、学籍信息Call viewDataFrame2 Enabled = True firstCommand .Enabled = True previousCommand Enabled = True nextCommand Enabled = True lastCommand Enabled = True txtSID Enabled = False txtName Enabled = False comboSex .Enabled = False txtBorndate.Enabled = False comboClassNo. Enabled = False txtRudate .Enabl

43、ed = False txtTe1.Enabled = False txtAddress .Enabled = Falsemeclean = TrueEnd IfEnd IfEnd IfEnd Sub查询Private Sub cmdExit_Click()Unload MeEnd SubPrivate Sub cmdInquire_Click()Dim txtSQL As StringDim MsgText As StringDim dd(4) As BooleanDim mrc As ADODB RecordsettxtSQL = "select * from student_I

44、nfo whereIf Trim(txtSID. Text) = "" ThensMeg二学号不能为空"MsgBox sMeg, vbOKOnly + vbExclamation, 警告txtSID SetFocusExit SubElseIf Not IsNumeric(Trim(txtSID.Text) ThenMsgBox "请输入数字！ ”，vbOKOnly + vbExclamation,"警告"Exit SubtxtSID SetFocusEnd Ifdd(0) = TruetxtSQL = txtSQL & &q

45、uot;student_ID 二'"& Trim(txtSID. Text) &End IfEnd IfIf Checkl(1). Value ThenIf Trim(txtNameText)二"” ThensMeg二"姓名不能为空"MsgBox sMeg, vbOKOnly + vbExclamation, 警告txtName SetFocusExit SubElsedd(l) = TrueIf dd(O) ThentxtSQL = txtSQL & "and student_Name =& txtNa

46、me Text &ElsetxtSQL = t xtSQL & "stude nt _Name 二& txtName .Text &"End IfEnd IfEnd IfIf Checkl(2). Value ThenIf Trim(txtClassno. Text)二ThensMeg二班号不能为空MsgBox sMeg, vbOKOnly + vbExclamation,"警告"txtClassno. SetFocusExit SubElsedd(2) = TrueIf dd(O) Or dd(l) ThentxtSQL

47、 = txtSQL & "and class_No 二'"& txtClassno. Text &ElsetxtSQL = txtSQL & "cldss_No 二'"& txtClassno. Text &"End IfEnd IfEnd IfIf Not (dd(0) Or dd(l) Or dd(2) Or dd(3) ThenMsgBox "请设置查询方式！ ”，vbOKOnly + vbExclamation,"警告"Exit SubEnd

48、If txtSQL = txtSQL & " order by student_IDSet mrc = ExecuteSQL (txtSQL, MsgText)With myflexgrid Rows = 2 CellAlignment二 4 TextMatrix(l,0)="学号" TextMatrix(l,1)二姓名" TextMatrix(l,2)二"性别" TextMatrix(l,3)二"出生日期" TextMatrix(l,4)二"班号" TextMatrix(l,5)二&q

49、uot;联系电话" TextMatrix(l,6)二"入校日期" TextMatrix(l,7)二"家庭住址"Do Wh订e Not mrc. EOF Rows = Rows + 1CellAlignment = 4TextMatrix(.Rows 一 1,TextMatrix(.Rows 一 1,TextMatrix(.Rows 一 1,TextMatrix(.Rows 一 1,TextMatrix(.Rows 一 1,TextMatrix(.Rows 一 1,TextMatrix(.Rows 一 1,TextMatrix(.Rows 一 1, mrc. MoveNextLoopEnd Withmrc. CloseEnd SubPrivate Sub Form_Load()=mrc. Fields(0)=mrc. Fields(1)=mrc. Fields(2)=Format(mrc Fields(3), "yyyy-mm-dd")=mrc. Fields(4)=mrc. Fields(5)=Fo