SQL数据库课程设计.ppt

《SQL数据库课程设计.ppt》由会员分享，可在线阅读，更多相关《SQL数据库课程设计.ppt（17页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、学生信息管理系统学生信息管理系统信管1102班 第五小组张伟 戴明伟廖志理 陈书航目录目录1.需求分析2.系统设计（1）功能模块图（2）E-R图3.效果展示4.亮点展示5.总结系统需求分析：在日常教学活动中，需要对学生各项信息进行高效、智能的管理。本系统结合教学教务工作的需要，通过建立学生信息管理系统，将使得管理工作系统化、规范化和自动化，从而达到提高学生信息管理的效率，并且还提高了学籍信息管理的精确度。它主要包括用户登录、学生信息输入修改、学生信息查询以及学生成绩输入、学生成绩查询、系统用户管理等几个页面，因而该系统具有较强的实用性。方便快速的操作，可减少学籍信息管理的漏洞，又减少因工作的冗

2、余出现的错误，并且操作非常简单，根据需求分析，本系统将要实现以下功能：（1）用户授权访问和密码修改功能；（2）学生信息添加、修改、查询功能（包括学籍信息、课程信息、成绩信息）；学生信息管理功能模块图：学生信息管理系统系统管理学籍信息管理成绩信息管理系统管理学籍信息管理系统管理学籍信息管理成绩信息管理课程信息管理学籍信息管理密码管理用户管理学籍信息添加学籍信息修改学籍信息查询课程信息添加课程信息修改课程信息查询成绩信息添加成绩信息修改成绩信息查询实体之间联系E-R图：学生选课课程学号性别姓名班级出生日期联系电话成绩课程编号课程类型学分课程名1.系统主窗体：主窗体代码：Public Class f

3、rmMain Private Sub 系统管理ToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles mnuSystem.ClickEnd Sub Private Sub mnuUser_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles mnuUser.Click Dim frmchild As New frmUser frmchild.MdiParent=Me frmchild

4、.show()End Sub Private Sub mnuPwdModify_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles mnuPwdModify.Click Dim frmchild As New frmPwdModify frmchild.MdiParent=Me frmchild.Show()End Sub Private Sub StudentInfoAdd_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)

5、Handles StudentInfoAdd.Click Dim frmchild As New frmStudentInfoAdd frmchild.MdiParent=Me frmchild.Show()End SubPrivate Sub StudentInfoModify_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles StudentInfoModify.Click Dim frmchild As New frmStudentInfoModify frmchild.MdiParent=Me

6、frmchild.Show()End Sub2.“用户登陆”窗体：“用户登录”窗体代码：Private Sub cmdOK_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles cmdOK.Click If username.Text=Then MsgBox(请输入用户名！)username.Focus()Exit Sub End If If password.Text=Then MsgBox(请输入密码！)password.Focus()Exit Sub End If Dim icount As Int

7、eger txtSQL=SELECT*FROM user_info WHERE user_id=&username.Text&icount=ExecuteSQL(txtSQL,ErrorMsg)从user_info表中提取输入的用户信息,返回记录数icount和数据集DBSet If icount=0 Then MsgBox(没有此用户，请重新输入用户名！,vbExclamation)username.Focus()Exit Sub ElseIf icount=-1 Then MsgBox(程序出错！,vbExclamation)username.Focus()Exit Sub End If

