宾馆管理信息系统论文

   For i=1 To mrc.Fields.Count
           Select Case mrc.Fields(i-1).Type
                  Case adDB2005-7-9 1:01:58
                      .TextMatrix(.Rows-1,i)=Format(mrc.Fields(i-1)&””,”yyyy-mm-dd”)
                  Case Else
                      .TextMatrix(.Rows-1,i)=mrc.Fields(i-1)&””
           End Select
       Next i 
       Mrc.MoveNext
   Loop
   End With
   mrc.Close
End Sub
Private Sub msgList_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single)‘选择记录，然后单击鼠标右键，触发MouseUp事件
   If Button=2 And Shift=0 Then
     PopupMenu fMainFrom.menuRoomtype
   End If
End Sub
Private Sub menuModifyroomtype_Click()
   Dim intCount As I

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