宾馆管理信息系统论文

sp;       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 From_Load()‘载入窗体时，自动添加客房信息种类
&

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