课程设计评分表

1、课程设计评分表评分标准：1 .学生是否严格遵守课程设计纪律，按照规定时间完成设计任务(占30%)2 .程序设计的质量与规范：(占40%)(1)是否采用了良好的设计方法，独立完成程序设计(2)程序界面设计是否合理、美观(3)数据库设计是否合理，具有良好的扩展性(4)程序是否运行正常，未见运行错误3 .课程设计报告书的质量与规范 (占30%)得分得分得分教师评分：1 .学生出勤得分:2 .程序设计得分:3 .设计报告得分:(A)(B)(C)(D)(A)(B)(C)(D)(A)(B)(C)(D)总分：教师评语:根据该生在课程设计期间，是否严格遵守课程设计纪律，按照规定时间完 成设计任务，完成的程序设

2、计的质量与规范，提交的课程设计报告书的质量与规范等多方面的评分，该生本次课程设计的评分为： 教师签名：日期：年一月一日设计题目:客房管理信息系统设计设计主要内容:一、开发平台： VB+ SQL SERVER 2000二、功能要求：1、设计内容设计一个客房管理信息系统，该系统的用户由普通管理员和超级管理员组成，不同的管理员拥有不同的权限，各自完成各自的管理功能。首先是欢迎界面，然后选择登录，登录的时候首先要判断用户的身份，合法的用户然后进入到系统主界面中，不同的用户看到不同的系统功能。用SQL server2000 创建后台数据库，然后利用程序设计语言（VB ）编写程序实现对数据库的操作，按照要

3、求完成所有的功能和模块。2、客房管理信息系统主要功能（ 1 ）欢迎界面、登录界面、用户注册界面、（ 2）普通管理员管理：客户登记界面（登记、结算等操作）、房间管理界面（增加、修改、删除房间等操作）、客户查询界面（精确查询、概况查询等操作）、房间查询界面（按照一定条件查询）、 收入统计界面（统计一段时间的收入）、 修改密码界面（修改当前登录人的密码） 。（ 3）超级管理员管理：客户登记界面（登记、结算等操作）、房间管理界面（增加、修改、删除房间等操作）、客户查询界面（精确查询、概况查询等操作）、房间查询界面（按照一定条件查询）、收入统计界面（统计一段时间的收入）、管理员界面（添加、删除管理员，修

4、改密码）3、客房管理信息系统数据库表单（表单和字段可以按照需求增、删、改）（ 1 ）普通管理员信息表单（证件编号，账号，密码）（ 2）超级管理员信息表单（证件编号，账号，密码）（ 3）客户信息表单（房间编号，姓名，性别，年龄，身份证号，住址，入住时间，预计天数，退房时间，押金，住宿费，登记人）（ 4）房间信息表单（房间编号，类型，价格，状态，备注）（ 5）房间类型表单（房间编号，房间大小，房间床位数，房间配置）（ 6）员工信息表单（证件编号、员工号码、姓名、性别、年龄、联系电话）三、课程设计报告主要内容：1 客房管理信息系统需求分析（给出系统的功能模块图，对各个功能作出详细介绍）2 客房管理信

5、息系统界面设计（给出界面截图及其主要控件的属性设置表格）3 客房管理信息系统数据库设计（给出数据库各个表单中数据的字段名，数据类型及其相应的说明）4 客房管理信息系统程序设计（功能模块给出详细的程序代码，重点语句的注释）1 .学校成绩管理信息系统需求分析删澹售遑费增加官普G修改员工信息查询员工信息增加员工在遍变诲君聆房间修茂房闰tim唐同客户珪胃退出系统图1.1学校成绩管理信息系统1.1 欢迎界面系统启动之后便可进入欢迎界面，单击登录方式按钮便可进入选择登陆界 面。1.2 选择登录1.2.1 选中普通管理员登录后便进入普通管理员登录界面1.2.2 选中超级管理员登录后便进入超级管理员登录界面1

6、.3 普通管理员界面可以进行客户登记管理，房间管理，客户查询管理，房间查询管理，员工信息管理，修改密码。1.3.1 客户登记管理利用VB界面，管理员可以登记客户的基本信息，添加客户信息， 从而改变了数据库中的信息1.3.2 房间管理普通管理员可以增加，修改，删除房间信息，在VB界面中修改了数据库中的信息。1.3.3 客户查询管理普通管理员可以根据需要对不同的情况进行查询，从而显示数据库中的信 息。1.3.4 房间查询管理普通管理员可以根据需求进行详细查询，概况查询房间信息，从而显示数据库中的信息。1.3.5 员工管理普通管理员可以根据需求进行增加，查询， 删除和更新员工信息，从而改变数据库中的

