数据库教务管理系统课程设计

课 程 设 计课程设计名称： 数据库应用课程设计 专 业 班 级 ： 计算机应用技术0801 学 生 姓 名 ： 付 权 学 号 ： 200838940127 指 导 教 师 ： 程 凤 娟 课程设计时间：2011.12.20-2010.12.24 计算机应用技术专业课程设计任务书学生姓名付权专业班级0801学号200838940127题 目教务管理系统课题性质A工程设计课题来源D自拟课题指导教师程凤娟同组姓名无主要内容1、登录管理模块：为了系统的安全性，根据不同权限给出不同服务。2、用户管理模块：仅系统管理员可用，对这个系统的所有用户进行管理。3、教务基本信息管理模块：对以下模块进行增加、修改和删除管理。a、课程管理子模块b、学籍管理子模块 c、班级管理子模块d、系别管理子模块e、课程管理子模块f、成绩管理子模块4、 教务信息查询模块：在各基本表的基础上进行信息的查询。a、成绩查询子模块任务要求以Visual Basic。NET为前台开发工具，以SQL2000为数据库创建教务管理系统,实现增加、修改和删除功能参考文献1 萨师煊，王珊.数据库系统概论（第三版）. 北京高等教育出版社.20002 齐治昌，谭庆平，宁洪，软件工程（第二版）.北京：高等教育出版社.20043 David I.Schneider，Visual Basic.NET编程导论. 电子工业出版社.20034 张智毅.Visual Basic.NET+SQL Server 数据库开发从基础到实践.电子工业出版社.2006审查意见指导教师签字：教研室主任签字： 2010年 12月 24 日 说明：本表由指导教师填写，由教研室主任审核后下达给选题学生，装订在设计（论文）首页目 录第1章 应用背景与需求分析21.1 背景21.2 数据需求21.3 事务需求3第2章 概要设计42.1 设计系统模块42.1.1系统功能42.1.2 系统功能模块划分42.2 设计数据库42.2.1 创建数据库42.2.2 创建数据表52.2.3 连接数据库52.3公共模块52.3.1 添加全局变量52.3.2 定义公共函数6第3章 详细设计63.1主窗体设计63.2用户管理113.3系别管理133.4 班级管理163.5 课程管理173.6 学籍管理18 3.7 成绩管理20 3.8 成绩查询23第4章 测试26第5章 结论26参考文献 28第一章 应用背景与需求分析1.1 教务管理系统简介(背景)随着办公自动化水平的不断提高，现在学校管理教务也逐渐从手工转到计算机自动化信息处理阶段。设计一个功能完整、操作简便、界面友好的学生信息管理系统已经势在必行。本系统开发的目的是提高教务管理工作的效率，保证信息的准确和规范，减少相关人员的工作量，使学校的教务管理工作真正做到科学、合理的规划，系统、高效的实施。 该系统主要通过以SQLServer2000为数据库和Visual Basic.NET， ADO.NET 为前台开发界面来实现课程管理、学生信息管理、成绩管理和系统管理功能，基本上满足了用户在教务管理方面的需求，并具有良好的可扩充性。1.2 数据需求根据系统的需求，首先将要记录的信息分类，要记录的信息如下。1USERINFO：包括用户编码、用户密码、用户类别2DEPARTMENTINFO：包括系编号、系名、系主任3CLASSINFO：班级编号、系编号、班级年份、班级名4COURSEINFO：课程编号、课程名、任课老师、课程学分、课程简介5STUDENTINFO：学生编号、学生姓名、学生性别、所属班号、生日、身份证号、本人照片6RESULT:学生编号、课程编号、分数、任课老师、录入时间1.3 事务需求经过实际考察、咨询和分析，教务管理系统主要应该具有以下功能模块，如1.1图。在用户管理部分, 具体功能包括增加用户、修改用户和删除用户在系别管理部分, 具体功能包括增加系别、修改系别和删除系别在班级管理部分, 具体功能包括增加班级、修改班级和删除班级在课程管理部分, 具体功能包括增加课程、修改课程和删除课程在学籍管理部分, 具体功能包括增加学生信息、修改学生信息和删除学生信息6在成绩管理部分, 具体功能包括增加成绩信息、修改成绩信息和删除成绩信息教务管理系统登陆管理用户管理教务信息管理教务信息查询系别管理班级管理课程管理学籍管理成绩管理成绩查询图1.1 教务管理系统模块图1.4 系统开发平台前台：1、 硬件要求：CPU: Pentium 4 2.0GHz以上IBM兼容机内存：512MB以上容量显卡：32MB或以上显存之AGP接口显卡2、软件要求：操作系统：Microsoft Windows 2000/XP开发工具：Microsoft Visual Studio.Net2005数据库服务器：1、 硬件要求：CPU: Pentium4 2.8GHz以上IBM兼容机内存：1024MB以上容量显卡：32MB或以上显存之AGP接口显卡2、 软件要求：操作系统：Microsoft Windows XP数据库服务器：Microsoft SQL Server 2000第二章 总体设计2.1 设计系统模块2.1.1系统功能 根据需求，系统要实现如下功能： （1）登录管理 （2）用户管理（3）教务基本信息管理（4）教务信息管理2.1.2 系统功能模块划分 系统功能模块划分如下所示： 登录管理模块：为了系统的安全性，根据不同权限给出不同服务。 用户管理模块：仅系统管理员可用，对这个系统的所有用户进行管理。 教务基本信息管理模块：对各基本表进行管理。 1、课程管理子模块 2、学籍管理子模块 3、班级管理子模块 4、系别管理子模块 5、课程管理子模块 6、成绩管理子模块 教务信息查询模块：在各基本表的基础上进行信息的查询。 成绩查询子模块2.2 设计数据库2.2.1创建数据库(1)在服务器资源管理器中的任一节点右击。(2)执行快捷菜单中的“新建数据库”命令,并在打开的“创建数据库”对话框中输入数据库名STUDENT，选中“使用WindowsNT集成安全性”单选按钮。(3)单击“确定”按钮，则新建的数据库就会出现在服务器上。2.2.2创建数据表创建数据库后，为STUDENT数据库添加数据表，步骤如下。(1)在服务器资源管理器中右击数据库STUDENT下的“表”文件夹。在弹出的快捷菜单中执行“新建表”命令，出现表设计器。(2)添加表的字段和其他详细资料。各表数据结构如下表所示。表 名列 名数据类型含义USERINFOUSERIDnvarchar用户编号（主键）USERPWDnvarchar用户密码USERTYPEint用户类别DEPARTMENTINFODEPARTMENTIDint系编号DEPARTMENTnvarchar系名DEPMANAGERnvarchar系主任CLASSINFOCLASSIDint班级编号DEPARTMENTIDint系编号CLASSYEARint班级年份CLASSNUMBERnvarchar班级名COURSEINFOCOURSEIDint课程编号COURSENAMEnvarchar课程名COURSETEACHERnvarchar任课老师COURSEPOINTint课程学分COURSEABOUTtext课程简介NNSTUDENTINFOSTUDETIDint学生编号STUDETNNAMEnvarchar学生姓名SEXnvarchar学生性别CLASSIDint所属班号BIRTHDAYdatetime生日PERSONCARDIDnvarchar身份证号STUDENTPHOTOimage本人照片RESULTSTUDENTIDint学生编号COURSEIDint课程编号RESULTint分数TEACHERnvarchar任课老师INDATEdatetime录入时间表2.1 教务管理系统各表数据结构2.3 公共模块2.3.1 添加全局变量在此系统中，总共有五个全局变量:1、UserFlag变量的类型为Boolean，记录了是否有用户记录被添加或者修改。 Public UserFlag As Boolean 2、User变量的类型为String,记录了用户管理中的主键信息。 Public User As String 3、UserID变量的类型为String,记录了登录用户的ID信息。 Public UserID As String 4、UserRight变量的类型为Int16,记录了登录用户的权限信息。 5、SqlCon变量的类型为SqlConnection,是全局的数据库连接变量。 Public SqlCon As New SqlConnection (“Data Source=20100908-0956;Database=STUDENT;User Id =sa;PWD=sa”)2.3.2定义公共函数1、JudgeInt函数：判断输入文本是否为整数。2、JudgeKeyExist函数：判断某数据表中某主键值是否存在。3、重写JudgeKeyExist函数：判断某数据表中某主键取值是否是字符串。4、重写JudgeKeyExist函数：判断某数据表中某主键是否是双主键，并且主键值均为整型。第三章 详细设计3.1主窗体设计本系统集成了“登录”模块，因此在系统加载时，需要先启动“登录”模块的“登录”窗体，只有用户输入了正确的用户名和密码后才能进入到系统。主窗体首先启动“登录”窗体，“登录”窗体运行界面如图1所示：图1代码如下：Public Class LOGIN Inherits System.Windows.Forms.Form Public flag = False Private Sub btok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btok.Click If Me.tbname.Text.Trim() = String.Empty Then MessageBox.Show(姓名不能为空) Me.tbname.Focus() ElseIf Me.tbpwd.Text.Trim() = String.Empty Then MessageBox.Show(密码不能为空) Me.tbpwd.Focus() Else Dim sql As String = SELECT * FROM USERINFO WHERE USERID = + Me.tbname.Text.Trim() + AND USERPWD = + Me.tbpwd.Text.Trim() + Dim dt As DataTable = GetDataTable(sql) If dt.Rows.Count = 0 Then MessageBox.Show(用户名不存在或密码不正确) Me.tbpwd.Focus() Else UserRight = dt.Rows(0)(usertype) UserID = Me.tbname.Text.Trim() flag = True Me.Close() End If End If End Sub Private Sub btcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcancel.Click Application.Exit() End Sub登陆成功后，并不是所有的菜单对所有用户来说都是可见的，在本系统中，共有三个角色，按不同角色登录后，运行的主窗体是不同的。登录成功后显示主窗体，“系统管理员登陆后”界面如图2所示：图2代码如下：Public Class FrmMain Inherits System.Windows.Forms.Form#Region Windows 窗体设计器生成的代码#End Region Private Sub FrmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim check As Boolean = True Try Do Dim Login As New LOGIN Login.ShowDialog() If Login.DialogResult = DialogResult.OK And Login.flag Then check = False ElseIf Login.DialogResult = DialogResult.Cancel Then Me.Close() check = False End If Loop While check If UserRight = 1 Then Me.user.Visible = False ElseIf UserRight = 2 Then Me.user.Visible = False Me.infoManager.Visible = False End If Catch ex As Exception WriteErr(ex) End Try End Sub Private Sub user_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles user.Click Dim FrmUser As New FrmUser FrmUser.MdiParent = Me FrmUser.Show() End Sub Private Sub CourseMan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CourseMan.Click Dim FrmCourse As New FrmCourse FrmCourse.MdiParent = Me FrmCourse.Show() End Sub Private Sub StudentMan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StudentMan.Click Dim FrmStudent As New FrmStudent FrmStudent.MdiParent = Me FrmStudent.Show() End Sub Private Sub ClassMan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClassMan.Click Dim FrmClass As New FrmClass FrmClass.MdiParent = Me FrmClass.Show() End Sub Private Sub DepartmentMan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DepartmentMan.Click Dim FrmDep As New FrmDepartment FrmDep.MdiParent = Me FrmDep.Show() End Sub Private Sub ResultMan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResultMan.Click Dim FrmResult As New FrmResult FrmResult.MdiParent = Me FrmResult.Show() End Sub Private Sub ResultQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResultQuery.Click Dim FrmQuery As New FrmQuery FrmQuery.MdiParent = Me FrmQuery.Show() End Sub Private Sub Changemypwd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Changemypwd.Click Dim ChangePwd As New ChangePwd ChangePwd.ShowDialog() End Sub Private Sub Exitme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Exitme.Click Exitme.Visible = False user.Visible = False infoManager.Visible = False infoquery.Visible = False End Sub Private Sub Relogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Relogin.Click Dim check As Boolean = True Try Do Dim Login As New LOGIN Login.ShowDialog() If Login.DialogResult = DialogResult.OK And Login.flag Then check = False ElseIf Login.DialogResult = DialogResult.Cancel Then Me.Close() check = False End If Loop While check If UserRight = 0 Then Me.user.Visible = True Me.infoManager.Visible = True Me.infoquery.Visible = True ElseIf UserRight = 1 Then Me.infoManager.Visible = True Me.infoquery.Visible = True ElseIf UserRight = 2 Then Me.infoquery.Visible = True End If Catch ex As Exception WriteErr(ex) End Try End SubEnd Class“信息管理员登录后”界面如图3所示：图3“信息查询员登陆后”界面如图4所示：图43.2用户管理窗体运行后。将在“用户管理”窗体中显示所有的用户信息。“用户管理”窗体在运行中的界面如图5所示代码如下：Imports System.Data.SqlClientImports System.IOPublic Class FrmUser Inherits System.Windows.Forms.Form Dim Usertype As Int16 Dim UserPwd As String#Region Windows 窗体设计器生成的代码 #End Region Private Sub FrmUser_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load BindData() End Sub Public Sub BindData() Try Dim sql As String = select userid as 用户名,userpwd as 用户密码,usertype as 用户权限 from userinfo Dim dt As DataTable = GetDataTable(sql) ListBox1.DataSource = dt ListBox1.DisplayMember = 用户名 Catch ex As Exception WriteErr(ex) End Try End Sub Private Sub DeleteData() Dim sql As String = DELETE FROM USERINFO WHERE USERID= + User + Dim sqlCmd As New SqlCommand sqlCmd.Connection = SqlCon sqlCmd.CommandText = sql Try SqlCon.Open() sqlCmd.ExecuteNonQuery() MessageBox.Show(删除记录成功) Catch ex As Exception MessageBox.Show(删除记录失败) WriteErr(ex) Finally SqlCon.Close() End Try BindData() End Sub Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click Dim FrmInsert As New FrmUserInsert FrmInsert.Text = 用户添加 User = FrmInsert.ShowDialog() If FrmInsert.DialogResult = DialogResult.OK And UserFlag Then BindData() End If End Sub Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click Dim FrmInsert As New FrmUserInsert FrmInsert.Text = 用户修改 If ListBox1.SelectedIndex = -1 Then MessageBox.Show(请选择用户) Else User = ListBox1.Text FrmInsert.ShowDialog() If FrmInsert.DialogResult = DialogResult.OK And UserFlag Then BindData() End If End If End Sub Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click If ListBox1.SelectedIndex = -1 Then MessageBox.Show(请选择用户) Else User = ListBox1.Text If MessageBox.Show(确定要删除？, 删除确认, MessageBoxButtons.OKCancel, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2) = DialogResult.OK Then Me.DeleteData() End If End If End SubEnd Class3.3系别管理“系别管理”窗体界面运行如图5所示：图5该窗体是用Windows窗体设计器生成的代码，因此在此不作说明。只简单说明添加系别的代码如下：Imports System.Data.SqlClientImports System.IOPublic Class FrmDepartmentInherits System.Windows.Forms.FormPrivate Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged bindTextBox(Me.DataGrid1.CurrentCell.RowNumber) End Sub Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click If Me.TxtDepID.Text.Trim() = String.Empty Then MessageBox.Show(系编号不能为空) Me.TxtDepID.Focus() ElseIf Not JudgeInt(TxtDepID.Text.Trim) Then MessageBox.Show(系编号必须为整数) Me.TxtDepID.Focus() ElseIf JudgeKeyExist(departmentinfo, departmentid, TxtDepID.Text.Trim) Then MessageBox.Show(系编号已经存在) Me.TxtDepID.Focus() ElseIf Me.TxtDepName.Text.Trim() = String.Empty Then MessageBox.Show(系名不能为空) Me.TxtDepName.Focus() ElseIf Me.TxtDepMan.Text.Trim() = String.Empty Then MessageBox.Show(系主任不能为空) Me.TxtDepMan.Focus() Else Me.InsertData() End If End Sub Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click If Me.TxtDepID.Text.Trim() = String.Empty Then MessageBox.Show(系编号不能为空) Me.TxtDepID.Focus() ElseIf Not JudgeInt(TxtDepID.Text.Trim) Then MessageBox.Show(系编号必须为整数) Me.TxtDepID.Focus() ElseIf Not JudgeKeyExist(departmentinfo, departmentid, TxtDepID.Text.Trim) Then MessageBox.Show(要更新的记录集不存在) Me.TxtDepID.Focus() ElseIf Me.TxtDepName.Text.Trim() = String.Empty Then MessageBox.Show(系名不能为空) Me.TxtDepName.Focus() ElseIf Me.TxtDepMan.Text.Trim() = String.Empty Then MessageBox.Show(系主任不能为空) Me.TxtDepMan.Focus() Else Me.UpdateData() End If End SubPrivate Sub InsertData() Dim DepID As Int16 = Int16.Parse(TxtDepID.Text.Trim) Dim DepName As String = TxtDepName.Text.Trim Dim DepMan As String = TxtDepMan.Text.Trim Dim value As String = DepID.ToString + , + DepName + , + DepMan + Dim sql As String = INSERT INTO DEPARTMENTINFO (DEPARTMENTID, DEPARTMENT,DEPMANAGER) VALUES( + value + ) Dim sqlCmd As New SqlCommand sqlCmd.Connection = SqlCon sqlCmd.CommandText = sql Try SqlCon.Open() sqlCmd.ExecuteNonQuery() MessageBox.Show(添加记录成功) Catch ex As Exception MessageBox.Show(添加记录失败) WriteErr(ex) Finally SqlCon.Close() End Try BindData() End Sub3.4 班级管理“班级管理”窗体界面运行如图6所示：图6该窗体是用Windows窗体设计器生成的代码，因此在此不作说明。只简单说明修改班级的代码如下：Imports System.Data.SqlClientImports System.IOPublic Class FrmDepartmentInherits System.Windows.Forms.FormPrivate Sub UpdateData() Dim ClassID As Int16 = Int16.Parse(TxtClassID.Text.Trim) Dim ClassYear As String = CmbClassYear.Text.Trim Dim ClassDep As String = DepNameToID(CmbClassDep.Text.Trim) Dim ClassNum As String = TxtClassNum.Text.Trim Dim sql As String = UPDATE CLASSINFO SET CLASSYEAR= + ClassYear + ,DEPARTMENTID= + ClassDep + ,CLASSNUMBER= + ClassNum + WHERE CLASSID= + ClassID.ToString Dim sqlCmd As New SqlCommand sqlCmd.Connection = SqlCon sqlCmd.CommandText = sql Try SqlCon.Open() sqlCmd.ExecuteNonQuery() MessageBox.Show(修改记录成功) Catch ex As Exception MessageBox.Show(修改记录失败) WriteErr(ex) Finally SqlCon.Close() End Try BindTree() End Sub3.5 课程管理“课程管理”窗体界面运行如图7所示：图7该窗体是用Windows窗体设计器生成的代码，因此在此不作说明。只简单说明删除班级的代码如下： Private Sub DeleteData() Dim CourseID As Int16 = Int16.Parse(TxtCourseID.Text.Trim) Dim sql As String = DELETE FROM COURSEINFO WHERE COURSEID= + CourseID.ToString() Dim sqlCmd As New SqlCommand sqlCmd.Connection = SqlCon sqlCmd.CommandText = sql Try SqlCon.Open() sqlCmd.ExecuteNonQuery() MessageBox.Show(删除记录成功) Catch ex As Exception MessageBox.Show(删除记录失败) WriteErr(ex) Finally SqlCon.Close() End Try BindData() bindTextBox(0) End SubEnd Class3.6 学籍管理“学籍管理”窗体界面运行如图8所示：图8代码如下：Imports System.IOImports System.Data.SqlClientPublic Class FrmStudentInherits System.Windows.Forms.Form Private Sub BtnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOpen.Click OpenDlg.Title = Select a picture file OpenDlg.Filter = (*.bmp)|*bmp|(*.jpg)|*.jpg OpenDlg.ShowDialog() Me.LblPhotoPath.Text = OpenDlg.FileName.ToString() If Me.LblPhotoPath.Text Then PictureBox1.Image = Image.FromFile(OpenDlg.FileName.ToString() End If End Sub Private Sub addCmbStuClass() Dim str1 As String Dim str2 As String Dim str3 As String Dim str4 As String Try Dim sql As String = SELECT A.CLASSID, A.CLASSYEAR,B.DEPARTMENT,A.CLASSNUMBER FROM CLASSINFO A,DEPARTMENTINFO B WHERE A.DEPARTMENTID=B.DEPARTMENTID Dim dt As DataTable = GetDataTable(sql) For i As Integer = 0 To dt.Rows.Count - 1 str1 = dt.Rows(i)(classyear) str2 = dt.Rows(i)(department) str3 = dt.Rows(i)(classnumber) str4 = dt.Rows(i)(classid) Me.CmbStuClass.Items.Add(str4 + : + str1 + 级 + str2 + str3) Next Catch ex As Exception WriteErr(ex) End Try End Sub Private Sub AddCmbStuSex() Me.CmbStuSex.Items.Add(男) Me.CmbStuSex.Items.Add(女) End Sub Private Function BindClass(ByVal classid As String) Dim str1 As String Dim str2 As String Dim str3 As String Dim str4 As String Try Dim sql As String = SELECT A.CLASSID, A.CLASSYEAR,B.DEPARTMENT,A.CLASSNUMBER FROM CLASSINFO A,DEPARTMENTINFO B WHERE A.DEPARTM