Public Sub drawline(star As Long)
Dim jjj As Long
Dim zz As Long
Dim qq As Long
On Error Resume Next
Picture2.Cls
st = star
jjj = mycount - star
If jjj <= 600 Then
zz = jjj
Else: zz = 600
End If
If ssss = 1 Then
adoPrimaryRS2.Move star - 1, adBookmarkFirst
For qq = 0 To 12 Step 1
Label6(qq).Caption = ""
Next qq (以上这段程序什么意思)
Private Sub Form_Unload(Cancel As Integer)
If ssss = 1 Then
If adoPrimaryRS2.State = 1 Then (这句尤其state什么意思)
adoPrimaryRS2.Close
db2.Close
End If
End If
'Form1.sj = 0
Timer1.Interval = 0
End Sub
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim su As Long
If ssss = 1 Then
su = st + Round(X)
If su <= mycount Then
adoPrimaryRS2.Move su - 1, adBookmarkFirst(以上这三句尤其move这句什么意思)
Text2.Text = adoPrimaryRS2.Fields.Item(0).Value
Text3.Text = adoPrimaryRS2.Fields.Item(1).Value
Text4.Text = adoPrimaryRS2.Fields.Item(2).Value
Else: Form9.Label1.Caption = "没有记录!!"
Form9.Show
End If
End If
End Sub