Private Sub Command1_Click()
Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=localhost;Initial Catalog=Music;User Id=sa;Password=1;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from Music_Music", CN, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Rs
End Sub
Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Me.PopupMenu hfhfg
End If
End Sub
Private Sub DataGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
GUWheel1.WheelConnect DataGrid1.hWnd
End Sub
Private Sub GUWheel1_WheelScroll(ByVal ConnectedTo As Long, ByVal Direction As Long, ByVal Shift As GUOcx.KeyDown)
If Shift <> 4 Then
If Direction = 1 Then
DataGrid1.SetFocus
SendKeys "{Up}"
Else
DataGrid1.SetFocus
SendKeys "{Down}"
End If
Else
If Direction = 1 Then
DataGrid1.SetFocus
SendKeys "{PgUp}"
Else
DataGrid1.SetFocus
SendKeys "{PgDn}"
End If
End If
End Sub