7、信息。1.3.6 修改密码普通管理员可以根据需要进行修改本账号密码，从而改变数据库中的信息。1.4 超级管理员界面可以进行客户登记管理，房间管理，客户查询管理，房间查询管理，员工信息管理，管理员管理。1.4.1 客户登记管理利用VB界面，超级管理员可以登记客户的基本信息，添加客户信息，从而改变了数据库中的信息。1.4.2 房间管理超级管理员可以增加，修改，删除房间信息，在VB界面中修改了数据库中的信息。1.4.3 客户查询管理超级管理员可以根据需要对不同的情况进行查询，从而显示数据库中的信息。1.4.4 房间查询管理超级管理员可以根据需求进行详细查询，概况查询房间信息，从而显示数据库中的信息。

8、1.4.5 员工信息管理超级管理员可以根据需求进行增加，查询，删除和更新员工信息，从而改变数据库中的信息。1.4.6 管理员管理超级管理员可以根据需求进行增加，查询，删除和更新普通管理员信息，从而改变数据库中的信息。2 .客房管理信息系统界面设计图2.1欢迎界面图2.3新用户注册界面欢迎使用客房管理信息系统 二嬴吊胸叫I1L ED DC力HS导不；壬干皆口工吧善产量图2.4 客户登记界面表2.1客户登记界面属性表对象属性设置值Adodclvisiblefalsecommandtype2-adcmdtablerecordsource客户信息表SStablTabsPerRow6Tabs6dataG

9、ridlDataSourceAdodc1Frame8Caption图2.5客户详细登记界面表2.1学生信息查询界面属性表图2.6客户结算界面表2.2费用结算属性表对象属性设置值RichTextBoxIEnabledFalseAdodclcommandtype2-adcmdtablerecordsource客户信息表visiblefalse图2.7房间管理表2.3 房间管理属性表对象属性设置值Adodc3visiblefalsecommandtype2-adcmdtablerecordsource房间信息表SStablTabsPerRow6Caption房间管理Tabs6dataGrid2Dat

10、aSourceAdodc3DatacombolCaptionStyle2图2.8客户查询界面图2.9房间查询界面表2.4房间查询界面属性表对象属性设置值AdodclcaptionAdodc1commandtype2-adcmdtablerecordsource房间信息表visiblefalse图2.10 员工管理界面表2.5员工管理界面属性表对象属性设置值Adodc1captionAdodc1commandtype2-adcmdtablerecordsource员工信息表visiblefalseDataGrid1captionDatacombo2ListAdodc2Lablelcaption员

11、工号码Lable2caption姓名Lable3caption性别Lable4caption年龄Lable5caption电话#码图2.12管理员管理界面图2.11修改密码界面表2.6修改密码界面属性表对象属性设置值dadagriddatasourceAdodc1AdodclcaptionAdodc1commandtype2-adcmdtablerecordsourcer普通管理员visiblefalseLablelcaption旧密码Lable2caption新密码Lable3caption确认密码表2.7工程项目信息界面属性表对象属性设置值dadagriddatasourceAdodc1A

12、dodclcaptionAdodc1commandtype2-adcmdtablerecordsource普通管理员visiblefalseLablelcaption系统时间Lable2caption当前管理员图2.13管理员管理界面3 .客房管理信息系统数据库设计客房管理信息系统总共涉及6张表，分别是普通管理员表，超级管理员表，客户 信息表，房间信息表，房间类型表和员工信息表。表3.1普通管理员表字段名称标始名称数据类型是否允许为空字段说明Aid编Rint否主码Anamechar否Amine密码char否表3.2超级管理员表字段名称标始名称数据类型是否允许为空字段说明Aid编Rint否主码A

13、namechar否Amine密码char否表3.3客户信息表字段名称标始名称数据类型是否允许为空字段说明Cid编Rint否主码Cname客户姓名char否Csex性别char是Cage年龄Char是Cpnum身份证号码Char是Cadd住址Char是Cintime入住时间Smalldatatime是Couttime退房时间Smalldatatime是Rnum房间号Char是表3.4房间信息表字段名称标始名称数据类型是否允许为空字段说明Rnum房间号char否主码Rtype房间类型char否Rprice房间价格Char是Rstates房间状态Char否Cid编RChar是表3.5房间类型表字段名

