frm客房标准管理.frm

可以完成宾馆的日常管理功能,例如订房,登记,入住,结帐,和打印报表等

               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            ScrollBars      =   3
            BeginProperty Column00 
            EndProperty
            BeginProperty Column01 
            EndProperty
         EndProperty
      End
   End
End
Attribute VB_Name = "frm客房标准管理"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rs1 = New ADODB.Recordset
cn.Open frm登录.Adodc1.ConnectionString
rs.Open "select * from 客房标准信息表", cn, 1, 3
If Text1 = "" Then
   MsgBox "标准编号不能为空，请重新输入！！！"
   Text1.SetFocus
   Exit Sub
   Else
     While Not rs.EOF
   If rs.Fields(0) = Text1 Then
   MsgBox "该编号已存在，请重新输入编号！！！"
   Text1.SetFocus
   Text1 = ""
   Exit Sub
   Else
   rs.MoveNext
   End If
   Wend
   
  End If
     
If Text2 = "" Then
   MsgBox "标准名称不能为空，请输入标准名称！！！"
   Text2.SetFocus
   Exit Sub
   Else
   rs1.Open "select * from 客房标准信息表", cn, 1, 3
     While Not rs1.EOF
   If rs1.Fields(1) = Text2 Then
   MsgBox "该名称已存在，请重新输入新的名称！！！"
   Text2.SetFocus
   Text2 = ""
   Exit Sub
   Else
   rs1.MoveNext
   End If
   Wend
  End If

If Combo1.Text = "" Then
   MsgBox "床位数量不能为空，请重新选择！！！"
   Combo1.SetFocus
ElseIf Text3.Text = "" Then
   MsgBox "房间单价不能为空，请重新输入！！！"
   Text3.SetFocus
ElseIf Combo2.Text = "" Then
   MsgBox "是否有空调不能为空，请重新选择！！！"
   Combo2.SetFocus
ElseIf Combo3.Text = "" Then
   MsgBox "是否有电话不能为空，请重新选择！！！"
   Combo3.SetFocus
ElseIf Combo4.Text = "" Then
   MsgBox "是否有电视不能为空，请重新选择！！！"
   Combo4.SetFocus
ElseIf Combo5.Text = "" Then
   MsgBox "是否有卫生间不能为空，请重新选择！！！"
   Combo5.SetFocus
Else
    rs.AddNew
    rs.Fields(0) = Text1
    rs.Fields(1) = Text2
    rs.Fields(2) = Combo1.Text
    rs.Fields(3) = Text3
    rs.Fields(4) = Combo2.Text
    rs.Fields(5) = Combo3.Text
    rs.Fields(6) = Combo4.Text
    rs.Fields(7) = Combo5.Text
    rs.Update
    MsgBox "添加客房标准成功！！！"
    Text1 = ""
    Text2 = ""
    Text3 = ""
    
End If

Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

Private Sub Command2_Click()
Dim i As Integer
i = MsgBox("是否确认退出？", vbYesNo, "提示")
If i = vbYes Then
Unload Me
End If
End Sub

Private Sub Command3_Click()
Dim i As Integer
i = MsgBox("是否确认退出？", vbYesNo, "提示")
If i = vbYes Then
Unload Me
End If
End Sub

Private Sub Command4_Click()
If Text4 = "" Then
    MsgBox "请先选择要修改的房间标准信息！！！"
Else
    Text5.Enabled = True
    Combo6.Enabled = True
    Text6.Enabled = True
    Combo7.Enabled = True
    Combo8.Enabled = True
    Combo9.Enabled = True
    Combo10.Enabled = True
    Command4.Visible = False
    Command5.Visible = True
End If
End Sub

Private Sub Command5_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
cn.Open frm登录.Adodc1.ConnectionString

If Text5 = "" Then
   MsgBox "标准名称不能为空，请输入标准名称！！！"
   Text5.SetFocus
   Exit Sub
Else
   rs.Open "select * from 客房标准信息表 where 标准编号 ='" & Text4.Text & "'", cn, 1, 3
       rs1.Open "select * from 客房标准信息表 where 标准名称 ='" & Text5.Text & "'", cn, 1, 3
          If rs1.EOF Then
                rs.Fields(1) = Text5.Text
                rs.Update
          Else
              If Text5.Text = rs.Fields(1) Then
                   rs.Fields(1) = Text5.Text
                   rs.Update
              Else
                       MsgBox "该名称已存在，请重新输入新的名称！！！"
                       Text5.Text = ""
                       Text5.SetFocus
                       Exit Sub
              End If
          End If
End If
If Text6.Text = "" Then
   MsgBox "房间单价不能为空，请重新输入客房单价！！！"
   Text6.SetFocus
   Exit Sub
