资源描述：
《课程设计报告_酒店管理系统》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、VB语言课程设计《VB课程设计》报告题目:酒店管理系统班级：建环1241学号：35姓名：指导老师：实习日期：2013-6-24至2013-6-28-19-VB语言课程设计目录课程设计目的和意义…………………………2所需环境………………………………………2总体设计思路…………………………………3各部分设计功能介绍…………………………4程序清单………………………………………7课程设计总结………………………………18教师评语……………………………………19-19-VB语言课程设计一、课程设计目的和意义 通过VB课程设计，巩固加深VB理论知识，使理论和实
2、践相结合。培养学生对VB应用系统开发设计能力；提高学生对VB知识的综合运用能力；增强学生程序设计能力，提高学生实际上机调试程序的动手能力。使学生对VB软件开发有一个总体认识，使学生得到很好的锻炼，为以后的学习、工作打下坚实的基础。二、所需环境硬件环境：校内机房微机软件环境：Windowsxp,VB6.0-19-VB语言课程设计三、总体设计思路（功能模块图）酒店管理系统人事管理客户入住客户信息查询系统管理值班管理散客入住团体入住新增用户密码修改退出系统-19-VB语言课程设计四、各部分设计功能介绍、设计界面（抓图）1登录界面2主界面-19-VB语言
3、课程设计3客人查询界面4值班管理-19-VB语言课程设计5输入客人资料6新增用户-19-VB语言课程设计五、程序清单新增用户代码:PrivateSubCommand1_Click()DimsqlAsStringDimrs_addAsNewADODB.RecordsetIfTrim(Text1.Text)=""ThenMsgBox"用户名不能为空",vbOKOnly+vbExclamation,""ExitSubText1.SetFocusElsesql="select*from系统管理"rs_add.Opensql,conn,adOpenKeys
4、et,adLockPessimisticWhile(rs_add.EOF=False)IfTrim(rs_add.Fields(0))=Trim(Text1.Text)ThenMsgBox"已有这个用户",vbOKOnly+vbExclamation,""Text1.SetFocusText1.Text=""Text2.Text=""Text3.Text=""Combo1.Text=""ExitSubElsers_add.MoveNextEndIfWendIfTrim(Text2.Text)=""ThenMsgBox"密码不能为空，请重新输入！"
5、,vbOKOnly+vbExclamation,"警告"Text2.Text=""Text2.SetFocusExitSubEndIfIfTrim(Text2.Text)<>Trim(Text3.Text)ThenMsgBox"两次密码不一致",vbOKOnly+vbExclamation,""Text2.SetFocusText2.Text=""Text3.Text=""ExitSubElseIfTrim(Combo1.Text)<>"system"AndTrim(Combo1.Text)<>"guest"ThenMsgBox"请选择正确的用户
6、权限",vbOKOnly+vbExclamation,""Combo1.SetFocusCombo1.Text=""ExitSubElsers_add.AddNewrs_add.Fields(0)=Text1.Textrs_add.Fields(1)=Text2.Text-19-VB语言课程设计rs_add.Fields(2)=Combo1.Textrs_add.Updaters_add.CloseMsgBox"添加用户成功",vbOKOnly+vbExclamation,""UnloadMeEndIfEndIfEndSubPrivateSubC
7、ommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"system"Combo1.AddItem"guest"EndSub密码修改代码PrivateSubCommand1_Click()Dimrs_changAsNewADODB.RecordsetDimsqlAsStringIfTrim(Text1.Text)<>Trim(Text2.Text)ThenMsgBox"密码不一致！",vbOKOnly+vbExclamation,""Text1.SetFocusText1.
8、Text=""Text2.Text=""Elsesql="select*from系统管理where用户名='"&userID&"'"rs
