☆本期内容概要☆
用户窗体设置:收费项目
Excel VBA 操作ACCESS数据库表,更新、删除、添加记录。
上期我们分享了【收费管理系统】用户管理设计【Excel VBA 用户管理/一步一步带你设计【收费管理系统】03】,本期我们将设计【收费项目】模块功能!
今天的任务是设置【收费项目】模块功能,实现对“收费项目”的增、删、改。
下面我们就开始:
1、首先在Access数据库中创建新表,重命名为“tb收费项目”,我增加了一些模拟项目,暂时还是以诊所为例。
3、双击“收费项目”按钮,进入代码区,复制CmdUsers命令按钮的代码,把“tb用户”改为“tb收费项目”,就改这个地方,其他都不用改:
4、运行测试:
赶紧打开Usf_AndModiy窗体代码,发现问题原来在这:
当时为了测试,需要不断地运行、停止,如果这里不给currTable赋值,那就要不断地重新登录,现在可以把它删除了。
5、最终结果:
6、今天也只是搭了一个框架,能做到增加、删除、修改了,但是,还有不少需要优化的地方:
(1)增加下级明细项目时,应该把其他栏目信息自动带出,以减少手工输入的工作量,也能避免错误(如果能实现,则需要限制这些列不可编辑);
(2)保存时,进行合规性检查:
(3)修改项目时,对其下级项目编码同时修改,并且可以对已经使用了的其他表中的收费项目信息进行修改。
我们可以发现,今天增加了一个模块,主要是增加了一个ACCESS数据表,VBA代码只增加和修改了一点点,大量的工作均在昨天完成了。能这么顺利实现数据库表记录增、删、改的功能,并且能便利地扩展,主要得益于我的另外一个项目《财务管理系统》,这里我想说的是,要提高VBA的水平,你得动手去写代码,绞尽脑汁地去思考解决方案。
联系客服