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