学生成绩管理系统课程设计报_第1页
学生成绩管理系统课程设计报_第2页
学生成绩管理系统课程设计报_第3页
学生成绩管理系统课程设计报_第4页
学生成绩管理系统课程设计报_第5页
已阅读5页,还剩4页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、学生成绩管理系统课程设计报告2.功能需求能够进行数据库定义、数据操纵、数据控制等处理功能,进行联机处理的相应时间要短。具体功能应包括:系统应该提供课程安排数据的插入、删除、更新、查询:成绩的添加、修改、删除、查询,学生及教工基本信息查询的功能。3.安全性与完整性要求 安全性要求:系统应设置访问用户的标识以鉴别是否是合法用户,并要求合法用户设置密码,保证用户身份不被盗用:系统应对不同的数据设置不同的访问级别,限制访问用户可查询和处理数据的类别和内容:系统应对不同用户设置不同的权限,区分不同的用户,如区分别普通管理人员,高级管理员,具体如下:普通用户,主要的需求有学生成绩查询、学生基本信息查询、普

2、通用户密码修改。高级用户,主要的需求有学生成绩管理、学生信息管理、普通用户和高级用户密码修改。超级用户,主要的需求有学生成绩管理、学生信息管理、登录用户名管理。 完整性要求: 各种信息记录的完整性,信息记录内容不能为空: 各种数据间相互的联系的正确性: 相同的数据在不同记录中的一致性。二、概念结构设计阶段概念结构设计阶段是整个数据库设计的关键,他通过对用户需求进行综合、归纳与抽象,形成一个独立于具体DBMS的概念模型。ER图如下:三、逻辑结构设计阶段逻辑结构是独立于任何一种数据模型的信息结构。逻辑结构的任务是把概念结构设计阶段设计好的基本ER图转化为宜选用的DBMS所支持的数据模型相符合的逻辑

3、结构,并对其进行优化。ER图向关系模型转化要解决的问题是如何将实体型和实体间的联系转化为关系模式,如何确定这些关系模式的属性和码。设计学生成绩管理数据库,包括课程、学生、教师成绩四个关系,其关系模式中对每个实体定义的属性如下:课程信息表Class:(课程号,课程名,教师号,学分,学时)属性名称属性描述数据类型字段限制cno课程号char(10)Primarykeycname课程名char(10)Not nullteano教师号char(10)Not nullcredit学分char(4)Not nullctime学时char(50)Not null 学生信息表Student:(学号,姓名,性别

4、,年龄,专业,系别)属性名称属性描述数据类型字段限制sno学号char(10)Primarykeysname姓名char(10)Not nullssex性别char(2)Not nullsage年龄char(2)Not nullmajor专业char(10)Not nulldepart系别char(10)Not null 成绩信息表Score:(学号,课程名,成绩)属性名称属性描述数据类型字段限制sno学号char(10)Primarykeycno课程号char(10)degree成绩char(10)Not null 教师表Teacher:(教师号,教师名,教师性别,教师系别)属性名称属性描述

5、数据类型字段限制teano教师号char(10)Primarykeytname教师名char(10)Not nulltsex教师性别char(2)Not nulltdepart教师系别char(10)Not null四、物理设计阶段数据库物理设计的任务是为上一阶段得到的数据库逻辑模式,即数据库的逻辑结构选择合适的应用环境的物理结构,既确定有效地实现逻辑结构模式的数据库存储模式,确定在物理设备上所采用的存储结构和存取方法,然后对该存储模式进行性能评价、修改设计,经过多次反复,最后得到一个性能较好的存储模式。数据库物理设计内容包括记录存储结构的设计,存储路径的设计。五、数据库实现数据库实施是指建立

6、数据库,编制与调试应用程序, 组织数据入库,并进行试运行。1、创建数据库(1) 打开SQL工具“查询分析器”(2) 在查询窗口中键入下列SQL语句create database ScoreSystem执行上述SQL语句即可新建一名为ScoreSystem的数据库2、创建数据表 一个完整的数据库不可缺少的就是数据表,若干个数据表的集合成一个数据库。数据表主要用来存放一定格式的记录,数据表中的行被称为记录,列被称为字段。创建数据表的过程其实就是定义字段的过程。在此学生成绩管理系统中需要创建四个表,即课程信息表、学生信息表、成绩信息表和教师信息绩表。创建数据库后,为ScoreSystem数据库添加数

7、据表,步骤如下。(1) 新建查询窗口(2) 在查询窗口中键入下列SQL语句create table Class( /创建课程信息表 cno char(10) primary key, /课程号 cname char(10) not null, /课程名 teano char(10) Not null /教师号 credit char(4), Not null /学分 ctime char(50), Not null /学时 ) 执行上述SQL语句即可创建课程信息表相关表格create table Student( /创建学生信息表 sno char(10) primary key, /学号 s

8、name char(10) not null, /姓名 ssex char(2) not null, /性别 sage char(2) not null, /年龄 major char(10) not null, /专业 depart char(10) not null, / /系别 )执行上述SQL语句即可创建学生信息表相关表格create table Score( /创建成绩表 sno char(10), /学号 cno char(10), /课程号 )执行上述SQL语句即可创建成绩信息表相关表格create table Teacher( /创建教师信息表 tno char(10) pri

9、mary key, /教师号 tname varchar(50) not null, /教师名 tsex char(2), /教师性别 tdepart varchar(50) /教师系别 )执行上述SQL语句即可创建教师信息表相关表格课程信息相关表格课程信息相关表格Cnocnametnocreditctime0301财务管理0012240302供应链管理0022.2180303生产与运作管理0032.4360304统计学0042.6320305网页制作0052.8300306操作系统原理0063.0320307数据库原理0073.2300308项目管理0083.4450309web程序设计00

