1、课程设计评分表课程设计评分表评分标准：1. 学生是否严格遵守课程设计纪律，按照规定时间完成设计任务(占30%)2. 程序设计的质量与规范：(占40%)(1)是否采用了良好的设计方法，独立完成程序设计(2)程序界面设计是否合理、美观(3)数据库设计是否合理，具有良好的扩展性(4)程序是否运行正常，未见运行错误3. 课程设计报告书的质量与规范 (占30%)教师评分：1.学生出勤得分：(A) (B) (C) (D) 得分_2.程序设计得分：(A) (B) (C) (D) 得分_3.设计报告得分：(A) (B) (C) (D) 得分_ 总分：_教师评语： 根据该生在课程设计期间，是否严格遵守课程设计纪
2、律，按照规定时间完成设计任务，完成的程序设计的质量与规范，提交的课程设计报告书的质量与规范等多方面的评分，该生本次课程设计的评分为：_ 教师签名： 日期： 年 月 日设计题目:客房管理信息系统设计设计主要内容:一、开发平台：VB+ SQL SERVER 2000二、功能要求：1、设计内容设计一个客房管理信息系统，该系统的用户由普通管理员和超级管理员组成，不同的管理员拥有不同的权限，各自完成各自的管理功能。首先是欢迎界面，然后选择登录，登录的时候首先要判断用户的身份，合法的用户然后进入到系统主界面中，不同的用户看到不同的系统功能。用SQL server2000创建后台数据库，然后利用程序设计语言
3、（VB）编写程序实现对数据库的操作，按照要求完成所有的功能和模块。2、客房管理信息系统主要功能（1）欢迎界面、登录界面、用户注册界面、（2）普通管理员管理：客户登记界面（登记、结算等操作）、房间管理界面（增加、修改、删除房间等操作）、客户查询界面（精确查询、概况查询等操作）、房间查询界面（按照一定条件查询）、收入统计界面（统计一段时间的收入）、修改密码界面（修改当前登录人的密码）。（3）超级管理员管理：客户登记界面（登记、结算等操作）、房间管理界面（增加、修改、删除房间等操作）、客户查询界面（精确查询、概况查询等操作）、房间查询界面（按照一定条件查询）、收入统计界面（统计一段时间的收入）、管理
4、员界面（添加、删除管理员，修改密码） 3、客房管理信息系统数据库表单（表单和字段可以按照需求增、删、改） （1）普通管理员信息表单（证件编号，账号，密码）（2）超级管理员信息表单（证件编号，账号，密码）（3）客户信息表单（房间编号，姓名，性别，年龄，身份证号，住址，入住时间，预计天数，退房时间，押金，住宿费，登记人）（4）房间信息表单（房间编号，类型，价格，状态，备注） （5）房间类型表单（房间编号，房间大小，房间床位数，房间配置） （6）员工信息表单（证件编号、员工号码、姓名、性别、年龄、联系电话）三、课程设计报告主要内容：1 客房管理信息系统需求分析（给出系统的功能模块图，对各个功能作出详
5、细介绍）2 客房管理信息系统界面设计（给出界面截图及其主要控件的属性设置表格）3 客房管理信息系统数据库设计（给出数据库各个表单中数据的字段名，数据类型及其相应的说明）4 客房管理信息系统程序设计（功能模块给出详细的程序代码，重点语句的注释）1.学校成绩管理信息系统需求分析图1.1学校成绩管理信息系统 1.1欢迎界面系统启动之后便可进入欢迎界面，单击登录方式按钮便可进入选择登陆界面。1.2选择登录1.2.1选中普通管理员登录后便进入普通管理员登录界面1.2.2选中超级管理员登录后便进入超级管理员登录界面1.3普通管理员界面 可以进行客户登记管理，房间管理，客户查询管理，房间查询管理，员工信息管
6、理，修改密码。1.3.1客户登记管理 利用VB界面，管理员可以登记客户的基本信息，添加客户信息，从而改变了数据库中的信息。1.3.2房间管理普通管理员可以增加，修改，删除房间信息，在VB界面中修改了数据库中的信息。1.3.3客户查询管理 普通管理员可以根据需要对不同的情况进行查询，从而显示数据库中的信息。1.3.4房间查询管理普通管理员可以根据需求进行详细查询，概况查询房间信息，从而显示数据库中的信息。1.3.5员工管理普通管理员可以根据需求进行增加，查询，删除和更新员工信息，从而改变数据库中的信息。1.3.6 修改密码普通管理员可以根据需要进行修改本账号密码，从而改变数据库中的信息。1.4超
7、级管理员界面 可以进行客户登记管理，房间管理，客户查询管理，房间查询管理，员工信息管理，管理员管理。1.4.1客户登记管理 利用VB界面，超级管理员可以登记客户的基本信息，添加客户信息，从而改变了数据库中的信息。1.4.2房间管理超级管理员可以增加，修改，删除房间信息，在VB界面中修改了数据库中的信息。1.4.3客户查询管理 超级管理员可以根据需要对不同的情况进行查询，从而显示数据库中的信息。1.4.4房间查询管理超级管理员可以根据需求进行详细查询，概况查询房间信息，从而显示数据库中的信息。1.4.5员工信息管理超级管理员可以根据需求进行增加，查询，删除和更新员工信息，从而改变数据库中的信息。
8、1.4.6管理员管理超级管理员可以根据需求进行增加，查询，删除和更新普通管理员信息，从而改变数据库中的信息。2客房管理信息系统界面设计图2.1 欢迎界面图2.2 管理员登陆界图2.3 新用户注册界面 图2.4 客户登记界面表2.1 客户登记界面属性表对象属性设置值Adodc1visiblefalsecommandtype2-adcmdtablerecordsource客户信息表SStab1TabsPerRow6Tabs6dataGrid1DataSourceAdodc1Frame8Caption 图2.5 客户详细登记界面表2.1 学生信息查询界面属性表图2.6 客户结算界面表2.2 费用结算
9、属性表对象属性设置值RichTextBox1EnabledFalseAdodc1commandtype2-adcmdtablerecordsource客户信息表visiblefalse图2.7 房间管理表2.3 房间管理属性表对象属性设置值Adodc3visiblefalsecommandtype2-adcmdtablerecordsource房间信息表SStab1TabsPerRow6Caption房间管理Tabs6dataGrid2DataSourceAdodc3Datacombo1CaptionStyle2 图2.8 客户查询界面图2.9 房间查询界面表2.4 房间查询界面属性表对象属性
10、设置值Adodc1captionAdodc1commandtype2-adcmdtablerecordsource房间信息表 visiblefalse图2.10 员工管理界面表2.5 员工管理界面属性表对象属性设置值Adodc1captionAdodc1commandtype2-adcmdtablerecordsource员工信息表visiblefalseDataGrid1captionDatacombo2ListAdodc2Lable1caption员工号码Lable2caption姓名Lable3caption性别Lable4caption年龄Lable5caption电话号码图2.11
11、修改密码界面表2.6 修改密码界面属性表对象属性设置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsource普通管理员visiblefalseLable1caption旧密码Lable2caption新密码Lable3caption确认密码图2.12 管理员管理界面表2.7 工程项目信息界面属性表对象属性设置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsource普通管理员visiblefal
12、seLable1caption系统时间Lable2caption当前管理员图2.13 管理员管理界面3客房管理信息系统数据库设计客房管理信息系统总共涉及6张表，分别是普通管理员表，超级管理员表，客户信息表，房间信息表，房间类型表和员工信息表。表3.1普通管理员表字段名称标始名称数据类型是否允许为空字段说明Aid编号int否主码Aname账号char否Amine密码char否 表3.2超级管理员表字段名称标始名称数据类型是否允许为空字段说明Aid编号int否主码Aname账号char否Amine密码char否表3.3客户信息表字段名称标始名称数据类型是否允许为空字段说明Cid编号int否主码Cn
13、ame客户姓名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编号Char是表3.5房间类型表字段名称标始名称数据类型是否允许为空字段说明Rnum房间号char否主码Rsize房间大小char否Rbed床位数char是Rcon房
14、间配置char是表3.6员工信息表字段名称标始名称数据类型是否允许为空字段说明Aid编号Int否主码Yno证件号码char否Yname姓名Char是Ysex性别Char否Yage年龄Char是Ytel联系方式Char是4客房管理信息系统程序设计（部分代码）4.1欢迎界面欢迎界面是整个系统的首页，用户可通过它进入到登陆系统。4.2登陆界面 进入此界面后，使用者可根据自己的身份选择登陆方式。普通管理员选择用户登陆，超级管理员选择超级管理员登陆。4.3登陆和新用户注册界面程序设计普通管理员在此界面输入自己的姓名和密码通过验证后方可进入下一个界面。部分重要代码如下：Private Sub Label1
15、_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) & Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI
16、;Persist Security Info=False;Initial Catalog=客房管理Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strselectnameAdodc1.Refresh If Adodc1.Recordset.EOF = True Then ret = MsgBox(用户名错误！, 48, warming!) DataCombo1.Text = Text2.Text = Exit Sub End Ifstrselectpassword = select Amine from 普通管理员 where Anam
17、e = & & Trim(DataCombo1.Text) & Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=客房管理Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strselectpasswordAdodc1.Refresh If StrComp(Trim(Adodc1.Recordset.Fields(Amine).Value), Trim(Text2
18、.Text) 0 Then ret = MsgBox(密码错误！, 48, warming!) Text2.Text = Text2.SetFocus Exit Sub Else MsgBox 登录成功 End If Form7.Show Form2.HideEnd Sub新用户还可以通过此界面进行注册，新用户只要输入自己的姓名，注册密码并确认注册便可以成功注册，同时该用户的信息也被写入到了普通管理员表中（部分代码如下）Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
19、Info=False;Initial Catalog=客房管理Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select Aname from 普通管理员 where Aname = & Trim(Text1.Text) & Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then MsgBox 用户名已经存在！请重新输入, 0, 提示 Text1.Text = Text1.SetFocus Exit SubEnd IfAdodc1.ConnectionString = Provider=SQ
20、LOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=客房管理Adodc1.CommandType = adCmdTableAdodc1.RecordSource = 普通管理员Adodc1.RefreshIf Text1.Text And Text2.Text And Text3.Text And Text2.Text = Text3.Text Then Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(Aname).Value = Trim(T
21、ext1.Text) Adodc1.Recordset.Fields(Amine).Value = Trim(Text2.Text) Adodc1.Recordset.Update MsgBox 恭喜你注册成功 Text1.Text = Text2.Text = Text3.Text = Exit SubElseIf Text1.Text And Text2.Text = And Text3.Text Then MsgBox 请输入密码ElseIf Text1.Text And Text2.Text = And Text3.Text = Then MsgBox 请输入密码ElseIf Text
22、1.Text And Text2.Text And Text3.Text = Then MsgBox 请输入确定密码ElseIf Text2.Text Text3.Text Then MsgBox 两次输入的密码不一致，请重新输入 Text2.Text = Text3.Text = Text2.SetFocus Exit SubElseMsgBox 注册失败End IfExit Sub4.4超级管理员登陆界面管理员需要输入自己的姓名和密码，经过系统验证无误后就可以进入下一个界面了。它的代码与普通管理员登陆代码类似，输入的姓名和密码必须是超级管理表中相应的信息，否则就无法成功登陆。4.5系统主界
23、面普通管理员登陆进去后，可以在给界面选择自己所需的服务，该界面为用户提供了六种服务，分别是“客户登记”，“房间管理”，“客户查询”，“房间查询”，“员工管理”和“密码修改”。4.6客户登记界面程序设计用户如需登记客户入住信息和客户退房办理可在此界面进行，用户通过登陆界面登陆到此。（代码如下）Private Sub Command1_Click()If Text1.Text = Or text2.Text = Or Text3.Text = Or Text4.Text = Or DataCombo1.Text = ThenMsgBox 请将蓝色部分填写完整！Exit SubElse Adodc1
24、.RecordSource = select * from 客户信息表 Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(Cname) = Trim(Text1.Text) Adodc1.Recordset.Fields(Csex) = Trim(text2.Text) Adodc1.Recordset.Fields(Cage) = Trim(Text3.Text) Adodc1.Recordset.Fields(Cpnum) = Trim(Text4.Text) If Text5.Text Then Adodc1.R
25、ecordset.Fields(Cadd) = Trim(Text5.Text) End If Adodc1.Recordset.Fields(Cintime) = Text6.Text Adodc1.Recordset.Fields(Rnum) = Trim(DataCombo1.Text) Adodc1.Recordset.Update Form9.Adodc1.Refresh Form9.DataGrid1.Refresh MsgBox 登记成功！, vbOKOnly + vbInformation, 提示信息 Form7.Adodc1.Refresh Form8.Adodc1.Refr
26、esUnload MeEnd If4.7房间管理界面用户可通过此界面所提供的功能对所有的客房进行管理。所有的信息通过Adodc控件和相应的数据库表单连接起来，设置相应的属性后所有信息便可显示在DataGrid上供用户查看。（代码如下）If DataCombo1.Text Then If MsgBox(确定删除房间“ & DataCombo1.Text & ”吗？, vbOKCancel + vbInformation, 提示信息) = vbOK Then Adodc2.CommandType = adCmdText Adodc2.RecordSource = select * from 房间信
27、息表 where Rnum= & DataCombo1.Text & Adodc2.Refresh Adodc2.Recordset.Delete Adodc2.Recordset.Update Adodc4.CommandType = adCmdText Adodc4.RecordSource = delete from 房间类型表 where Rnum= & DataCombo1.Text & Adodc4.Refresh Adodc4.Recordset.Delete Adodc4.Recordset.Update Adodc3.Refresh Set DataGrid2.DataSource = Adodc3 DataGrid2.Refresh Adodc7.Refresh MsgBox 删除房间“ & DataCombo1.Text & ”成功！, vbInformation + vbOKOnly, 提示信息 Command9_Click Else Command9_Click End If Else MsgBox 请选择要删除的房间！ DataCombo1.SetFocus End If4.8客户查询界面该界面提供详细查询和概况查询功
