班级管理系统VB_论文天下网

p; 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

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()
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

首页上一页 1 2 3 4 5 6 7 下一页尾页 4/9/9

班级管理系统VB(四)