发布时间 : 2024/4/28 16:35:55 星期日 文章VB教案(4-1) - 图文更新完毕开始阅读5c8c301558fb770bf78a55f1

?

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

?

?