10、93.535学生信息相关表格Snosnamessexsagemajordepart200910510201王远男 22信息工商200910510202吴俊文男 22信息工商200910510203饶镇冰男22数学教育数学系200910510204周盛炎男22计科信息工程200910510205程建忠男22汉语言文法系200910510206刘攀女20汉语言文法系成绩信息表Snocnodegree2009105102010306 852009105102010303902009105102020305862009105102020306822009105102030304842009105102

11、03030181200910510204030693200910510204030279200910510205030485200910510205030694200910510206030874200910510206030786教师信息表Tnotnametsextdepart001米俊非女财经002李昌明男财经003张富强男财经004刘翠杰女数信005王庆石男数信006黄立明男数信007王纲男计算机008徐伟丽女计算机009刘书霞女计算机六、数据库链接1.数据库链接代码Module Module1 Public admin As Boolean = True Public adminis

12、As String Public grade As String Public Function link(ByVal i) As DataTable Dim sqlcon As New SqlConnection("data source=PC-201103171305SQLEXPRESS;database=ScoreSystem;user id=sa;pwd=") '用连接对象连接数据库 Dim sqlad As SqlDataAdapter Dim ds As DataTable sqlad = New SqlDataAdapter(i, sqlcon) ds

13、 = New DataTable '数据集对象 Try sqlad.Fill(ds) '添加数据 Catch ex As Exception MessageBox.Show(ex.Message + Chr(10) + Chr(13) + ex.StackTrace) End Try Return ds End FunctionEnd Module2.数据库链接操作第一步:附加数据库(对已经建好的数据库进行附加)点击数据库右键附加。第二部:安全性设置,展开安全性,sa用户点击右键属性,进行安全性设置(密码设置、默认数据库设置),状态选择登录启用。第三步:服务器属性设置,右击服务

14、器属性,进行安全性设置。第四步:重启服务器。右击服务器,选择重启服务器。3.数据库调试数据库成功附加、安全性设置、重启。七、登录界面设计过程:用于输入用户名和密码登录,选择相应的用户类型进入系统,若是用户类型选择错误则不能进入系统。没有用户名的可注册用户名,如对系统操作有不了解的可点击帮助,进入帮助界面。输入用户名和密码后点击确定判断数据库中的用户是否为合法用户。设计代码:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '

15、;选择普通用户登录 If Me.RadioButton1.Checked Then Dim str As String str = "data source=PC-201103171305SQLEXPRESS;database=ScoreSystem;user id=sa;pwd=" Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = "select * from 普通用户where 用户名='

16、;" & TextBox1.Text.ToString().Trim() & "' and 密码='" & TextBox2.Text.ToString().Trim() & " '" Dim cmd As New SqlClient.SqlCommand(sql, con) Dim reader As SqlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 学生成绩管理

17、系统As New 学生信息管理系统 学生成绩管理系统.添加DToolStripMenuItem.Enabled = False 学生成绩管理系统.修改KToolStripMenuItem.Enabled = False 学生成绩管理系统.删除DToolStripMenuItem.Enabled = False 学生成绩管理系统.添加ToolStripMenuItem.Enabled = False 学生成绩管理系统.高级用户信息管理ToolStripMenuItem.Enabled = False 学生成绩管理系统.Show() Me.Hide() Else MsgBox("对不起,

18、用户名或密码错误!重新输入(请正确选择用户类型)", 16, "警.告") Me.TextBox1.Text = "" Me.TextBox2.Text = "" TextBox1.Focus() End If Catch ex As Exception End Try End If '选择高级用户登录 If Me.RadioButton2.Checked Then Dim str As String str = "data source=PC-201103171305SQLEXPRESS;database

19、= ScoreSystem;user id=sa;pwd=" Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = "select * from 高级用户where 用户名='" & TextBox1.Text.ToString().Trim() & "' and 密码='" & TextBox2.Text.ToString().Tri

20、m() & " '" Dim cmd As New SqlClient.SqlCommand(sql, con) Dim reader As SqlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 学生成绩管理系统As New 学生信息管理系统 学生成绩管理系统.添加ToolStripMenuItem.Enabled = False 学生成绩管理系统.Show() Me.Hide() Else MsgBox("对不起,用户名或密码

21、错误!重新输入(请正确选择用户类型)", 16, "警告") Me.TextBox1.Text = "" Me.TextBox2.Text = "" TextBox1.Focus() End If Catch ex As Exception End Try End If '选择超级用户登录 If Me.RadioButton3.Checked Then Dim str As String str = "data source=PC-201103171305SQLEXPRESS;database= ScoreSystem;user id=sa;pwd=&q

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论