VB教案(4-1) - 图文

来源：用户分享时间：2025/6/1 16:09:25 本文由

loading 分享下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

Private Sub Cmddel_Click()'删除

On Error Resume NextData.Recordset.DeleteData.Recordset.MoveNextIf Data.Recordset.EOF Then Data.Recordset.MoveLast

End Sub

Private Sub Cmdedit_Click() '修改On Error Resume Next

If Cmdedit.Caption = \修改\Cmdedit.Caption = \确认\

Cmdnochange.Enabled = TrueData.Recordset.EditTxtNo.SetFocusElse

Cmdedit.Caption = \修改\Data.Recordset.UpdateEnd If End Sub

Private Sub Cmdnochange_Click() '放弃If Cmdadd.Caption = \确认\Data.UpdateControls

Cmdadd.Caption = \新增\

Cmdnochange.Enabled = FalseData.Recordset.MoveLastEnd If

If Cmdedit.Caption = \确认\Cmdedit.Caption = \修改\Data.UpdateControls

Cmdnochange.Enabled = FalseData.Recordset.MoveLastEnd If End Sub

Private Sub Cmdfind_Click() '查找

Dim strno As String

strno = InputBox(\请输入学号\输入窗\Data.Recordset.FindFirst \学号=\& strno & \

If Data.Recordset.NoMatch Then MsgBox \无此学号！“

End Sub

Private Sub Cmdcancel_Click() ’退出

Unload MeEnd Sub

Private Sub Img_Click() ’添加照片Img.Picture = Clipboard.GetDataEnd Sub

搜索更多关于： VB教案(4-1) - 图文的文档

VB教案(4-1) - 图文.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印