《学生信息管理vb》doc版.doc

河南工程学院数据库系统原理与应用课程设计成果报告学生信息管理系统设计与开发学生学号： 201210913111 学生姓名： 瓮建辉 学 院： 计算机学院 专业班级： 计算机科学与技术1241班 专业课程： 数据库系统原理与应用 指导教师： 李华 2015年 1 月 4 日课程设计指导教师评分表课程设计题目学生信息管理系统系统设计与开发成员姓名学号任务分工瓮建辉201210913111数据库、数据库与VB的链接、主界面与登录界面的设计殷久莹201210913221数据库、课程信息管理模块的设计刘铁201210913127数据库、学生信息管理模块的设计评分项目及分值要素成绩评定项 目最高分评 分 要 素成 绩1学习态度20上机出勤及端正的学习态度、认真刻苦程度，工作量饱满程度等2软件设计质量40采用的算法、设计方案，设计结果，界面友好等方面进行综合评定3答辩过程20能简明扼要地阐述设计的主要内容，能准确流利地回答各种问题4设计报告书写10内容按要求步骤书写，条理清晰，表述清楚、措词得当5实际动手能力10熟练使用开发工具，能够迅速准确的进行调试、纠错和运行；组长全面负责，承担复杂的模块设计分值就高总 成 绩等 级评语目 录一、需求分析1（一）系统描述1（二）功能描述 1（三）模块设计 1二、概念结构设计2三、逻辑结构设计4四、数据库设计实现及运行6（一）数据库的创建6（二）数据表的创建6（三）自行设计各模块中所涉及的操作语句71.数据库与VB工程代码的连接72登录界面73主界面9五、系统详细设计及实现12六、实训总结及心得体会24 学生信息管理系统系统设计与开发一、需求分析（一）系统描述当今时代是飞速发展的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。本系统就是为了管理好学生信息管理而设计的。（二）功能描述本系统是为了实现信息的方便查询，更改，各科成绩的查询以及更改，规范管理，从而减少学生成绩管理方面的工作量。该系统的主要功能如下:(1)可以进行用户信息管理,实现用户的添加和密码修改；(2)可以进行课程信息管理,实现浏览课程和修改课程；(3)可以进行学生信息管理,实现浏览学生信息和修改学生信息；(4)可以进行成绩信息管理,实现成绩查询和成绩修改。（三）模块设计本组有瓮建辉、殷久莹、刘铁三人，本人负责数据库与VB的链接、主界面与登录界面的设计。学生信息管理系统的界面需通过使用VB来构建，再将设计好的相关代码与界面中使用的命令一一对应，最后将数据库与VB通过代码链接，即可实现学生信息管理系统的使用。二、概念结构设计 （一）各部分E-R图的设计1.用户实体E-R图如图1所示用户信息用户名密码管理员图12.学生实体E-R图如图2所示学生信息学号姓名性别班级号图23.课程实体E-R图如图3所示课程信息课程号课程名学分图34.成绩实体E-R图如图4所示成绩信息课程号成绩学号图4（二）整体E-R图的设计如图5所示学生学号姓名性别班级号考试成绩学号成绩课程号分数课程课程名学分课程号选修成绩管理员管理用户ID密码图5三、逻辑结构设计模式设计管理员（用户ID,密码）学生(学号,姓名，性别，出生日期，班级号，电话号码，入学日期，家庭住址，评价)课程(课程号,课程名,课程类型，学时，学分)成绩(学号，课程号,分数)选修(学号，课程号,成绩)其中，下划线为主键。 根据这些需要，本系统需要如下4个表格：表1 学生信息数据表列名数据类型长度是否可以为空student_IDchar12否student_namechar10是student_sexchar2是born_datedatetime8是class_nochar4是tele_numberchar10是ru_datedatetime8是addressvarchar50是commentvarchar200是表2 课程信息数据表 列名数据类型长度是否可以为空course_Noint4否course_namechar12是course_typechar10否course_startchar10否course_timeint4是course_scoreint4否表3 成绩信息数据表列名数据类型长度是否可以为空student_IDchar12否course_Nochar10是resultfloat8是表4 用户信息数据表列名数据类型长度是否可以为空IDchar12否posswardvarchar10否deschar10是四、数据库设计实现及运行（一）数据库的创建T-SQL语句：create database 学生信息管理系统（二）数据表的创建 T-SQL语句：Creat table student( Student_id CHAR(10), not null Student_name CHAR(20) L, Student_sex CHAR(6),born_date datetime,class_no char（4），tele_number char（10），ru_date datetime（8），Address varchar （50），Comment varchar（200）；Creat table course（Course_No int，Course_name char（12），Course_type char（10），Course_start char（10），Course_time int，Course_score int）；Create table result （student_ID char（12），course_No char(10),Result float(8)Frimary key (student_ID,course_No )Foreign key (student_ID)references student(student_ID),Foreign key (Course_No)references course(Course_No),);（三）自行设计各模块中所涉及的操作语句1.数据库与VB工程代码的连接T-SQL语句：dim myconnection_isopen as booleanprivate sub form_load()dim strconn as string 先以windows用户连接到sql server,获取数据库sql账户strconn=provider=sqloledb.1;integrated security=sspi;_persist security info=false;initial catalog=student;date source=(local)myconnection.connectionstring=strconnon error gotu err_open_msgmyconnection.openmyconnection_isopen=truecall get_userlistexit suberr_open_msg:msgbox(windows用户无法连接到sql server”）end sub2.登录界面功能界面：图6登录界面功能描述：用户通过该界面登录，登录后可进行相关操作。T-SQL语句与宿主语言嵌套使用代码段：Dim mmcount As IntegerPrivate Sub Command1_Click() Dim sqlstr As String Dim rst As New ADODB.Recordset If Text1.Text = Then MsgBox 请输入用户名！, vbOKOnly + vbExclamation, 警告 Else sqlstr = select * from users where ID= & Text1.Text & Set rst = querysql(sqlstr) If rst.EOF Then MsgBox 没有这个用户，请重新输入用户名！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Text1.Text = Text2.Text = Else If Text2.Text rst.Fields(1) Then MsgBox 输入密码不正确，请重新输入！, vbOKOnly + vbExclamation, 警告 mmcount = mmcount + 1 Text1.Text = Text2.Text = Else FrmMain.Show End If End If End If If mmcount = 3 Then Unload Me End If Unload MeEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() mmcount = 0End Sub3.主界面功能界面：图7主界面功能描述：用户通过该界面可进行相关的查询、修改、添加等操作。T-SQL语句与宿主语言嵌套使用代码段：Private Sub MDIForm_Load()End SubPrivate Sub mnuAbout_Click() MsgBox 版权所有：瓮建辉，殷久莹，刘铁！, vbOKOnly + vbExclamation, 版权End SubPrivate Sub mnuAddResult_Click() Load browescore browescore.ShowEnd SubPrivate Sub mnuAddStudentInfo_Click() Load llxsxx llxsxx.ShowEnd SubPrivate Sub mnuAddUser_Click() Load Frmadduser Frmadduser.ShowEnd SubPrivate Sub mnuCourseInfoatl_Click() Load xgkc xgkc.ShowEnd SubPrivate Sub mnuCourseInfodel_Click()End SubPrivate Sub mnuExit_Click()Unload MeEnd SubPrivate Sub mnuModiPwd_Click() Load FrmAtlearuser FrmAtlearuser.ShowEnd SubPrivate Sub mnuNew_Click()Load FrmlogFrmlog.ShowEnd SubPrivate Sub mnuResultxg_Click() Load modifyscore modifyscore.ShowEnd SubPrivate Sub mnuSetCourseInfo_Click() Load llkc llkc.ShowEnd SubPrivate Sub mnuStudentAdd_Click()Load tjxsxxtjxsxx.ShowEnd SubPrivate Sub mnuStudentDele_Click()Load scxsxxscxsxx.ShowEnd SubPrivate Sub mnuStudentInfoxg_Click() Load xgxsxx xgxsxx.ShowEnd SubPrivate Sub mnuUserLook_Click()Load ckyhckyh.ShowEnd Sub五、系统详细设计及实现（一）开发环境1操作系统：Windows72数据库系统：Microsoft SQL Server2008企业版3体系结构：系统的体系结构为C/S结构4开发工具：前台为VB，后台数据库为SQL Server（二）系统模块1.登录界面图8登录界面 Dim mmcount As IntegerPrivate Sub Command1_Click() Dim sqlstr As String Dim rst As New ADODB.Recordset If Text1.Text = Then MsgBox 请输入用户名！, vbOKOnly + vbExclamation, 警告 Else sqlstr = select * from users where ID= & Text1.Text & Set rst = querysql(sqlstr) If rst.EOF Then MsgBox 没有这个用户，请重新输入用户名！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Text1.Text = Text2.Text = Else If Text2.Text rst.Fields(1) Then MsgBox 输入密码不正确，请重新输入！, vbOKOnly + vbExclamation, 警告 mmcount = mmcount + 1 Text1.Text = Text2.Text = Else FrmMain.Show End If End If End If If mmcount = 3 Then Unload Me End If Unload MeEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() mmcount = 0End Sub2.主界面图9主界面Private Sub MDIForm_Load()End SubPrivate Sub mnuAbout_Click() MsgBox 版权所有：瓮建辉，殷久莹，刘铁！, vbOKOnly + vbExclamation, 版权End SubPrivate Sub mnuAddResult_Click() Load browescore browescore.ShowEnd SubPrivate Sub mnuAddStudentInfo_Click() Load llxsxx llxsxx.ShowEnd SubPrivate Sub mnuAddUser_Click() Load Frmadduser Frmadduser.ShowEnd SubPrivate Sub mnuCourseInfoatl_Click() Load xgkc xgkc.ShowEnd SubPrivate Sub mnuCourseInfodel_Click()End SubPrivate Sub mnuExit_Click()Unload MeEnd SubPrivate Sub mnuModiPwd_Click() Load FrmAtlearuser FrmAtlearuser.ShowEnd SubPrivate Sub mnuNew_Click()Load FrmlogFrmlog.ShowEnd SubPrivate Sub mnuResultxg_Click() Load modifyscore modifyscore.ShowEnd SubPrivate Sub mnuSetCourseInfo_Click() Load llkc llkc.ShowEnd SubPrivate Sub mnuStudentAdd_Click()Load tjxsxxtjxsxx.ShowEnd SubPrivate Sub mnuStudentDele_Click()Load scxsxxscxsxx.ShowEnd SubPrivate Sub mnuStudentInfoxg_Click() Load xgxsxx xgxsxx.ShowEnd SubPrivate Sub mnuUserLook_Click()Load ckyhckyh.ShowEnd Sub3.课程信息管理界面图10浏览课程界面图11修改课程界面Dim rst As New ADODB.RecordsetPrivate Sub Command1_Click() rst.MoveFirst displayEnd SubPrivate Sub Command2_Click() rst.MovePrevious If rst.BOF Then MsgBox 已经是第一条了！, vbOKOnly + vbExclamation, 警告 rst.MoveFirst End If displayEnd SubPrivate Sub Command3_Click() rst.MoveNext If rst.EOF Then MsgBox 已经是最后一条了！, vbOKOnly + vbExclamation, 警告 rst.MoveLast End If displayEnd SubPrivate Sub Command4_Click() rst.MoveLast displayEnd SubPrivate Sub Form_Load() Dim sqlstr As String sqlstr = select * from course Set rst = querysql(sqlstr) While Not rst.EOF rst.MoveNext Wend sqlstr = select * from course Set rst = querysql(sqlstr) displayEnd SubPrivate Sub display() Text1.Text = rst.Fields(1) Text2.Text = rst.Fields(2) Text3.Text = rst.Fields(3) Text4.Text = rst.Fields(4) End SubEnd SubPrivate Sub mnuModiPwd_Click() Load FrmAtlearuser FrmAtlearuser.ShowEnd SubPrivate Sub mnuNew_Click()Load FrmlogFrmlog.ShowEnd SubPrivate Sub mnuResultxg_Click() Load modifyscore modifyscore.ShowEnd SubPrivate Sub mnuSetCourseInfo_Click() Load llkc llkc.ShowEnd SubPrivate Sub mnuStudentAdd_Click()Load tjxsxxtjxsxx.ShowEnd SubPrivate Sub mnuStudentDele_Click()Load scxsxxscxsxx.ShowEnd SubPrivate Sub mnuStudentInfoxg_Click() Load xgxsxx xgxsxx.ShowEnd SubPrivate Sub mnuUserLook_Click()Load ckyhckyh.ShowEnd Sub4.学生信息管理界面图12浏览学生信息界面图13修改学生信息界面Dim rst As New ADODB.RecordsetPrivate Sub Command1_Click() rst.MoveFirst displayEnd SubPrivate Sub Command2_Click() rst.MovePrevious If rst.BOF Then MsgBox 已经是第一条了！, vbOKOnly + vbExclamation, 警告 rst.MoveFirst End If displayEnd SubPrivate Sub Command3_Click() rst.MoveNext If rst.EOF Then MsgBox 已经是最后一条了！, vbOKOnly + vbExclamation, 警告 rst.MoveLast End If displayEnd SubPrivate Sub Command4_Click() rst.MoveLast displayEnd SubPrivate Sub Form_Load() Dim sqlstr As String sqlstr = select * from student Set rst = querysql(sqlstr) While Not rst.EOF rst.MoveNext Wend sqlstr = select * from student Set rst = querysql(sqlstr) displayEnd SubPrivate Sub display() Text1.Text = rst.Fields(0) Text2.Text = rst.Fields(1) Text3.Text = rst.Fields(2) Text4.Text = rst.Fields(3) Text5.Text = rst.Fields(4) Text6.Text = rst.Fields(5) Text7.Text = rst.Fields(6) Text8.Text = rst.Fields(7) Text9.Text = rst.Fields(8)End SubDim rst As New ADODB.RecordsetDim sqlstr As StringPrivate Sub Form_Load() Dim sqlstr As String sqlstr = select * from student Set rst = querysql(sqlstr)End SubPrivate Sub display() Text1.Text = rst.Fields(0) Text2.Text = rst.Fields(0) Text3.Text = rst.Fields(1) Text4.Text = rst.Fields(2) Text10.Text = rst.Fields(3) Text5.Text = rst.Fields(4) Text6.Text = rst.Fields(5) Text7.Text = rst.Fields(6) Text8.Text = rst.Fields(7) Text9.Text = rst.Fields(8)End SubPrivate S