VB班级管理系统vb+access

摘  要…………………………………………………………………………1
Abstract………………………………………………………………………2
第一章  引言…………………………………………………………………4
1．1  课题背景……………………………………………………………………4
1．2  系统简介……………………………………………………………………5
第二章 系统的分析……………………………………………………………6
2．1  系统开发的目标和思想……………………………………………………6
2．2  系统的可行性分析…………………………………………………………8
2. 3    系统开发工具简介
第三章  系统的设计……………………………………………………………18
3．1  系统的功能结构设计………………………………………………………18
3．2  系统的数据库设计
3．3  界面设计与代码设计……………………………………………………………………23
…………………………………………………………24
结束语………………………………………………………………………………46
致谢…………………………………………………………………………………47

参考文献………………………………………………… 内容来自think58

[资料来源：THINK58.com]

摘  要 think58好，好think58 [资料来源：www.THINK58.com]

 班级管理系统用计算机管理班级信息的一种计算机应用技术的创新,在计算机还未普及之前班级管理都是由教师以及班干部来承担的方式来操作的.现在一般的学校都采用了信息化管理的方式即采用计算机作为工具的实用的计算机班级信息管理程序来帮助班主任进行更有效的班级管理。班级信息管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。
    经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。
关键字:班级管理,MIS,visual basic ,数据库 [版权所有：http://think58.com]

第一章 引言 本文来自think58 [来源：http://think58.com]

1．1 课题背景

本文来自think58 [资料来源：www.THINK58.com]

[资料来源：http://www.THINK58.com]

班级管理系统用计算机管理班级信息的一种计算机应用技术的创新,在计算机还未普及之前班级管理都是由教师以及班干部来承担的方式来操作的.现在一般的学校都采用了信息化管理的方式即采用计算机作为工具的实用的计算机班级信息管理程序来帮助班主任进行更有效的班级管理。班级信息管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。

[资料来源：www.THINK58.com]

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

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

[资料来源：www.THINK58.com]

2．2 系统的可行性分析
技术上:本系统采用visual basic 6.0与微软的access作为数据库,技术上开发难度一般.
经济上:本系统服务于班主任以及班级管理人员,提高了工作人员办事效率,节省了开支.所以具有经济上的可行性.
社会上:本系统同时也方便了广大学生以及学校管理者者,服务.所以具有社会可行性. 本文来自think58 [来源：http://think58.com]

2. 3    系统开发工具简介

think58.com [资料来源：THINK58.com]

[资料来源：http://www.THINK58.com]

Visual Basic 6.0是Micrsoft公司出品的开发工具，Visual Basic是一种可视化的，面向对象的Windows开发语言，它具有易用，通用和开发效率高的特点。随着微软对它不断地改进以及计算机本身性能的提高，使得Visual Basic越来越适合一般的应用程序开发。正如Bill Gate所说，世界上绝大多数的Windows应用程序是用Visual Basic编写的。在众多的开发工具中，我们为什么要选择Visual Basic6.0呢？因为VB具有众多其它开发工具所没有的优点！具体介绍如下：
    开发的高效
 语言的高效
 编译的高效
 执行的高效
 维护的高效
基于以上理由，我们毫不忧郁的选择了VB6.0做为我们的开发工具！！ think58好，好think58

[资料来源：http://THINK58.com]

1.1.1 主要的控件及其基本属性，事件简介
 命令按钮类的控件：
1) Caption属性：用来显示在控件上的标题。
2) Enable属性：控制控件的激活状态灰色或可用。
3) Appearance属性：值为1时,则以3D效果显示该控件,0则不然。
4) Backcolor属性：用来改变在按钮上显示图像的背景色。
5) Cancel属性：该属性决定按钮是否为一个”取消”按钮。
6) Default属性:决定哪一个命令按钮控件是窗体的缺省命令按钮.
7) Font属性:控制各种文字字体类型.
8) Left,top,height,width属性:设定控件的位置与大小.
9) Style,picture属性:决定按钮的显示方式是否为图像形式出现.
10) Visible属性:确定控件运行时是否为可见.
11) Index属性:当控件为一控件数组时,此属性值为该控件在数组的下标值.
12) DownPicture属性：设置/返回一个对图片的引用，该图片在按钮被单击处于压下状态时显示。
13) DisabledPicture属性：设置/返回一个对图片的引用，该图片在控件无效时显示在控件中。
14) MaskColor属性：设置/返回一个在按钮的图片中作为“掩码“的的颜色
15) Picture属性：设置返回commandButton控件中要显示的图片。

