教室预定系统.doc

数据库系统概念课程论文课程论文题目 ：教室预定系统 授课学期： 2012 学年至 2013 学年 第 一 学期系 别：理学系专 业 ：计算机科学与技术（含网络方向）小组成员：计淑亮(201013007119)，蒙金泉(201013007421)，韦钧(201013007417)，陶礼(201013007119)，刘亚芳(201013007416)任课教师 ：曾威交稿日期 :2012/12/27成绩 ：阅读教师签名:日 期 ：一、引言随着学校规模的不断壮大，教室不断增多，举办的活动日渐丰富和频繁。面对教室的管理以及活动信息的保存和总结等大量劳动，学校方面的难度会越来越大，传统的教室借用流程过于复杂，既浪费了人力，效率也很低。针对这一情况，采用Web方式来实现方便的教室借用及管理，大大节约同学与老师的时间。教室使用者只要上网，就能借到需要的教室；管理者只要上网，就能统筹兼顾地实现教室的合理化管理。系统实现了教室借用的效率化以及劳动力的解放，完全避免了以往学生需要到办公室申请还有可能得不到批准的情况，同时也大大减少了管理人员的工作量。同时，可将愿意公开信息的活动数据作一次整合，把活动信息分类，发布到系统上，这样全校师生都可以通过此系统了解学校最新的活动，对于自己喜欢或感兴趣的活动，便可记下时间地点准时参加，而不必再像过去那样经常奔走于各大教学楼之间查看最新的海报才能了解活动信息。学生还可对自己感兴趣的活动进行若干条件的搜索，迅速得到自己需要的信息。二、概述2.1项目名称教室预定系统2.2项目开发背景随着教育信息化的大发展，学校建立了多媒体教室，教师体验到了现代教育技术给教学带来的好处，越来越多的教师热衷于多媒体教学，为了加强管理教师的多媒体教学情况，学校派专人责管理，要求使用多媒体教学的教师到多媒体教室管理员处先预约，后使用，一个多媒体教室一本预约册，并且，把教师使用多媒体教学的次数作为教师岗位考核的一项重要内容。可是，一个管理员管理多个多媒体教室的预约、统计、公示工作，任务十分重，而且，经常出现纰漏和问题，教师也常常有意见。那么，多媒体教室管理员怎样才能做到万无一失呢？我想：只能利用信息技术的强大优势，改变传统的单一的手工预约模式，实行网络预约、管理，基于这一设想，我们开始设计和开发多媒体教室预约管理系统，并在平时的多媒体教室管理中进行了实践。针对这些问题，我们希望运用数据库所学的知识以及VB.NET平台程序设计基础，设计出一个简单、易用、功能完善的教室预定查询系统。通过数据库的基本知识与应用，自己动脑设计和自己动手操作，解决目前迫切需要加以解决的问题，同时可以更好地理解和掌握数据库的相关知识，并具备一定的实践技能就是我们的最终目的。 2.3系统可行性分析用户登陆用户进入登陆界面，以学生号、姓名登陆，进入主界面，若信息不符，则出现出错提示用户预订教室包含所有预订信息，日期，时间，教室号等.用户查询教室配置可查询所有教室配置，空余时间，管理员等信息,包含时间查询和教室查询两个界面，多种方式查询，查询结果可直接预定预定信息修改，删除等操作管理员界面管理员查看预定信息，打印等2.4系统开发平台及技术系统采用8S结构，无论是学生的借用还是管理员的审批全部在网上完成。服务器端开发语言采用PHP，数据库采用MySQL。了提高程序运行速度和增强用户体验，在多个页面使用AJAX技术。为了方便管理员导入每学期的课程，还特意开发了xls课程导人功能，可实现一键导人教室课程信息。系统涉及五种等级的用户，按级别权限递增分别是：游客、学生、教务员、院系审核员、管理员(教务处审核员)，下面就不同账号的需求进行分析，权限高的账号具有比他权限低的账号所有的功能，其重复部分不再说明。游客(不需要登录)：可查看各教室的情况，得到课程信息及活动信息，并可按分类查看活动或进行搜索。学生(需要登录)：主要是借教室，并可查看自己的借用情况，包括以往的借用情况、当前记录是否通过审核、打印借用凭条等。教务员(需要登录)：主要也是借教室，与学生不同的是教务员借教室不需经过院系审核，直接由教务处管理员进行二级审核。院系审核员(需要登录)：专门负责一级审核。管理员(需要登录)：负责二级审核，同时还可为教室安排课程，添加和修改教学楼、教室，查看账号信息。具体借用流程见图1实用后归还钥匙给后勤完成一次借用去教学楼后勤处取钥匙通过审核后用户自行打印借用凭条等待院系审核用户根据所需选择教室 图1 网上教室借用流程2.5设计目的及思路系统设计以各高校的教室借用需求及基本流程为出发点，提供方便的、可配置的教室管理平台，其中涉及课程的安排、教室的借用、活动信息的管理和发布以及账号的管理分配等。各学校只需配置好一些本校的基本信息，添加本校的教学楼信息，然后再添加各教学楼的教室信息，最后发放账号后即可投入使用。教室预定系统 学校配置活动信息教室信息教室借用用户提出申请院系审核教务处审核查看借用情况三、数据库设计3.1E-R模型学号学生教室预定容量教室号预定号联系方式功能电话日期周数管理管理员姓名工号可租时间院系注：由于教室可租用时间与教室号为多对多关系，另建租用时间表3.2数据库结构：教室表（教室号，容量，功能，管理员）租用时间表（编号，时间，教室号）学生表（姓名，学号，所属院系，联系方式）预定信息表（预订编号，周数，学号，编号）管理员表（工号，姓名，联系方式）3.3安全性设计：用户标识和鉴别的登录界面：进入登录界面（界面见用户指南），以姓名和学号（姓名和工号）判断是否为用户。学校学生和管理员为用户，姓名学号错误的不能登录3.4用户指南登录界面：选择身份为学生或管理员，输入学号和密码，系统依据学号和密码判断是否属于本校学生或管理员。若学号（工号）输错，或与姓名不匹配，不选择身份，不输学号姓名，系统均有出错提示。单击进入主页面（管理员进入管理员界面） 以管理员身份进入，会出现以下界面：管理员界面方便管理员查看学生预定其管辖教室情况，“注销”返回登录界面，“退出退出系统学生在登录界面登录后进入主界面，系统显示您已经预定的教室信息。此时主菜单“修改预定”，“删除预定”不可选，修改（删除）信息时，单击表格前箭头，使要修改的条目转为蓝色，“修改预定”，“删除预定”变为可选，点击即可进入。“查询教室信息”分按时间查询和按教室查询两种，点击可进入；点击“教室预定”即可预定；点击“退出”，退出系统；点击“刷新”，刷新纪录；点击“重新登录”，进入登录界面。在主界面上，单击“按教室查询”出现下面界面：选择教室号（combobox1属性不可填，只可选），单击查询出现功能，容量，可借用时间，图片情况，不选教室号，系统报错；选择可借用时间，单击直接预定此教室，进入查询预定界面。不选择时间，系统报错。 进入查询预定界面，教室号与时间已经从教室查询界面读取，不可更改使用；选择周数，单击“预定教室”，即可预定；不选择周数，系统报错；选择的周数已有人预定，系统报错，重新选择。从主页面单击“按时间查询”，进入时间查询界面，周数为必选，不选则报错；时间，功能，容量可任意选择（或不选），单击“查询”，表格显示查询结果，单击希望预定的教室所在行箭头，行变为蓝色，进入查询预定界面。注：上述查询结果已抛除已经被预定的情况。从时间查询界面进入查询预定界面，教室号，周数，时间全部由时间查询界面读入，单击“确定”即可预定教室从主页面进入教室预定界面，三个combobox均不可填，选择周数后，“教室名称”可选，选择后“可租用时间”可选，三者全部选定后单击“预定教室”，成功则显示“预定成功”。预定成功后，时间项清空。三项若有一项不选则报错。不预定，单击“返回主页面”返回；预定成功后，单击主页面返回，主页面信息自动刷新。注：上述可选项抛除已经被预定的情况。从主页面进入删除预定界面，点击“确认”，删除此项预定，显示“删除成功”，返回主页面，信息自动刷新。单击“取消”，返回主页面。从主页面进入修改预定界面，选择修改项，点击“确认”，修改此项预定，显示“修改成功”，返回主页面，信息自动刷新。单击“取消”，返回主页面。程序（窗体设计略）一10个存储过程，8个用于“按时间查询”，一个用于主页面查询登录同学预定条目，一个用于管理原页面查询管理员管辖教室预定情况。1:create proc gongnenggongneng varchar(50),zhoushu intasselect distinct 教室信息表.教室号,容量,功能,租借时间表.时间from 租借时间表 FULL JOIN 教室信息表 ON 租借时间表.教室号 = 教室信息表.教室号 full join 预定信息表 on 预定信息表.编号=租借时间表.编号 where (租借时间表.编号 not in (select 预定信息表.编号 from 预定信息表) or (预定信息表.周数 is null or 周数zhoushu) and 教室信息表.功能=gongnengGO2:create proc gongnengronglianggongneng varchar(50),zhoushu int,rongliang intasselect distinct 教室信息表.教室号,容量,功能,租借时间表.时间from 租借时间表 FULL JOIN 教室信息表 ON 租借时间表.教室号 = 教室信息表.教室号 full join 预定信息表 on 预定信息表.编号=租借时间表.编号 where (租借时间表.编号 not in (select 预定信息表.编号 from 预定信息表) or (预定信息表.周数 is null or 周数zhoushu) and (教室信息表.功能=gongneng and 教室信息表.容量=rongliang)GO3:create proc gongnengshijiangongneng varchar(50),zhoushu int,shijian char(11)asselect distinct 教室信息表.教室号,容量,功能,租借时间表.时间from 租借时间表 FULL JOIN 教室信息表 ON 租借时间表.教室号 = 教室信息表.教室号 full join 预定信息表 on 预定信息表.编号=租借时间表.编号 where (租借时间表.编号 not in (select 预定信息表.编号 from 预定信息表) or (预定信息表.周数 is null or 周数zhoushu) and (教室信息表.功能=gongneng and 租借时间表.时间=shijian)GO4:CREATE procedure guanliyuan;1_a char(5)asselect 学生表.姓名 as 学生姓名,学生表.学号,所属院系,联系方式 , 预定信息表.周数, 教室信息表.教室号, 租借时间表.时间,管理员表.姓名 as 管理员姓名 from 预定信息表 join 租借时间表 on 预定信息表.编号 = 租借时间表.编号 join 学生表 on 预定信息表.学号 = 学生表.学号 join 教室信息表 on 教室信息表.教室号=租借时间表.教室号 join 管理员表 on 管理员表.姓名 =教室信息表.管理员 where 管理员表. 工号 like _aGO5:create proc qchagongneng varchar(50),zhoushu int,rongliang int,shijian char(11)asselect distinct 教室信息表.教室号,容量,功能,租借时间表.时间from 租借时间表 FULL JOIN 教室信息表 ON 租借时间表.教室号 = 教室信息表.教室号 full join 预定信息表 on 预定信息表.编号=租借时间表.编号 where (租借时间表.编号 not in (select 预定信息表.编号 from 预定信息表) or (预定信息表.周数 is null or 周数zhoushu) and (教室信息表.功能=gongneng and 教室信息表.容量=rongliang )and 租借时间表.时间=shijianGo6:create proc rongliangrongliang int,zhoushu intasselect distinct 教室信息表.教室号,容量,功能,租借时间表.时间from 租借时间表 FULL JOIN 教室信息表 ON 租借时间表.教室号 = 教室信息表.教室号 full join 预定信息表 on 预定信息表.编号=租借时间表.编号 where (租借时间表.编号 not in (select 预定信息表.编号 from 预定信息表) or (预定信息表.周数 is null or 周数zhoushu) and 教室信息表.容量=rongliangGO7:CREATE proc rongliangshijianrongliang varchar(50),zhoushu int,shijian char(11)asselect distinct 教室信息表.教室号,容量,功能,租借时间表.时间from 租借时间表 FULL JOIN 教室信息表 ON 租借时间表.教室号 = 教室信息表.教室号 full join 预定信息表 on 预定信息表.编号=租借时间表.编号 where (租借时间表.编号 not in (select 预定信息表.编号 from 预定信息表) or (预定信息表.周数 is null or 周数zhoushu) and (教室信息表.容量=rongliang and 租借时间表.时间=shijian)GO8:CREATE proc shijianchaxun;1shijian char(11),zhoushu intasselect 教室信息表.教室号,容量,功能,租借时间表.时间from 租借时间表 FULL JOIN 教室信息表 ON 租借时间表.教室号 = 教室信息表.教室号 full join 预定信息表 on 预定信息表.编号=租借时间表.编号 where 租借时间表.时间=shijian and (租借时间表.编号 not in (select 预定信息表.编号 from 预定信息表) or (预定信息表.周数 is null or 周数zhoushu)GO9:CREATE proc sjcx;1zhoushu intasselect distinct 教室信息表.教室号,容量,功能,租借时间表.时间from 租借时间表 FULL JOIN 教室信息表 ON 租借时间表.教室号 = 教室信息表.教室号 full join 预定信息表 on 预定信息表.编号=租借时间表.编号 where 租借时间表.编号 not in (select 预定信息表.编号 from 预定信息表) or (预定信息表.周数 is null or 周数zhoushu)GO10:CREATE procedure zhuyemian;1_a char(6)asselect 学生表.姓名 as 学生姓名, 预定信息表.学号 , 周数, 教室信息表.教室号, 租借时间表.时间,管理员表.姓名 as 管理员姓名,电话 as 管理员联系电话 from 预定信息表 join 租借时间表 on 预定信息表.编号 = 租借时间表.编号 join 学生表 on 预定信息表.学号 = 学生表.学号 join 教室信息表 on 教室信息表.教室号=租借时间表.教室号 join 管理员表 on 管理员表.姓名 =教室信息表.管理员 where 学生表.学号 like _a2. 触发器 1）用于删除界面，删除后，预定信息表删除条目以后的条目编号减一，防止再次预定时因主键相同导致的错误create trigger shanchu on 预定信息表 for delete as declare number as numeric declare t as int declare a as int select number = 预定编号 from deleted set a=number select t =count(*) from 预定信息表 where 预定编号 number while t + a number begin set number=number+1 update 预定信息表 set 预定编号=预定编号-1 where 预定编号 = number end 2）用于实现数据库内部表间的外键约束：l 对预定信息表的插入受限create trigger 预定信息表_插入受限 on 预定信息表 for insert,update as declare xh char(6),bh int select xh=学号,bh=编号 from inserted if not exists(select * from 学生表 where 学号 like xh) or not exists(select * from 租借时间表 where 编号=bh) rollback tran l 对预定信息表和学生表的级联修改create trigger 学生表_update on 学生表 for update as declare xh1 char(6),xh2 char(6)select xh1=学号 from deletedselect xh2=学号 from insertedupdate 预定信息表 set 学号=xh2 where 学号=xh1gol 对预定信息表和学生表的删除受限create trigger 学生表_delete on 学生表 for delete as declare xh char(6)select xh=学号 from deletedif exists(select * from 预定信息表 where 学号 like xh)rollback trangol 对预定信息表和租借时间表的级联修改create trigger 租借时间表_update on 租借时间表 for update as declare bh1 char(6),bh2 char(6)select bh1=编号 from deletedselect bh2=编号 from insertedupdate 预定信息表 set 编号=bh2 where 编号=bh1gol 对预定信息表和租借时间表的删除受限create trigger 租借时间表_delete on 租借时间表 for delete as declare bh char(6)select bh=编号 from deletedif exists(select * from 预定信息表 where 编号 = bh)rollback trango六、 界面程序1登录界面Imports System.Data.SqlClientPublic Class 登录 Inherits System.Windows.Forms.Form Dim cnnstr As String = integrated security=SSPI;data source=LENOVO-B9B16E97;initial catalog=教室预定系统 Dim cnn As New SqlConnection(cnnstr) Dim adapter As SqlDataAdapter Dim dt As DataSet Dim dtable1 As New DataTable Public aresult As Boolean Private Sub 登录_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sqlstr As String If ComboBox1.Text.Trim = Or ComboBox1.Text = 请选择 Then MsgBox(请选择学生或管理员, , 警告) ElseIf Label2.Text.Trim = 学号: Then If Not IsNumeric(TextBox1.Text) Or Len(TextBox1.Text) 6 Then MsgBox(学号必须为六位数字, , 警告) Else sqlstr = select * from 学生表 where 学号 like & TextBox1.Text.Trim & & And 姓名 Like & TextBox2.Text.Trim & Me.adapter = New SqlDataAdapter(sqlstr, cnn) Try Me.adapter.Fill(dtable1) Catch ex As Exception MessageBox.Show(ex.Message) Exit Try End Try If Me.dtable1.Rows.Count = 0 Then MsgBox(对不起,你不是我校学生,不能登录!, , 警告) TextBox1.Text = TextBox2.Text = TextBox1.Focus() Else a = TextBox1.Text.Trim Me.Hide() Try Dim f1 As New 教室租用系统主页面 f1.Show() Catch ex As Exception MsgBox(ex.Message) End Try End If End If Else If Not IsNumeric(TextBox1.Text.Trim) Or Len(TextBox1.Text) 5 Then MsgBox(工号必须为五位数字, , 警告) Else sqlstr = select * from 管理员表 where 工号= & TextBox1.Text.Trim & & and 姓名= & TextBox2.Text.Trim & Me.adapter = New SqlDataAdapter(sqlstr, cnn) Try Me.adapter.Fill(dtable1) Catch ex As Exception MessageBox.Show(ex.Message) Exit Try End Try If Me.dtable1.Rows.Count = 0 Then MsgBox(对不起,你不是管理员,不能登录!, , 警告) TextBox1.Text = TextBox2.Text = TextBox1.Focus() Else a = TextBox1.Text.Trim Me.Hide() Dim f2 As New 管理员界面 f2.Show() End If End If End If End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.Text = 学生 Then Label2.Text = 学号: Else Label2.Text = 工号: End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End SubEnd Class2主页面程序Imports System.Data.SqlClientPublic Class 教室租用系统主页面 Inherits System.Windows.Forms.Form Dim cnnstr As String = integrated security=SSPI;data source=LENOVO-B9B16E97;initial catalog=教室预定系统 Dim dt As New DataSet Dim cnn As New SqlConnection(cnnstr) Dim adp As SqlDataAdapter Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click Me.Close() Application.Exit() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.MenuItem5.Enabled = False Me.MenuItem6.Enabled = False adp = New SqlDataAdapter(zhuyemian;1, cnn) adp.SelectCommand.CommandType = CommandType.StoredProcedure Dim para_xh As SqlParameter = adp.SelectCommand.Parameters.Add(_a, SqlDbType.Char, 6) para_xh.Value = a Try dtable1.Clear() adp.Fill(dtable1) Catch ex As Exception MessageBox.Show(ex.Message) Exit Sub End Try If dtable1.Rows.Count 0 Then Me.Label1.Text = 您已预定以下教室： Me.DataGrid1.Visible = True DataGrid1.DataSource = dtable1 Me.DataGrid1.CaptionText = 预定统计 删除修改请单击选项箭头 DataGrid1.ReadOnly = True Else Me.Label1.Text = 您目前没有预定教室！ Me.DataGrid1.Visible = False End If End Sub Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click Dim f2 As New 教室预订 Try f2.ShowDialog() Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click Dim f3 As New 修改预订 f3.ShowDialog() End Sub Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click Dim f4 As New 删除预订 f4.ShowDialog() End Sub Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click Dim f5 As New Form5 f5.Show() End Sub Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click Dim f6 As New form6 f6.Show() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Static position As Integer If position = 0 Then If Label3.Left 1 Then Label3.Left = Me.Width - 2 Else Label3.Left = Label3.Left - 2 End If position = 1 Else If Label3.Left 1 Then Label3.Left = Me.Width - 2 Else Label3.Left = Label3.Left - 2 End If position = 0 End If End Sub Private Sub DataGrid1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Click Me.MenuItem5.Enabled = True Me.MenuItem6.Enabled = True Dim myrow As String myrow = Me.DataGrid1.CurrentRowIndex h = Me.DataGrid1.Item(myrow, 2) f = Me.DataGrid1.Item(myrow, 3) g = Me.DataGrid1.Item(myrow, 4) End Sub Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click Me.Close() Dim f7 As New 登录 f7.Show() End SubEnd Class3预定Imports System.Data.SqlClientPublic Class 教室预订 Inherits System.Windows.Forms.Form Dim cnnstr As String = Initial Catalog = 教室预定系统;Data Source=LENOVO-B9B16E97;Integrated Security=SSPI Dim dt As New DataSet Dim cnn As New SqlConnection(cnnstr) Dim adp As SqlDataAdapter Private Sub 教室预订_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim sql1 As String sql1 = select distinct 教室信息表.教室号 from 教室信息表 Dim cmd As New SqlCommand(sql1, cnn) Dim reader As SqlDataReader cnn.Open() reader = cmd.ExecuteReader() Do While reader.Read() ComboBox2.Items.Add(reader.Item(0) Loop reader.Close() cnn.Close() ComboBox3.Text = ComboBox2.Text = End Sub Private Sub ComboBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox2.LostFocus Dim sql2 As String sql2 = select distinct 租借时间表.时间 from 租借时间表 join 教室信息表 on 教室信息表.教室号=租借时间表.教室号 where 租借时间表.教室号 like _ & Me.ComboBox2.Text & and 租借时间表.编号 not in (select 编号 from 预定信息表 where 周数= _ & Val(Me.ComboBox1.Text.Trim) & ) Dim cmd As New SqlCommand(sql2, cnn) Dim reader As SqlDataReader cnn.Open() ComboBox3.Items.Clear() reader = cmd.ExecuteReader() Do While reader.Read ComboBox3.Items.Add(reader.Item(0) Loop reader.Close() cnn.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Me.ComboBox1.Text.Trim = Then MsgBox(请选择周数！, , 警