mdiform1.frm

发一个酒店管理系统给大家共享

Private Sub 个人营业表_Click()
    Report_Type = "客房部"
    当日营业员收入表.Show
End Sub

Private Sub 更新发票号_Click()
    Form1.Show
End Sub

Private Sub 挂帐明细表_Click()
    Query_Type = "挂帐明细表"

    餐厅报表.Show

End Sub

Private Sub 国家编码设置_Click()
    Table_SetType = "GJ"
    会计科目设置.Show
End Sub

Private Sub 黑名单种类设置_Click()
    Table_SetType = "WF"
    会计科目设置.Show
End Sub

Private Sub 客房类型设置_Click()
    Table_SetType = "FL"
    会计科目设置.Show

End Sub


Private Sub 客房帐务提醒_Click()
    客房帐务提醒表.Show
End Sub

Private Sub 客人预付和消费报表_Click()
    QAccount_ID = ""
    Account_ID = ""
    Query_Type = "客人预付和消费报表"
    客人查询.Show

End Sub

Private Sub 客人资料管理_Click()
    Query_Type = "客人档案"
    客人查询.Show

End Sub

Private Sub 快速入住_Click()
    Registration_Type = "快速入住"
    Load_Statu = "使用"
    房态图FORM.Show
End Sub

Private Sub 签证类型设置_Click()
    Table_SetType = "QZ"
    会计科目设置.Show
End Sub

Private Sub 全体操作员统计表_Click()
    Query_Type = "全体操作员交班统计表"
    统计报表form.Show
End Sub

Private Sub 日营业收入报表_Click()
    Query_Type = "日营业收入报表"
    餐厅报表.Show

End Sub

Private Sub 入境口岸设置_Click()
    Table_SetType = "KA"
    会计科目设置.Show

End Sub

Private Sub 设置操作人员_Click()
    操作人员设置.Show
End Sub

Private Sub 停留事由设置_Click()
    Table_SetType = "SY"
    会计科目设置.Show
End Sub

Private Sub 夜审之前录入_Click()
    Table_SetType = "营业收款"
    会计科目设置.Show

End Sub

Private Sub 预订取消报表_Click()
    Query_Type = "预订取消报表"
    客人查询.Show

End Sub

Private Sub 预订未到报表_Click()
    Query_Type = "预订未到报表"
    客人查询.Show
End Sub

Private Sub 当日抵店客人报表_Click()
    Query_Type = "当日抵店客人表"
    客人查询.Show
End Sub

Private Sub 当日离店客人报表_Click()
    Query_Type = "当日离店客人表"
    客人查询.Show
End Sub

Private Sub 当日在店客人报表_Click()
    Query_Type = "当日在店客人表"
    客人查询.Show
End Sub

Private Sub 当日生日客人报表_Click()
    Query_Type = "当日生日客人报表"
    客人查询.Show
End Sub
Private Sub 房态图_Click()
    Registration_Type = ""
    Load_Statu = "显示"
    房态图FORM.Show
End Sub

Private Sub 更换背景图象_Click()
    CommonDialog1.DialogTitle = "背景图象"
    CommonDialog1.Filter = "Bmp File(*.Bmp)|*.bmp|JPG File(*.JPG)|*.jpg"
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName = "" Then
       Exit Sub
    End If
    On Error GoTo errhandler
    BKPicPath = CommonDialog1.FileName
    
    Open App.Path & "\BKPIC.dat" For Output As #1
    'Input #1, BKPicPath
    Write #1, BKPicPath
    Write #1, PianQu
    Write #1, DWMC
    Close #1

    Me.Picture = LoadPicture(BKPicPath)
    

Exit Sub
errhandler:
    If Err = 481 Then
       MsgBox "无效文件", 48, "错误"
       CommonDialog1.FileName = ""
    End If

End Sub


Private Sub 黑名单人员_Click()
    Query_Type = "黑名单人员"
    客人查询.Show
End Sub

Private Sub 黑名单人员登记_Click()
    Query_Type = "黑名单人员登记"
    客人查询.Show
