Excel VBA 收费项目/一步一步带你设计【收费管理系统】04

☆本期内容概要☆

• 用户窗体设置：收费项目

• Excel VBA 操作ACCESS数据库表，更新、删除、添加记录。
  

上期我们分享了【收费管理系统】用户管理设计【Excel VBA 用户管理/一步一步带你设计【收费管理系统】03】，本期我们将设计【收费项目】模块功能！

今天的任务是设置【收费项目】模块功能，实现对“收费项目”的增、删、改。

下面我们就开始：

1、首先在Access数据库中创建新表，重命名为“tb收费项目”，我增加了一些模拟项目，暂时还是以诊所为例。

2、打开VBA编辑器，在用户窗体Usf_Main上增加命令按钮CmdChargeItem，Caption收费项目，可以通过复制“用户管理”命令按钮来完成，只要改一下名称、Caption，其他格式保持统一。   

3、双击“收费项目”按钮，进入代码区，复制CmdUsers命令按钮的代码，把“tb用户”改为“tb收费项目”，就改这个地方，其他都不用改：

4、运行测试：

赶紧打开Usf_AndModiy窗体代码，发现问题原来在这：

当时为了测试，需要不断地运行、停止，如果这里不给currTable赋值，那就要不断地重新登录，现在可以把它删除了。

5、最终结果：

6、今天也只是搭了一个框架，能做到增加、删除、修改了，但是，还有不少需要优化的地方：

（1）增加下级明细项目时，应该把其他栏目信息自动带出，以减少手工输入的工作量，也能避免错误（如果能实现，则需要限制这些列不可编辑）；

（2）保存时，进行合规性检查：

（a）项目代码，代码两位一级，如果代码超过2位的，检查有无上级代码信息，如果没有则可能是输入错误，或者要添加上级代码（一般是需要增加新的项目分类）；

（b）项目代码不能重复；

（c）项目全称也不能重复等等；

（3）修改项目时，对其下级项目编码同时修改，并且可以对已经使用了的其他表中的收费项目信息进行修改。

我们可以发现，今天增加了一个模块，主要是增加了一个ACCESS数据表，VBA代码只增加和修改了一点点，大量的工作均在昨天完成了。能这么顺利实现数据库表记录增、删、改的功能，并且能便利地扩展，主要得益于我的另外一个项目《财务管理系统》，这里我想说的是，要提高VBA的水平，你得动手去写代码，绞尽脑汁地去思考解决方案。