宾馆管理信息系统论文

p;       End Select
                  sMeg=sMeg&”请输入数字!”
MsgBox sMeg,vbOKOnly+vbExclamation,”警告”
txtItem(intCount).SeFocus
Exit Sub
           End If
       Next intCount
       If gintTmode=1 Then ‘判断是否有相同ID记录
            txtSQL=”select*from roomtype where typeid_ =’”&Trim(txtItem(0))&”’”
            Set mrc=ExecuteSQL(txtSQL,MsgText)
            If mrc.EOF=False Then
               MsgBox “已经存在此标准编号的记录!”,vbOKOnly+vbExclamation,”警告”
            txtItem(0).SetFocus
            Exit Sub
       End If 
       Mrc.Close
    End If
    txtSQL=”select * from roomtype where typeid<>’”&Trim(txtItem(0))&”’and typename=’”&Trim(txtItem(1))&”’” 

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >>