计算机软件实践报告-数据库-3000字

1、计算机软件技术实践报告学院： 电自学院 班级： 姓名： 学号： 2011年1月设计目的同学成果管理系统是学院重要的一部分，其内容对于学院管理者和同学至关重要，所以同学成果管理系统应当为用户供应所需要的信息及其便利的管理作为主要目标。现代成果查询系统理论已经不拘泥于传统的理论基础，不强调对教学活动的确定把握，放弃了繁琐的设计模式，开头留意教学设计的关系性机敏性，这些优点能够极大地提高同学成果查询的效率，从而更加有利于同学的管理和提高同学的主动性。设计题目编辑学习成果管理系统系统需求分析需求分析是设计数据库的起点，需求分析的结果是否精确地反映了用户的实际要求，将直接影响到后面各个阶段的设计，并影响

2、到设计结果是否合理和使用。所以，精确而无遗漏地弄清用户对系统的要求，是系统设计取得成功的重要前提。1、功能需求：（1）把握每个同学每一门课的成果信息，并记录在数据库中以便其他管理信息系统的使用。（2）分权限的管理。在成果管理中，老师可以对任何一个同学的成果进行查询和管理；但是对同学用户，它只能对自己的成果进行查看，而且不能对其进行更改。（3）老师类用户可以对成果依据同学进行管理，可以对每一同学所选的课程成果进行添加、删除和修改。（4）老师类用户可以对成果依据课程进行管理，可以对每一门课所修的同学进行添加、删除和修改。（5）可以针对某一门课的同学列表及其成果生成报表中。（6）可以针对某一个同学所

3、选课程及其对应的成果生成报表。2、组成模块：（1）登录系统：模块功能概述：供应身份验证功能界面描述：本界面有一个登录框，输入正确的信息则成功登录进入到老师页或同学页进行相应的操作。假如输入错误，则提示相应的错误信息。（2）查阅成果模块功能概述：登录成功进入主页时，可以查阅自己的成果。界面描述：本界面是标准的对话框窗口，显示同学的考试成果。（3）修改授课考试成果模块功能概述：当老师已经进入显示此课程的成果信息的对话框窗口时，即可在窗口中修改每条记录，并直接存储到数据库相应的表中。界面描述：同样是显示某一课程的成果信息的对话框窗口，在此窗口中修改记录。四、系统功能模块五、数据库概念结构设计所谓概念

4、结构设计即将需求分析得到的用户需求抽象为信息结构，它是整个数据库设计的关键。概念结构的主要特点是：能真实、充分地反映现实世界、包括事物与事物之间的联系，能满足用户对数据的处理要求；易于理解；易于更改；易于向关系、网状、层次等各种数据模型转换。描述概念模型的有力工具是E-R模型。该模型有两个明显优点：一是接近人的思想，简洁理解；二是与计算机无关，用户简洁接受。E-R图供应了表示实体型、属性和联系的方法。实体型：用矩形表示，矩形框内写明实体名。属性：用椭圆形表示，并用无向边将其与相应的实体连接起来。联系：用菱形表示，菱形框内写明联系名，并用无向边分别与有关实体连接起来，同时在无向边旁标上联系的类型

5、（1:1,1：n，m：n）。在设计概念结构的时候，我们接受的策略是自底向上的方法，即首先定义各局部应用的概念结构，然后将它们集成起来，得到全局概念结构。局部E-R模型:这里最关键的步骤是确定实体和属性。就是说，首先要打算在每一个应用中包含哪些实体，这些实体又包含哪些属性。当各子系统的分E-R模型设计好以后，就要将各个应用的分E-R模型综合成系统总的概念模型，接受的是合并分E-R图的方法，但由于通常各个局部的E-R图是由不同的设计人员设计的，导致各个分E-R图之间必定会存在一些不全都的地方，称之为冲突，各分E-R图之间的冲突主要有三类：属性冲突、命名冲突、结构冲突。属性冲突：包括属性值的类型、取

6、值范围、取值单位的不同。命名冲突：包括实体名、联系名、属性名之间异名同义或同名异义等。结构冲突：例犹如一对象在一个局部E-R图中作为实体，而在另一个局部E-R图中作为属性，同一实体在不同的E-R图中属性个数和类型不同等。在绘制总E-R图时，要留意合理消退各分E-R图的冲突，这是合并分E-R图的主要工作与关键所在。总的E-R图：六、数据库的规律结构在关系模型中，现实世界的实体以及实体间的各种联系均用关系来表示。在用户看来，关系模型中数据的规律结构是一张二维表。关系模型中常用的关系操作包括：选择、投影、连接、除、并、交、差等查询操作，以及增、删、改等更新操作两大部分。而查询的表达力气是其中最主要的

7、部分。依据E-R图，需要制作5张数据表来存放同学成果信息，数据表如下：1. 成果表的设计成果表（Score）字段字段说明类型宽度备注Id同学学号字符10主键1，对应于stuinfo表中的Id字段Num课程编号字符6主键2，对应于course表中的Num字段score分数短整型12. 同学表的设计同学表（Student）字段字段说明类型宽度备注Id同学学号字符10主键1，对应于stuinfo表中的Id字段Name姓名长字符10NOT NULLSex性别字符2NOT NULLAge年龄数字1NOT NULLPro专业名长字符20NOT NULL3. 课程表和课程类型表课程表（Course）字段字段

