教室预定系统.docx

《教室预定系统.docx》由会员分享，可在线阅读，更多相关《教室预定系统.docx（36页珍藏版）》请在课桌文档上搜索。

1、放心母宛尤普滩*暧胴1.ijiangCollegeofGuangxiNormalUniversity课程论文题目：教室预定系统授课学期：2012学年至2013学年第一学期系别：理学系专业:计算机科学与技术(含网络方向)小组成员：计淑亮(201013007119),蒙金泉(201013007421),韦钧(201013007417),陶礼(201013007119),刘亚芳(201013007416)任课教师：曾威交稿日期:2012/12/27成绩：阅读教师签名：日期:一、引言随着学校规模的不断壮大，教室不断增多，举办的活动日渐丰富和频繁。面对教室的管理以及活动信息的保存和总结等大量劳动，学校方

2、面的难度会越来越大，传统的教室借用流程过于复杂，既浪费了人力，效率也很低。针对这一情况，采用Web方式来实现方便的教室借用及管理，大大节约同学与老师的时间。教室使用者只要上网，就能借到需要的教室；管理者只要上网，就能统筹兼顾地实现教室的合理化管理。系统实现了教室借用的效率化以及劳动力的解放，完全防止了以往学生需要到办公室申请还有可能得不到批准的情况，同时也大大减少了管理人员的工作量。同时，可将愿意公开信息的活动数据作一次整合，把活动信息分类，发布到系统上，这样全校师生都可以通过此系统了解学校最新的活动，对于自己喜欢或感兴趣的活动，便可记下时间地点准时参加，而不必再像过去那样经常奔波于各大教学楼

3、之间查看最新的海报才能了解活动信息。学生还可对自己感兴趣的活动进行假设干条件的搜索，迅速得到自己需要的信息。二、概述2.1工程名称教室预定系统2.2工程开发背景随着教育信息化的大开展，学校建立了多媒体教室，教师体验到了现代教育技术给教学带来的好处，越来越多的教师热衷于多媒体教学，为了加强管理教师的多媒体教学情况，学校派专人责管理，要求使用多媒体教学的教师到多媒体教室管理员处先预约，后使用，一个多媒体教室一本预约册，并且，把教师使用多媒体教学的次数作为教师岗位考核的一项重要内容。可是，一个管理员管理多个多媒体教室的预约、统计、公示工作，任务十分重，而且，经常出现细漏和问题，教师也常常有意见。那么

4、，多媒体教室管理员怎样才能做到万无一失呢？我想：只能利用信息技术的强大优势，改变传统的单一的手工预约模式，实行网络预约、管理，基于这一设想，我们开始设计和开发多媒体教室预约管理系统，并在平时的多媒体教室管理中进行了实践。针对这些问题，我们希望运用数据库所学的知识以及VB.NET平台程序设计根底，设计出一个简单、易用、功能完善的教室预定查询系统。通过数据库的根本知识与应用，自己动脑设计和自己动手操作，解决目前迫切需要加以解决的问题，同时可以更好地理解和掌握数据库的相关知识，并具备一定的实践技能就是我们的最终目的。2. 3系统可行性分析用户登陆用户进入登陆界面，以学生号、姓名登陆，进入主界面，假设

5、信息不符，那么出现出错提示用户预订教室包含所有预订信息，日期，时间，教室号等.用户查询教室配置可查询所有教室配置，空余时间，管理员等信息,包含时间查询和教室查询两个界面,多种方式查询，查询结果可直接预定预定信息修改，删除等操作管理员界面管理员查看预定信息，打印等2.4 系统开发平台及技术系统采用8/S结构，无论是学生的借用还是管理员的审批全部在网上完成。效劳器端开发语言采用PHP,数据库采用MySQL。了提高程序运行速度和增强用户体验，在多个页面使用AJAX技术。为了方便管理员导入每学期的课程，还特意开发了.XIS课程导人功能，可实现一键导人教室课程信息。系统涉及五种等级的用户，按级别权限递增

