评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

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

2013-05-11 01:01 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() （转载自http://zw.NSEAC.com科教作文网）
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

cyy_avg.Visible = False
english_avg.Visible = False
jk_avg.Visible = False
mz_avg.Visible = False
photoshop_avg.Visible = False

jgl_mz.Visible = True
mz_avg.Visible = True

Label1.Caption = mz.Caption
End Sub

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

cyy_avg.Visible = False
english_avg.Visible = False
jk_avg.Visible = False
mz_avg.Visible = False
photoshop_avg.Visible = False

photoshop_avg.Visible = True
jgl_photoshop.Visible = True
Label1.Caption = photoshop.Caption
End Sub

 

 

 

 

 

5.活动记录界面设计

代码分析:
Dim b As Integer
Dim o As Integer
Dim y As Integer
Private Sub Command1_Click()

（科教作文网http://zw.ΝsΕac.cOM编辑）

Dim a As String
Dim q As Integer
If isadtr = True Then
    &nb