大二数据库课程设计报告.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
大二数据库课程设计报告

中国矿业大学 数据库系统开发 一、实验目的 1.??? 初步掌握数据库应用系统分析设计的基本方法; 2.??? 基本掌握VB开发数据库应用的过程; 3.??? 进一步提高对数据库的分析能力与解决问题的综合能力。 二、实验名称与环境: 实验名称: 宿舍成绩管理系统 实验环境: 系统采用C/S体系结构,客户端负责提供表达逻辑、显示用户界面信息、访问数据库服务器,采用VIUAL BASIC 6.0作为开发工具;服务器端则用于提供数据服务,采用SQL Server2000作为数据库管理系统 三、实验内容 1.需求分析 为了满足更好地管理宿舍各成员的选课和成绩等基本信息,宿舍成绩管理系统便应运而生,主要涵盖宿舍成员的各项基本信息,班级信息情况,系信息情况,课程及课程类型情况,教师基本信息情况,要求能够对以上基本信息进行录入、查询、删除、修改,能够统计相关的基本信息,并且能够各项操作打印报表,同时要求操作简便易于维护。 2.系统设计 (1)数据库设计 建立一个名为“成绩管理系统”的数据库。数据库包含7个关系模式:成绩基本信息表、学生基本信息表、班级基本信息表、系基本信息表、课程基本信息表、课程类型基本信息表、教师基本信息表。各个关系模式结构如下: 1) 成绩基本信息(学号、课程编号、成绩) 2) 学生基本信息(学号、姓名、所属班级、生日、性别、家庭住址、联系电话、简历) 3) 班级基本信息(班级编号、班级名称、班级所属部门编号) 4) 系基本信息(部门编号、部门名称) 5) 课程基本信息(课程编号、课程姓名、课程学时数、课程类型号) 6) 课程类型基本信息(类型编号、类型名称) 7) 教师基本信息(教师编号、教师姓名、所属部门编号、学历、职称、生日、性别、家庭住址、电话、简历) 关系: 学生与成绩、成绩与课程、课程与课程类型、学生与班级、班级与系、教师与系 (2)VB设计程序模块划分 3.系统实施 3.1操作流程图 3.2登录窗体 登录模块的详细设计主要是用户登录的一个界面,判断用户是否是合法用户,进入后将面对的是主界面,从而进行相关的操作。 登录的界面主要由用户名和密码的信息,还有一些标题设置,确定和返回的按钮组成。 主要代码: Private Sub Command1_Click() Dim sql As String Dim rst As New ADODB.Recordset If Trim(Text1.Text) = Then 判断输入的用户名是否为空 MsgBox 没有这个用户, vbOKOnly + vbExclamation, txtusername.SetFocus Else sql = select * from operator where username= Text1.Text rst.Open sql, cnn, adOpenKeyset, adLockPessimistic If rst.EOF = True Then MsgBox 没有这个用户, vbOKOnly + vbExclamation, Text1.SetFocus Else If Trim(rst.Fields(password).Value) = Trim(Text2.Text) Then rst.Close Unload Me Main.Show Else MsgBox 密码不正确, vbOKOnly + vbExclamation, txtPassword.SetFocus End If End If End If cnt = cnt + 1 If cnt = 3 Then Unload Me End If Exit Sub End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Set cnn = New Connection cnn.CursorLocation = adUseClient cnn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=成绩管理系统;Data Source=0928 Set rst = New Recordset End Sub 3.3.1主

文档评论(0)

yan698698 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档