6、分别是：游客、学生、教务员、院系审核员、管理员（教务处审核员），下面就不同账号的需求进行分析，权限高的账号具有比他权限低的账号所有的功能，其重复局部不再说明。游客（不需要登录）：可查看各教室的情况，得到课程信息及活动信息，并可按分类查看活动或进行搜索。学生（需要登录）：主要是借教室，并可查看自己的借用情况，包括以往的借用情况、当前记录是否通过审核、打印借用凭条等。教务员（需要登录）：主要也是借教室，与学生不同的是教务员借教室不需经过院系审核，直接由教务处管理员进行二级审核。院系审核员（需要登录）：专门负责一级审核。管理员（需要登录）：负责二级审核，同时还可为教室安排课程，添加和修改教学楼、教室

7、，查看账号信息。具体借用流程见图1用户根 据所需 选择教等待 院系 审核通过审核后 用户自行打 印借用凭条去教学 楼后勤 处取钥实用后归还钥 匙给后勤完成 一次借用图1网上教室借用流程2.5 设计目的及思路系统设计以各高校的教室借用需求及根本流程为出发点，提供方便的、可配置的教室管理平台，其中涉及课程的安排、教室的借用、活动信息的管理和发布以及账号的管理分配等。各学校只需配置好一些本校的根本信息，添加本校的教学楼信息，然后再添加各教学楼的教室信息，最后发放账号后即可投入使用。三、数据库设计3. IE-R模型注：由于教室可租用时间与教室号为多对多关系，另建租用时间表3.2数据库结构：教室表（教室

8、号,容量，功能，管理员）租用时间表（编号,时间，教室号）学生表（姓名，钻?所属院系，联系方式）预定信息表（预订编号,周数，学号，编号）管理员表（X,姓名，联系方式）3.3平安性设计：用户标识和鉴别的登录界面：进入登录界面（界面见用户指南），以姓名和学号（姓名和工号）判断是否为用户。学校学生和管理员为用户，姓名学号错误的不能登录34用户指南工号:00711姓名计潮高用户类型学生登陆返回登录界面：选择身份为学生或管理员，输入学号和密码，系统依据学号和密码判断是否属于本校学生或管理员。假设学号（工号）输错，或与姓名不匹配，不选择身份，不输学号姓名，系统均有出错提示。单击进入主页面（管理员进入管理员界

9、面）以管理员身份进入,会出现以下界面:r教室预定系统管理员界面方便管理员查看学生预定其管辖教室情况，“注销”返回登录界面，“退出退出系统领空租用系统主负面查询教室信息教室预订退出注销的新建已布多施予密雷.欢迎老他栽宣我友的就/精卓去总绰所需修改行号旅总名号周孤 放蜜号时向管理员管理员会定统计，修改M除错卓上/，:谢今 M7S657 谢方 1472657 影第 2462羽7徐一旻阿7639名底检063377 7总隹林063377 3曰知0633777总更检0633773名贪耕0633773总废势0633774就3。尚三？徐一旻侬763。就被周二7部炎13571学生在登录界面登录后进入主界面，系统

10、显示您已经预定的教室信息。此时主菜单”修改预定”，“删除预定”不可选，修改（删除）信息时，单击表格前箭头，使要修改的条目转为蓝色，“修改预定”，“删除预定”变为可选，点击即可进入。“查询教室信息”分按时间查询和按教室查询两种，点击可进入；点击“教室预定”即可预定；点击“退出”,退出系统；点击“刷新”，刷新纪录；点击“重新登录”，进入登录界面。数翻腑统主页面教室购退出注销聊硼室鲍捌间查询t;在主界面上，单击“按教室查询”出现下面界面:按载空查询教室号查询退回主页面功能I多媒体教室容量可信时间图片：直接预定此教室选择教室号（COmbObOXl属性不可填，只可选），单击查询出现功能，容量，可借用时间

11、,图片情况，不选教室号，系统报错；选择可借用时间，单击直接预定此教室，进入查询本周该教室已被预订,请重新选择，警告预定界面。不选择时间，系统报错。确定进入查询预定界面，教室号与时间已经从教室查询界面读取，不可更改使用；选择周数,单击“预定教室”，即可预定；不选择周数，系统报错；选择的周数已有人预定，系统报错，重新选择。从主页面单击“按时间查询”，进入时间查询界面，周数为必选，不选那么报错；时间,功能，容量可任意选择（或不选），单击“查询”，表格显示查询结果，单击希望预定的教室所在行箭头，行变为蓝色，进入查询预定界面。注：上述查询结果已抛除已经被预定的情况。提示预定成功从时间查询界面进入查询预定