8、If Trim(password.Text)=Trim(DBSet.Tables.Item(0).Rows.Item(0).Item(user_pwd).ToString()Then username_OK=DBSet.Tables.Item(0).Rows.Item(0).Item(user_id)frmMain.Show()显示主窗体 Finalize()释放登录窗体的资源 Else MsgBox(密码不正确，请重新输入密码！,vbExclamation)password.Focus()End If End Sub Private Sub cmdExit_Click(ByVal sende

9、r As System.Object,ByVal e As System.EventArgs)Handles cmdExit.Click Me.Close()End Sub3.“学籍信息管理”窗体：“学籍信息管理”窗体：Private Sub cmdXJAdd_Click()If Trim(txtNum.Text)=Then MsgBox(请输入学号,vbOKOnly,警告)txtNum.Focus()Exit Sub End If If txtName.Text=Then MsgBox(请输入姓名,vbOKOnly,警告)txtName.Focus()Exit Sub End If If t

10、xtBirthday.Text=Then MsgBox(请输入出生日期,vbOKOnly,警告)txtBirthday.Focus()Exit Sub End If If Not IsDate(txtBirthday.Text)Then MsgBox(日期的正确格式应为（YYYY-MM-DD）,vbOKOnly,警告)txtBirthday.Focus()Exit Sub End If If txtClass.Text=Then MsgBox(请输入班级,vbOKOnly,警告)txtClass.Focus()Exit Sub End IfIf txtRegday.Text=Then MsgB

11、ox(请输入入学时间,vbOKOnly,警告)txtRegday.Focus()Exit Sub End IfIf Not IsDate(txtRegday.Text)Then MsgBox(日期的正确格式应为（YYYY-MM-DD）,vbOKOnly,警告)txtRegday.Focus()Exit SubElse txtSQL=INSERT INTO student_info(student_id,student_name,student_sex,born_date,txtSQL=txtSQL&classname,telephone,enroll_date,address,comment)

12、txtSQL=txtSQL&VALUES(&txtNum.Text&,&txtName.Text&,&cboSex.Text&,&txtBirthday.Text txtSQL=txtSQL&,&txtClass.Text&,&txtPhone.Text&,&txtRegday.Text&,&txtAddress.Text&,&txtMemo.Text&)icount=ExecuteSQL(txtSQL,ErrorMsg)If icount 0 Then MsgBox(新增成功)Else MsgBox(新增失败)End Sub4.“课程信息修改”窗体“课程信息修改”窗体代码：Private S

13、ub frmCourseModify_Load()Dim mytable As Data.DataTable Dim recordnum As Integer txtSQL=SELECT*FROM course_info recordnum=ExecuteSQL(txtSQL,ErrorMsg)mytable=DBSet.Tables.Item(0)txtCourse_NO.DataBindings.Add(Text,mytable,Course_NO)txtCourse_name.DataBindings.Add(Text,mytable,Course_name)txtCourse_type

14、.DataBindings.Add(Text,mytable,Course_type)txtCourse_credit.DataBindings.Add(Text,mytable,Course_credit)txtCourse_des.DataBindings.Add(Text,mytable,Course_des)mybind=CType(Me.BindingContext(mytable),CurrencyManager)mybind.Position=0 txtCourse_NO.ReadOnly=True End SubPrivate Sub cmdFirst_Click()mybin

15、d.Position=0 End SubPrivate Sub cmdLast_Click()mybind.Position=mybind.Count-1 End SubPrivate Sub cmdForward_Click()If(mybind.Position=0)Then MessageBox.Show(已经到了第一条记录！,信息提示！,MessageBoxButtons.OK,MessageBoxIcon.Information)Else mybind.Position=mybind.Position-1 End If End SubPrivate Sub cmdBackward_C

16、lick()If mybind.Position=mybind.Count-1 Then MessageBox.Show(已经到了最后一条记录！,信息提示！,MessageBoxButtons.OK,MessageBoxIcon.Information)Else mybind.Position=mybind.Position+1 End If End SubIf recordnum 0 Then MsgBox(更新完成！)Else MsgBox(更新失败!&ErrorMsg)End If DBSet.Tables(0).Rows(mybind.Position).EndEdit()DBSet.

17、Tables(0).AcceptChanges()mybind.Position=i End SubPrivate Sub cmdDelete_Click()Dim recordnum As Integer txtSQL=DELETE course_info WHERE course_no=&txtCourse_NO.Text&recordnum=ExecuteSQL(txtSQL,ErrorMsg)从DataSet中删除指定记录 DBSet.Tables(0).Rows(mybind.Position).Delete()DBSet.Tables(0).AcceptChanges()End S

18、ub亮点展示：（1）用户注册亮点展示：（2）密码修改总结 忙忙碌碌地奋斗了两周，我们的课程设计终于完美收工，虽然由于能力和时间的关系，还是觉得有很多不尽人意的地方，但是也基本达到预期的效果。在实践的过程中，大家都有很大的收获。首先，无论做任何事，都要有明确清晰的规划，只有制定切实可行的目标，才可以顺利的实现它。有了目标，就要坚持不懈的去完成，在实现目标的过程中，遇到困难不要畏惧，无论看起来有多难，总会有解决的办法，只有坚持到最后，才会达到预期的效果。其次，要学会团队分工与合作，每个人都要尽自己最大的努力，为自己的团队做贡献。团队的成功不可能依靠一个人的力量，只有大家共同努力，才会取得成功。最后，我们明白了：纸上得来终觉浅，只有在躬身实践的过程中才会有更多丰富的收获。这样的课程设计还是很有意义的，通过在实践中，我们明白了自己在平时学习中的漏洞，同时也锻炼了自己的实践能力，更加巩固了对所学知识的掌握。