数据库课程设计范本(参考).doc

前言学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分,使用计算机对学生信息进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生信息管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。这次课程设计的课题为学生信息管理系统，其主要包含学生基本信息和考试成绩。系统能进行学生信息的录入考试成绩登记查询等功能。 目 录第1章 系统的分析与定义 41.1 需求分析 4第2章 系统总体规划 52.1 系统功能 72.2 数据库建立 9第3章 系统具体实现 113.1 主控模块MDI窗体的设计113.1.1主控模块功能113.1.2 建立界面113.1.3 设置对象属性 123.1.4 代码设计 123.2登录对话框frmLogin.frm的设计123.2.1 登录模块的功能 123.2.2 建立界面 123.2.3 代码设计133.3在工程中添加“数据环境 133.4 增加模块增加.frm的设计143.4.1增加模块的功能 143.4.2建立界面 143.4.3 设置对象属性 153.4.4 代码设计163.5 删除模块删除.frm的设计163.5.1删除模块的功能 163.5.2建立界面 163.5.3 设置对象属性 173.5.4代码设计 183.6修改模块修改.frm的设计183.6.1 修改模块的功能 183.6.2 建立界面 183.6.3设置对象属性 193.6.4 代码设计 193.7浏览模块浏览.frm的设计193.7.1 浏览模块的功能 193.7.2 建立界面 193.7.3 修改DataGrid1的属性203.7.4 代码设计 203.8 查询模块查询.frm的设计 213.8.1 查询模块的功能 213.8.2 建立界面 213.8.3 设置对象属性223.8.4 代码设计 22 结束语23致谢23参考文献24附 录 25第1章 系统开发的思路1.1 需求分析 在传统模式下利用人工进行学生信息管理，存在着较多的缺点，如：效率底，保密性差，时间一长将产生大量的文件和数据，更不便于查找，更新，维护等。诸如这些情况，令学校管理者对学生的信息管理带来了很大困难，严重影响了教育工作者的工作效率，针对这些情况，我们可使用日趋成熟的计算机技术来代替传统的人工模式，来实现学生信息的现代化管理，这一技术具有手工管理所无法比拟的优点，如：检索迅速，查找方便，可靠性高，存储量大，保密性好，寿命长，成本底等。这些优点能够极大地提高学生信息管理的效率，使我们的学校在市场经济的发展过程中具有一定的竞争优势，也是企业实现科学化，正规化，现代化的重要条件。 用计算机制作的学生信息化管理系统还可以通过功能强大的Internet网及时的向学生的家长传递该生在校的最新成绩，有助于学校与家长的信息互动，为更好地把握学校的教育方针起到了一定的促进作用！ 第2章 系统总体规划2.1系统功能2.1.1增加学生信息 在班级里来新学生时，我们可以利用些功能，增加该学生的信息。2.1.2删除学生信息 学生转学或因其他情况终止学业，取消该生信息。3.1.3修改学生信息 当学生信息与实际情况不同，可通过此功能来进行修改。2.1.4浏览学生信息 可浏览学生信息情况，便于管理者对总体学生信息的了解。2.1.5根据输入条件查询应用程序的界面如下图所示：查询操作流程图:开始 登录密码框判断输入密码是否正确输入？N Y学生信息管理系统查询模块输入查询条件输出查询结果退出2.2数据库建立根据对系统功能分析，画出系统功能模块结构图： 学生信息管理系统 增 删 修 浏 查 退 加 除 改 览 询出 模 模 模 模 模模 块 块 块 块 块块 其结构如下：数据表（学生信息）的结构字段名称类型字段长度 学号文本 8 姓名文本 20 班级文本 20 年龄数字 整型 地址文本 50 电话文本 20 数学数字单精度型 政治数字单精度型 语文数字单精度型 英语 数字单精度型使用VB60所提供的“可视化数据管理器”建立数据库以及其中的数据表。a. 在VB集成环境中启动数据管理器：单击“外接程序”菜单下的“可视化数据管理器”命令，打开可视化数据管理器“VisData”窗口。b. 选择“文件”菜单中的“新建”项，在“新建”子菜单中，选择“Microsoft Access”子菜单中“Version 7.0 MDB”，在创建数据库对框中选择保存数据库的路径和库文件名（XS）后保存。c. 打开已经建立的Access数据库（XS），用鼠标右键单击数据库窗口，在快捷菜单中选择“新建表”，打开“表结构”对话框，输入表名称（学生信息），通过“添加字段”进行添加字段，添加完后在“表结构”对话框中单击“生成表”按钮生成表。第3章 系统具体实现3.1主控模块MDI窗体的设计3.1.1主控模块功能 用户登录系统后，进行人机对话的一个界面。3.1.2建立界面选择“新建”工程，进入窗体设计器。首先，在“工程”菜单中选择“移除Form1.frm”。然后，在“工程”菜单中选择 “添加MDI窗体“添加主控窗体MDIForm1.frm。修改窗体的名称（Name）属性为：main。在“文件”菜单中，选择“保存工程”，将新工程保存为“stud.vbp”，然后选择“保存From1”，将主控窗体保存为“aa.frm”。在窗体中增加两个用作容器的图片框Picture1和Picture2。在Picture1中增加一个标签，在Picture2中增加一个按钮控件数组Command1(0)command1(5)。3.1.3设置对象属性修改窗体的属性：Caption改为：学生信息管理系统修改Picture1的属性：Align 改为：1-Align TopBorderStyle改为：0-None修改Picture2的属性：1-Align TopBorderStyle改为：1-Fixed Single修改 Lable1的属性：AutoSize改为：TrueCaption改为：学生信息管理系统设置适当的 Font属性。修改控件数组Command1(0)command1(5)的属性：Caption依次改为：增加、删除、修改、浏览、查询、退出3.1.4代码设计 3.2登录对话框frmLogin.frm的设计进入学生信息管理系统后，首先应进行身份检查登录。若口令不正确，立即退出系统。3.2.1登录模块功能 登录模块功能是实现信息管理系统保密性的主要措施，该模块可以让信息管理者通过输入密码进入该系统，对确保学生信息的安全性有着主要作用。3.2.2建立界面 在“工程”菜单中选择“添加窗体”对话框，新建“登录对话框”。表结构如下：字段名称类型字段长度密码字符型63.2.3代码设计见附录3.3在工程中添加“数据环境”在工程中添加“数据环境”的步骤为：1.在“工程”菜单中，选择“添加Data Environment”，打开数据环境设计器，同时也为工程添加了一个数据环境DataEnvironment1。中包含一个连接对象Connection1。2.用鼠标右键单击“Conection1”对象，在弹出的快捷菜单中选择“属性”，打开“数据链接属性”对话框。在“提供者”选项卡中，选择“Microsoft Jet 3.51 OLE DB Provider”。在“连接”选项中选择所需的数据库路径和名字（xs），其他设置不变。测试成功后，回到数据环境设计器中。3.在“Connection1”对象中添加一个命令对象Command1，打开“Command1属性”对话框。在“数据库对象”下拉列表框中选择“表”，在“对象”下拉列表框中选择“学生信息”，单击“确定”按钮，返回数据环境设计器，关闭“属性”对话框。3.4增加模块增加.frm的设计3.4.1增加模块的功能 增加模块的功能是在添加新的学生信息时，利用该模块进行加入该学生的信息。3.4.2建立界面在“工程”菜单中选择“添加窗体”，打开“添加窗体”对话框，选择添加“窗体”。并将新窗体保存为“增加.frm”。在窗体的下部一个容器的图片框Picture1，在其中ADO控件Adodc1和一个命令按扭控件数组Command1(0) Command1(2)。在窗体中增加一个标签组Lable1(0) Lable1(9)和一个文本框控件数组Text1(0) Text1(9)。数据表（学生信息）的结构字段名称类型字段长度 学号文本 8 姓名文本 20 班级文本 20 年龄数字 整型 地址文本 50 电话文本 20 数学数字单精度型 政治数字单精度型 语文数字单精度型 英语 数字单精度型3.4.3设置对象属性首先设置ADO控件Adodc1的属性。打开ADODC属性页，选中“使用连接字符串”进入“数据链接属性”对话框，在“提供者”选项中，选择“Microsoft Jet 3.51 OLE DB Provider”。单击“下一步”按钮，打开“连接”选项卡。用鼠标单击“选择或输入数据库名称”框右边的“按钮，选择所需的数据库和名字（），其他设置不变。当连接成功后，在“属性页”对话框中打开“记录源”选项卡，在命令类型下拉框选择“2-”，在“表或存储过程名称”下拉框中选择“学生信息”表，退出“属性页”对话框。设置其他对象的属性修改窗体的属性：名称(Name)改为：增加Caption改为：增加MaxButton 改为：FalseMinButton 改为：FalseMDIChild改为：True修改 Pictrue1的属性：Align 改为：2-Align Bottom BorderStyle改为：0-None修改控件数组Command1(0) Command1(2)的属性：Caption依次改为增加、确定、取消修改标签组Lable1(0) Lable1(9)的属性：Caption依次改为学号、姓名、电话、班级、地址、年龄、数学、政治、语文、英语修改控件数组Text1(0) Text1(9)的属性：Datasource改为：Adodc1DataField依次改为：学号、姓名、电话、班级、地址、年龄、数学、政治、语文、英语3.4.4代码设计见附录3.5删除模块删除.frm的设计3.5.1删除模块的功能 删除模块功能是实现对终止学业人员的信息进行删除的操作。3.5.2建立界面在“工程”菜单中选择“添加窗体”，打开“添加窗体”对话框，选择添加“窗体”。并将新窗体保存为“删除.frm”。在窗体的下部一个容器的图片框Picture1，在其中ADO控件Adodc1和一个命令按扭控件数组Command1(0) Command1(1)。在窗体中增加一个标签组Lable1(0) Lable1(9)和一个文本框控件数组Text1(0) Text1(9)。数据表（学生信息）的结构字段名称类型字段长度 学号文本 8 姓名文本 20 班级文本 20 年龄数字 整型 地址文本 50 电话文本 20 数学数字单精度型 政治数字单精度型 语文数字单精度型 英语 数字单精度型3.5.3设置对象属性各对象的属性设置完与“增加.frm”中各对象的属性设置相同，只是控件数组Command1(0) Command1(1)的Caption属性依次改为：删除、查找。3.5.4代码设计见附录3.6修改模块修改.frm的设计3.6.1修改模块的功能 修改模块的功能是实现对学生信息系统中错误的信息进行纠正的模块，有效地保证学生信息管理系统的准确性。3.6.2建立界面在“工程”菜单中选择“添加窗体”，打开“添加窗体”对话框，选择添加“窗体”。并将新窗体保存为“修改.frm”。在窗体的下部一个容器的图片框Picture1，在其中ADO控件Adodc1和一个命令按扭控件数组Command1(0) Command1(2)。在窗体中增加一个标签组Lable1(0) Lable1(9)和一个文本框控件数组Text1(0) Text1(9)。数据表（学生信息）的结构字段名称类型字段长度 学号文本 8 姓名文本 20 班级文本 20 年龄数字 整型 地址文本 50 电话文本 20 数学数字单精度型 政治数字单精度型 语文数字单精度型 英语 数字单精度型3.6.3设置对象属性各对象的属性设置完与“增加.frm”中各对象的属性设置相同，只是控件数组Command1(0) Command1(2)的Caption属性依次改为：确定、取消、查找。3.6.4代码设计见附录3.7浏览模块浏览.frm的设计3.7.1浏览模块的功能 浏览模块功能是实现全面了解学生情况。3.7.2建立界面在“工程”菜单中选择“添加窗体”，打开“添加窗体”对话框，选择添加“窗体”。并将新窗体保存为“浏览.frm”。在窗体中增加一个表格控件DataGrid1。数据表（学生信息）的结构字段名称类型字段长度 学号文本 8 姓名文本 20 班级文本 20 年龄数字 整型 地址文本 50 电话文本 20 数学数字单精度型 政治数字单精度型 语文数字单精度型 英语 数字单精度型3.7.3修改DataGrid1的属性：DataSource改为：DataEnvironment1DataMember改为:Command1然后用鼠标右键单击DataGrid1，在弹击的快捷菜单中选择“检索字段”，用新的字段替换现有的表格布局。3.7.4代码设计见附录3.8查询模块查询.frm的设计3.8.1查询模块的功能 查询模块的功能可查询出所有满足查询条件的学生信息，以便于学生信息的分类、分级。3.8.2建立界面在“工程”菜单中选择“添加窗体”，打开“添加窗体”对话框，选择添加“窗体”。并将新窗体保存为“查询.frm”。在窗体的下部一个容器的图片框Picture1，在其中ADO控件Adodc1和一个命令按扭控件数组Command1(0) Command1(1)。在窗体中增加一个标签组Lable1(0) Lable1(9)和一个文本框控件数组Text1(0) Text1(9)。数据表（学生信息）的结构字段名称类型字段长度 学号文本 8 姓名文本 20 班级文本 20 年龄数字 整型 地址文本 50 电话文本 20 数学数字单精度型 政治数字单精度型 语文数字单精度型 英语 数字单精度型3.8.3设置对象属性：各对象的属性设置完与“增加.frm”中各对象的属性设置相同，只是控件数组Command1(0) Command1(1)的Caption属性依次改为：按学号查、按姓名查。3.8.4代码设计见附录 参考文献1 Visual Basic 6.0程序设计教程2 Visual Basic 6.0程序员指南3 VB6开发宝典4 Visual Basic 6.0使用指南5 Visual Basic 6.0中文控件大全6 VB和SQL Server编程指南7 Access2000入门与提高附 录主窗口代码：Private Sub Command1_Click(Index As Integer)If Forms.Count 1 ThenUnload Forms(Forms.Count - 1)End IfSelect Case IndexCase 0增加.ShowCase 1删除.ShowCase 2修改.ShowCase 3查询.ShowCase 4浏览.ShowCase 5Unload MeEnd SelectEnd SubPrivate Sub MDIForm_Load()Me.ShowfrmLogin.Show 1DataEnvironment1.Recordsets(1).OpenEnd SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)a = MsgBox(退出吗?, vbOKCancel + vbDefaultButton1)If a = vbOK Then Unload Me Else Cancel = 1End Sub对话框代码：Private Sub Command1_Click()If Text1.Text = 000000 ThenLoginSucceed = TureUnload MeElseMsgBox 密码错误,请重试!Me.SetFocusSendKeys Home+EndEnd IfEnd SubPrivate Sub Command2_Click()LoginSucceeded = FalseUnload MeEndEnd Sub查询窗口代码：Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)Adodc1.Caption = record: & CStr(Adodc1.Recordset.AbsolutePosition)End SubPrivate Sub Command1_Click()With Adodc1.Recordset.MoveFirstEnd Withbb = InputBox(查找 姓名为: , , *)With Adodc1.Recordset.MoveFirstEnd WithIf bb * ThenAdodc1.Recordset.Find 姓名 like & bb & *End IfExit SubError:MsgBox Err.DescriptionEnd SubPrivate Sub Command2_Click()With Adodc1.Recordset.MoveFirstEnd Withxh = InputBox(查找 学号为: , , *)If xh * ThenAdodc1.Recordset.Find 学号 like & xh & *End IfExit SubError:MsgBox Err.DescriptionEnd SubPrivate Sub Form_Load()Left = 0Top = 0Me.Height = aa.ScaleHeightMe.Width = aa.ScaleWidthEnd SubPrivate Sub Form_Unload(Cancel As Integer)source0 = DataEnvironment1.Recordsets(1).Sourceactiveconnection0 = DataEnvironment1.Recordsets(1).ActiveConnectionDataEnvironment1.Recordsets(1).CloseDataEnvironment1.Recordsets(1).Open source0, activeconnection0, 3, 3End Sub浏览窗口代码:Private Sub Form_Load()Left = 0Top = 0Me.Height = aa.ScaleHeightMe.Width = aa.ScaleWidthWith DataGrid1.Left = 0.Top = 0.Height = Me.ScaleHeight.Width = Me.ScaleWidthEnd Withsource0 = DataEnvironment1.Recordsets(1).Sourceactiveconnection0 = DataEnvironment1.Recordsets(1).ActiveConnectionDataEnvironment1.Recordsets(1).CloseDataEnvironment1.Recordsets(1).Open source0, activeconnection0, 3, 3End Sub增加窗口代码:Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)Adodc1.Caption = record: & CStr(Adodc1.Recordset.AbsolutePosition)End SubPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0 Adodc1.Recordset.AddNewCase 1 Adodc1.Recordset.UpdateBatch adAffectAll With Adodc1.Recordset .MoveFirst End WithCase 2Adodc1.Refresh End SelectEnd SubPrivate Sub Form_Load()Left = 0Top = 0Me.Height = aa.ScaleHeightMe.Width = aa.ScaleWidthSet rec = DataEnvironment1.Recordsets(1)End SubPrivate Sub Form_Unload(Cancel As Integer)source0 = DataEnvironment1.Recordsets(1).Sourceactiveconnection0 = DataEnvironment1.Recordsets(1).ActiveConnectionDataEnvironment1.Recordsets(1).CloseDataEnvironment1.Recordsets(1).Open source0, activeconnection0, 3, 3End Sub删除窗口代码:Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)Adodc1.Caption = record: & CStr(Adodc1.Recordset.AbsolutePosition)End SubPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0With Adodc1.Recordset.Delete.MoveNextIf .EOF Then .MoveLastEnd WithExit SubCase 1With Adodc1.Recordset.MoveFirstEnd Withbb = InputBox(查找 姓名为: , , *)If bb * ThenAdodc1.Recordset.Find 姓名 like & bb & *End IfEnd SelectExit SubError:MsgBox Err.DescriptionEnd SubPrivate Sub Form_Load()Left = 0Top = 0Me.Height = aa.ScaleHeightMe.Width = aa.ScaleWidthend SubPrivate Sub Form_Unload(Cancel As Integer)source0 = DataEnvironment1.Records