12、界面，教室号，周数，时间全部由时间查询界面读入，单击“确定”即可预定教室从主页面进入教室预定界面，三个COmbOboX均不可填，选择周数后，“教室名称”可选，选择后“可租用时间”可选，三者全部选定后单击“预定教室”，成功那么显示“预定成功二预定成功后，时间项清空。三项假设有一项不选那么报错。不预定，单击“返回主页面”返回；预定成功后，单击主页面返回，主页面信息自动刷新。注：上述可选项抛除已经被预定的情况。从主页面进入删除预定界面，点击“确认”，删除此项预定，显示“删除成功”，返回主页面，信息自动刷新。单击“取消”，返回主页面。提示修改成功！I确定I从主页面进入修改预定界面，选择修改项，点击“确

13、认”，修改此项预定，显示“修改成功”，返回主页面，信息自动刷新。单击“取消”，返回主页面。程序（窗体设计略）一10个存储过程，8个用于“按时间查询”，一个用于主页面查询登录同学预定条目，一个用于管理原页面查询管理员管辖教室预定情况。1:createprocgongnenggongnengvarchar（50）,zhoushuintasselectdistinct教室信息表.教室号,容量,功能,租借时间表.时间from租借时间表FULLJOIN教室信息表ON租借时间表.教室号二教室信息表.教室号fulljoin预定信息表on预定信息表.编号二租借时间表.编号where（租借时间表.编号notin

14、（select预定信息表.编号from预定信息表）or（预定信息表.周数isnul1or周数ZhoUShU）and教室信息表.功能二gongnengGO2:createprocgongnengronglianggongnengvarchar（50）,zhoushuint,rongllangintasselectdistinct教室信息表.教室号，容量,功能，租借时间表.时间from租借时间表FULLJOIN教室信息表ON租借时间表.教室号二教室信息表.教室号fulljoin预定信息表on预定信息表.编号二租借时间表.编号where（租借时间表.编号notin（select预定信息表.编号fro

15、m预定信息表）or（预定信息表.周数isnul1or周数ZhOUShU）and（教室信息表.功能二gongnengand教室信息表.容量二rongliang）GO3:createprocgongnengshijiangongnengvarchar（50）,zhoushuint,shijianchar（11）asselectdistinct教室信息表.教室号,容量,功能,租借时间表.时间from租借时间表FULLJOIN教室信息表ON租借时间表.教室号二教室信息表.教室号fulljoin预定信息表on预定信息表.编号二租借时间表.编号where（租借时间表.编号notin（select预定信息表

16、.编号from预定信息表）or（预定信息表.周数isnul1or周数ZhoUShU）and（教室信息表.功能二gongnengand租借时间表.时间二Shijian）GO4:CREATEprocedureguanliyuan;1achar（5）asselect学生表.姓名as学生姓名，学生表.学号,所属院系,联系方式，预定信息表.周数，教室信息表.教室号，租借时间表.时间,管理员表.姓名as管理员姓名from预定信息表join租借时间表on预定信息表.编号二租借时间表.编号join学生表on预定信息表.学号二学生表.学号join教室信息表on教室信息表.教室号二租借时间表.教室号join管理员

17、表on管理员表.姓名二教室信息表.管理员where管理员表.工号likeaGO5:createprocqchagongnengvarchar（50）,zhoushuint,rongliangint,shijianchar（11）asselectdistinct教室信息表.教室号,容量,功能,租借时间表.时间from租借时间表FULLJOIN教室信息表ON租借时间表.教室号二教室信息表.教室号fulljoin预定信息表on预定信息表.编号二租借时间表.编号where（租借时间表.编号notin（select预定信息表.编号from预定信息表）or（预定信息表.周数isnul1or周数ZhOUSh

18、U）and（教室信息表.功能=Qgongnengand教室信息表.容量二rongliang）and租借时间表.时间二ShijianGo6:createprocrongliangronglIangint,zhoushuIntasselectdistinct教室信息表.教室号,容量,功能,租借时间表.时间from租借时间表FULLJOIN教室信息表ON租借时间表.教室号二教室信息表.教室号fulljoin预定信息表on预定信息表.编号二租借时间表.编号where（租借时间表.编号notin（select预定信息表.编号from预定信息表）or（预定信息表.周数isnul1or周数ZhOUShU）a