8、说明类型宽度备注Num课程编号字符6主键2，对应于course表中的Num字段Name课程名长字符20NOT NULLCredit学分整型4NOT NULL5. 以上各表的关系上述所涉及的各个表之间存在着紧密的联系。依据这一状况，需要建立各个表相应字段之间的关系，如下图所示。七、功能实现及运行结果登录界面系统主界面同学管理信息系统添加、修改同学信息界面同学成果查询界面选课信息界面同学个人成果状况系统八、系统核心代码的设计前台程序与数据库的关联模块Public conn As New ADODB.ConnectionPublic rs As New ADODB.RecordsetPublic S

9、ub openconn()On Error GoTo chekSet conn = New ADODB.Connectionconn.ConnectionString = provider=sqloledb.1;integrated security=sspi;Persist Security Info=False;Initial Catalog=同学管理系统;Data Source=conn.OpenExit Subchek:MsgBox 开操作失败！, vbRetryCancel + vbExclamation, 错误提示End Sub登陆登陆按钮Private Sub

10、cmdLogin_Click()If txtUser.Text = Then MsgBox (请输入用户名!) txtUser.SetFocusElse Call openconn sql = select * from login where username= & Trim(txtUser.Text) & and password= & Trim(txtPwd.Text) & rs.Open sql, conn, adOpenDynamic, adLockOptimistic If rs.EOF Then MsgBox 用户不存在！ Else Unload Me frmMain.Show

11、End IfEnd IfEnd Sub退出按钮Private Sub cmdRegister_Click()Unload MeEnd Sub同学管理查找按钮Private Sub cmdFind_Click() 查询功能If cboFind.Text = 学号 Then If txtInput.Text = Then MsgBox (学号输入不能为空!) txtInput.SetFocus Else Dim sql1 As String Set rs1 = New ADODB.Recordset sql1 = select * from stuInfo where ID= & txtInput

12、.Text & rs1.CursorLocation = adUseClient rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdText If rs.EOF Then MsgBox (查不到相关信息) txtInput.SetFocus Else Set DataGrid1.DataSource = rs1 DataGrid1.Refresh End If End IfElse If txtInput.Text = Then MsgBox (姓名输入不能为空!) txtInput.SetFocus Else Dim sql

13、2 As String Set rs2 = New ADODB.Recordset sql2 = select * from stuInfo where name= & txtInput.Text & rs2.CursorLocation = adUseClient rs2.Open sql2, conn, adOpenDynamic, adLockOptimistic, adCmdText If rs.EOF Then MsgBox (查不到相关信息) txtInput.SetFocus Else Set DataGrid1.DataSource = rs2 DataGrid1.Refres

14、h End If End IfEnd IfEnd Sub成果查询确定按钮Private Sub Command1_Click() lblGrade.Caption = Trim(cboCourse.Text) + 课程成果 Dim sql1 As String Set rs1 = New ADODB.Recordset sql1 = select score.ID,score.Num,score.score from score, course where name= & cboCourse.Text & and score.Num=course.Num sql1 = select * fro

15、m course rs1.CursorLocation = adUseClient rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdText Set DataGrid1.DataSource = rs1End Sub选课管理提交按钮Private Sub cmdSubmit_Click()If txtID = Then MsgBox (请输入学号!) txtID.SetFocusElseIf lstCourse.Text = Then MsgBox (请选择课程!)Else Dim sql1 As String Dim sq

16、l2, name As String Set rs2 = New ADODB.Recordset Set rs1 = New ADODB.Recordset sql1 = select score.ID, score.Num from score , course where ID= & txtID.Text & and name= & lstCourse.Text & and score.Num=course.Num name = lstCourse.Text sql2 = select Num from course where name= & name & rs1.Open sql1,

17、conn, adOpenDynamic, adLockOptimistic rs2.Open sql2, conn, adOpenDynamic, adLockOptimistic If rs1.EOF Then rs1.AddNew rs1(ID) = txtID.Text rs1(Num) = rs2(Num) rs1.Update MsgBox (选课成功!) rs1.Close Else MsgBox (已选过该课!) End IfEnd IfEnd Sub查询确定按钮Private Sub cmdOK_Click()If txtID = Then MsgBox (学号不能为空!) t

18、xtID.SetFocusElse Dim sql As String Dim sum1, sum2 As Single Dim n As Integer Set conn = New ADODB.Connection Set rs = New ADODB.Recordset Call openconn sql = select , score.score , course.credit from score , course where score.ID= & txtID.Text & and score.Num=course.Num rs.CursorLocation = adUseClient rs.Open sql, conn, adOpenDynamic, adLockOptimistic, adCmdText Set DataGrid1.DataSource = rs sum1 = 0 sum2 = 0 n = 0 Do While Not rs.EOF sum1 = sum1 + Val(rs(score) sum2 = sum2 + Val(rs(credit) n = n + 1 rs.MoveNe