frmmain.frm

宾馆管理系统 宾馆管理系统 宾馆管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "宾馆管理信息系统"
   ClientHeight    =   3480
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   5205
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar sbStatusBar 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   3225
      Width           =   5205
      _ExtentX        =   9181
      _ExtentY        =   450
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   5292
            MinWidth        =   5292
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            TextSave        =   "04-12-21"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            TextSave        =   "17:51"
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnuXt 
      Caption         =   "系统"
      Begin VB.Menu mnuXgmm 
         Caption         =   "修改密码"
      End
      Begin VB.Menu mnuCxdl 
         Caption         =   "重新登陆"
      End
      Begin VB.Menu mnuYhgl 
         Caption         =   "用户管理"
      End
      Begin VB.Menu mnuTcxt 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mnuKfxxgl 
      Caption         =   "客房信息管理"
      Begin VB.Menu mnuSzkfbz 
         Caption         =   "设置客房标准"
         Begin VB.Menu mnuTjkfbz 
            Caption         =   "添加客房标准"
         End
         Begin VB.Menu mnuKfbz 
            Caption         =   "修改客房标准"
         End
         Begin VB.Menu mnuSckfbz 
            Caption         =   "删除客房标准"
         End
      End
      Begin VB.Menu mnuSzkfxx 
         Caption         =   "设置客房信息"
         Begin VB.Menu mnuTjkfxx 
            Caption         =   "添加客房信息"
         End
         Begin VB.Menu mnuXgkfxx 
            Caption         =   "修改客房信息"
         End
         Begin VB.Menu mnuSckfxx 
            Caption         =   "删除客房信息"
         End
         Begin VB.Menu mnuCxkfxx 
            Caption         =   "查询客房信息"
         End
      End
   End
   Begin VB.Menu mnuDfxxgl 
      Caption         =   "订房信息管理"
      Begin VB.Menu mnuCxsykfxx 
         Caption         =   "查询剩余客房信息"
      End
      Begin VB.Menu mnuTjdfxx 
         Caption         =   "添加订房信息"
      End
      Begin VB.Menu mnuXgdfxx 
         Caption         =   "修改订房信息"
      End
      Begin VB.Menu mnuCxdfxx 
         Caption         =   "查询订房信息"
      End
   End
   Begin VB.Menu mnuJsxxgl 
      Caption         =   "结算信息管理"
      Begin VB.Menu mnuTjjsxx 
         Caption         =   "添加结算信息"
      End
      Begin VB.Menu mnuXgjsxx 
         Caption         =   "修改结算信息"
      End
      Begin VB.Menu mnuCxjsxx 
         Caption         =   "查询结算信息"
      End
   End
   Begin VB.Menu mnuBz 
      Caption         =   "帮助"
      Begin VB.Menu mnuAbout 
         Caption         =   "about"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub mnuCxdfxx_Click()
frmDfxxcx.Show
End Sub

Private Sub mnuCxdl_Click()
   frmLogin.Show
End Sub

Private Sub mnuCxjsxx_Click()
frmJsxxcx.Show
End Sub

Private Sub mnuCxkfxx_Click()
frmCfxxcx.Show
End Sub

Private Sub mnuCxsykfxx_Click()
 frmSxkccx.Show
End Sub

Private Sub mnuKfbz_Click()
 frmFjbzlb.Show
End Sub

Private Sub mnuSckfbz_Click()
  Dim txtSQL As String
  Dim intCount As Integer
  Dim mrc As ADODB.Recordset
  Dim MsgText As String
  If flagTedit Then
    If frmRoomtype.masList.Rows > 1 Then
      If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
         intCount = frmRoomtype.msgList.Row
         txtSQL = "delete from roomtype where typeid='" & Trim(frmRoomtype.msgList.TextMatrix(intCount, 1)) & "'"
         Set mrc = ExecuteSQL(txtSQL, MsgText)
         Unload frmRoomtype
         frmRoomtype.txtSQL = "select * from roomtype"
         frmRoomtype.Show
      End If
    End If
  Else
     'frmKfxxlb.textSQL = "selelct * from roomtype"
     frmKfxxlb.Show
  End If
  
   
       
End Sub


    Private Sub menuDEleroom_click()
    Dim txtSQL As String
     Dim intCount As String
     Dim mrc As ADODB.Recordset
     Dim MsgText As String
     
     If flagTedit Then
       If frmRoom.msgList.Rows > 1 Then
           If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
            intCount = frmRoomtype.msgList.Row
            txtSQL = "delete from roomtype where typeid='" & Trim(frmRoomtype.msgList.TextMatrix(intCount, 1)) & "'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)
            Unload frmRoomtype
            frmRoomtype.txtSQL = "select * from roomtype"
            frmRoomtype.Show
            End If
        End If
    End If
    
    End Sub
    


Private Sub mnuSckfxx_Click()
frmKfbzlb.Show
End Sub

Private Sub mnuTcxt_Click()
   Unload Me
End Sub

Private Sub mnuTjdfxx_Click()
   frmDfxx.Show
End Sub

Private Sub mnuTjjsxx_Click()
frmJsxx.Show
End Sub

Private Sub mnuTjkfbz_Click()
   frmKfbztj.Show
End Sub

Private Sub mnuTjkfxx_Click()
frmKfxx.Show
End Sub

Private Sub mnuXgdfxx_Click()
frmDfxxlb.Show
End Sub

Private Sub mnuXgjsxx_Click()
  frmJsxxlb.Show
  
End Sub

Private Sub mnuXgkfxx_Click()
frmKfxxlb.Show
End Sub

Private Sub mnuXgmm_Click()
   'Load frmModifypwd
   frmModifypwd.Show
End Sub

Private Sub mnuYhgl_Click()
   frmUser.Show
End Sub