酒店行业

开发平台：
Visual Basic

frmMain.frm：源码内容
							VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "宾馆管理信息系统"
   ClientHeight    =   4596
   ClientLeft      =   132
   ClientTop       =   732
   ClientWidth     =   7092
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   Begin MSComctlLib.StatusBar sbStatusBar 
      Align           =   2  'Align Bottom
      Height          =   264
      Left            =   0
      TabIndex        =   0
      Top             =   8256
      Width           =   12192
      _ExtentX        =   21505
      _ExtentY        =   466
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   15896
            Text            =   "Status"
            TextSave        =   "Status"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            AutoSize        =   2
            TextSave        =   "2001-11-12"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            AutoSize        =   2
            TextSave        =   "22:09"
         EndProperty
      EndProperty
   End
   Begin VB.Menu menuSystem 
      Caption         =   "系统"
      Begin VB.Menu menuModifypwd 
         Caption         =   "修改密码"
      End
      Begin VB.Menu menuAdduser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu menuExit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu menuRooms 
      Caption         =   "客房信息管理"
      Begin VB.Menu menuRoomtype 
         Caption         =   "设置客房标准"
         Begin VB.Menu menuAddroomtype 
            Caption         =   "添加客房标准"
         End
         Begin VB.Menu menuModifyroomtype 
            Caption         =   "修改客房标准"
         End
         Begin VB.Menu menuDeleteroomtype 
            Caption         =   "删除客房标准"
         End
      End
      Begin VB.Menu menuSetrooms 
         Caption         =   "设置客房信息"
         Begin VB.Menu menuAddroom 
            Caption         =   "添加房间信息"
         End
         Begin VB.Menu menuModifyroom 
            Caption         =   "修改房间信息"
         End
         Begin VB.Menu menuDeleteroom 
            Caption         =   "删除客房信息"
         End
         Begin VB.Menu menuInquireroom 
            Caption         =   "查询客房信息"
         End
      End
   End
   Begin VB.Menu menuBookin 
      Caption         =   "订房信息管理"
      Begin VB.Menu menuInquirerooms 
         Caption         =   "查询剩余客房信息"
      End
      Begin VB.Menu menuAddbookroom 
         Caption         =   "添加订房信息"
      End
      Begin VB.Menu menuModifybookroom 
         Caption         =   "修改订房信息"
      End
      Begin VB.Menu menuInquirebookroom 
         Caption         =   "查询订房信息"
      End
   End
   Begin VB.Menu menuCheckout 
      Caption         =   "结算信息管理"
      Begin VB.Menu menuAddcheckout 
         Caption         =   "添加结算信息"
      End
      Begin VB.Menu menuModifycheckout 
         Caption         =   "修改结算信息"
      End
      Begin VB.Menu menuInquirecheckout 
         Caption         =   "查询结算信息"
      End
   End
   Begin VB.Menu menuHelp 
      Caption         =   "帮助"
      Begin VB.Menu menuAbout 
         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 MDIForm_Load()
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
    
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
End Sub
Private Sub menuAddbookroom_Click()
    gintBmode = 1
    frmBookin1.Show
    frmBookin1.ZOrder 0
End Sub
Private Sub menuAddcheckout_Click()
    gintCmode = 1
    frmCheckout1.Show
    frmCheckout1.ZOrder 0
End Sub
Private Sub menuAddroom_Click()
    gintRmode = 1
    frmRoom1.Show
    frmRoom1.ZOrder 0
End Sub
Private Sub menuAddroomtype_Click()
    gintTmode = 1
    frmRoomtype1.Show
    frmRoomtype1.ZOrder 0
End Sub
Private Sub menuDeleteroom_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    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 = frmRoom.msgList.Row
                txtSQL = "delete from rooms where roomNO='" & Trim(frmRoom.msgList.TextMatrix(intCount, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                Unload frmRoom
                frmRoom.txtSQL = "select * from rooms"
                frmRoom.Show
            End If
        End If
    End If
End Sub
Private Sub menuDeleteroomtype_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    
    
    If flagTedit Then
        If frmRoomtype.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 menuInquirebookroom_Click()
    frmBookin2.Show
End Sub
Private Sub menuInquirecheckout_Click()
    frmCheckout2.Show
End Sub
Private Sub menuInquireroom_Click()
    frmRoom2.Show
End Sub
Private Sub menuInquirerooms_Click()
    frmRoomsurplus.Show
    
End Sub
Private Sub menuModifybookroom_Click()
    Dim intCount As Integer
    If flagBedit Then
        If frmBookin.msgList.Rows > 1 Then
            gintBmode = 2
            intCount = frmBookin.msgList.Row
            frmBookin1.txtSQL = "select bookno,customname,customID,roomno,indate,discount,inmemo from bookin where ammount = '0' and bookno ='" & Trim(frmBookin.msgList.TextMatrix(intCount, 1)) & "'"
            frmBookin1.Show
        Else
            Call menuAddbookroom_Click
        End If
    Else
        frmBookin.txtSQL = "select bookno,customname,customID,roomno,indate,discount,inmemo from bookin where ammount = '0'"
        frmBookin.Show
    End If
End Sub
Private Sub menuModifycheckout_Click()
    Dim intCount As Integer
    If flagCedit Then
        If frmCheckout.msgList.Rows > 1 Then
            gintCmode = 2
            intCount = frmCheckout.msgList.Row
            frmCheckout1.txtSQL = "select * from bookin where bookno ='" & Trim(frmCheckout.msgList.TextMatrix(intCount, 1)) & "'"
            frmCheckout1.Show
        Else
            Call menuAddcheckout_Click
        End If
    Else
        frmCheckout.txtSQL = "select * from bookin where ammount <> '0'"
        frmCheckout.Show
    End If
End Sub
Private Sub menuModifyroom_Click()
    Dim intCount As Integer
    If flagRedit Then
        If frmRoom.msgList.Rows > 1 Then
            gintRmode = 2
            intCount = frmRoom.msgList.Row
            frmRoom1.txtSQL = "select * from rooms where roomNO ='" & Trim(frmRoom.msgList.TextMatrix(intCount, 1)) & "'"
            frmRoom1.Show
        Else
            Call menuAddroom_Click
        End If
    Else
        frmRoom.txtSQL = "select * from rooms"
        frmRoom.Show
    End If
End Sub
Private Sub menuModifyroomtype_Click()
    Dim intCount As Integer
    If flagTedit Then
        If frmRoomtype.msgList.Rows > 1 Then
            gintTmode = 2
            intCount = frmRoomtype.msgList.Row
            frmRoomtype1.txtSQL = "select * from roomtype where typeid='" & Trim(frmRoomtype.msgList.TextMatrix(intCount, 1)) & "'"
            frmRoomtype1.Show
        Else
            Call menuAddroomtype_Click
        End If
    Else
        frmRoomtype.txtSQL = "select * from roomtype"
        frmRoomtype.Show
    End If
End Sub

						