毕业设计论文VB餐饮部办公室管理系统.doc

《毕业设计论文VB餐饮部办公室管理系统.doc》由会员分享，可在线阅读，更多相关《毕业设计论文VB餐饮部办公室管理系统.doc（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

12、.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) 加载图片 End If Text1.SetFocus En

13、d IfEnd Sub2、 主界面3、 主要功能1. 个性化显示头像2. 心情功能3. 权限状态4. 修改用户密码实现功能代码：Private Sub Command1_Click()If Text1.Text = 登录.Adodc1.Recordset!mm Then If Text2.Text = Text3.Text Then MsgBox 修改成功!, vbOKOnly + vbInformation, 提示 登录.Adodc1.Recordset!mm = Text2.Text 登录.Adodc1.Recordset.Update Else MsgBox 两次输入的密码不一致!, v

14、bExclamation + vbOKOnly, 提示 Text2.Text = Text3.Text = Text2.SetFocus Exit Sub End IfElse MsgBox 旧密码输入错误!, vbOKOnly + vbInformation, 提示 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit SubEnd IfEnd Sub5. 用户切换6. 用户管理7. 备忘录8. Memo文件9. 款待单10. 员工信息11. 日常提醒主界面以目前流行的聊天方QQ的形式来制作主界面，同

15、时使用API功能模仿QQ隐藏方式。同时对picturebox 控件透明做透明和在窗体中居中处理，-picturebox 控件透明Private Sub Picture1_Paint()Dim l As Long, t As Longl = (Picture1.Width - Picture1.ScaleWidth) / 2 求左右边偏差t = (Picture1.Height - Picture1.ScaleHeight) / 2 求上下边偏差Picture1.PaintPicture Me.Picture, 0, 0, , , Picture1.Left + l, Picture1.Top

16、+ t, Picture1.ScaleWidth, Picture1.ScaleHeight 载入图片,就用这行Picture1.PaintPicture Me.Image, 0, 0, , , Picture1.Left + l, Picture1.Top + t, Picture1.ScaleWidth, Picture1.ScaleHeight 复制的图片,就用这行End Sub显示日常事务提醒，使日常事务一目了然，减少忘记的几率。主要显示备忘录代码： 加载今日提醒列表 初始化 intMinNote = LBound(arrRemind) intMaxNote = UBound(arrR

17、emind) - 1 intCurrentNote = intMinNote 今日没有提醒 If intMaxNote intMinNote Then RichTextBox1.Text = 今日没有提醒 Label13.Caption = 平安日 Label11.Enabled = False Label12.Enabled = FalseElse 显示第一条提醒内容 ShowNote Label11.Enabled = True Label12.Enabled = True End If主界面load（）代码：Private Sub Form_Load() Call WHScreen rt

18、n = SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, 3) 运用API函数SetWindowPos，来实现使窗体置前的功能 Image16.Top = RichTextBox1.Top Image16.Left = RichTextBox1.Left Image16.Width = RichTextBox1.Width Image16.Height = RichTextBox1.Height SetWindowLong RichTextBox1.hWnd, GWL_EXSTYLE, GetWindowLong(RichTextBox1.hWnd, GWL_EXST

19、YLE) Or WS_EX_TRANSPARENT SetWindowLong RichTextBox2.hWnd, GWL_EXSTYLE, GetWindowLong(RichTextBox1.hWnd, GWL_EXSTYLE) Or WS_EX_TRANSPARENT Me.KeyPreview = False StatusBar1.Panels(1) = Now OpenTable Adodc1, 用户管理 Adodc1.Refresh Adodc1.RecordSource = select * from 用户管理 where xm = & 登录.Text2 & Adodc1.Re

20、fresh If Adodc1.Recordset!管理员 = 1 Then QXstr = admin Image15.Visible = True Image15.Picture = LoadPicture( & App.Path & image6.gif) 加载图片 Image6.Visible = True Image6.Picture = LoadPicture( & App.Path & image01.gif) 加载图片 Label16.Visible = True ElseIf Adodc1.Recordset!普通 = 1 Then QXstr = readonly Imag

