ACCESS系统初始化示例

1、初始化注意事项：

初始化系统不是玩的。我的这个系统“2015五金”分为前台和后台，通过链接后台表实现数据操作与存储分离的。仅后数据表就有近30个。（后面的代码中，你将看到部份要清空的表名称）如果真把使用的数据库清空了，那就惨了。

所以为保险起见，复制了一个副本，用来演示。你在对数据库系统初始化之前，也别忘了这步哦。

2、重新配置数据库：

保存副本之后，我们需要登录后，重新配置后台数据库（避免因为仍然链接到原来的文件夹中的后台数据库，而删除了正在使用的系统中的数据）。

确认后重新登录。

3、看一下初始化之前的表，里面是有数据的。

1、创建系统初始化窗体：

依次点击选项卡中的创建，窗体。在窗体属性中，重命名窗体。

在窗体中，放三个按钮，分别命名为清空历史数据、清空业务数据、清空基础数据；

并分别在按钮属性窗口，事件中选取单击事件，点击后面的...按钮，进入VBE界面，写VB代码。

2、清空历史数据按钮单击事件的代码：

下面的代码将清空代码中数据表的内容。

Private Sub 清空历史数据_Click()

    If MsgBox("您确认要清空所有历史数据吗?请慎重", vbOKCancel + vbDefaultButton2 + vbExclamation, "提示!!!!") = vbOK Then        '删除指定表中记录代码↓        CurrentDb().Execute "delete * from 入库记录全年"        CurrentDb().Execute "delete * from 出库记录全年"        CurrentDb().Execute "delete * from 历史期报"        CurrentDb().Execute "delete * from 13年五金入库"        CurrentDb().Execute "delete * from 14年10前五金入库"        CurrentDb().Execute "delete * from 14年前其他五金"        CurrentDb().Execute "delete * from 14年五金入库"        CurrentDb().Execute "delete * from 14年五金出库"        CurrentDb().Execute "delete * from qrysc出库记录"        CurrentDb().Execute "delete * from qrysc入库记录"        CurrentDb().Execute "delete * from qrysc月报累计"        CurrentDb().Execute "delete * from qry追加入出库记录"       MsgBox "数据已删除了", vbInformation, "提示:"    End If

End Sub

3、清空业务数据按钮单击事件的代码：

下面的代码将清空代码中数据表的内容。

Private Sub 清空业务数据_Click()

 '本代码将清空下面代码中数据表的内容    If MsgBox("您确认要清空所有业务数据吗?请慎重", vbOKCancel + vbDefaultButton2 + vbExclamation, "提示!!!!") = vbOK Then        '删除指定表中记录代码↓        CurrentDb().Execute "delete * from tbl请购单"        CurrentDb().Execute "delete * from tbl请购明细"        CurrentDb().Execute "delete * from tbl其他入库单"        CurrentDb().Execute "delete * from tbl其他入库明细"        CurrentDb().Execute "delete * from tbl五金出库单"        CurrentDb().Execute "delete * from tbl五金出库明细"        CurrentDb().Execute "delete * from tbl五金入库单"        CurrentDb().Execute "delete * from tbl五金入库明细"        MsgBox "数据已删除了", vbInformation, "提示:"    End IfEnd Sub

4、清空基础资料数据按钮单击事件的代码：

下面的代码将清空代码中数据表的内容。

Private Sub 清空基础资料_Click()

 '本代码将清空下面代码中数据表的内容    If MsgBox("您确认要清空所有基础资料吗?请慎重", vbOKCancel + vbDefaultButton2 + vbExclamation, "提示!!!!") = vbOK Then        '删除指定表中记录代码↓        CurrentDb().Execute "delete * from tbl00民族"        CurrentDb().Execute "delete * from tbl00命名规则"        CurrentDb().Execute "delete * from tbl00日期参数"        CurrentDb().Execute "delete * from tbl00数据库对象"        CurrentDb().Execute "delete * from tbl00文化程度"        CurrentDb().Execute "delete * from tbl00颜色"        CurrentDb().Execute "delete * from tbl0编码规则"        CurrentDb().Execute "delete * from tbl0部门单位"        CurrentDb().Execute "delete * from tbl0仓库"        CurrentDb().Execute "delete * from tbl0仓库库位"        CurrentDb().Execute "delete * from tbl0产品物品类别"        CurrentDb().Execute "delete * from tbl0岗位"        CurrentDb().Execute "delete * from tbl0供应商"        CurrentDb().Execute "delete * from tbl0五金资料"        CurrentDb().Execute "delete * from tbl0物品材质"        CurrentDb().Execute "delete * from tbl0物品状态"        CurrentDb().Execute "delete * from tbl0业务类型"        CurrentDb().Execute "delete * from tbl0员工"         MsgBox "数据已删除了", vbInformation, "提示:"    End If

End Sub

1、运行初始化按钮：

示例中运行的是“清空基础资料”按钮。

（由于上面截图展示的tbl00命名规则是基础资料表，这里就运行此按钮）

2、初始化之后的表数据被删除。

由于上面截图展示的是基础资料表tbl00命名规则中有数据，这里只有再以它来展示初始化之后的效果。

其他表就不一一截图了。

同时清空的还有以下17个后台数据表：tbl00民族、 tbl00日期参数、 tbl00数据库对象、tbl00文化程度、tbl00颜色、 tbl0编码规则、tbl0部门单位、tbl0仓库、tbl0仓库库位、tbl0产品物品类别、tbl0岗位、tbl0供应商、 tbl0五金资料、 tbl0物品材质、tbl0物品状态、 tbl0业务类型、 tbl0员工）