19、nd教室信息表.容量二rOngliangGO7:CREATEprocrong1iangshijianrongliangvarchar(50),zhoushuint,shijianchar(11)selectdistinct教室信息表.教室号,容量,功能,租借时间表.时间from租借时间表FULLJOIN教室信息表ON租借时间表.教室号二教室信息表.教室号fulljoin预定信息表on预定信息表.编号二租借时间表.编号where（租借时间表.编号notin（select预定信息表.编号from预定信息表）or（预定信息表.周数isnul1or周数ZhoUShU）and（教室信息表.容量二rong

20、liangand租借时间表.时间二Shijian）GO8:CREATEprocShijianchaxun;1shijianchar（11）,zhoushuintasselect教室信息表.教室号,容量,功能,租借时间表.时间from租借时间表FULLJOIN教室信息表ON租借时间表.教室号二教室信息表.教室号fulljoin预定信息表on预定信息表.编号二租借时间表.编号where租借时间表.时间二Shijianand（租借时间表.编号notin（select预定信息表.编号from预定信息表）or（预定信息表.周数isnullor周数ZhOUShU）GO9:CREATEprocsjcx;1Z

21、hOUShUintselectdistinct教室信息表.教室号,容量,功能,租借时间表.时间from租借时间表FULLJOIN教室信息表ON租借时间表.教室号二教室信息表.教室号fulljoin预定信息表on预定信息表.编号二租借时间表.编号where租借时间表.编号notin（select预定信息表.编号from预定信息表）Or（预定信息表.周数isnul1or周数ZhoUShU）GO10:CREATEprocedurezhuyemian;1achar（6）asselect学生表.姓名as学生姓名，预定信息表.学号,周数，教室信息表.教室号,租借时间表.时间，管理员表.姓名as管理员姓名，

22、as管理员联系from预定信息表join租借时间表on预定信息表.编号二租借时间表.编号join学生表on预定信息表.学号二学生表.学号join教室信息表on教室信息表.教室号二租借时间表.教室号join管理员表on管理员表.姓名二教室信息表.管理员where学生表.学号likea2.触发器D用于删除界面，删除后，预定信息表删除条目以后的条目编号减一，防止再次预定时因主键相同导致的错误createtriggershanchuon预定信息表fordeleteasdeclarenumberasnumericdeclaretasintdeclareaasintselectnumber=预定编号fro

23、mdeletedseta=numberselectt=count(*)from预定信息表where预定编号numberwhilet+aOnumberbeginsetnumber=number+1update预定信息表set预定编号二预定编号Twhere预定编号=numberend2)用于实现数据库内部表间的外键约束： 对预定信息表的插入受限createtrigger预定信息表插入受限on预定信息表forinsert,updateasdeclarexhchar(6),bhintselectXh=学号,bh二编号frominsertedifnotexists(select*from学生表where

24、学号likexh)ornotexists(select*from租借时间表where编号二bh)rollbacktran 对预定信息表和学生表的级联修改createtrigger学生表_updatcon学生表forupdateasdeclarexhlchar(6),xh2char(6)selectXhI=学号fromdeletedselectxh2二学号frominsertedupdate预定信息表set学号=xh2where学号=XhIgo 对预定信息表和学生表的删除受限createtrigger学生表_delcteon学生表fordeleteasdeclarexhchar(6)select

25、Xh=学号fromdeletedifexists(select*from预定信息表where学号likexh)rollbacktrango 对预定信息表和租借时间表的级联修改createtrigger租借时间表_updateon租借时间表forupdateasdeclarebhlchar(6),bh2char(6)selectbhl二编号fromdeletedselectbh2二编号frominsertedupdate预定信息表set编号二bh2where编号二bhlgo 对预定信息表和租借时间表的删除受限createtrigger租借时间表_deleteon租借时间表fordeleteasd

26、eclarebhchar(6)selectbh二编号fromdeletedifexists(select*from预定信息表where编号=bh)rollbacktrango六、界面程序1登录界面ImportsPublicClass登录InheritsDimcnnstrAsString=integratedSecurity=SSPI;datasource=LEN0V0-B9B16E97;initialCataIog二教室预定系统DimcnnAsNewSqlConnection(cnnstr)DimadapterAsSqlDataAdapterDimdtAsDataSetDimdtablelAs

