宾馆管理信息系统论文

           frmRoom.Show
         End If
       ElseIf gintRmode=2 Then 
            Unload Me
            If flagRedit Then
               Unload frmRoom
            End If 
            frmRoom.txtSQL=”select*from rooms”
            frmRoom.Show
       End If 
End Sub
•修改客房信息
Private Sub menuModifyroom_Click()‘选择修改房间信息，触menuModifyroom的Click事件,程序判断为修改状态后，首先删除原有记录，然后把新内容加入到数据库中
   Dim intCount As Integer
   If flagRedit Then ‘判断记录窗体是否打开
      If frmRoom.msgList.Rows>1 Then‘判断客房信息列表内容是否为空
         gintRmode=2‘设置为修改状态
　　　　 intCount=frmRoom.msgList.Row‘纪录当前记录位置
frmRoom1.txtSQL=”select*from rooms where roomNO=’”&Trim(frmRoom.msgList.TextMatrix(intCount,1))&”’”
frmRoom1.Show
      Else
  

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