think58.com

 命令按钮类的事件： 内容来自think58

[版权所有：http://think58.com]

第三章 系统的设计
3.1系统的功能结构设计
  [资料来源：http://THINK58.com]

3．1 系统的功能结构设计
1.班费收入/支出表 [版权所有：http://think58.com]

3．2 系统的数据库设计

本文来自think58 [资料来源：http://think58.com]

[资料来源：THINK58.com]

1.
 
2.学生信息表:
 

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

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

3.用户密码表:
  内容来自think58 [版权所有：http://think58.com]

4.课程信息表:
  内容来自think58

[资料来源：http://www.THINK58.com]

3．3 界面设计与代码设计
1.收入界面
 
代码分析:
Private Sub cmd_boot_Click()
    On Error GoTo ero
    Data1.Recordset.MoveLast
    cmd_n.Enabled = False
    cmd_f.Enabled = True
ero:
End Sub think58好，好think58 [资料来源：www.THINK58.com]

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
    本文来自think58

[资料来源：THINK58.com]

End If
End Sub

本文来自think58 [资料来源：http://think58.com]

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

Private Sub Cmd_n_Click()
If Data1.Recordset.EOF <> True Then
    cmd_f.Enabled = True
    On Error GoTo ero
    Data1.Recordset.MoveNext

内容来自think58

[资料来源：http://www.THINK58.com]

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

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

Private Sub Command1_Click()
Command4.Enabled = True think58

[资料来源：http://THINK58.com]

On Error GoTo ero1
Data1.Recordset.AddNew
ero1:
'MsgBox "不能添加数据", , "提示"
End Sub think58好，好think58 [来源：http://www.think58.com]

Private Sub Command2_Click()
Command4.Enabled = True think58好，好think58 [资料来源：THINK58.com]

On Error GoTo ero2
Data1.Recordset.Delete
ero2: [资料来源：www.THINK58.com]

End Sub

[资料来源：http://www.THINK58.com]

Private Sub Command3_Click()
Command4.Enabled = True think58好，好think58

[版权所有：http://think58.com]

On Error GoTo ero3
Data1.Recordset.Edit
ero3:
'MsgBox "不能编辑数据", , "提示"
End Sub think58 [资料来源：www.THINK58.com]

Private Sub Command4_Click()
On Error GoTo ero
Data1.Refresh
ero: 内容来自think58 [版权所有：http://think58.com]

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

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

think58好，好think58 [来源：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 think58 [资料来源：www.THINK58.com]

End Sub

本文来自think58 [资料来源：THINK58.com]

Private Sub Form_Load()
Data1.RecordSource = "select * from bfgl where money>0 " think58 [资料来源：http://www.THINK58.com]

End Sub 内容来自think58 [来源：http://www.think58.com]

2.余额查询界面
 
代码分析:
Private Sub Form_Load()
Data1.RecordSource = "select sum(money) as 余额 from bfgl " think58.com

End Sub 本文来自think58 [版权所有：http://think58.com]

3.班级成绩管理

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

 
班级成绩管理代码:
Private Sub Command2_Click() copyright think58

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

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

Private Sub Command1_Click()

本文来自think58

[资料来源：www.THINK58.com]

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

Private Sub Cmd_ls_Click()
MSFlexGrid1.DataSource = Data1
MSFlexGrid1.Refresh
End Sub

think58

[版权所有：http://think58.com]

Private Sub cyy_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 cyy" 内容来自think58 [资料来源：http://think58.com]

Data1.Recordset.Update
Data1.Refresh
MSFlexGrid1.Refresh
End Sub think58好，好think58 [资料来源：http://THINK58.com]

参 考 文 献

think58 [资料来源：THINK58.com]

[资料来源：www.THINK58.com]

1陈明 . 软件工程学教程 .科技出版社，2002
2 萨师煊，王珊 . 数据库系统概论 . 第三版 . 高等教育出版社，2000
3 飞思科技产品研发中心 . visual basic 6.0数据库应用开发 .电子工业出版社，2003
4 飞思科技产品研发中心 . visual basic 6.0开发者手册 . 电子工业出版社, 2002

think58