学生档案管理系统的设计与实现

学生档案管理系统项目应用开发

数据库应用程序的开发始终算得上是VB编程中的难点，这是因为你不仅要熟悉VB中关于数据库编程方面的知识（当然这是十分简单的）还要了解数据库的知识。本系统主要用来实现学生基本情况和学生成绩的录入、修改、查询、删除和打印等功能。通过本系统，可以了解如何使用Visual Basic来开发一个比较完整的数据库应用程序。用到的数据库控件有DATA、ADO，添加的一个数据环境。

一、系统结构图

本系统主要包括学生基本情况更新，学生基本情况维护和学生成绩维护3个大的模块，各个模块的具体功能如图所示：

二、数据库的建立

本系统用到的数据库是用Visual Basic的外加工具Visual Data Manager(可视化数据管理器)创建，名为student.mdb（是access数据库），其中用到两个表，分别为：基本情况表和学生成绩表。两表的结构如下所示：

表1-1

表1-2

制作过程如下：

1、 选择VB 外接程序菜单中的可视化数据管理器，进入可视化数据管理器；

2、 在可视化数据管理器中选择文件菜单中的新建选项建立数据库文件，然后从数据库厂家列表中

选择要创建的数据库类型（本例选择Microsoft Access 中的Version MDB 2.0版本）；

3、 在选择要创建的Microsoft Access 数据库对话框中，输入数据库名student ，按确定按钮进入数

据库窗口；

4、 在数据库窗口中单击鼠标右键并从弹出式菜单中选择新建表来创建student.mdb 数据库中的两

个表（基本情况表和学生成绩表）。

三、各个窗体的设计与实现 （一） 主窗体的设计与实现

首先在VB 中新建一个标准工程并起名为成绩管理，在标准工程中添加一个MDI 窗体并起名为Frmmain 。主窗体的设计界面如图1-2所示：

图1-2 主窗体的设计界面

在主窗体中主要应用了菜单、工具栏和状态栏。下面分别介绍这些组成部分的功能。 1、 菜单的设计

菜单是Windows 应用程序中的重要组成部分，这里将对每个菜单项及其子菜单的功能进行简单介绍，如表1-1所示。

字段名 类型 宽度

学号 Text 6

姓名 Test 10

性别 Text 2

班级 Text 20

出生年月 Data/Time 8

政治面貌 Text 4

家庭住址 Text 20

电话 Text 8

E_mail Text 20

照片 Binary 0

字段名 类型 宽度

学号 Text 6

课程 Test 8 成绩 Long 4 学期 Integer

表1-3 应用程序的菜单项列表

MID应用程序中，父窗体可以有自己的菜单，子窗体也可以有属于自己的菜单。这些菜单的创建都可以利用Menu Editor来进行创建。

2、Imagelist控件

程序包括一个Imagelist控件，它用来为工具栏提供图片。在程序的基本控件中没有此项控件，添加此控件的方法是在基本控件的空白处点击鼠标右键，在出现的快捷菜单中选择部件，之后在部件对话框中的部件选项卡中选择Microsoft Windows common controls 6.0控件，确定即可。在窗体中添加一个Imagelist控件，名为默认的Imagelist1，再为此控件添加几个图标。

3、工具栏设计

工具栏提供了便捷的操作方式来完成应用程序常用的操作。在现在的Windows应用程序中，工具栏已经成为非常主要的组成部分。本例工具栏的设计步骤为：首先在窗体中添加一个toolbar 控件，之后为此控件添加6个按钮，并把每个按钮分别和Imagelist1控件的图片绑定。

4、状态栏设计

在主窗体上添加一个Statusbar控件，用鼠标右键点击此控件，在属性页的对话框中为窗体添加6个窗格，分别放置窗口信息和显示当前日期和时间。

5、主窗体界面的代码实现

菜单的Click事件代码：

Private Sub CEDIT_Click()

Unload Frmjbgx

Unload frmcj

Unload FrmHELP

Unload Frmwelcome

Unload frmabout

Load Frmjbwh

Frmjbwh.Show

End Sub

Private Sub cjwh_Click()

Unload Frmjbgx

Unload Frmjbwh

Unload FrmHELP

Unload Frmwelcome

Unload frmabout

Load frmcj

frmcj.Show

End Sub

Private Sub EDIT_Click()

Unload Frmjbwh

Unload frmcj

Unload FrmHELP

Unload Frmwelcome

Unload frmabout

Load Frmjbgx

Frmjbgx.Show

End Sub

Private Sub Absystem_Click() Unload Frmjbgx

Unload frmcj

Unload Frmjbwh

Unload Frmwelcome

Unload frmabout

Load FrmHELP

FrmHELP.Show

End Sub

Private Sub Ahelp_Click()

Unload Frmjbgx

Unload frmcj

Unload FrmHELP

Unload Frmwelcome

Unload Frmjbwh

Load frmabout

frmabout.Show

End Sub

Private Sub quit_Click()

Frmmain.Hide

Unload Frmmain

End Sub

Private Sub quit1_Click()

Frmmain.Hide

Unload Frmmain

End Sub

窗体的Load事件代码：