mdiform1.frm

来自「星级酒店客房管理系统一套很不错的系统」· FRM 代码 · 共 2,028 行 · 第 1/5 页

         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 CXXT8 
         Caption         =   "-"
      End
      Begin VB.Menu 客人档案 
         Caption         =   "客人档案"
      End
      Begin VB.Menu 客史查询 
         Caption         =   "客史查询"
      End
      Begin VB.Menu 黑名单人员 
         Caption         =   "黑名单人员"
      End
      Begin VB.Menu CXXT9 
         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 BBTJ1 
         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 BBTJ2 
         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 BBTJ3 
         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 昨日离店客人报表A 
            Caption         =   "昨日离店客人报表"
         End
      End
   End
   Begin VB.Menu 夜审系统 
      Caption         =   "『夜审系统"
      Begin VB.Menu 夜审之前录入 
         Caption         =   "夜审之前录入"
      End
      Begin VB.Menu YSXT5 
         Caption         =   "夜审报表"
         Begin VB.Menu 客房营业收入表 
            Caption         =   "客房营业收入表"
         End
         Begin VB.Menu 挂帐明细表 
            Caption         =   "挂帐明细表"
         End
         Begin VB.Menu 当日单位帐户帐务报表 
            Caption         =   "当日单位帐户帐务报表"
         End
      End
      Begin VB.Menu YSXT6 
         Caption         =   "-"
      End
      Begin VB.Menu 夜间处理 
         Caption         =   "夜间处理"
      End
      Begin VB.Menu 夜审数据恢复 
         Caption         =   "夜审数据恢复"
      End
   End
   Begin VB.Menu 员工管理 
      Caption         =   "『员工管理"
      Begin VB.Menu 员工信息 
         Caption         =   "员工信息"
      End
   End
   Begin VB.Menu 系统初始化 
      Caption         =   "『系统初始化"
      Begin VB.Menu 本单位定义 
         Caption         =   "本单位定义"
      End
      Begin VB.Menu XTCSH7 
         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
         Begin VB.Menu 客房出售方式 
            Caption         =   "客房出售方式"
         End
         Begin VB.Menu 学历种类设置 
            Caption         =   "学历种类设置"
         End
      End
      Begin VB.Menu XTCSH8 
         Caption         =   "公共信息"
         Begin VB.Menu 航班时刻表设置 
            Caption         =   "航班时刻表设置"
         End
         Begin VB.Menu 火车时刻表设置 
            Caption         =   "火车时刻表设置"
         End
         Begin VB.Menu 旅游景点设置 
            Caption         =   "旅游景点设置"
         End
         Begin VB.Menu 部门及电话设置 
            Caption         =   "部门及电话设置"
         End
      End
   End
   Begin VB.Menu jlcx 
      Caption         =   "『经理查询"
   End
   Begin VB.Menu line21 
      Caption         =   "『工具"
      Begin VB.Menu 计算器 
         Caption         =   "计算器"
      End
   End
   Begin VB.Menu menuhelp 
      Caption         =   "『帮助"
      Begin VB.Menu help 
         Caption         =   "帮助"
      End
      Begin VB.Menu tip 
         Caption         =   "日积月累"
      End
      Begin VB.Menu aboutus 
         Caption         =   "关于系统"
      End
   End
   Begin VB.Menu jl 
      Caption         =   "jl"
      Visible         =   0   'False
      Begin VB.Menu hyjl 
         Caption         =   "会议接待"
      End
      Begin VB.Menu ttjl 
         Caption         =   "团体接待"
      End
   End
   Begin VB.Menu zw 
      Caption         =   "zw"
      Visible         =   0   'False
      Begin VB.Menu szjz 
         Caption         =   "帐务登记"
      End
      Begin VB.Menu li102 
         Caption         =   "-"
      End
      Begin VB.Menu kfgryyb 
         Caption         =   "当日客房个人营业表"
      End
      Begin VB.Menu syhzb 
         Caption         =   "当日收银汇总表"
      End
      Begin VB.Menu yfkbb 
         Caption         =   "当日预付款报表"
      End
      Begin VB.Menu fzb 
         Caption         =   "当日房租表"
         Begin VB.Menu qrfzbb 
            Caption         =   "当日全日房租报表"
         End
         Begin VB.Menu brfzbb 
            Caption         =   "当日半日房租报表"
         End
      End
      Begin VB.Menu gfgdgfdg 
         Caption         =   "-"
      End
      Begin VB.Menu kfzwtx 
         Caption         =   "客房帐务提醒"
      End
   End
   Begin VB.Menu CX 
      Caption         =   "cx"
      Visible         =   0   'False
      Begin VB.Menu zzkr 
         Caption         =   "在住客人"
      End
      Begin VB.Menu ydkr 
         Caption         =   "预订客人"
      End
      Begin VB.Menu linr1000 
         Caption         =   "-"
      End
      Begin VB.Menu krda 
         Caption         =   "客人档案"
      End
      Begin VB.Menu line90 
         Caption         =   "-"
      End
      Begin VB.Menu bmjgrdh 
         Caption         =   "部门及个人电话"
      End
   End
   Begin VB.Menu BB 
      Caption         =   "bb"
      Visible         =   0   'False
      Begin VB.Menu jd 
         Caption         =   "接待报表"
         Begin VB.Menu jdddkrbb 
            Caption         =   "当日抵店客人报表"
         End
         Begin VB.Menu jdldkrbb 
            Caption         =   "当日离店客人报表"
         End
      End
      Begin VB.Menu yb 
         Caption         =   "预报报表"
         Begin VB.Menu ybddkrbb 
            Caption         =   "次日抵店客人报表"
         End
         Begin VB.Menu ybldkrbb 
            Caption         =   "次日离店客人报表"
         End
      End
      Begin VB.Menu YS 
         Caption         =   "夜审报表"
         Begin VB.Menu ryysr 
            Caption         =   "日营业收入报表"
         End
         Begin VB.Menu line999 
            Caption         =   "-"
         End
         Begin VB.Menu kfyysr 
            Caption         =   "客房营业收入"
         End
      End
   End
   Begin VB.Menu setting 
      Caption         =   "set"
      Visible         =   0   'False
      Begin VB.Menu czyqx 
         Caption         =   "权限设置"
      End
   End
   Begin VB.Menu QuickM 
      Caption         =   "QuickM"
      Visible         =   0   'False
      Begin VB.Menu Qruzhu 
         Caption         =   "入住"
      End
      Begin VB.Menu Qyuding 
         Caption         =   "预订"
      End
      Begin VB.Menu Qtuifang 
         Caption         =   "退房"
      End
      Begin VB.Menu Qjiezhang 
         Caption         =   "结帐"
      End
      Begin VB.Menu qline01 
         Caption         =   "-"
      End
      Begin VB.Menu Qbianji 
         Caption         =   "编辑"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Public Sub entercell()     '定义text1在MS1表中的位置函数
 If Text1.Text = "1" Then Set myform = main_htgl_jhgl
 If Text1.Text = "2" Then Set myform = main_qtgl_ktgl_ktfw
 If Text1.Text = "3" Then Set myform = main_qtgl_ktgl_jcfw
 Dim X, Y, p As String
 If myform.MS1.CellWidth <= 0 Or myform.MS1.CellHeight <= 0 Then Exit Sub
 X = myform.MS1.TextMatrix(myform.MS1.FixedRows, myform.MS1.Col)
 Y = myform.MS1.TextMatrix(myform.MS1.Row, 0)
 If Y <> "" Then
  If myform.MS1.Col - myform.MS1.LeftCol <= 3 Then myform.MS1.LeftCol = myform.MS1.LeftCol + 1
  If myform.MS1.CellWidth > 0 And myform.MS1.CellHeight > 0 Then
   myform.Text1.Width = myform.MS1.CellWidth:  myform.Text1.Height = myform.MS1.CellHeight
   myform.Text1.Left = myform.MS1.CellLeft + myform.MS1.Left
   myform.Text1.Top = myform.MS1.CellTop + myform.MS1.Top
  End If