班级管理系统VB(九)

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

首页 上一页 6 7 8 9 下一页 尾页 9/9/9