bsp;
End If
Else
MsgBox "你不是管理员，你没有这个权限", , "提示"
End If
End Sub
Private Sub Form_Load()
Data1.RecordSource = "select * from bfgl where money>0 "
End Sub
2.余额查询界面
代码分析:
Private Sub Form_Load()
Data1.RecordSource = "select sum(money) as 余额 from bfgl "
End Sub
3.班级成绩管理
班级成绩管理代码:
Private Sub Command2_Click()
End Sub
Private Sub Command1_Click()
End Sub
Private Sub Cmd_ls_Click()
MSFlexGrid1.DataSource = Data1
MSFlexGrid1.Refresh
End Sub
Private Sub jk_avg_Click()
On Error Resume Next
'Data1.Recordset.AddNew
Data1.RecordSource = "select int(20*avg(ps))/20 as 平时 ,int(20*avg(qz))/20 as 期中 ,int(20*avg(qm))/20 as 期未 from jk "
Data1.Recordset.Update
Data1.Refresh
MSFlexGrid1.Refresh
End Sub
Private Sub jk_Click()
On Error GoTo ero
Data1.RecordSource = jk
Data1.Refresh
ero:
jgl_cyy.Visible = False
jgl_english.Visible = False
jgl_jk.Visible = False
jgl_mz.Visible = False
jgl_photoshop.Visible = False
cyy_avg.Visible = False
english_avg.Visible = False
jk_avg.Visible = False
mz_avg.Visible = False
photoshop_avg.Visible = False
jgl_jk.Visible = True
jk_avg.Visible = True
Label1.Caption = jk.Caption
End Sub
Private Sub mz_avg_Click()
On Error Resume Next
'Data1.Recordset.AddNew
Data1.RecordSource = "select int(20*avg(ps))/20 as 平时 ,int(20*avg(qz))/20 as 期中 ,int(20*avg(qm))/20 as 期未 from mz "
Data1.Recordset.Update
Data1.Refresh
MSFlexGrid1.Refresh
End Sub
Private Sub mz_Click()
On Error GoTo ero
Data1.RecordSource = mz
Data1.Refresh
ero:
jgl_cyy.Visible = False
jgl_english.Visible = False
jgl_jk.Visible = False
jgl_mz.Visible = False
jgl_photoshop.Visible = False
Private Sub english_avg_Click()
On Error Resume Next
'Data1.Recordset.AddNew
Data1.RecordSource = "select int(20*avg(ps))/20 as 平时 ,int(20*avg(qz))/20 as 期中 ,int(20*avg(qm))/20 as 期未 from english "
Data1.Recordset.Update
Data1.Refresh
MSFlexGrid1.Refresh
End Sub
Private Sub photoshop_avg_Click()
On Error Resume Next
'Data1.Recordset.AddNew
Data1.RecordSource = "select int(20*avg(ps))/20 as 平时 ,int(20*avg(qz))/20 as 期中 ,int(20*avg(qm))/20 as 期未 from photoshop "
Data1.Recordset.Update
Data1.Refresh
MSFlexGrid1.Refresh
End Sub
Private Sub Photoshop_Click()
On Error GoTo ero
Data1.RecordSource = photoshop
Data1.Refresh
ero:
jgl_cyy.Visible = False
jgl_english.Visible = False
jgl_jk.Visible = False
jgl_mz.Visible = False
jgl_photoshop.Visible = False
