《毕业设计（论文）VB餐饮部办公室管理系统》由会员分享，可在线阅读，更多相关《毕业设计（论文）VB餐饮部办公室管理系统（41页珍藏版）》请在金锄头文库上搜索。
1、计算机网络技术专业毕业设计论文题目： 酒店餐饮部办公室管理系统 分 校： 工作站： 学生类别： 开放教育 专 业： 计算机网络技术 学 号： 姓 名： 指导教师： 职 称： 餐饮部办公室管理系统前言 酒店会设立系统的管理制度，往往对于部门却没有很好的设立管理制度，而部门的灵活性和特殊使用都不能在酒店系统中完成。为了提高工作效率，高效的完成工作就需要有针对岗位，针对对象而设定专门的管理系统。摘要 随着经济社会的快速发展和构建和谐社会步伐的加快，传统的纸质文件交流、人员信息管理跟不上时代的脚步，一个适合的管理系统取代了传统的记录方式，加强了工作效率，提高了工作水平。 论文主要介绍了本课题的开发背景
2、，所要完成的功能和开发的过程。重点的说明了系统设计的重点、设计思想、难点技术和解决方案。关键字：ACCESS数据库，VisualBasic 6.0一、 引言应用背景与研究意义杭州香溢大酒店是浙江烟草的旗舰酒店，就餐饮部而言员工约200人，如传统的纸质记录人员信息，不仅浪费能源还不便于查找，费时又费力。对于文件的管理也是如此，如何才能高效、安全的管理，提高办公效率将是本人考虑的问题。在此岗位半年多以对此岗位的了解结合实际工作的需要结合所学知识，利用微软公司的VisualBasic 6.0结合ACCESS数据库编写一款单机的办公室管理软件，能有效的提高日常的工作效率。 二、 系统设计结构1. 总体
3、设计结构 功能划分餐饮部办公软件是办公室对餐饮部管理的一个重要的根据，本次设计的管理系统有7个模块，分别是：人员管理模块、文件管理模块、款待单管理模块、备忘录模块、事件管理模块、登陆信息模块、用户管理模块其中各个模块说明如下:1. 人员管理模块:该模块对人员的信息管理，添加、删除、修改、打印等。2. 文件管理模块:该模块主要负责记录memo文件，添加、删除、修改等。3. 款待单管理模块：记录酒店日常款待信息4. 备忘录模块:该模块主要针对日常事务记录以及提醒。5. 事件管理:该模块主要记录人员的各种事件。6、登陆信息模块:该模块主要对登陆人员所操作的个别信息记录。7、用户管理模块：主要对系统使
4、用的用户进行管理。 功能描述添加、删除、修改日常工作所需信息，能有效的查询员工信息、工资、联系方式等。能对日常事务进行管理，有效的进行提醒，大大的减少工作的遗忘，提高工作的效率。 软件分层模块结构应用程序数据库服务器 用户通过软件可以登录到应用程序进行相应操作，应用程序是用VisualBasic 6.0环境下发布。数据库access添加2.详细设计删除 备忘录提醒用户登录删除添加修改添加修改删除员工信息款待单Memo文件权限添加受限用户管理员删除浏览用户用户管理修改系统权限权限管理查询查询查询管理日志打印打印 修改头像 系统功能图修改密码修改用户信息3.数据库设计 根据工作环境，结合实际需要本
5、次设计目标仅供个人使用，所以采用单机版数据库access。数据库命名为FB（Food & Beverage Dept.）一共有7张表，来用来存储不同的信息.详细信息如下:数据库类图结构数据库库表结构表1：Memo文件：字段：表2：Note记事本：字段：表3：登录信息：字段：表4：款待单:字段：表5：事件：字段：表6：用户管理字段：表7员工信息字段：三、 系统实现 本章将对部门管理系统的功能进行介绍.1、 登陆窗口功能概述用个性化的方式增加了头像功能，从用户中选择用户登陆，设计目标使办公不在枯燥无味。增加鼠标移动事件，加强视觉效果。登陆模块主要代码：Private Sub Form_Load()
6、 Call WHScreen rtn = SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, 3) 运用API函数SetWindowPos，来实现使窗体置前的功能 Me.Caption = 餐饮部管理系统 V1.0 改变标题 bMoveFlag = False OpenTable Adodc1, 用户管理 打开用户管理表 Image1.Stretch = True 使图片完整显示 Image1.Picture = LoadPicture( & App.Path & Tx + Adodc1.Recordset!Tx) 加载图片 Adodc1.Refresh adodc刷新
7、 OpenTable Adodc1, 用户管理 打开用户管理表 Adodc1.Refresh adodc刷新 If Adodc1.Recordset.RecordCount 0 Then ListView1.Enabled = True ListView1.ListItems.Clear Adodc1.Recordset.MoveFirst Do While Adodc1.Recordset.EOF = False 将操作员信息添加到ListView控件当中 key = Adodc1.Recordset.Fields(xm) Set itmX = ListView1.ListItems.Add
8、(, , key, 1) Adodc1.Recordset.MoveNext Loop Else ListView1.Enabled = False End If Text2.ToolTipText = 输入用户名Text1.ToolTipText = 输入用户密码End SubPrivate Sub Command1_Click() rtn = SetWindowPos(Me.hWnd, -2, 0, 0, 0, 0, 3) 运用API函数SetWindowPos，来实现取消窗体置前的功能On Error Resume Next Dim sql As String 使用sql语言进行数据库的
9、查找 sql = select mm from user where xm= & Combo1 & 使用find语句查找数据库；（不能刷新） Adodc1.Recordset.Find username= & txtUserName & , , adSearchForward, 1 Adodc1.RecordSource = sql Adodc1.Refresh If Not Adodc1.Recordset.EOF Then If Adodc1.Recordset!mm Text1 Then MsgBox 密码不正确,请您确认后重新输入, , 系统提示 Text1.SetFocus Text
10、1 = ElseIf Adodc1.Recordset!mm = Text1 Then 主界面.Show 记录登录人员信息- OpenTable Adodc1, 登录信息 Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset!登录时间 = Now Adodc1.Recordset!事件 = 登陆 Adodc1.Recordset!人员 = Text2.Text Adodc1.Recordset.Update Adodc1.Refresh 记录登录人员信息- Me.Hide MsgBox 登陆成功，欢迎使用本系统！, vbOKOnly +
11、 vbInformation, 龍哥 备忘录.Show 备忘录.Hide 主界面.Show End If ElseIf Adodc1.Recordset.EOF Then MsgBox 对不起 没有此用户的信息, 64, 系统提示 Combo1.SetFocus Combo1 = Text1 = End IfEnd SubPrivate Sub ListView1_Click() Text2.Text = ListView1.SelectedItem Adodc1.RecordSource = select * from 用户管理 where xm= + Text2.Text + Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Label3.Caption = 操作员： & Adodc1.Recordset!zw 头像设定 If IsNull(Adodc1.Recordset!Tx.Value) Then Image1.Picture = LoadPicture( & App.Path & Tx67.bmp) 加载图片 Else Image1.Picture = LoadPicture( & App.Path & Tx + Adodc1.Recordset!Tx) 加载图片
