班级管理系统VB(一)毕业论文网(4)

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

Else
    cmd_n.Enabled = False
    cmd_f.Enabled = True
    On Error GoTo ero
    Data1.Recordset.MoveLast
   
 
End If
ero:
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 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 bfgly_Click() （转载自http://zw.nseac.coM科教作文网）
If isadtr = True Then
    If mu_gly = False Then
        MSFlexGrid1.Visible = False
        Command1.Visible = True
        Command2.Visible = True
        Command3.Visible = True
        Command4.Visible = True
        cmd_n.Visible = True
        cmd_f.Visible = True
        cmd_first.Visible = True
        cmd_last.Visible = True
        mu_gly = (Not mu_gly)
        bfgly.Caption = "收入"
Else
      MSFlexGrid1.Visible = True
        Command1.Visible = False
        Command2.Visible = False
        Command3.Visible = False
        Command4.Visible = False
        cmd_n.Visible = False
        cmd_f.Visible = False
        cmd_first.Visible = False
        cmd_last.Visible = False
        mu_gly = (Not mu_gly)
        bfgly.Caption = "班费管理员"
      &n