End Sub


Private Sub 会议记录维护_Click()
    Query_Type2 = "会议记录"
    会议团体.Show
End Sub

Private Sub 计算器_Click()
    Call Shell("calc.exe")
End Sub

Private Sub 客房设置_Click()
    客房设置FORM.Show
End Sub

Private Sub 客人档案_Click()
    Query_Type = "客人档案"
    客人查询.Show
End Sub


Private Sub 客史查询_Click()
    客史查询form.Show
End Sub

Private Sub 离店客人_Click()
    Query_Type = "离店客人"
    客人查询.Show
End Sub

Private Sub 内部帐户管理_Click()
    Query_Type2 = "内部"
    往来帐户管理.Show

End Sub

Private Sub 上传数据_Click()
    'If DATA_SERVER = "全局服务器" Then
        上传.Show 1
    'Else
    '    MsgBox "请注意：现在是在本地服务器上运行，无须上传数据服务！", 48, "提示"
    'End If

End Sub


Private Sub 输帐结帐_Click()
    输帐.Show
End Sub

Private Sub 所有客人_Click()
    Query_Type = "所有客人"
    客人查询.Show
End Sub

Private Sub 团体记录维护_Click()
    Query_Type2 = "团队记录"
    会议团体.Show

End Sub

Private Sub 退出系统_Click()
    Unload Me
End Sub

Private Sub 外部帐户单位_Click()
    Query_Type2 = "外部"
    往来帐户管理.Show

End Sub

Private Sub 下载数据_Click()
    'If DATA_SERVER = "全局服务器" Then
        上传下载.Show 1
    'Else
    '    MsgBox "请注意：现在是在本地服务器上运行，无须下载数据服务！", 48, "提示"
    'End If
End Sub
Private Sub 修改口令_Click()
    setpasswd.Show
End Sub
Private Sub 夜审操作_Click()
    夜审.Show 1
End Sub
Private Sub 预订登记_Click()
    Registration_Type = "预订"
    住宿登录.Show
End Sub

Private Sub 预订客人_Click()
    QAccount_ID = ""
    Query_Type = "预订客人"
    客人查询.Show
End Sub

Private Sub 预订客人登记_Click()
    QAccount_ID = ""
    Query_Type = "预订客人"
    客人查询.Show

End Sub

Private Sub 在店长住客人报表_Click()
    QAccount_ID = ""
    Query_Type = "在店长住客人表"
    客人查询.Show

End Sub

Private Sub 在店长住客人报表A_Click()
    QAccount_ID = ""
    Query_Type = "在店长住客人报表"
    客人查询.Show

End Sub

Private Sub 在店免费客人报表_Click()
    QAccount_ID = ""
    Query_Type = "在店免费客人表"
    客人查询.Show

End Sub

Private Sub 在店免费客人报表A_Click()
    QAccount_ID = ""
    Query_Type = "在店免费客人报表"
    客人查询.Show

End Sub

Private Sub 在店特价客人报表_Click()
    QAccount_ID = ""
    Query_Type = "在店特价客人报表"
    客人查询.Show

End Sub

Private Sub 在店外宾及港澳台客人报表_Click()
    QAccount_ID = ""
    Query_Type = "在店外宾及港澳台客人报表"
    客人查询.Show

End Sub

Private Sub 在住客人_Click()
    QAccount_ID = ""
    Query_Type = "在住客人"
    客人查询.Show
End Sub

Private Sub 在住客人资料修改_Click()
    QAccount_ID = ""
    Query_Type = "在住客人"
    客人查询.Show

End Sub

Private Sub 证件种类设置_Click()
    Table_SetType = "ZJ"
    会计科目设置.Show
End Sub

Private Sub 住宿登记_Click()
    Registration_Type = "售出"
    住宿登录.Show

End Sub

Private Sub 昨日离店客人报表_Click()
    QAccount_ID = ""
    Query_Type = "昨日离店客人报表"
    客人查询.Show

End Sub