21、e13.Visible = True Image13.Picture = LoadPicture( & App.Path & image5.gif) 加载图片 End If If Adodc1.Recordset!删除 = 1 Then QX1 = True Image8.Visible = True Image8.Picture = LoadPicture( & App.Path & image4.gif) 加载图片 End If If Adodc1.Recordset!修改 = 1 Then QX2 = True Image10.Visible = True Image10.Picture

22、 = LoadPicture( & App.Path & image3.gif) 加载图片 End If If Adodc1.Recordset!添加 = 1 Then QX3 = True Image9.Visible = True Image9.Picture = LoadPicture( & App.Path & image2.gif) 加载图片 End If If Adodc1.Recordset!浏览 = 1 Then QX4 = True Image7.Visible = True Image7.Picture = LoadPicture( & App.Path & image1.

23、gif) 加载图片 End If Label3.Caption = 当前操作员： & 登录.Text2 If QXstr = admin Then ZhuangTai = 管理员 ElseIf QXstr = readonly Then ZhuangTai = 只读用户 Else ZhuangTai = 普通用户 End If 签名设定 If IsNull(Adodc1.Recordset!qm.Value) Then Label2.Caption = “欢迎使用餐饮部办公软件” Else Label2.Caption = Adodc1.Recordset!qm End If Image1.S

24、tretch = True 使图片完整显示 头像设定 If IsNull(Adodc1.Recordset!Tx.Value) Then Image1.Picture = LoadPicture( & App.Path & Tx1.bmp) 加载图片 Else Image1.Picture = LoadPicture( & App.Path & Tx + Adodc1.Recordset!Tx) 加载图片 End If StatusBar1.Panels(2) = 状态： & ZhuangTai Label3.Caption = 欢迎您： + Adodc1.Recordset!xm Text2

25、.Text = Set c_Subclass = New iSubClass c_Subclass.SetMsgHook Me.hWnd Label2.ToolTipText = Label2 加载今日提醒列表 初始化 intMinNote = LBound(arrRemind) intMaxNote = UBound(arrRemind) - 1 intCurrentNote = intMinNote 今日没有提醒 If intMaxNote intMinNote Then RichTextBox1.Text = 今日没有提醒 Label13.Caption = 平安日 Label11.En

26、abled = False Label12.Enabled = FalseElse 显示第一条提醒内容 ShowNote Label11.Enabled = True Label12.Enabled = True End IfEnd Sub3、备忘录功能可以用不同的方式进行提醒：1.提示框提示任何提示将在最前端显示，保证用户一定能收到提醒2.声音播放提示3.定时运行程序主要提醒代码：Private Sub timCheck_Timer()检查提醒Dim i As Integer 循环变量Dim arrTemp() As String 临时数组 For i = LBound(arrRemind)

27、 To UBound(arrRemind) - 1 arrTemp = Split(arrRemind(i), ) 时间到了吗？ If arrTemp(0) = FormatTime(Now(), 1010) Then 到了，显示提醒框 ShowRemind arrTemp(1), arrTemp(2) 执行提醒动作 Select Case arrTemp(3) Case 1 播放声音 wmpPlayer.URL = arrTemp(4) Case 2 执行程序 ShellExecute 0, vbNullString, arrTemp(4), vbNullString, vbNullStri