27、NewDataTablePublicaresultAsBooleanPrivateSub登录_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadEndSubPrivateSubTextBoxl_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBoxl.TextChangedEndSubPrivateSubButtonl_Click(ByValsenderAsSystem.Object,ByVal

28、eAsSystem.EventArgs)HandlesButtonl.ClickDimsqlstrAsStringIfComboBoxl.Text.Trim=OrConiboBoxl.Text=请选择ThenMSgBoX(请选择学生或管理员，警告)ElseIfLabel2.Text.Trim=学号:ThenIfNotIsNumeric(TextBoxl.Text)OrLen(TextBoxl.Text)O6ThenMsgBox(学号必须为六位数字，警告)Elsesqlstr=select*from学生表where学号like&TextBoxl.Text.Trim&And姓名Like&TextB

29、ox2.Text.Trim也Me.adapter=NewSqlDataAdapter(sqlstr,cnn)TryMe.adapter.Fill(dtablel)CatchexAsExceptionMessageBox.Show(ex.Message)ExitTryEndTryIfMe.dtablel.Rows.Count=OThenMSgBox(对不起,你不是我校学生,不能登录!，警告)TextBoxl.Text=”TextBox2.Text=”TextBoxl.Focus()ElseMe.Hide()TryDimflAsNew教室租用系统主页面fl.Show()CatchexAsExcep

30、tionMsgBox(ex.Message)EndTryEndIfEndIfElseIfNotIsNumeric(TextBoxl.Text.Trim)OrLen(TextBoxl.Text)O5ThenMsgBox(工号必须为五位数字，警告)Elsesqlstr=select*from管理员表where工号=&TextBoxl.Text.Trim&and姓名=&TextBox2.Text.Trim&Me.adapter=NewSqlDataAdapter(sqlstr,cnn)TryMe.adapter.Fill(dtablel)CatchexAsExceptionMessageBox.Sh

31、ow(ex.Message)ExitTryEndTryIfMe.dtablel.Rows.Count=OThenMSgBox(对不起,你不是管理员，不能登录!，警告)TextBoxl.Text=”TextBox2.Text=TextBoxl.Focus()ElseMe.Hide()Dimf2AsNew管理员界面f2.Show()EndIfEndIfEndIfEndSubPrivateSubComboBoxl_SeIectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesComboBoxl.Sele

32、ctedIndexChangedIfComboBoxl.Text=学生Then1.abel2.Text=学号：Else1.abel2.Text=工号：EndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Close()EndSubEndClass2主页面程序ImportsPublicClass教室租用系统主页面InheritsDimcnnstrAsString=integratedSecurity=SSPI;datasource=

33、LEN0V0-B9B16E97;initialCatalog=教室预定系统DimdtAsNewDataSetDimcnnAsNewSqlConnection(cnnstr)DimadpAsSqlDataAdapterPrivateSubMenuItem7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem7.ClickMe.Close()Application.Exit()EndSubPrivateSubForml_Load(ByValsenderAsSystem.Object,ByValeAsSy

34、stem.EventArgs)HandlesMyBase.LoadMe.Menultem5.Enabled=FalseMe.MenuItem6.Enabled=Falseadp=NewSqlDataAdapter(z,zhuyeian;z,cnn)adp.SelectCommand.CommandType=CommandType.StoredProcedureDimpara_xhAsSqlParameter=adp.SelectCommand.Parameters.Add(z/_a，z,SqlDbType.Char,6)para_xh.Value=aTrydtablel.Clear()adp.

35、Fill(dtablel)CatchexAsExceptionMessageBox.Show(ex.Message)ExitSubEndTryIfdtablel.Rows.CountOOThenMe.Labell.Text=您已预定以下教室：Me.DataGridl.Visible=TrueDataGridl.DataSource=dtablelMe.DataGridl.CaptionText=预定统计删除修改请单击选项箭头DataGridl.ReadOnly=TrueElseMe.Labell.Text=您目前没有预定教室！Me.DataGridl.Visible=FalseEndIfEnd

36、SubPrivateSubMenuItem4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem4.ClickDimf2AsNew教室预订Tryf2.ShowDialogOCatchexAsExceptionMessageBox.Show(ex.Message)EndTryEndSubPrivateSubMenuItem5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem5.ClickDimf3AsNe

