frmmdi.frm

酒店收费系统

      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   15
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   6
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMDI.frx":000C
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMDI.frx":054E
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMDI.frx":0660
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMDI.frx":07FA
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMDI.frx":0D3C
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMDI.frx":0E4E
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   615
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7185
      _ExtentX        =   12674
      _ExtentY        =   1085
      ButtonWidth     =   609
      ButtonHeight    =   556
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   6
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "客房信息"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "入住情况"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "退房记录"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "信息查询"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "报表输出"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "退出"
            ImageIndex      =   6
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnuSystem 
      Caption         =   "系统功能(&S)"
      Begin VB.Menu mnuUser 
         Caption         =   "用户管理(&U)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuGap1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出系统(&X)"
      End
   End
   Begin VB.Menu mnuInfo 
      Caption         =   "基本信息管理(&I)"
      Begin VB.Menu mnuRoomInfo 
         Caption         =   "客房信息(&R)"
      End
      Begin VB.Menu mnuGuest 
         Caption         =   "入住情况(&G)"
      End
      Begin VB.Menu mnuCancel 
         Caption         =   "退房记录(&C)"
      End
   End
   Begin VB.Menu mnuQuerySelect 
      Caption         =   "查询(&Q)"
   End
   Begin VB.Menu mnureport 
      Caption         =   "报表输出(&R)"
      Begin VB.Menu mnuReportRoom 
         Caption         =   "房间情况表(&R)"
      End
      Begin VB.Menu mnuReportMoney 
         Caption         =   "收费情况表(&M)"
         Enabled         =   0   'False
      End
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "窗口(&W)"
      WindowList      =   -1  'True
      Begin VB.Menu mnuHor 
         Caption         =   "水平平铺(&H)"
      End
      Begin VB.Menu mnuVer 
         Caption         =   "垂直平铺(&V)"
      End
      Begin VB.Menu mnuCascade 
         Caption         =   "层叠(&C)"
      End
      Begin VB.Menu mnuIcon 
         Caption         =   "排列图标(&I)"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuContent 
         Caption         =   "内容(&C)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuIndex 
         Caption         =   "索引(&I)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuGap2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "关于...(&A)"
      End
   End
End
Attribute VB_Name = "frmMDI"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
Private Sub MDIForm_Load()
    App.Title = "酒店收费管理信息系统"
    OpenTable adoRoom, "Room"
    OpenTable adoGuest, "Guest"
    OpenTable adoCancel, "Cancel"
End Sub

Private Sub mnuAbout_Click()
    frmAbout.Show vbModal
End Sub


Private Sub mnuCancel_Click()
    frmCancelInfo.Show
End Sub
Private Sub mnuCascade_Click()
    frmMDI.Arrange vbCascade
End Sub

Private Sub mnuGuest_Click()
    frmGuestInfo.Show
End Sub
Private Sub mnuQuerySelect_Click()
    frmQuerySelect.Show
End Sub


Private Sub mnuRoomInfo_Click()
    frmRoomInfo.Show
End Sub

'Private Sub mnuRoomTypeInfo_Click()
'    frmRoomTypeInfo.Show
'End Sub

Private Sub mnuExit_Click()
    Unload Me
End Sub

Private Sub mnuHor_Click()
    frmMDI.Arrange vbTileHorizontal
End Sub

Private Sub mnuIcon_Click()
    frmMDI.Arrange vbArrangeIcons
End Sub

'Private Sub mnuQueryRoomInfo_Click()
'    frmQuery.Caption = "客房信息"
'    frmQuery.Show
'End Sub
Private Sub mnuReportRoom_Click()
    '先查询出结果
    OpenTable frmMDI.adoQuery, "select * from Room order by RoomNo,RoomRate"
    
    With drpRoomRequired
        Set .DataSource = frmMDI.adoQuery '实施报表数据源绑定
        '设置属性
        .Caption = "房间基本情况表"
        '绑定显示字段
        .Sections("Section1").Controls("txtRoomNo").DataField = "RoomNo"
        .Sections("Section1").Controls("txtRoomGrade").DataField = "RoomGrade"
        .Sections("Section1").Controls("txtRoomGrade").DataFormat.Type = 5
        .Sections("Section1").Controls("txtRoomGrade").DataFormat.TrueValue = "标准间"
        .Sections("Section1").Controls("txtRoomGrade").DataFormat.FalseValue = "豪华间"
        .Sections("Section1").Controls("txtRoomGrade").DataFormat.NullValue = "未知"
        .Sections("Section1").Controls("txtRoomType").DataField = "RoomType"
        .Sections("Section1").Controls("txtRoomType").DataFormat.Type = 5
        .Sections("Section1").Controls("txtRoomType").DataFormat.TrueValue = "单人间"
        .Sections("Section1").Controls("txtRoomType").DataFormat.FalseValue = "双人间"
        .Sections("Section1").Controls("txtRoomType").DataFormat.NullValue = "未知"
        .Sections("Section1").Controls("txtRoomRate").DataField = "RoomRate"
        .Sections("Section1").Controls("txtRoomStatus").DataField = "RoomStatus"
        .Sections("Section1").Controls("txtRoomStatus").DataFormat.Type = 5
        .Sections("Section1").Controls("txtRoomStatus").DataFormat.TrueValue = "在住"
        .Sections("Section1").Controls("txtRoomStatus").DataFormat.FalseValue = "空房"
        .Sections("Section1").Controls("txtRoomStatus").DataFormat.NullValue = "未知"
        '显示报表预览
        .Show
    End With
End Sub

Private Sub mnuVer_Click()
    frmMDI.Arrange vbTileVertical
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
        Case 1
           mnuRoomInfo_Click
        Case 2
           mnuGuest_Click
        Case 3
            mnuCancel_Click
        Case 4
            mnuQuerySelect_Click
        Case 5
            mnuReportRoom_Click
        Case 6
            mnuExit_Click
    End Select
End Sub