智能排课系统vb代码(2)
时间:2025-04-05
时间:2025-04-05
和智能智能排课系统1、2、3是一套
If RS1.BOF Then
RS1.MoveFirst
Command1.Enabled = False
Command2.Enabled = False
End If
Command3.Enabled = True
Command4.Enabled = True
Call DispValue '显示当前记录的值
End Sub
Private Sub Command3_Click() '后移
RS1.MoveNext
If RS1.EOF Then
RS1.MoveLast
Command3.Enabled = False
Command4.Enabled = False
End If
Command1.Enabled = True
Command2.Enabled = True
Call DispValue '显示当前记录的值
End Sub
Private Sub Command4_Click() '移到末记录
RS1.MoveLast
Command3.Enabled = False
Command4.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Call DispValue '显示当前记录的值
End Sub
Private Sub Command5_Click() '删除记录
If (MsgBox("真的要删除该记录吗?", vbQuestion + vbYesNo, "删除提示") = vbYes) Then RS1.Delete '删除
RS1.MoveNext
If RS1.EOF Then '如果删除的是末记录
RS1.MoveLast
End If
End If
Call DispValue '显示当前记录的值
End Sub
Private Sub Command6_Click() '添加记录
bm = RS1.Bookmark '用书签记下当前记录位置
上一篇:现代高血压药物治疗策略与趋势