课程设计评分表.docx
《课程设计评分表.docx》由会员分享，可在线阅读，更多相关《课程设计评分表.docx（31页珍藏版）》请在冰点文库上搜索。
课程设计评分表
课程设计评分表
评分标准：
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）得分_________
总分：
_________
教师评语：
根据该生在课程设计期间，是否严格遵守课程设计纪律，按照规定时间完成设计任务，完成的程序设计的质量与规范，提交的课程设计报告书的质量与规范等多方面的评分，该生本次课程设计的评分为：
________
教师签名：
日期：
年月日
设计题目:
客房管理信息系统设计
设计主要内容:
一、开发平台：
VB+SQLSERVER2000
二、功能要求：
1、设计内容
设计一个客房管理信息系统，该系统的用户由普通管理员和超级管理员组成，不同的管理员拥有不同的权限，各自完成各自的管理功能。
首先是欢迎界面，然后选择登录，登录的时候首先要判断用户的身份，合法的用户然后进入到系统主界面中，不同的用户看到不同的系统功能。
用SQLserver2000创建后台数据库，然后利用程序设计语言（VB）编写程序实现对数据库的操作，按照要求完成所有的功能和模块。
2、客房管理信息系统主要功能
（1）欢迎界面、登录界面、用户注册界面、
（2）普通管理员管理：
客户登记界面（登记、结算等操作）、房间管理界面（增加、修改、删除房间等操作）、客户查询界面（精确查询、概况查询等操作）、房间查询界面（按照一定条件查询）、收入统计界面（统计一段时间的收入）、修改密码界面（修改当前登录人的密码）。
（3）超级管理员管理：
客户登记界面（登记、结算等操作）、房间管理界面（增加、修改、删除房间等操作）、客户查询界面（精确查询、概况查询等操作）、房间查询界面（按照一定条件查询）、收入统计界面（统计一段时间的收入）、管理员界面（添加、删除管理员，修改密码）
3、客房管理信息系统数据库表单（表单和字段可以按照需求增、删、改）
（1）普通管理员信息表单（证件编号，账号，密码）
（2）超级管理员信息表单（证件编号，账号，密码）
（3）客户信息表单（房间编号，姓名，性别，年龄，身份证号，住址，入住时间，预计天数，退房时间，押金，住宿费，登记人）
（4）房间信息表单（房间编号，类型，价格，状态，备注）
（5）房间类型表单（房间编号，房间大小，房间床位数，房间配置）
（6）员工信息表单（证件编号、员工号码、姓名、性别、年龄、联系电话）
三、课程设计报告主要内容：
1客房管理信息系统需求分析（给出系统的功能模块图，对各个功能作出详细介绍）
2客房管理信息系统界面设计（给出界面截图及其主要控件的属性设置表格）
3客房管理信息系统数据库设计（给出数据库各个表单中数据的字段名，数据类型及其相应的说明）
4客房管理信息系统程序设计（功能模块给出详细的程序代码，重点语句的注释）
1.学校成绩管理信息系统需求分析
图1.1学校成绩管理信息系统
1.1欢迎界面
系统启动之后便可进入欢迎界面，单击登录方式按钮便可进入选择登陆界面。
1.2选择登录
1.2.1选中普通管理员登录后便进入普通管理员登录界面
1.2.2选中超级管理员登录后便进入超级管理员登录界面
1.3普通管理员界面
可以进行客户登记管理，房间管理，客户查询管理，房间查询管理，员工信息管理，修改密码。
1.3.1客户登记管理
利用VB界面，管理员可以登记客户的基本信息，添加客户信息，
从而改变了数据库中的信息。
1.3.2房间管理
普通管理员可以增加，修改，删除房间信息，在VB界面中修改了数据库中的信息。
1.3.3客户查询管理
普通管理员可以根据需要对不同的情况进行查询，从而显示数据库中的信息。
1.3.4房间查询管理
普通管理员可以根据需求进行详细查询，概况查询房间信息，从而显示数据库中的信息。
1.3.5员工管理
普通管理员可以根据需求进行增加，查询，删除和更新员工信息，从而改变数据库中的信息。
1.3.6修改密码
普通管理员可以根据需要进行修改本账号密码，从而改变数据库中的信息。
1.4超级管理员界面
可以进行客户登记管理，房间管理，客户查询管理，房间查询管理，员工信息管理，管理员管理。
1.4.1客户登记管理
利用VB界面，超级管理员可以登记客户的基本信息，添加客户信息，
从而改变了数据库中的信息。
1.4.2房间管理
超级管理员可以增加，修改，删除房间信息，在VB界面中修改了数据库中的信息。
1.4.3客户查询管理
超级管理员可以根据需要对不同的情况进行查询，从而显示数据库中的信息。
1.4.4房间查询管理
超级管理员可以根据需求进行详细查询，概况查询房间信息，从而显示数据库中的信息。
1.4.5员工信息管理
超级管理员可以根据需求进行增加，查询，删除和更新员工信息，从而改变数据库中的信息。
1.4.6管理员管理
超级管理员可以根据需求进行增加，查询，删除和更新普通管理员信息，从而改变数据库中的信息。
2．客房管理信息系统界面设计
图2.1欢迎界面
图2.2管理员登陆界
图2.3新用户注册界面
图2.4客户登记界面
表2.1客户登记界面属性表
对象
属性
设置值
Adodc1
visible
false
commandtype
2-adcmdtable
recordsource
客户信息表
SStab1
TabsPerRow
6
Tabs
6
dataGrid1
DataSource
Adodc1
Frame8
Caption
图2.5客户详细登记界面
表2.1学生信息查询界面属性表
图2.6客户结算界面
表2.2费用结算属性表
对象
属性
设置值
RichTextBox1
Enabled
False
Adodc1
commandtype
2-adcmdtable
recordsource
客户信息表
visible
false
图2.7房间管理
表2.3房间管理属性表
对象
属性
设置值
Adodc3
visible
false
commandtype
2-adcmdtable
recordsource
房间信息表
SStab1
TabsPerRow
6
Caption
房间管理
Tabs
6
dataGrid2
DataSource
Adodc3
Datacombo1
Caption
Style
2
图2.8客户查询界面
图2.9房间查询界面
表2.4房间查询界面属性表
对象
属性
设置值
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
房间信息表
visible
false
图2.10员工管理界面
表2.5员工管理界面属性表
对象
属性
设置值
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
员工信息表
visible
false
DataGrid1
caption
Datacombo2
List
Adodc2
Lable1
caption
员工号码
Lable2
caption
姓名
Lable3
caption
性别
Lable4
caption
年龄
Lable5
caption
电话号码
图2.11修改密码界面
表2.6修改密码界面属性表
对象
属性
设置值
dadagrid
datasource
Adodc1
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
普通管理员
visible
false
Lable1
caption
旧密码
Lable2
caption
新密码
Lable3
caption
确认密码
图2.12管理员管理界面
表2.7工程项目信息界面属性表
对象
属性
设置值
dadagrid
datasource
Adodc1
Adodc1
caption
Adodc1
commandtype
2-adcmdtable
recordsource
普通管理员
visible
false
Lable1
caption
系统时间
Lable2
caption
当前管理员
图2.13管理员管理界面
3．客房管理信息系统数据库设计
客房管理信息系统总共涉及6张表，分别是普通管理员表，超级管理员表，客户信息表，房间信息表，房间类型表和员工信息表。
表3.1普通管理员表
字段名称
标始名称
数据类型
是否允许为空
字段说明
Aid
编号
int
否
主码
Aname
账号
char
否
Amine
密码
char
否
表3.2超级管理员表
字段名称
标始名称
数据类型
是否允许为空
字段说明
Aid
编号
int
否
主码
Aname
账号
char
否
Amine
密码
char
否
表3.3客户信息表
字段名称
标始名称
数据类型
是否允许为空
字段说明
Cid
编号
int
否
主码
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
编号
Char
是
表3.5房间类型表
字段名称
标始名称
数据类型
是否允许为空
字段说明
Rnum
房间号
char
否
主码
Rsize
房间大小
char
否
Rbed
床位数
char
是
Rcon
房间配置
char
是
表3.6员工信息表
字段名称
标始名称
数据类型
是否允许为空
字段说明
Aid
编号
Int
否
主码
Yno
证件号码
char
否
Yname
姓名
Char
是
Ysex
性别
Char
否
Yage
年龄
Char
是
Ytel
联系方式
Char
是
4．客房管理信息系统程序设计（部分代码）
4.1欢迎界面
欢迎界面是整个系统的首页，用户可通过它进入到登陆系统。
4.2登陆界面
进入此界面后，使用者可根据自己的身份选择登陆方式。
普通管理员选择用户登陆，超级管理员选择超级管理员登陆。
4.3登陆和新用户注册界面程序设计
普通管理员在此界面输入自己的姓名和密码通过验证后方可进入下一个界面。
部分重要代码如下：
PrivateSubLabel1_Click（）
DimstrselectnameAsString
DimstrselectpasswordAsString
DimstrpasswordAsString
DimstrselectuserlevelAsString
Dimret_selectAsBoolean
strselectname="selectAnamefrom普通管理员whereAname="&"'"&Trim（DataCombo1.Text）&"'"
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=客房管理"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=strselectname
Adodc1.Refresh
IfAdodc1.Recordset.EOF=TrueThen
ret=MsgBox（"用户名错误！
",48,"warming!
"）
DataCombo1.Text=""
Text2.Text=""
ExitSub
EndIf
strselectpassword="selectAminefrom普通管理员whereAname="&"'"&Trim（DataCombo1.Text）&"'"
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=客房管理"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=strselectpassword
Adodc1.Refresh
IfStrComp（Trim（Adodc1.Recordset.Fields（"Amine"）.Value）,Trim（Text2.Text））<>0Then
ret=MsgBox（"密码错误！
",48,"warming!
"）
Text2.Text=""
Text2.SetFocus
ExitSub
Else
MsgBox"登录成功"
EndIf
Form7.Show
Form2.Hide
EndSub
新用户还可以通过此界面进行注册，新用户只要输入自己的姓名，注册密码并确认注册便可以成功注册，同时该用户的信息也被写入到了普通管理员表中（部分代码如下）
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=客房管理"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="selectAnamefrom普通管理员whereAname='"&Trim（Text1.Text）&"'"
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"用户名已经存在！
请重新输入",0,"提示"
Text1.Text=""
Text1.SetFocus
ExitSub
EndIf
Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=客房管理"
Adodc1.CommandType=adCmdTable
Adodc1.RecordSource="普通管理员"
Adodc1.Refresh
IfText1.Text<>""AndText2.Text<>""AndText3.Text<>""AndText2.Text=Text3.TextThen
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields（"Aname"）.Value=Trim（Text1.Text）
Adodc1.Recordset.Fields（"Amine"）.Value=Trim（Text2.Text）
Adodc1.Recordset.Update
MsgBox"恭喜你注册成功"
Text1.Text=""
Text2.Text=""
Text3.Text=""
ExitSub
ElseIfText1.Text<>""AndText2.Text=""AndText3.Text<>""Then
MsgBox"请输入密码"
ElseIfText1.Text<>""AndText2.Text=""AndText3.Text=""Then
MsgBox"请输入密码"
ElseIfText1.Text<>""AndText2.Text<>""AndText3.Text=""Then
MsgBox"请输入确定密码"
ElseIfText2.Text<>Text3.TextThen
MsgBox"两次输入的密码不一致，请重新输入"
Text2.Text=""
Text3.Text=""
Text2.SetFocus
ExitSub
Else
MsgBox"注册失败"
EndIf
ExitSub
4.4超级管理员登陆界面
管理员需要输入自己的姓名和密码，经过系统验证无误后就可以进入下一个界面了。
它的代码与普通管理员登陆代码类似，输入的姓名和密码必须是超级管理表中相应的信息，否则就无法成功登陆。
4.5系统主界面
普通管理员登陆进去后，可以在给界面选择自己所需的服务，该界面为用户提供了六种服务，分别是“客户登记”，“房间管理”，“客户查询”，“房间查询”，“员工管理”和“密码修改”。
4.6客户登记界面程序设计
用户如需登记客户入住信息和客户退房办理可在此界面进行，用户通过登陆界面登陆到此。
（代码如下）
PrivateSubCommand1_Click（）
IfText1.Text=""Ortext2.Text=""OrText3.Text=""OrText4.Text=""OrDataCombo1.Text=""Then
MsgBox"请将蓝色部分填写完整！
"
ExitSub
Else
Adodc1.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）
IfText5.Text<>""Then
Adodc1.Recordset.Fields（"Cadd"）=Trim（Text5.Text）
EndIf
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.Refres
UnloadMe
EndIf
4.7房间管理界面
用户可通过此界面所提供的功能对所有的客房进行管理。
所有的信息通过Adodc控件和相应的数据库表单连接起来，设置相应的属性后所有信息便可显示在DataGrid上供用户查看。
（代码如下）
IfDataCombo1.Text<>""Then
IfMsgBox（"确定删除房间“"&DataCombo1.Text&"”吗？
",vbOKCancel+vbInformation,"提示信息"）=vbOKThen
Adodc2.CommandType=adCmdText
Adodc2.RecordSource="select*from房间信息表whereRnum='"&DataCombo1.Text&"'"
Adodc2.Refresh
Adodc2.Recordset.Delete
Adodc2.Recordset.Update
Adodc4.CommandType=adCmdText
Adodc4.RecordSource="deletefrom房间类型表whereRnum='"&DataCombo1.Text&"'"
Adodc4.Refresh
Adodc4.Recordset.Delete
Adodc4.Recordset.Update
Adodc3.Refresh
SetDataGrid2.DataSource=Adodc3
DataGrid2.Refresh
Adodc7.Refresh
MsgBox"删除房间“"&DataCombo1.Text&"”成功！
",vbInformation+vbOKOnly,"提示信息"
Command9_Click
Else
Command9_Click
EndIf
Else
MsgBox"请选择要删除的房间！
"
DataCombo1.SetFocus
EndIf
4.8客户查询界面
该界面提供详细查询和概况查询功
升级会员 