《课程设计报告_酒店管理系统》由会员分享，可在线阅读，更多相关《课程设计报告_酒店管理系统（20页珍藏版）》请在金锄头文库上搜索。
1、VBVB课程设计课程设计报告报告题目题目: :酒店管理系统酒店管理系统班班 级：级： 建环建环12411241 学学 号：号： 3535 姓姓 名：名： 指导老师：指导老师： 实习日期：实习日期： 2013-6-242013-6-24至至2013-6-282013-6-28 VB 语言课程设计- 1 -目目 录录 课程设计目的和意义课程设计目的和意义2 2 所需环境所需环境2 2 总体设计思路总体设计思路3 3 各部分设计功能介绍各部分设计功能介绍44 程序清单程序清单7 7 课程设计总结课程设计总结1818 教师评语教师评语1919VB 语言课程设计- 2 -一、课程设计目的和意义一、课程设
2、计目的和意义通过VB课程设计，巩固加深VB理论知识，使理论和实践相结合。培养学生对VB应用系统开发设计能力；提高学生对VB知识的综合运用能力；增强学生程序设计能力，提高学生实际上机调试程序的动手能力。使学生对VB软件开发有一个总体认识，使学生得到很好的锻炼，为以后的学习、工作打下坚实的基础。二、所需环境二、所需环境硬件环境：校内机房微机软件环境：Windows xp, VB6.0VB 语言课程设计- 3 -三、总体设计思路（功能模块图）三、总体设计思路（功能模块图）酒店酒店 管理管理 系统系统人事人事 管理管理客户客户 入住入住客户客户 信息信息 查询查询系统系统 管理管理值班值班 管理管理散
3、客散客 入住入住团体团体 入住入住新增新增 用户用户密码密码 修改修改退出退出 系统系统VB 语言课程设计- 4 -四、四、各部分设计功能介绍、设计界面（抓图）各部分设计功能介绍、设计界面（抓图）1 登录界面登录界面2主界面主界面VB 语言课程设计- 5 -3客人查询界面客人查询界面4值班管理值班管理VB 语言课程设计- 6 -5输入客人资料输入客人资料6新增用户新增用户VB 语言课程设计- 7 -五、程序清单五、程序清单新增用户代码新增用户代码: Private Sub Command1_Click() Dim sql As String Dim rs_add As New ADODB.Re
4、cordset If Trim(Text1.Text) = “ ThenMsgBox “用户名不能为空“, vbOKOnly + vbExclamation, “Exit SubText1.SetFocus Elsesql = “select * from 系统管理“rs_add.Open sql, conn, adOpenKeyset, adLockPessimisticWhile (rs_add.EOF = False)If Trim(rs_add.Fields(0) = Trim(Text1.Text) ThenMsgBox “已有这个用户“, vbOKOnly + vbExclamat
5、ion, “Text1.SetFocusText1.Text = “Text2.Text = “Text3.Text = “Combo1.Text = “Exit SubElsers_add.MoveNextEnd IfWendIf Trim(Text2.Text) = “ ThenMsgBox “密码不能为空，请重新输入！“, vbOKOnly + vbExclamation, “警告“Text2.Text = “Text2.SetFocusExit SubEnd IfIf Trim(Text2.Text) “system“ And Trim(Combo1.Text) Trim(Text2.
6、Text) ThenMsgBox “密码不一致！“, vbOKOnly + vbExclamation, “Text1.SetFocusText1.Text = “Text2.Text = “ Elsesql = “select * from 系统管理 where 用户名=“ “ & _“data source=jiudian.mdb“ conn.Open connectionstring cnt = 0 End Sub Option Explicit Dim rs_zhiban As New ADODB.Recordset Private Sub cmdadd_Click() On Erro
7、r GoTo adderror If cmdadd.Caption = “确定增加记录“ Thencmdadd.Caption = “确定“ cmddel.Enabled = Falsecmdcancel.Enabled = TrueDataGrid1.AllowAddNew = TrueDataGrid1.AllowUpdate = True Else If Not IsNull(DataGrid1.Bookmark) ThenIf Not IsDate(Trim(DataGrid1.Columns(“值班开始日期“).CellText(DataGrid1.Bookmark) ThenMsg
8、Box “请按照格式 yyyy-mm-dd 输入值班开始日期“, vbOKOnly + vbExclamation, “Exit SubEnd IfIf Not IsDate(Trim(DataGrid1.Columns(“值班开始时间“).CellText(DataGrid1.Bookmark) ThenMsgBox “请按照格式 hh-mm 输入值班开始时间“, vbOKOnly + vbExclamation, “Exit SubEnd IfIf Not IsDate(Trim(DataGrid1.Columns(“值班截止日期“).CellText(DataGrid1.Bookmark
9、) ThenMsgBox “请按照格式 yyyy-mm-dd 输入值班截止日期“, vbOKOnly + vbExclamation, “Exit SubEnd IfIf Not IsDate(Trim(DataGrid1.Columns(“值班截止时间“).CellText(DataGrid1.Bookmark) ThenMsgBox “请按照格式 hh-mm 输入值班截止时间“, vbOKOnly + vbExclamation, “Exit SubEnd IfIf Trim(DataGrid1.Columns(“值班人“).CellText(DataGrid1.Bookmark) = “
10、 ThenMsgBox “值班人不能为空！“, vbOKOnly + vbExclamation, “Exit SubEnd Ifrs_zhiban.UpdateMsgBox “添加信息成功！“, vbOKOnly + vbExclamation, “DataGrid1.AllowAddNew = FalseDataGrid1.AllowUpdate = False ElseVB 语言课程设计- 17 -MsgBox “没有添加信息！“, vbOKOnly + vbExclamation, “ End Ifcmdadd.Caption = “确定增加记录“cmddel.Enabled = Tr
11、ue End If adderror: If Err.Number 0 ThenMsgBox Err.Description End If End Sub Private Sub Form_Load() Dim sql As String On Error GoTo loaderror sql = “select * from 值班管理“ rs_zhiban.CursorLocation = adUseClient rs_zhiban.Open sql, conn, adOpenKeyset, adLockPessimistic DataGrid1.AllowAddNew = False Da
12、taGrid1.AllowDelete = False DataGrid1.AllowUpdate = False Set DataGrid1.DataSource = rs_zhiban Exit Sub loaderror:MsgBox Err.Description End Sub Private Sub Form_Unload(Cancel As Integer) Set DataGrid1.DataSource = Nothing rs_zhiban.Close End SubVB 语言课程设计- 18 -六、课程设计总结六、课程设计总结通过本次设计，设计的基本思想方法，能够独立通过
13、本次设计，设计的基本思想方法，能够独立 编写小型的编写小型的 vbvb 程序，通过程序，通过 vb6.0vb6.0 系统应用课题的实系统应用课题的实 践，进一步提高分析问题解决问题的能力及软件开发践，进一步提高分析问题解决问题的能力及软件开发 过程的能力。过程的能力。 遗憾的是对遗憾的是对 VBVB 设计工作的认识仅仅停留在表面，设计工作的认识仅仅停留在表面， 只是在参考着书和网络知识做，借人的思想，亲自操只是在参考着书和网络知识做，借人的思想，亲自操 作却尽力很多困难，所以未能领会其精髓。但时通过作却尽力很多困难，所以未能领会其精髓。但时通过 这次这次 vbvb 设计，加深了我对数据库设计基
14、本知识的理解，设计，加深了我对数据库设计基本知识的理解， 丰富了我做丰富了我做 vbvb 设计的实际技术，虽然学的不精，但让设计的实际技术，虽然学的不精，但让 我对我对 vbvb 产生了浓厚的兴趣，也使我对数据库有了深层产生了浓厚的兴趣，也使我对数据库有了深层 次的感性和理性认识。认识到要做好一项工作，既要次的感性和理性认识。认识到要做好一项工作，既要 注重理论知识的学习，更重要的是要把实践与理论两注重理论知识的学习，更重要的是要把实践与理论两 者紧密相结合。者紧密相结合。VB 语言课程设计- 19 -七、教师评语七、教师评语评阅教师：评阅教师： 评阅日期：评阅日期： 2013 年年 6 月月
