📄 mdiform1.frm
字号:
End
Begin VB.Menu 预订客人
Caption = "预订客人"
End
Begin VB.Menu 离店客人
Caption = "离店客人"
End
Begin VB.Menu 所有客人
Caption = "所有客人"
End
Begin VB.Menu line41
Caption = "-"
End
Begin VB.Menu 客人档案
Caption = "客人档案"
End
Begin VB.Menu 客史查询
Caption = "客史查询"
End
Begin VB.Menu 黑名单人员
Caption = "黑名单人员"
End
Begin VB.Menu line45
Caption = "-"
End
Begin VB.Menu 航班时刻表
Caption = "航班时刻表"
Enabled = 0 'False
End
Begin VB.Menu 火车时刻表
Caption = "火车时刻表"
Enabled = 0 'False
End
Begin VB.Menu 旅游景点表
Caption = "旅游景点表"
Enabled = 0 'False
End
Begin VB.Menu 部门及个人电话
Caption = "部门及个人电话"
End
End
Begin VB.Menu 报表统计
Caption = "报表统计"
Begin VB.Menu 预报报表
Caption = "预报报表"
Begin VB.Menu 次日来店客人预报
Caption = "次日来店客人预报"
End
Begin VB.Menu 次日离店客人报表
Caption = "次日离店客人报表"
End
Begin VB.Menu 次日发放餐券客人报表
Caption = "次日发放餐券客人报表"
End
Begin VB.Menu 次日客人生日预报表
Caption = "次日客人生日预报表"
End
Begin VB.Menu 预订取消报表
Caption = "预订取消报表"
End
Begin VB.Menu 预订未到报表
Caption = "预订未到报表"
End
End
Begin VB.Menu 接待报表
Caption = "接待报表"
Begin VB.Menu 当日抵店客人报表
Caption = "当日抵店客人报表"
End
Begin VB.Menu 当日离店客人报表
Caption = "当日离店客人报表"
End
Begin VB.Menu 当日在店客人报表
Caption = "当日在店客人报表"
End
Begin VB.Menu 当日房价变更报表
Caption = "当日房价变更报表"
End
Begin VB.Menu 当日房号变更报表
Caption = "当日房号变更报表"
End
Begin VB.Menu 当日房态表
Caption = "当日房态表"
End
Begin VB.Menu 当日抵店客人发放餐券报表
Caption = "当日抵店客人发放餐券报表"
End
Begin VB.Menu 当日抵店客人发放IC卡报表
Caption = "当日抵店客人发放IC卡报表"
End
Begin VB.Menu 当日生日客人报表
Caption = "当日生日客人报表"
End
Begin VB.Menu 当日无预订散客统计表
Caption = "当日无预订散客统计表"
End
Begin VB.Menu 当日有预订散客统计表
Caption = "当日有预订散客统计表"
End
Begin VB.Menu 在店免费客人报表
Caption = "在店免费客人报表"
End
Begin VB.Menu 在店特价客人报表
Caption = "在店特价客人报表"
End
Begin VB.Menu 在店长住客人报表
Caption = "在店长住客人报表"
End
Begin VB.Menu 在店外宾及港澳台客人报表
Caption = "在店外宾及港澳台客人报表"
End
End
Begin VB.Menu 财务报表
Caption = "财务报表"
Begin VB.Menu 当日在店客人报表A
Caption = "当日在店客人报表"
End
Begin VB.Menu 当日离店客人报表A
Caption = "当日离店客人报表"
End
Begin VB.Menu 当日抵店客人报表A
Caption = "当日抵店客人报表"
End
Begin VB.Menu 在店长住客人报表A
Caption = "在店长住客人报表"
End
Begin VB.Menu 在店免费客人报表A
Caption = "在店免费客人报表"
End
Begin VB.Menu 在店特价客人报表A
Caption = "在店特价客人报表"
End
Begin VB.Menu 昨日离店客人报表
Caption = "昨日离店客人报表"
End
End
End
Begin VB.Menu 夜间稽核
Caption = "夜间稽核"
Begin VB.Menu 当日营业收款
Caption = "当日营业收款"
Begin VB.Menu 夜审之前录入
Caption = "夜审之前录入"
End
Begin VB.Menu 夜审之后录入
Caption = "夜审之后录入"
End
End
Begin VB.Menu 夜审操作
Caption = "夜间处理"
End
Begin VB.Menu 夜审报表
Caption = "夜审报表"
Begin VB.Menu 日营业收入报表
Caption = "日营业收入报表"
End
Begin VB.Menu 客房营业收入表
Caption = "客房营业收入表"
End
Begin VB.Menu 餐厅营业收入表
Caption = "餐厅营业收入表"
End
Begin VB.Menu 挂帐明细表
Caption = "挂帐明细表"
End
Begin VB.Menu 当日单位帐户帐务报表
Caption = "当日单位帐户帐务报表"
End
End
Begin VB.Menu line61
Caption = "-"
End
Begin VB.Menu 夜审数据恢复
Caption = "夜审数据恢复"
End
End
Begin VB.Menu 电脑中心
Caption = "电脑中心"
Begin VB.Menu 设置操作人员
Caption = "设置操作人员"
End
Begin VB.Menu 设置各类项目
Caption = "设置各类项目编码"
Begin VB.Menu 证件种类设置
Caption = "证件种类设置"
End
Begin VB.Menu 签证类型设置
Caption = "签证类型设置"
End
Begin VB.Menu 客房类型设置
Caption = "客房类型设置"
End
Begin VB.Menu 币种设置
Caption = "币种设置"
End
Begin VB.Menu 费用项目设置
Caption = "费用项目设置"
End
Begin VB.Menu 停留事由设置
Caption = "停留事由设置"
End
Begin VB.Menu 国家编码设置
Caption = "国家编码设置"
End
Begin VB.Menu 入境口岸设置
Caption = "入境口岸设置"
End
Begin VB.Menu 黑名单种类设置
Caption = "黑名单种类设置"
End
End
Begin VB.Menu 公共信息
Caption = "公共信息"
Begin VB.Menu 航班时刻表设置
Caption = "航班时刻表设置"
Enabled = 0 'False
End
Begin VB.Menu 火车时刻表设置
Caption = "火车时刻表设置"
Enabled = 0 'False
End
Begin VB.Menu 旅游景点设置
Caption = "旅游景点设置"
Enabled = 0 'False
End
Begin VB.Menu 部门及电话设置
Caption = "部门及电话设置"
End
End
Begin VB.Menu line05
Caption = "-"
End
Begin VB.Menu 操作员菜单权限设置
Caption = "操作员菜单权限设置"
End
End
Begin VB.Menu 其他
Caption = "其他"
Begin VB.Menu 更换背景图象
Caption = "更换背景图象"
End
Begin VB.Menu 修改口令
Caption = "修改口令"
End
Begin VB.Menu line21
Caption = "-"
End
Begin VB.Menu 计算器
Caption = "计算器"
End
End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'欢迎你下载使用本代码，本份代码由程序太平洋提供下载学习之用
'声明:
'1.本站所有代码的版权归原作者所有，如果你使用了在本站下载的源代码
' 引起的一切纠纷(后果)与本站无关,请您尊重原作者的劳动成果！
'2.若本站在代码上有侵权之处请您与站长联系，站长会及时更正。
'网站：http://www.dapha.net
'论坛：http://www.5ivb.net
'Email:dapha@etang.com
'CopyRight 2001-2005 By dapha.net
'整理时间：2003-12-8 12:22:14
'星级酒店管理系统最初功能演示版,提供所有星级酒店管理中的客房管理,
'房态管理,客史管理,客人资料管理,帐务管理,报表管理,餐饮收费管理
'菜谱管理,夜审处理,数据库备份等功能.所有功能皆可以运行,(但有一些BUG未处理)
'此代码完全可以完成星级酒店上述管理功能.(提供者:帅)
'--------------------------------------------------------------
'代码编写于:2001.12 系统分析:帅 代码编写:帅 版权所有:帅
'--------------------------------------------------------------
'本份代码仅提供给程序太平洋的所有朋友学习,研究之用.
'其它网站一律不得转载,否则为侵权行为,本人保留法律追诉权力.
'这也是本人最早的VB版程序,代码质量不好.望笑纳.:)
'--------------------------------------------------------------
'提供日期:2003-05-31 提供者:帅
'--------------------------------------------------------------
'系统提从与ACCESS或SQL相接,在登录时,选择全局数据库,就与SQL数据库
'连接,字符串存放在SERVER.DAT文本文件中;选择本地数据库,与本地ACCESS
'数据库相连,连接字符串存放在LOCAT.DAT文件中.(当前存放为e:\hotel2\room.mdb)
'---------------------------------------------------------------
'将ACCESS中所有表导入SQL中,并将有的表中的ID字段改为自动编码,就可以使用.
'---------------------------------------------------------------------
'
'
Private Sub MDIForm_Activate()
'StatusBar1.Panels(2) = "片区：" & PianQu
If Not PASSed1 Then
'abc = sysquit()
'Unload Me
End
End If
End Sub
Private Sub MDIForm_Load()
Dim abc
PIC_load = True
menuload = True
DENGLU_LB = 1
SF_LB = 1
login.Show 1
'MsgBox PianQu
If PASSed1 Then
If menuload Then
Call MenuReLoad
menuload = False
End If
If Not Dir(BKPicPath) = "" Then
Me.Picture = LoadPicture(BKPicPath)
Else
MsgBox "提示：背景图片不存在，请重新设置！", 48, "提示信息"
End If
StatusBar1.Panels(1) = "操作员：" & CzyName
StatusBar1.Panels(2) = "系统状态：" & System_Statu
StatusBar1.Panels(3) = "系统日期：" & System_Date
StatusBar1.Panels(5) = "使用单位：" & DWMC
StatusBar1.Panels(6) = DATA_SERVER
Me.Caption = DWMC & "管理系统(网络版 Ver2.0)"
End If
End Sub
Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu 其他
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -