智能排课系统vb代码(2)

时间: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 '用书签记下当前记录位置

智能排课系统vb代码(2).doc 将本文的Word文档下载到电脑

精彩图片

热门精选

大家正在看

× 游客快捷下载通道(下载后可以自由复制和排版)

限时特价:7 元/份 原价:20元

支付方式:

开通VIP包月会员 特价:29元/月

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信:fanwen365 QQ:370150219