37、W修改预订f3.ShowDialogOEndSubByVal e AsPrivateSubMenuItem6_Click(ByValsenderAsSystem.Object,System.EventArgs)HandlesMenuItem6.ClickDimf4AsNew删除预订f4.ShowDialogOEndSubPrivateSubMenuItem2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem2.ClickDimf5AsNewForm5f5.Show()EndSubPrivateSu

38、bMenuItem3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem3.ClickDimf6AsNewform6f6.Show()EndSubPrivateSubTimerl_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimerl.TickStaticpositionAsIntegerIfposition=OThenIfLabel3.Left1Then1.abel3.Left=Me.Width-2Else1.a

39、bel3.Left=Label3.Left-2EndIfposition=1ElseIfLabe13.Left1Then1.abel3.Left=Me.Width-2Else1.abel3.Left=Labe13.Left-2EndIfposition=OEndIfEndSubPrivateSubDataGridl_Click(ByVa1senderAsObject,ByValeAsSystem.EventArgs)HandlesDataGridl.ClickMe.MenuItem5.Enabled=TrueMe.Menultem6.Enabled=TrueDimmyrowAsStringmy

40、row=Me.DataGridl.CurrentRowIndexh=Me.DataGridl.Itern(myrow,2)f=Me.DataGridl.Itern(myrow,3)g=Me.DataGridl.Item(myrow,4)EndSubPrivateSubMenuItem8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMenuItem8.ClickMe.Close()Dimf7AsNew登录f7.Show()EndSubEndClass3预定ImportsPublicClass教室预订Inheri

41、tsDimcnnstrAsString=InitialCatalog=教室预定系统；DataSource=LENOV0-B9B16E97;IntegratedSecurity=SSPzDimdtAsNewDataSetDimcnnAsNewSqlConnection(cnnstr)DimadpAsSqlDataAdapterPrivateSub教室预订_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimsqllAsStringsql1=selectdistinct教室信息表.教室号from

42、教室信息表DimcmdAsNewSqlCommand(sqll,cnn)DimreaderAsSqlDataReadercnn.Open()reader=cmd.ExecuteReaderODoWhilereader.Read()ComboBox2.Items.Add(reader.Item(O)1.oopreader.Close()cnn.Close()ComboBox3.Text=”ComboBox2.Text=”EndSubPrivateSubComboBox2_LostFocus(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesC

43、omboBox2.LostFocusDimsql2AsStringsql2=,selectdistinct租借时间表.时间from租借时间表join教室信息表on教室信息表.教室号二租借时间表.教室号where租借时间表.教室号like&Me.ComboBox2.Text&and租借时间表.编号notin(select编号from预定信息表where周数二一&Val(Me.ComboBoxl.Text.Trim)&)”DimcmdAsNewSqlCommand(sql2,cnn)DimreaderAsSqlDataReadercnn.Open()ComboBox3.Items.Clear()r

44、eader=cmd.ExecuteReader()DoWhilereader.ReadComboBox3.Items.Add(reader.Item(O)1.oopreader.Close()cnn.Close()EndSubPrivateSubButtonl_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButtonl.ClickIfMe.ConiboBoxl.Text.Trim=ThenMSgBox(请选择周数！，警告)ExitSubElseIfMe.ComboBox2.Text=ThenMSgBOx(请选

45、择教室号！，警告)ExitSubElseIfMe.ComboBox3.Text=ThenMSgBox(请选择时间！，警告)ExitSubEndIfDimsql3AsString=selectcount(*)from预定信息表DimtAsInteger=ODimcmdAsSqlClient.SqlCommand=NewSqlClient.SqlCommand(sql3,cnn)cnn.Open()t=cmd.ExecuteScalar()+1cnn.Close()Dimsql4AsString=select编号from租借时间表where教室号like&Me.ComboBox2.Text&and时间like”_&Me.ComboBox3.Text&DimsAsIntegerDimcmdlAsSqlClient.SqlCommand=NewSqlClient.SqlCommand(sql4,cnn)cnn.Open()DimmydatareaderAsSqlClient.SqlDataReader=cmdl.ExecuteReaderDoWhilemydatareader.Read()s=0s=Val(s+mydatareader.Item(O)1.oopcnn.Close()TryDimsql5AsString=zzins