SQL数据库课程设计课件

《SQL数据库课程设计课件》由会员分享，可在线阅读，更多相关《SQL数据库课程设计课件（18页珍藏版）》请在装配图网上搜索。

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

2、实用性。方便快速的操作，可减少学籍信息管理的漏洞，又减少因工作的冗余出现的错误，并且操作非常简单，根据需求分析，本系统将要实现以下功能：（1）用户授权访问和密码修改功能；（2）学生信息添加、修改、查询功能（包括学籍信息、课程信息、成绩信息）；SQL数据库课程设计4学生信息管理功能模块图：学生信息管理系统系统管理学籍信息管理成绩信息管理系统管理学籍信息管理系统管理学籍信息管理成绩信息管理课程信息管理学籍信息管理密码管理用户管理学籍信息添加学籍信息修改学籍信息查询课程信息添加课程信息修改课程信息查询成绩信息添加成绩信息修改成绩信息查询SQL数据库课程设计5实体之间联系E-R图：学生选课课程学号性别

3、姓名班级出生日期联系电话成绩课程编号课程类型学分课程名SQL数据库课程设计61.系统主窗体：SQL数据库课程设计7主窗体代码：Public Class frmMain 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)Han

4、dles mnuUser.Click Dim frmchild As New frmUser frmchild.MdiParent=Me frmchild.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 St

5、udentInfoAdd_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)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 StudentInf

6、oModify.Click Dim frmchild As New frmStudentInfoModify frmchild.MdiParent=Me frmchild.Show()End SubSQL数据库课程设计82.“用户登陆”窗体：SQL数据库课程设计9“用户登录”窗体代码：Private Sub cmdOK_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles cmdOK.Click If username.Text=Then MsgBox(请输入用户名！)username.Focus()Ex

7、it Sub End If If password.Text=Then MsgBox(请输入密码！)password.Focus()Exit Sub End If Dim icount As Integer txtSQL=SELECT*FROM user_info WHERE user_id=&username.Text&icount=ExecuteSQL(txtSQL,ErrorMsg)从user_info表中提取输入的用户信息,返回记录数icount和数据集DBSet If icount=0 Then MsgBox(没有此用户，请重新输入用户名！,vbExclamation)usernam

8、e.Focus()Exit Sub ElseIf icount=-1 Then MsgBox(程序出错！,vbExclamation)username.Focus()Exit Sub End If 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 MsgBo

9、x(密码不正确，请重新输入密码！,vbExclamation)password.Focus()End If End Sub Private Sub cmdExit_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles cmdExit.Click Me.Close()End SubSQL数据库课程设计103.“学籍信息管理”窗体：SQL数据库课程设计11“学籍信息管理”窗体：Private Sub cmdXJAdd_Click()If Trim(txtNum.Text)=Then MsgBox(请输入学号,

10、vbOKOnly,警告)txtNum.Focus()Exit Sub End If If txtName.Text=Then MsgBox(请输入姓名,vbOKOnly,警告)txtName.Focus()Exit Sub End If If txtBirthday.Text=Then MsgBox(请输入出生日期,vbOKOnly,警告)txtBirthday.Focus()Exit Sub End If If Not IsDate(txtBirthday.Text)Then MsgBox(日期的正确格式应为（YYYY-MM-DD）,vbOKOnly,警告)txtBirthday.Focus

11、()Exit Sub End If If txtClass.Text=Then MsgBox(请输入班级,vbOKOnly,警告)txtClass.Focus()Exit Sub End IfIf txtRegday.Text=Then MsgBox(请输入入学时间,vbOKOnly,警告)txtRegday.Focus()Exit Sub End IfIf Not IsDate(txtRegday.Text)Then MsgBox(日期的正确格式应为（YYYY-MM-DD）,vbOKOnly,警告)txtRegday.Focus()Exit SubElse txtSQL=INSERT INT

