frmmain.frm

VB客房管理系统全套(带源码)顾客可以用电话或上网注册的方式预定。其方式不同

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain 
   AutoShowChildren=   0   'False
   BackColor       =   &H8000000C&
   Caption         =   "客房管理信息系统"
   ClientHeight    =   8355
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   10545
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Height          =   7215
      Left            =   0
      Picture         =   "frmMain.frx":0000
      ScaleHeight     =   7155
      ScaleWidth      =   10485
      TabIndex        =   1
      Top             =   0
      Width           =   10545
   End
   Begin MSComctlLib.StatusBar sbStatusBar 
      Align           =   2  'Align Bottom
      Height          =   270
      Left            =   0
      TabIndex        =   0
      Top             =   8085
      Width           =   10545
      _ExtentX        =   18600
      _ExtentY        =   476
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   12965
            Text            =   "Status"
            TextSave        =   "Status"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            AutoSize        =   2
            TextSave        =   "2005-6-15"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            AutoSize        =   2
            TextSave        =   "20:01"
         EndProperty
      EndProperty
   End
   Begin VB.Menu dengji 
      Caption         =   "入住登记"
      Begin VB.Menu ruzhu 
         Caption         =   "个人入住"
         Begin VB.Menu menuAddbookroom 
            Caption         =   "添加个人订房信息"
         End
         Begin VB.Menu menuModifybookroom 
            Caption         =   "修改个人订房信息"
         End
         Begin VB.Menu menuInquirebookroom 
            Caption         =   "查询个人订房信息"
         End
      End
      Begin VB.Menu tuanti 
         Caption         =   "团体入住"
         Begin VB.Menu menuAddbookroom1 
            Caption         =   "添加团体订房信息"
         End
         Begin VB.Menu menuModifybookroom1 
            Caption         =   "修改团体订房信息"
         End
         Begin VB.Menu menuInquirebookroom2 
            Caption         =   "查询团体订房信息"
         End
      End
   End
   Begin VB.Menu huanfang 
      Caption         =   "换房"
      Begin VB.Menu huanfang1 
         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 yudingkefang 
      Caption         =   "预定客房"
      Begin VB.Menu yuding 
         Caption         =   "个人预定"
         Begin VB.Menu menuaddgryuding 
            Caption         =   "添加个人预定"
         End
         Begin VB.Menu menumodifygryuding 
            Caption         =   "修改个人预定"
         End
         Begin VB.Menu menuInquiregryuding 
            Caption         =   "查询个人预定"
         End
      End
      Begin VB.Menu tuantiyuding 
         Caption         =   "团体预定"
         Begin VB.Menu menuaddttyuding 
            Caption         =   "添加团体预定"
         End
         Begin VB.Menu menumodifyttyuding 
            Caption         =   "修改团体预定"
         End
         Begin VB.Menu menuInquirettyuding 
            Caption         =   "查询团体预定"
         End
      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 benriyingye 
      Caption         =   "本日营业"
      Begin VB.Menu yushoukuan 
         Caption         =   "预收款"
      End
      Begin VB.Menu jinzhangkuan 
         Caption         =   "结帐金额"
      End
   End
   Begin VB.Menu dayin 
      Caption         =   "打印"
      Begin VB.Menu kfxx 
         Caption         =   "客户信息表"
      End
      Begin VB.Menu kflx 
         Caption         =   "客房类型表"
      End
   End
   Begin VB.Menu manuabout 
      Caption         =   "关于"
      Begin VB.Menu about 
         Caption         =   "关于这个系统"
      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 about_Click()
frmAbout.Show
End Sub



Private Sub haohuatao_Click()
gintTmode = 1
   haohua.Show
   haohua.ZOrder 0
End Sub

Private Sub huanfang1_Click()
gintCmode = 1
frmCheckout1.Show
    frmCheckout1.ZOrder 0
End Sub

Private Sub jinzhangkuan_Click()
jzmoney.Show
End Sub

Private Sub kflx_Click()
DataReport2.Show
End Sub

Private Sub kfxx_Click()
DataReport1.Show
End Sub

Private Sub MDIForm_Load()
   
    If flagMedit = False Then
   
    Me.menuRooms.Enabled = False
    Me.menuModifycheckout.Enabled = False
    Me.menuInquirecheckout.Enabled = False
    Me.yushoukuan.Enabled = False
    Me.jinzhangkuan.Enabled = False
    
   End If
    
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 cmdexit_Click()
    Me.Hide
End Sub


Private Sub menuAddbookroom1_Click()
gintBmode = 1
frmGroupBook1.Show

End Sub

Private Sub menuAddcheckout_Click()
    gintCmode = 1
    frmCheckout1.Show
    frmCheckout1.ZOrder 0
End Sub

Private Sub menuaddgryuding_Click()
gintBmode = 1
    frmgerenyuding1.Show
    frmgerenyuding1.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 menuaddttyuding_Click()
gintBmode = 1
frmtuantiyuding.Show
End Sub

