VERSION 5.00
Begin VB.Form frmRoomInfoEdit 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Form1"
   ClientHeight    =   2595
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4860
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   173
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   324
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox txtRoomRate 
      Height          =   300
      Left            =   1245
      MaxLength       =   4
      TabIndex        =   1
      Text            =   "txtRoomRate"
      Top             =   2040
      Width           =   1800
   End
   Begin VB.ComboBox cboRoomType 
      Height          =   300
      Left            =   1245
      Style           =   2  'Dropdown List
      TabIndex        =   3
      TabStop         =   0   'False
      Top             =   1440
      Width           =   1800
   End
   Begin VB.ComboBox cboRoomGrade 
      Height          =   300
      Left            =   1245
      Style           =   2  'Dropdown List
      TabIndex        =   2
      TabStop         =   0   'False
      Top             =   840
      Width           =   1800
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   3390
      TabIndex        =   9
      TabStop         =   0   'False
      Top             =   1995
      Width           =   1215
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "確定(&O)"
      Height          =   375
      Left            =   3390
      TabIndex        =   8
      TabStop         =   0   'False
      Top             =   1485
      Width           =   1215
   End
   Begin VB.TextBox txtRoomNo 
      Height          =   300
      Left            =   1245
      MaxLength       =   3
      TabIndex        =   0
      Top             =   240
      Width           =   1800
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "客房價格："
      Height          =   180
      Left            =   285
      TabIndex        =   7
      Top             =   2085
      Width           =   900
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "客房編號："
      Height          =   180
      Left            =   285
      TabIndex        =   6
      Top             =   285
      Width           =   900
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "客房級別："
      Height          =   180
      Left            =   285
      TabIndex        =   5
      Top             =   885
      Width           =   900
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "客房類型："
      Height          =   180
      Left            =   285
      TabIndex        =   4
      Top             =   1485
      Width           =   900
   End
End
Attribute VB_Name = "frmRoomInfoEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
    '退出窗體
    Unload Me
End Sub

Private Sub cmdOk_Click()
    With frmMDI.adoRoom.Recordset
        If Not txtRoomNo.Locked Then '可修改狀態(tài)表示是添加記錄
            '控制編號不能為空
            If Trim(txtRoomNo.Text) = "" Then
                MsgBox "客房編號不能為空！", vbOKOnly + vbInformation, "提示"
                txtRoomNo.SetFocus
                Exit Sub
            End If
            '查看是否有相同編號
            .Find "RoomNo='" & txtRoomNo.Text & "'", , adSearchForward, 1
            If Not .EOF Then '有就提示，然后退出
                MsgBox "已經(jīng)有相同編號的客房！", vbOKOnly + vbInformation, "提示"
                txtRoomNo.SetFocus
                Exit Sub
            End If
            If Trim(txtRoomRate.Text) = "" Then
                MsgBox "客房價格不能為空！", vbOKOnly + vbInformation, "提示"
                txtRoomRate.SetFocus
                Exit Sub
            End If
            '沒有就添加記錄
            .AddNew
            !RoomNo = Trim(txtRoomNo.Text)
        End If
        '給字段賦值
        !RoomNo = Trim(txtRoomNo.Text)
        If cboRoomGrade.ListIndex = 0 Then
            !RoomGrade = True
        Else
            !RoomGrade = False
        End If
        If cboRoomType.ListIndex = 0 Then
            !RoomType = True
        Else
            !RoomType = False
        End If
        !RoomRate = Val(Trim(txtRoomRate.Text))
        !RoomStatus = False
        .Update
        Unload Me
    End With
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        SendKeys "{TAB}"
    End If
End Sub
Private Sub Form_Load()
    Me.Left = (frmMDI.Width - Me.Width) / 2
    Me.Top = (frmMDI.Height - Me.Height) / 4
    '添加項目
    With cboRoomGrade
        .AddItem "標準間"
        .AddItem "豪華間"
    End With
    With cboRoomType
        .AddItem "單人間"
        .AddItem "雙人間"
    End With
End Sub

Private Sub txtRoomNo_KeyPress(KeyAscii As Integer)
    If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
        KeyAscii = 0
    End If
End Sub
Private Sub txtRoomRate_KeyPress(KeyAscii As Integer)
    If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
        KeyAscii = 0
    End If
End Sub