VB452 班级管理系统论文access

1．2  系统简介
本系统主要服务与班主任的日常班级学生信息管理.主要包括如下几大主要功能:
一:学生资料(基本资料,通信资料,资料管理)
二:成绩管理(班级成绩,个人成绩,成绩管理)
三:量化管理(得分情况,得分原因,考核管理,得分情况)
四:组织机构(团委,班委会)
五:班级事件(班级荣誉,活动情况)
六:班费管理(班费收入.班费支出,剩余班费)
七:管理员(添加管理员,修改密码,删除管理员)
八:帮助(关于我们,每日一看) think58.com

[来源：http://think58.com]

第二章 系统的分析
2．1 系统开发的目标和思想
本系统主要服务于班主任以及班级管理人员方便管理班级事物的软件系统,在完成上述任务前提下力求界面人性化,数据处理的可靠以及程序的健壮性的性能. think58好，好think58 [版权所有：http://think58.com]

2．2 系统的可行性分析
技术上:本系统采用visual basic 6.0与微软的access作为数据库,技术上开发难度一般.
经济上:本系统服务于班主任以及班级管理人员,提高了工作人员办事效率,节省了开支.所以具有经济上的可行性.
社会上:本系统同时也方便了广大学生以及学校管理者者,服务.所以具有社会可行性.
On Error GoTo ero1
Data1.Recordset.AddNew
ero1:
'MsgBox "不能添加数据", , "提示"
End Sub

think58好，好think58

Private Sub Command2_Click()
Command4.Enabled = True 本文来自think58

On Error GoTo ero2
Data1.Recordset.Delete
ero2: think58好，好think58 [资料来源：http://think58.com]

End Sub think58.com [资料来源：www.THINK58.com]

Private Sub Command3_Click()
Command4.Enabled = True

[来源：http://www.think58.com]

On Error GoTo ero3
Data1.Recordset.Edit
ero3:
'MsgBox "不能编辑数据", , "提示"
End Sub think58 [版权所有：http://think58.com]

Private Sub Command4_Click()
On Error GoTo ero
Data1.Refresh
ero:

本文来自think58

[来源：http://www.think58.com]

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 [资料来源：http://THINK58.com]
        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 = "班费管理员"
       
    End If
Else
MsgBox "你不是管理员，你没有这个权限", , "提示"
End If
End Sub 内容来自think58 [版权所有：http://think58.com]

Private Sub Form_Load()
Data1.RecordSource = "select * from bfgl where money>0 " copyright think58

[资料来源：THINK58.com]

End Sub think58 [来源：http://think58.com]