jiudianneibuziliaocaidan.frm

宾馆在正常的运营中需要对客房资源、顾客信息、结算信息进行管理

VERSION 5.00
Begin VB.Form jiudianneibuziliaocaidan 
   Caption         =   "酒店内部资料查询"
   ClientHeight    =   7200
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   7170
   Icon            =   "jiudianneibuziliaocaidan.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   7200
   ScaleWidth      =   7170
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Image Image1 
      Height          =   11520
      Left            =   -120
      Picture         =   "jiudianneibuziliaocaidan.frx":058A
      Top             =   0
      Width           =   15360
   End
   Begin VB.Menu 酒店员工管理 
      Caption         =   "酒店员工管理"
      Begin VB.Menu 基本信息 
         Caption         =   "基本信息"
         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
      End
      Begin VB.Menu 工作评价信息 
         Caption         =   "工作评价信息"
         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
      End
   End
   Begin VB.Menu 查询 
      Caption         =   "查询"
      Begin VB.Menu 查询员工所有信息 
         Caption         =   "查询员工所有信息"
         Begin VB.Menu 按姓名查找 
            Caption         =   "按姓名查找"
            Shortcut        =   ^E
         End
         Begin VB.Menu 按编号查找 
            Caption         =   "按编号查找"
            Shortcut        =   ^F
         End
         Begin VB.Menu 按档号查找 
            Caption         =   "按档号查找"
            Shortcut        =   ^G
         End
      End
   End
   Begin VB.Menu 统计 
      Caption         =   "统计"
      Begin VB.Menu 月统计 
         Caption         =   "月统计"
      End
      Begin VB.Menu 季统计 
         Caption         =   "季统计"
      End
      Begin VB.Menu 年统计 
         Caption         =   "年统计"
      End
   End
   Begin VB.Menu 密码 
      Caption         =   "密码"
      Begin VB.Menu 添加用户 
         Caption         =   "添加用户"
         Shortcut        =   ^O
      End
      Begin VB.Menu 修改用户 
         Caption         =   "修改用户"
         Shortcut        =   ^H
      End
   End
   Begin VB.Menu 退出 
      Caption         =   "退出"
   End
   Begin VB.Menu 帮助 
      Caption         =   "帮助"
      Begin VB.Menu 关于 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "jiudianneibuziliaocaidan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub 按编号查找_Click()
chaxunyuangongsuoyouxinxi.Show
End Sub

Private Sub 按档号查找_Click()
chaxunyuangongsuoyouxinxi.Show
End Sub

Private Sub 按姓名查找_Click()
chaxunyuangongsuoyouxinxi.Show
End Sub


Private Sub 工资信息列表_Click()
gongzixinxiliebiao.Show
End Sub

Private Sub 工资信息输入框_Click()
gongzixinxi.Show
End Sub

Private Sub 工作评价列表_Click()
gongzuopingjialiebiao.Show
End Sub

Private Sub 工作评价输入框_Click()
gongzuopingjiaxinxi.Show
End Sub

Private Sub 工资信息输入_Click()
gongzixinxi.Show
End Sub
Private Sub 工作评价信息列表_Click()
gongzuopingjiaxinxiliebiao.Show
End Sub

Private Sub 工作评价信息输入_Click()
gongzixinxi.Show
End Sub

Private Sub 基本信息列表_Click()
yuangongjibenxinxiliebiao.Show
End Sub

Private Sub 基本信息输入框_Click()
jibenxinxi.Show
End Sub

Private Sub 基本信息输入_Click()
jibenxinxi.Show
End Sub

Private Sub 考勤信息列表_Click()
kaoqinxinxiliebiao.Show
End Sub

Private Sub 考勤信息输入框_Click()
kaoqinxinxi.Show
End Sub
Private Sub 关于_Click()
jieshao.Show
End Sub

Private Sub 季统计_Click()
jitongji.Show
End Sub

Private Sub 考勤信息输入_Click()
kaoqinxinxi.Show
End Sub

Private Sub 年统计_Click()
niantongji.Show
End Sub


Private Sub 添加用户_Click()
tianjiayonghu.Show
'jiudianneibuziliaocaidan.hide
End Sub

Private Sub 退出_Click()
jiudianneibuziliaocaidan.Hide
caidan.Show
End Sub

Private Sub 修改用户_Click()
xiugaiyonghu.Show
'jiudianneibuziliaocaidan.Hide
End Sub

Private Sub 月统计_Click()
yuetongji.Show
End Sub