Else
   Dim i As Integer
     i = MsgBox("真的要修改此标准吗？", vbYesNo, "提示")
     If i = vbYes Then
        rs.Fields(1) = Text5.Text
        rs.Fields(2) = Combo6.Text
        rs.Fields(3) = Text6.Text
        rs.Fields(4) = Combo7.Text
        rs.Fields(5) = Combo8.Text
        rs.Fields(6) = Combo9.Text
        rs.Fields(7) = Combo10.Text
        rs.Update
        rs.Close
        MsgBox "客房标准修改成功！！！", vbOKOnly + vbExclamation, "修改成功"
        rs2.Open "select * from 客房信息表 where 客房标准 ='" & Text5.Text & "'", cn, 1, 3
        While Not rs2.EOF
        rs2.Fields(1) = Text5.Text
        rs2.Fields(4) = Combo6.Text
        rs2.Fields(5) = Text6.Text
        rs2.Fields(6) = Combo7.Text
        rs2.Fields(7) = Combo8.Text
        rs2.Fields(8) = Combo9.Text
        rs2.Fields(9) = Combo10.Text
        rs2.Update
        rs2.MoveNext
        Wend
        
        Text4.Text = ""
        Text5.Text = ""
        Combo6.Text = ""
        Text6.Text = ""
        Combo7.Text = ""
        Combo8.Text = ""
        Combo9.Text = ""
        Combo10.Text = ""
        Text5.Enabled = False
        Combo6.Enabled = False
        Text6.Enabled = False
        Combo7.Enabled = False
        Combo8.Enabled = False
        Combo9.Enabled = False
        Combo10.Enabled = False
        Command5.Visible = False
        Command4.Visible = True
rs.Open "select * from 客房标准信息表", cn, 1, 3
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End If
End If
End Sub

Private Sub Command6_Click()
Dim i As Integer
i = MsgBox("是否确认退出？", vbYesNo, "提示")
If i = vbYes Then
Unload Me
End If
End Sub

Private Sub Command7_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rs1 = New ADODB.Recordset
cn.Open frm登录.Adodc1.ConnectionString
If Text7.Text = "" Then
    MsgBox "请选择客房标准编号！！！"
Else
    rs.Open "select * from 客房标准信息表 where 标准编号 ='" & Text7.Text & "'", cn, 1, 3
        rs1.Open "select * from 客房信息表 where 客房标准 ='" & Text8.Text & "'", cn, 1, 3
        If Not rs1.EOF Then
            MsgBox "该标准已被使用，暂时不能删除！！！"
            Text7.Text = ""
            Text8.Text = ""
            Combo11.Text = ""
            Text9.Text = ""
            Combo12.Text = ""
            Combo13.Text = ""
            Combo14.Text = ""
            Combo15.Text = ""
        Else
            Dim i As Integer
            i = MsgBox("真的要删除此标准吗？", vbYesNo, "提示")
            If i = vbYes Then
                rs.Delete
                rs.Close
                MsgBox "客房标准删除成功！！！", vbOKOnly + vbExclamation, "删除成功"
                Text7.Text = ""
                Text8.Text = ""
                Combo11.Text = ""
                Text9.Text = ""
                Combo12.Text = ""
                Combo13.Text = ""
                Combo14.Text = ""
                Combo15.Text = ""
                rs.Open "select * from 客房标准信息表", cn, 1, 3
                Set DataGrid1.DataSource = rs
                DataGrid1.Refresh
            End If
        End If
End If
End Sub

Private Sub DataGrid1_Click()
Text4.Text = DataGrid1.Columns(0)
Text5.Text = DataGrid1.Columns(1)
Combo6.Text = DataGrid1.Columns(2)
Text6.Text = DataGrid1.Columns(3)
Combo7.Text = DataGrid1.Columns(4)
Combo8.Text = DataGrid1.Columns(5)
Combo9.Text = DataGrid1.Columns(6)
Combo10.Text = DataGrid1.Columns(7)
Text7.Text = DataGrid1.Columns(0)
Text8.Text = DataGrid1.Columns(1)
Combo11.Text = DataGrid1.Columns(2)
Text9.Text = DataGrid1.Columns(3)
Combo12.Text = DataGrid1.Columns(4)
Combo13.Text = DataGrid1.Columns(5)
Combo14.Text = DataGrid1.Columns(6)
Combo15.Text = DataGrid1.Columns(7)

End Sub

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
DataGrid1_Click
End Sub

Private Sub Form_Load()
Text4.Enabled = False
Text5.Enabled = False
Combo6.Enabled = False
Text6.Enabled = False
Combo7.Enabled = False
Combo8.Enabled = False
Combo9.Enabled = False
Combo10.Enabled = False
Command5.Visible = False
Text7.Enabled = False
Text8.Enabled = False
Combo11.Enabled = False
Text9.Enabled = False
Combo12.Enabled = False
Combo13.Enabled = False
Combo14.Enabled = False
Combo15.Enabled = False
Dim i As Integer
For i = 1 To 5
Combo1.AddItem (i)
Combo6.AddItem (i)
Combo11.AddItem (i)
Next i
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
If SSTab1.Tab = 1 Or SSTab1.Tab = 2 Then
  Text7.Text = ""
    Text8.Text = ""
    Combo11.Text = ""
    Text9.Text = ""
    Combo12.Text = ""
    Combo13.Text = ""
    Combo14.Text = ""
    Combo15.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Combo6.Text = ""
    Text6.Text = ""
    Combo7.Text = ""
    Combo8.Text = ""
    Combo9.Text = ""
    Combo10.Text = ""
 End If
End Sub