宾馆管理信息系统论文

         End If
          mblChange=False
End Sub
Private Sub cmdSave_Click()‘单击保存按钮触发事件
    Dim intCount As Integer
    Dim sMeg As String 
    Dim mrcc As ADODB.Recordset
    Dim Msgtext As String
    For intCount=0 To 3
       If Trim(TxtItem(intCount)&””)=”” Then
          Select Case intCount
                 Case 0
                   sMeg=“客房编号”
                 Case 1
                   sMeg=“客房位置” 
           End Select
           sMeg=sMeg&“不能为空！”
           MsgBox sMeg,vbOKOnly+vbExclamation,“警告”
           txtItem(in

 << 上一页  [21] [22] [23] [24] [25] [26] [27] [28] [29] [30]  ... 下一页  >>