12、O student_info(student_id,student_name,student_sex,born_date,txtSQL=txtSQL&classname,telephone,enroll_date,address,comment)txtSQL=txtSQL&VALUES(&txtNum.Text&,&txtName.Text&,&cboSex.Text&,&txtBirthday.Text txtSQL=txtSQL&,&txtClass.Text&,&txtPhone.Text&,&txtRegday.Text&,&txtAddress.Text&,&txtMemo.Text

13、&)icount=ExecuteSQL(txtSQL,ErrorMsg)If icount 0 Then MsgBox(新增成功)Else MsgBox(新增失败)End SubSQL数据库课程设计124.“课程信息修改”窗体SQL数据库课程设计13“课程信息修改”窗体代码：Private Sub frmCourseModify_Load()Dim mytable As Data.DataTable Dim recordnum As Integer txtSQL=SELECT*FROM course_info recordnum=ExecuteSQL(txtSQL,ErrorMsg)mytab

14、le=DBSet.Tables.Item(0)txtCourse_NO.DataBindings.Add(Text,mytable,Course_NO)txtCourse_name.DataBindings.Add(Text,mytable,Course_name)txtCourse_type.DataBindings.Add(Text,mytable,Course_type)txtCourse_credit.DataBindings.Add(Text,mytable,Course_credit)txtCourse_des.DataBindings.Add(Text,mytable,Cours

15、e_des)mybind=CType(Me.BindingContext(mytable),CurrencyManager)mybind.Position=0 txtCourse_NO.ReadOnly=True End SubPrivate Sub cmdFirst_Click()mybind.Position=0 End SubPrivate Sub cmdLast_Click()mybind.Position=mybind.Count-1 End SubPrivate Sub cmdForward_Click()If(mybind.Position=0)Then MessageBox.S

16、how(已经到了第一条记录！,信息提示！,MessageBoxButtons.OK,MessageBoxIcon.Information)Else mybind.Position=mybind.Position-1 End If End SubPrivate Sub cmdBackward_Click()If mybind.Position=mybind.Count-1 Then MessageBox.Show(已经到了最后一条记录！,信息提示！,MessageBoxButtons.OK,MessageBoxIcon.Information)Else mybind.Position=mybin

17、d.Position+1 End If End SubIf recordnum 0 Then MsgBox(更新完成！)Else MsgBox(更新失败!&ErrorMsg)End If DBSet.Tables(0).Rows(mybind.Position).EndEdit()DBSet.Tables(0).AcceptChanges()mybind.Position=i End SubPrivate Sub cmdDelete_Click()Dim recordnum As Integer txtSQL=DELETE course_info WHERE course_no=&txtCou

18、rse_NO.Text&recordnum=ExecuteSQL(txtSQL,ErrorMsg)从DataSet中删除指定记录 DBSet.Tables(0).Rows(mybind.Position).Delete()DBSet.Tables(0).AcceptChanges()End SubSQL数据库课程设计14亮点展示：（1）用户注册SQL数据库课程设计15亮点展示：（2）密码修改SQL数据库课程设计16总结 忙忙碌碌地奋斗了两周，我们的课程设计终于完美收工，虽然由于能力和时间的关系，还是觉得有很多不尽人意的地方，但是也基本达到预期的效果。在实践的过程中，大家都有很大的收获。首先，无

19、论做任何事，都要有明确清晰的规划，只有制定切实可行的目标，才可以顺利的实现它。有了目标，就要坚持不懈的去完成，在实现目标的过程中，遇到困难不要畏惧，无论看起来有多难，总会有解决的办法，只有坚持到最后，才会达到预期的效果。SQL数据库课程设计17 其次，要学会团队分工与合作，每个人都要尽自己最大的努力，为自己的团队做贡献。团队的成功不可能依靠一个人的力量，只有大家共同努力，才会取得成功。最后，我们明白了：纸上得来终觉浅，只有在躬身实践的过程中才会有更多丰富的收获。这样的课程设计还是很有意义的，通过在实践中，我们明白了自己在平时学习中的漏洞，同时也锻炼了自己的实践能力，更加巩固了对所学知识的掌握。SQL数据库课程设计18感谢在实践过程中老师的指导和同学的帮助做一件事情，不必过于在乎最终的结果，可贵的是过程中的收获。以此语言来安抚我们尚未平复的心。谢谢观看！