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