28、ng, vbNormalFocus End Select End If Next 显示时间 lblTime.Caption = FormatTime(Now(), 1111) 每天0:00时恻新提醒列表 If Hour(Now() = 0 And Minute(Now() = 0 And Second(Now() = 0 Then LoadNote End IfEnd Sub4、款待单管理主要功能：1.添加款待单记录2.删除款待单记录3预览款待单记录利用反绑定方法查看数据主要代码：Private Sub JionBack()Dim SLen As Integer If Adodc1.Recor

29、dset.RecordCount 0 Then StrNum = Val(Adodc1.Recordset.Fields(编号) SLen = Len(Trim(StrNum) Select Case SLen 位数不足者补0 Case 1 strTemp = 00000 Case 2 strTemp = 0000 Case 3 strTemp = 000 Case 4 strTemp = 00 Case 5 strTemp = 0 Case 6 strTemp = End Select On Error Resume Next 执行错误处理 .Text2(4).Text = Adodc1.R

30、ecordset(0) 款待单查看.Label11.Caption = Adodc1.Recordset(1) 款待单查看.Label12.Caption = Adodc1.Recordset(2) 款待单查看.Label10.Caption = Adodc1.Recordset(3) 款待单查看.Label19.Caption = Adodc1.Recordset(4) 款待单查看.Label15.Caption = Adodc1.Recordset(5) 款待单查看.Label16.Caption = Adodc1.Recordset(6) 款待单查看.Label14.Caption =

31、款待： & Adodc1.Recordset(7) & & Adodc1.Recordset(9) & 元 款待单查看.Label17.Caption = Adodc1.Recordset(8) 款待单查看.Label17.Caption = Adodc1.Recordset(9) 款待单查看.Label18.Caption = Adodc1.Recordset(10) 款待单查看.Label13.Caption = Adodc1.Recordset(11) End IfEnd Sub Private Sub DataGrid1_Click() Call JionBack 调用数据反绑定过程

32、调用数据反绑定过程 款待单查看.ShowEnd Sub同时用time控件计算显示数量Private Sub Timer1_Timer() If Adodc1.Recordset.RecordCount 0 Then Label7.Caption = 目前数据库中共有 & Adodc1.Recordset.RecordCount & 条款待单数据 End IfEnd Sub根据需要进行模糊查询：Private Sub Text3_Change() On Error Resume Next 执行错误处理 Adodc1.RecordSource = select * from 款待单 where +

33、 Combo1.Text + like % + Text3.Text + % Adodc1.RefreshEnd Sub款待单添加：添加代码： Adodc1.Recordset.AddNew Adodc1.Recordset!申请时间 = DTPicker1.Value Adodc1.Recordset!单位 = Text1.Text Adodc1.Recordset!款待时间 = DTPicker2.Value Adodc1.Recordset!事由 = Text2.Text Adodc1.Recordset!款待内容 = Combo1.Text Adodc1.Recordset!款待金额

34、= Text3.Text Adodc1.Recordset!部门 = Combo2.Text Adodc1.Recordset!申请 = Text4.Text Adodc1.Recordset!部门经理 = Text5.Text Adodc1.Recordset!批准人 = Combo3.Text Adodc1.Recordset!地点 = Combo4.Text Adodc1.Recordset!经办 = 登录.Text2 Adodc1.Recordset.Update Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Tex

35、t = Combo1.Text = Combo2.Text = Combo4.Text = Adodc1.Refresh 款待单.DataGrid1.Refresh Label11.Caption = 添加成功，请继续 Command1.Visible = False Command3.Visible = True4、员工信息管理代码：Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)注释：鼠标指针在窗体上Image3.Visible = FalseImage2.Vi

36、sible = FalseImage1.Visible = FalseEnd SubPrivate Sub label15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)注释：鼠标指针在按钮上时，Image1.Visible = TrueEnd SubPrivate Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)注释：鼠标指针在按钮上时，Image1.Visible = True

37、End SubPrivate Sub label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)注释：鼠标指针在按钮上时，Image3.Visible = True End SubPrivate Sub label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)注释：鼠标指针在按钮上时，Image3.Visible = True End SubPrivate Sub Form_Load() Combo1.List(0) = 餐饮部 Combo1.List(1) = 大堂吧 Combo1.List(2) = 溢咖啡 Combo1.List(3) = 香溢坊 Combo1.List(4) = 西餐厅 Combo1.List(5) = 西厨房 Combo1.List(6) = 中餐厅 Combo1.List(7) = 中厨房 Com