数据库课程设计报告-宿舍信息管理系统.doc

数据库课程设计报告-宿舍信息管理系统.doc

  1. 1、本文档共29页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
数据库课程设计报告-宿舍信息管理系统

东华理工学院信息工程学院 《数据库技术》 课程设计报告 宿舍信息管理系统 姓 名: 学 号: 班 级: 完成时间: 一、问题提出 当学生被录取一个学校之后,就应当在其报到前,预先分配好宿舍.而且,当学生在中途因各种原因需更换宿舍时,应当可以在相应的管理信息里面修改信息,并且利用计算机系统管理这些数据,就更有效和方便,这就需要一个合理的宿舍管理系统. 二、系统总体设计 一个真正面向宿舍分配管理人员的系统软件,能使用户使用的时候,增加效率,并且使得工作系统化,规范化. 通过对用户应用的环境,以及要求的分析,系统的需求主要归纳为: (1)数据需求:要求数据库中的数据完整,同步,全面的反应学生信息,宿舍信息,及宿舍分配信息. (2)功能需求:一个单独的管理系统,可以实现对学生信息的添加,修改,删除等功能,并且还应当具有对宿舍信息的添加,修改,删除等功能,最重要的功能也是系统的主要功能就是对学生进行宿舍分配功能. 三、数据库设计 此管理系统,建3个表,分别为:学生信息表,宿舍信息表,宿舍分配管理表,查询结果表。 学生信息表:有6列:学号,姓名,性别,系名,院名,入学时间。其中学号不能为空,学号为主键, 宿舍信息表:有3列:宿舍号,总床位,已分配(已分配床位)。宿舍号为主键,不为空。 宿舍分配管理表:有3列:学号,姓名,宿舍号。学号为主键,不能为空。 1 N 学生信息表 列名 数据类型 可否为空 说明 学号 Varchar 否 主键 姓名 Varchar 否 入学时间 Varchar 否 性别 Varchar 否 系别 Varchar 否 院名 Varchar 否 宿舍分配表 列名 数据类型 可否为空 说明 学号 Varchar 否 主键—外键约束 宿舍号 Varchar 否 主键—外键约束 姓名 Varchar 是 宿舍信息表 列名 数据类型 可否为空 说明 宿舍号 Varchar 否 主键 总床位 Int 否 已分配 Int’ 否 管理员账号表表 列名 数据类型 可否为空 说明 管理员账号 Char 否 主键 管理员密码 Char 否 四、详细设计 A登入:实现对用户的确认。通过一个ADO控件与新建用户数据库连接,并进行确认用户的登入。 代码如下: Private Sub Command1_Click() If Trim(Text1.Text) Then Adodc1.RecordSource = select * from 管理员账号表 where 管理员账号= + Trim(Text1.Text) + and 管理员密码= + Trim(Text2.Text) + Adodc1.Refresh If Adodc1.Recordset.RecordCount = 1 Then Adodc1.Recordset.Close B主窗口.Show A登录.Hide Else MsgBox 错误的账号或密码!, vbInformation + vbOKOnly, 错误信息 Text1.Text = Text2.Text = Text1.SetFocus End If ElseIf Text1.Text = Then MsgBox 账号不能为空!, vbInformation + vbOKOnly, 错误信息 Text1.SetFocus Else MsgBox 密码不能为空!, vbInformation + vbOKOnly, 错误信息 Text2.SetFocus End If End Sub B主窗口:装入菜单栏,及运行软件时的管理界面。 代码如下: Private Sub Timer1_Timer() If Label1.Left Width Then Label1.Left = Label1.Left + 20 ElseIf Label1.Width Label1.Left Then Label1.Left = Label1.W

您可能关注的文档

文档评论(0)

pangzilva + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档