「重磅」Excel VBA 應用分享/中醫診所收费系统/Excel+ListBox版

admin

客岁吧，我用EXCEL帮一個朋侪做了一其中醫診所收费體系，近来他们上了新體系，鸟枪換炮了，我的這個小利用就名誉退休了，如今把它分享给大師。

設計條件：

本来他们是用手工開具收费收條，再按照物理收條把营收数据挂号到EXCEL內外。如许的做法事情量大，反复劳動，并且也轻易犯错。

因而，我不由得想做點甚麼，就象前面分享的同样。（Excel VBA 最简略的收發存挂号體系，只有一種商品，你會怎样做？實在，本文分享的利用還在此以前，後续颠末了進级，厥後也改為EXCEL+ACCESS版了，這是後话，暂且不表）

設計需求：

一、削减反复劳動，好比直接在EXCEL表中挂号，然後能直接打印出收费单。

二、有一些報表功效，适本地举行统计。

設計思绪：

固然不克不及仅知足最根基的请求，那岂不是太Low了。因而，我就開動脑子，以我利用各類ERP體系的履历，起頭着手開辟這個所谓的中醫診所收费體系，先後大要得有一两個月吧，详细记不清了，总算竣工交付利用。触及的表格、窗體、模块以下圖：

一、為了数据平安，設置用户暗码登录

二、一些输入項目举行预制，提高输入的正确性：

三、設計窗體收款界面

收款根基流程：录入客户姓名，挨次點選收费項目各個明细項目，查對单價，若是與電動筋膜球,實收不符则举行點窜，输入数目，點選收款方法，然後點治療高血脂中藥,添加，向下面的收费详情增长一條明细记實，可再次添加收费項目，至多6條（受打印票据條款限定太陽能LED庭院燈,），查對無误後點结算。若是勾選了“结算後當即打印收款单”则當即打印收款单，若是不勾選，则後续可以再补打收款单。

四、各類報表

（1）收入明细表，该表直接显示寄存明细数据的EXCEL表，實在應當是用ListView显示的（蠶絲皂,現實環境是，我那時還不晓得ListView這個玩意，也没有效ListBox做。）

（2）收銀報表，用来检察、查對當天或某段時候的收款環境。

這個報表是用窗體做的，明细数据是用ListBox列表框做的，因為它没有表頭，就在记實里第一條加了字段。

這里的收款方法采纳了動态添加控件的方法。

（3）事迹盘問

按大夫举行分類盘問，可以导出為EXCEL表，也能够同時打印出来。

根基先容就說這麼多，這個體桃園通水管,系如今看来是很是粗拙的，必定有很多BUG，和優化晋升的處所，最大的缺點是数据存在EXCEL文件中，平安性很是低。

關于代码，我也不想去多诠释了，触及到的內容比力多，各類控件、自界說函数，部門咱们之前都分享過。有樂趣的小火伴可以自行钻研。我這個代码必定算不上是甚麼優异的代码，算是我的第一個作品吧，不外能把各類料想的功效都實現、都能跑通，也是一件不易的事，接待大師批判斧正！

關頭代码我放在第二條、第三條则章。因為代码较多，就贴了两個。必要完备代码的同窗，可以索要示例文件。代码以示例文件為准，贴過来的代码我删除不少空行，說不定會误删除正常代码。

好，今天就分享到這，请大師點赞、留言、分享，感谢大師，咱们下期再见。