14、称标始名称数据类型是否允许为空字段说明Rnum房间号char否主码Rsize房间大小char否Rbed床位数char是Rcon房间配置char是表3.6员工信息表字段名称标始名称数据类型是否允许为空字段说明Aid编RInt否主码Yno证件号码char否Yname姓名Char是Ysex性别Char否Yage年龄Char是Ytel联系方式Char是4客房管理信息系统程序设计（部分代码）4.1 欢迎界面欢迎界面是整个系统的首页，用户可通过它进入到登陆系统。4.2 登陆界面进入此界面后，使用者可根据自己的身份选择登陆方式。普通管理员选择用户登陆，超级管理员选择超级管理员登陆。4.3 登陆和新用户注册界

15、面程序设计普通管理员在此界面输入自己的姓名和密码通过验证后方可进入下一个界面。部分重要代码如下：Private Sub Label1_Click()Dim strselectname As StringDim strselectpassword As StringDim strpassword As StringDim strselectuserlevel As StringDim ret_select As Booleanstrselectname = select Aname from 普 通 管 理 员 where Aname = & &Trim(DataCombo1.Text) & A

16、dodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=客房管理Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strselectnameAdodc1.RefreshIf Adodc1.Recordset.EOF = True Thenret = MsgBox( 用户名错误！, 48, warming!)DataCombo1.Text = Text2.Text = Ex

17、it SubEnd Ifstrselectpassword = select Amine from 普 通 管 理 员 where Aname = & &Trim(DataCombo1.Text) & Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=客房管理Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strselectpasswordAdodc1.Refr

