学生信息管理系统数据库课程设计报告docxWord文件下载.docx

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

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

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

4、辑结构。在上面的实体以及实体之间关系的基础上，形成数据库中的表格以及各个表格之间的关系。 Student_Info学生信息表 列名数据类型可否为空说明Student_IDint（4）Not null学生学号（主键）Student_NameChar（10）NullStdent_SexChar（2）学生性别Born_DateDatetime（8）出生日期Class_NOInt（4）班号Tele_NumberVarchar（12）联系电话Ru_Date入校时间AddressVarchar（50）家庭地址CommentVarchar（200）注释 Class_Info班级信息表格列名Class_Non

5、ull班号（主键）Grade年级DirectorChar（20）班主任Classroom_No教室 Course_Info课程基本信息表 Course_Name课程名称（主键）Course_Type课程类型Course_Des课程描述 Gradecourse_Info年级课程设置表Course_Name课程名称 Result_Info学生成绩表Exam_No考试类型学生学号学生班号ResultFloat（8）分数 User_Info系统用户表User_ID用户名称User_PWD用户密码User_Des用户描述4物理结构的设计建立的索引建立的约束关系5数据库的实施 5.1 用户表的SQL语句C

6、REATE 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 PRIMARY5.2学生表的SQL语句CREATE TABLE dbo.student_Info （ student_ID int NOT NULL , student_Name char （10） COLLATE Ch

7、inese_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 , ru_Date datetime NULL , address varchar （50） COLLATE Chinese_PRC_CI_AS NULL ,5.3班级表的SQL语句CREATE TABLE dbo.class_Info （ cla

8、ss_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 5.4课程表的SQL语句CREATE TABLE dbo.course_Info （ course_No int NOT NULL , course_Name char （10） COLLATE Chinese_PRC_CI_AS NULL , c

9、ourse_Type char （10） COLLATE Chinese_PRC_CI_AS NULL ,5.5课程设置表的SQL语句CREATE TABLE dbo.gradecourse_Info （ course_Name char （10） COLLATE Chinese_PRC_CI_AS NULL 5.6 成绩表的SQL语句CREATE TABLE dbo.result_Info （ exam_No char （10） COLLATE Chinese_PRC_CI_AS NOT NULL , class_No int NULL , result float NULL 5.7写进相关

10、数据5.71建立用户表5.72建立学生信息表5.73建立班级信息表5.73建立课程信息表5.74建立课程设置表5.75建立成绩表5.8 VB模块中与SQL Sever 2000连接的关键代码ConnectString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Student;datasource=5.9关系图6详细设计6.1 学生信息管理系统功能学生信息管理系统实现的功能：管理员登陆与修改密码，学生信息的添加、删除与修改，班级信息的添加，修改，课程的设置、

11、添加，成绩的纪录、修改与删除，以及对学生的各个信息的查询。6.2 功能模块的实现（VB代码）1.用户登录的设置： 用于设置用户的基本信息，包括用户名和密码（修改）以及用户的退出。修改Private Sub cmdCancel_Click（） Unload MeEnd SubPrivate Sub cmdOK_Click（） Dim txtSQL, MsgText As String Dim mrc As ADODB.Recordset If Trim（Text1（1）.Text） Trim（Text1（2）.Text） Then MsgBox 密码输入不正确！, vbOKOnly + vbEx

12、clamation, 警告 Text1（1）.SetFocus Text1（1）.Text = Else txtSQL = select * from user_Info where user_ID = & UserName & Set mrc = ExecuteSQL（txtSQL, MsgText） mrc.Fields（1） = Text1（1）.Text mrc.Update mrc.Close密码修改成功！修改密码 Me.Hide End If End Sub2.学生信息的设置：用于学生基本信息的查询、修改和添加学生的信息，包括学生的学号、姓名、性别、班号、出生日期、入学年份、家庭住

13、址以及备注。添加Private Sub Command1_Click（） Dim txtSQL As String Dim MsgText As String If Not Testtxt（txtSID.Text） Then请输入学号！ txtSID.SetFocus Exit Sub If Not Testtxt（txtName.Text） Then请输入姓名！ txtName.SetFocus If Not Testtxt（comboSex.Text） Then请选择性别！ comboSex.SetFocus If Not Testtxt（txtBorndate.Text） Then请输入

14、出生日期！ txtBorndate.SetFocus If Not Testtxt（comboClassNo.Text） Then请选择班号！ comboClassNo.SetFocus If Not Testtxt（txtTel.Text） Then请输入联系电话！ txtTel.SetFocus If Not Testtxt（txtRudate.Text） Then请输入入校日期！ txtRudate.SetFocus If Not Testtxt（txtAddress.Text） Then请输入家庭住址！ txtAddress.SetFocus If Not IsNumeric（Trim

15、（txtSID.Text） Then请输入数字！select * from student_Info where student_ID = Trim（txtSID.Text） & If mrc.EOF = False Then学号重复，请重新输入！ If Not IsDate（txtBorndate.Text） Then出生时间应输入日期格式（yyyy-mm-dd）！ txtBorndate = Format（txtBorndate, yyyy-mm-dd） If Not IsDate（txtRudate.Text） Then入校时间应输入日期格式（yyyy-mm-dd）！ txtRudate

16、 = Format（txtRudate, select * from student_Info mrc.AddNew mrc.Fields（0） = Trim（txtSID.Text） mrc.Fields（1） = Trim（txtName.Text） mrc.Fields（2） = Trim（comboSex.Text） mrc.Fields（3） = Trim（txtBorndate.Text） mrc.Fields（4） = Trim（comboClassNo.Text） mrc.Fields（5） = Trim（txtTel.Text） mrc.Fields（6） = Trim（tx

17、tRudate.Text） mrc.Fields（7） = Trim（txtAddress.Text）添加学籍信息成功！Private Sub Command2_Click（）Private Sub Form_Load（） Dim i As Integer comboSex.AddItem 男女select * from class_Info For i = 1 To mrc.RecordCount comboClassNo.AddItem mrc.Fields（0） mrc.MoveNext Next iPrivate Sub txtComment_Change（）Dim mrc As AD

18、ODB.RecordsetDim myBookmark As VariantDim mcclean As BooleanPrivate Sub editCommand_Click（） mcclean = False Frame2.Enabled = False firstCommand.Enabled = False previousCommand.Enabled = False nextCommand.Enabled = False lastCommand.Enabled = False txtSID.Enabled = True txtName.Enabled = True comboSe

19、x.Enabled = True txtBorndate.Enabled = True comboClassNo.Enabled = True txtRudate.Enabled = True txtTel.Enabled = True txtAddress.Enabled = TruePrivate Sub cancelCommand_Click（） If Not mcclean Then Frame2.Enabled = True firstCommand.Enabled = True previousCommand.Enabled = True nextCommand.Enabled =

20、 True lastCommand.Enabled = True txtSID.Enabled = False txtName.Enabled = False comboSex.Enabled = False txtBorndate.Enabled = False comboClassNo.Enabled = False txtRudate.Enabled = False txtTel.Enabled = False txtAddress.Enabled = False mrc.Bookmark = myBookmark Call viewData什么都没有修改，有什么好取消的！Private Sub deleteCommand_Click（） myBookmark = mrc.Bookmark str2$ = MsgBox（是否删除当前记录？, vbOKCancel, 删除当前记录 If str2$ = vbOK Then If mrc.EOF Then mrc.MoveFirst mrc.MoveLast mrc.Delete mrc.MovePrevious mrc.Bookmark