Text5.Text = ""
End Sub
Private Sub Command1_Click()
Command4.Enabled = True
On Error GoTo ero1
Data1.Recordset.AddNew
ero1:
'MsgBox "不能添加数据", , "提示"
End Sub
Private Sub Command2_Click()
Command4.Enabled = True
On Error GoTo ero2
Data1.Recordset.Delete
ero2:
End Sub
Private Sub Command3_Click()
Command4.Enabled = True
On Error GoTo ero3
Data1.Recordset.Edit
ero3:
'MsgBox "不能编辑数据", , "提示"
End Sub
Private Sub Command4_Click()
On Error GoTo ero
Data1.Refresh
ero:
End Sub
Private Sub cmd_boot_Click()
On Error GoTo ero
Data1.Recordset.MoveLast
cmd_n.Enabled = False
cmd_f.Enabled = True
ero:
End Sub
Private Sub Cmd_f_Click()
If Data1.Recordset.BOF <> True Then
cmd_n.Enabled = True
On Error GoTo ero
Data1.Recordset.MovePrevious
ero:
Else
cmd_f.Enabled = False
cmd_n.Enabled = True
Data1.Recordset.MoveFirst
End If
End Sub
Private Sub Cmd_n_Click()
If Data1.Recordset.EOF <> True Then
cmd_f.Enabled = True
On Error GoTo ero
Data1.Recordset.MoveNext
ero:
Else
cmd_n.Enabled = False
cmd_f.Enabled = True
Data1.Recordset.MoveLast
End If
End Sub
Private Sub Cmd_top_Click()
On Error GoTo ero
Data1.Recordset.MoveFirst
cmd_f.Enabled = False
cmd_n.Enabled = True
ero:
End Sub
Private Sub cyy_Click()
cjgl_gly_cyy.Show
Unload Me
End Sub
Private Sub english_Click()
cjgl_gly_english.Show
Unload Me
End Sub
Private Sub jk_Click()
cjgl_gly_jk.Show
Unload Me
End Sub
Private Sub mz_Click()
cjgl_gly_mz.Show
Unload Me
End Sub
Private Sub Photoshop_Click()
cjgl_gly_photoshop.Show
Unload Me
End Sub
班级管理系统VB(九)由毕业论文网（www.huoyuandh.com）会员上传。