18、eshIf StrComp(Trim(Adodc1.Recordset.Fields(Amine).Value), Trim(Text2.Text) 0 Thenret = MsgBox( 密码错误！, 48, warming!)Text2.Text = Text2.SetFocusExit SubElseMsgBox 登录成功End IfForm7.ShowForm2.HideEnd Sub新用户还可以通过此界面进行注册，新用户只要输入自己的姓名，注册密码并确认注册便可以成功注册，同时该用户的信息也被写入到了普通管理员表中(部分代码如下)Adodc1.ConnectionString = P

19、rovider=SQLOLEDB.1;Integrated Security=SSPI;PersistSecurity Info=False;Initial Catalog=客房管理Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select Anamefrom 普通管理员where Aname= & Trim(Text1.Text)& Adodc1.RefreshIf Adodc1.Recordset.EOF = False ThenMsgBox 用户名已经存在！请重新输入, 0, 提示 Text1.Text = Text1.SetFo

20、cusExit SubEnd IfAdodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;PersistSecurity Info=False;Initial Catalog=客房管理Adodc1.CommandType = adCmdTableAdodc1.RecordSource = 普通管理员Adodc1.RefreshIf Text1.Text And Text2.Text And Text3.Text And Text2.Text = Text3.TextThenAdodc1.Recordset.A

21、ddNewAdodc1.Recordset.Fields(Aname).Value = Trim(Text1.Text)Adodc1.Recordset.Fields(Amine).Value = Trim(Text2.Text)Adodc1.Recordset.UpdateMsgBox 恭喜你注册成功Text1.Text = Text2.Text = Text3.Text = Exit SubElseIf Text1.Text And Text2.Text = And Text3.Text ThenMsgBox 请输入密码ElseIf Text1.Text And Text2.Text =

22、And Text3.Text = ThenMsgBox 请输入密码ElseIf Text1.Text And Text2.Text And Text3.Text = ThenMsgBox 请输入确定密码ElseIf Text2.Text Text3.Text ThenMsgBox 两次输入的密码不一致，请重新输入Text2.Text = Text3.Text = Text2.SetFocusExit SubElseMsgBox 注册失败End IfExit Sub4.4 超级管理员登陆界面管理员需要输入自己的姓名和密码，经过系统验证无误后就可以进入下一个界面了。它的代码与普通管理员登陆代码类似

23、，输入的姓名和密码必须是超级管理表中相应的信息，否则就无法成功登陆。4.5 系统主界面普通管理员登陆进去后，可以在给界面选择自己所需的服务，该界面为用户提供了六种服务，分别是“客户登记”， “房间管理”， “客户查询”， “房间查询”， “员工管理”和“密码修改”。4.6 客户登记界面程序设计用户如需登记客户入住信息和客户退房办理可在此界面进行，用户通过登陆界面登陆到此。(代码如下)Private Sub Command1_Click()If Text1.Text = Or text2.Text = Or Text3.Text = Or Text4.Text = Or DataCombo1.T

24、ext = Then MsgBox 请将蓝色部分填写完整！Exit SubElseAdodc1.RecordSource = select * from 客户信息表Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(Cname) = Trim(Text1.Text)Adodc1.Recordset.Fields(Csex) = Trim(text2.Text)Adodc1.Recordset.Fields(Cage) = Trim(Text3.Text)Adodc1.Recordset.Fields(Cpnum) = Tri

25、m(Text4.Text)If Text5.Text ThenAdodc1.Recordset.Fields(Cadd) = Trim(Text5.Text)End IfAdodc1.Recordset.Fields(Cintime) = Text6.TextAdodc1.Recordset.Fields(Rnum) = Trim(DataCombo1.Text)Adodc1.Recordset.UpdateForm9.Adodc1.RefreshForm9.DataGrid1.RefreshMsgBox 登记成功！, vbOKOnly + vbInformation, 提示信息Form7.A

26、dodc1.RefreshForm8.Adodc1.RefresUnload MeEnd If4.7 房间管理界面用户可通过此界面所提供的功能对所有的客房进行管理。所有的信息通过Adodc 控件和相应的数据库表单连接起来，设置相应的属性后所有信息便可显示在DataGrid 上供用户查看。(代码如下)If DataCombo1.Text ThenIf MsgBox( 确定删除房间“ & DataCombo1.Text & ”吗？ , vbOKCancel +vbInformation, 提示信息) = vbOK ThenAdodc2.CommandType = adCmdTextAdodc2.R

27、ecordSource = select * from房间信息表where Rnum= &DataCombo1.Text & Adodc2.RefreshAdodc2.Recordset.DeleteAdodc2.Recordset.UpdateAdodc4.CommandType = adCmdTextAdodc4.RecordSource = delete from 房 间 类 型 表 where Rnum= &DataCombo1.Text & Adodc4.RefreshAdodc4.Recordset.DeleteAdodc4.Recordset.UpdateAdodc3.Refre

28、shSet DataGrid2.DataSource = Adodc3DataGrid2.RefreshAdodc7.RefreshMsgBox 删除房间“ & DataCombo1.Text & ”成功！ , vbInformation +vbOKOnly, 提示信息Command9_ClickElseCommand9_ClickEnd IfElseMsgBox 请选择要删除的房间！DataCombo1.SetFocusEnd If4.8 客户查询界面该界面提供详细查询和概况查询功能，查询结果将会显示在DataGrid 上。If Combo3.Text = ThenMsgBox 条件不能为空

29、！请选择查询条件。Combo3.SetFocusElseSelect Case Combo3.TextCase 已入住客户Adodc6.RecordSource = select * from 客户信息表where Couttime isnullAdodc6.RefreshSet DataGrid3.DataSource = Adodc6DataGrid3.RefreshIf Adodc6.Recordset.EOF = True ThenMsgBox 暂时还没有客户入住，查询记录为空Exit SubEnd IfCase 已退房客户Adodc6.RecordSource = select *

30、from客户信息表where Couttime isnot nullAdodc6.RefreshSet DataGrid3.DataSource = Adodc6DataGrid3.RefreshIf Adodc6.Recordset.EOF = True ThenMsgBox 已退房客户记录为空Exit SubEnd IfCase 普通房客户Adodc6.RecordSource = select * from客户信息表where Rnum in（select Rnum from 房间信息表where Rtype= 普通 ） order by Rnum ASCAdodc6.RefreshSe

31、t DataGrid3.DataSource = Adodc6DataGrid3.RefreshIf Adodc6.Recordset.EOF = True ThenMsgBox 普通房客户数为空Exit SubEnd IfCase 标准房客户Adodc6.RecordSource = select * from客户信息表where Rnum in（select Rnum from 房间信息表where Rtype= 标准 ） order by Rnum Adodc6.RefreshSet DataGrid3.DataSource = Adodc6DataGrid3.RefreshIf Ado

32、dc6.Recordset.EOF = True ThenMsgBox 标准房客户数为空Exit SubEnd IfCase 豪华房客户Adodc6.RecordSource = select * from客户信息表where Rnum in（select Rnum from 房间信息表where Rtype= 豪华 ） order by RnumAdodc6.RefreshSet DataGrid3.DataSource = Adodc6DataGrid3.RefreshIf Adodc6.Recordset.EOF = True ThenMsgBox 豪华房客户数为空Exit SubEnd

33、 IfEnd SelectFrame2.Caption = 查询结果- + Combo1.TextEnd If4.9 房间查询界面此界面为管理员提供了“按房间编号查询”， “按房间类型查询”， “显示空房”以及“显示满房”四种查询方式。管理员可根据需要进行选择。4.10 员工管理界面管理员在此界面可查看所有员工的信息情况并可以根据实际情况对员工信息进行添加，删除，修改和查询。（部分重要代码如下）If DataCombo2.Text ThenIf Combo7.Text = And Text20.Text = And Text21.Text = AndText22.Text = ThenMsgB

34、ox 您没有对信息做任何修改！ Exit SubEnd IfIf MsgBox（ 确定修改员工编号为“ & DataCombo2.Text & ”的信息吗？, vbOKCancel + vbInformation, 提示信息） = vbOK ThenAdodc12.RecordSource = select * from 员工信息表where Yno= &DataCombo2.Text & Adodc12.RefreshAdodc12.CommandType = adCmdTextIf Adodc12.Recordset.EOF = True ThenMsgBox 您输入的员工号不存在Data

35、Combo2.Text = DataCombo2.SetFocusExit SubEnd IfIf Combo7.Text ThenAdodc12.Recordset.Fields(Ysex) = Combo7.TextEnd IfIf Text20.Text ThenAdodc12.Recordset.Fields(Yname) = Text20.TextEnd IfIf Text21.Text ThenAdodc12.Recordset.Fields(Yage) = Text21.TextEnd IfIf Text22.Text ThenAdodc12.Recordset.Fields(Y

36、tel) = Text22.TextEnd IfAdodc12.Recordset.UpdateAdodc13.RefreshSet DataGrid5.DataSource = Adodc13DataCombo2.RefreshMsgBox 员工信息修改成功！, vbOKOnly + vbInformation, 提示信息Command24_ClickElseCommand24_ClickEnd IfElseMsgBox 请选择要修改的员工编号！, vbInformation + vbOKOnly, 提示信息DataCombo2.SetFocusExit SubEnd If4.11 修改密码

37、界面用户可以在此界面根据实际情况更改自己的密码。(代码如下)If Text9.Text = ThenMsgBox 请输入旧密码！, vbOKOnly + vbInformation, 错误信息Text9.SetFocusElseIf Text10.Text = ThenMsgBox 请输入新密码！, vbOKOnly + vbInformation, 错误信息Text10.SetFocusElseIf Text11.Text = ThenMsgBox 请输入确认密码密码, vbOKOnly + vbInformation, 错误信息Text11.SetFocusElseIf Text10.Te

38、xt Text11.Text ThenMsgBox 新密码与确认密码不一致！请重新输入。Text10.Text = Text11.Text = Text10.SetFocusElseIfMsgBox(确定修改密码吗？ , vbOKCancel + vbInformation,提示信息)=vbOK ThenAdodc8.RecordSource = select * from普通管理员where Amine= &Text9.Text & and Aname= & Form2.DataCombo1.Text & Adodc8.RefreshIf Adodc8.Recordset.RecordCou

39、nt = 1 ThenAdodc8.Recordset.Fields(Amine).Value = Trim(Text11.Text)Adodc8.Recordset.UpdateMsgBox 密 码 修 改 成 功 ， 下 次 登 陆 请 使 用 新 密 码 ！ , vbOKOnly + vbInformation, 提示信息Text9.Text = Text10.Text = Text11.Text = ElseMsgBox 你输入的旧密码错误！请重新输入, vbInformation + vbOKOnly, 提示信息 Text9.Text = Text10.Text = Text11.T

40、ext = Text9.SetFocusEnd IfEnd IfEnd If4.12 管理员管理界面此界面为超级管理员而设计，能查看客房管理信息系统所有的用户账号和编码，并根据实际对账号进行管理，能进行添加和删除管理员。(部分重要代码如下)If Combo8.Text = 0- 普通管理员 ThenAdodc14.RecordSource = select * from普通管理员where Aname= &Text15.Text & Adodc14.RefreshIf Adodc14.Recordset.RecordCount = 1 ThenMsgBox 你输入的管理员账号已经存在！请重新输入。Text15.Text = Text14.Text = Text13.Text = Text15.SetFocusExit SubEn