Private Sub menuAdduser_Click()
gintAmode = 1
yonghu1.Show
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
                       frmRoom.Show
                intCount = frmRoom.msglist.Row
                txtSQL = "delete from rooms where roomNO='" & Trim(frmRoom.msglist.TextMatrix(intCount, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, msgtext)
                frmRoom.txtSQL = "select * from rooms"
             
                
             Unload frmRoom
                
                
            End If
        End If
     
   End If

 
    Delete = True
  
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 menuExit_Click()
Unload Me
End Sub

Private Sub menuInquirebookroom_Click()
    frmBookin2.Show
End Sub

Private Sub menuInquirebookroom2_Click()
frmGroupBook2.Show
End Sub

Private Sub menuInquirecheckout_Click()
    frmCheckout2.Show
End Sub

Private Sub menuInquiregryuding_Click()
frmgerenyuding2.Show
End Sub

Private Sub menuInquireroom_Click()
    frmRoom2.Show
End Sub

Private Sub menuInquirerooms_Click()
    frmRoomtype2.Show
    
End Sub

Private Sub menuInquirettyuding_Click()
frmGroupBook2.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,dymoney 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,dymoney from bookin where ammount = '0'"
        frmBookin.Show
    End If
End Sub

Private Sub menuModifybookroom1_Click()
Dim intCount As Integer
    If flagBedit Then
        If frmGroupBook.msglist.Rows > 1 Then
            gintBmode = 2
            intCount = frmGroupBook.msglist.Row
            frmGroupBook1.txtSQL = "select bookno,customname,customID,roomno,indate,discount,inmemo,prinID,dymoney,ydtime,tianshu from bookin where ammount = '0' and bookno ='" & Trim(frmGroupBook.msglist.TextMatrix(intCount, 1)) & "'"
            frmGroupBook1.Show
        Else
            Call menuAddbookroom1_Click
        End If
    Else
        frmGroupBook.txtSQL = "select bookno,customname,customID,roomno,indate,discount,inmemo,prinID,dymoney,ydtime,tianshu from bookin where ammount = '0'"
        frmGroupBook.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 bookno,customname,customID,roomno,indate,discount,inmemo,checkdate,ammount from bookin where bookno ='" & Trim(frmCheckout.msglist.TextMatrix(intCount, 1)) & "'"
            frmCheckout1.Show
        Else
            Call menuAddcheckout_Click
        End If
    Else
        frmCheckout.txtSQL = "select bookno,customname,customID,roomno,indate,discount,inmemo,checkdate,ammount from bookin where ammount <> '0'"
        frmCheckout.Show
    End If
End Sub

Private Sub menumodifygryuding_Click()
 Dim intCount As Integer
    If flagBedit Then
        If frmgerenyuding.msglist.Rows > 1 Then
            gintBmode = 2
            intCount = frmgerenyuding.msglist.Row
            frmgerenyuding1.txtSQL = "select bookno,customname,customID,roomno,indate,discount,inmemo,dymoney,ydtime,tianshu from bookin where ammount = '0' and bookno ='" & Trim(frmgerenyuding.msglist.TextMatrix(intCount, 1)) & "'"
            frmgerenyuding1.Show
        Else
            Call menuaddgryuding_Click
        End If
    Else
        frmgerenyuding.txtSQL = "select bookno,customname,customID,roomno,indate,discount,inmemo,dymoney,ydtime,tianshu from bookin where ammount = '0'"
        frmgerenyuding.Show
    End If
End Sub

Private Sub menuModifypwd_Click()
gintAmode = 1
yonghu1.Show
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 flagBedit Then
        If frmGroupBook.msglist.Rows > 1 Then
            gintBmode = 2
            intCount = frmGroupBook.msglist.Row
            frmRoomtype1.txtSQL = "select * from roomtype "
            frmRoomtype1.Show
        Else
            Call menuAddbookroom1_Click
        End If
    Else
        frmRoomtype.txtSQL = "select * from roomtype "
        frmRoomtype.Show
    End If
End Sub

Private Sub menumodifyttyuding_Click()
Dim intCount As Integer
    If flagBedit Then
        If frmGroupBook.msglist.Rows > 1 Then
            gintBmode = 2
            intCount = frmGroupBook.msglist.Row
            frmGroupBook1.txtSQL = "select bookno,customname,customID,roomno,indate,discount,inmemo,prinID,dymoney,ydtime,tianshu from bookin where ammount = '0' and bookno ='" & Trim(frmGroupBook.msglist.TextMatrix(intCount, 1)) & "'"
            frmGroupBook1.Show
        Else
            Call menuAddbookroom1_Click
        End If
    Else
        frmGroupBook.txtSQL = "select bookno,customname,customID,roomno,indate,discount,inmemo,prinID,dymoney,ydtime,tianshu from bookin where ammount = '0'"
        frmGroupBook.Show
    End If
End Sub

Private Sub yushoukuan_Click()
dymoney.Show
End Sub