不仅在医药发展方面支持而且在中药材的选取方面也是做足了功课，甚至国内的某些优质药材，均优先供应给国外，不能说是一种很好的现象。
当然了，随着改革开放政策的进一步深入，作为中医药的发展，如果发生墙内开花墙外香也不应感到意外，毕竟总有一个阶段被利益驱使着发生了偏离的情况。
不过，作为文明的载体，如果脱离了创造文明的主体，中国人，可能会发展成另一种状态。
严格来说，中医是一种哲学思维，如果理解了这种思维，那么在任何地方发展都是一种好的事情，都是为了治病救人，只不过救的人不一定是创造和继承了几千年的人而已。
废话少说，本文重点是给出一个中医就诊开方过程的一些流程自动化的一个过程。
简单来说，就是通过信息技术实现就诊、开方、药方管理等操作。
开方管理是整个流程中最重要的部分，也是在使用过程中最频繁的一个环节。
如上图所示，可以实现就诊信息记录，调方操作、调方操作以及验方的保存。
验方是一个模板形式的工作表，把一些可作为有效方子进行保存，在遇到相关病例的时候直接调取验方，然后增减药量即可，不仅减少了开方的一些操作，也提高了方看病效率。
当然了，还有一些古方调用，具有同样道理。
药方查询，可以根据处方编号查询相应内容，实际上这里面缺少一个按方名查询，效果会更好一点。
药物管理，收集整理所有中药信息，以便在调方的时候调用，目前整理了462种药材信息。实际应用过程不会经常操作这个部分，一般设置之后就不再进行修改，可能和相关库存联动的时候有些变化。
总之，整个应用完成了80%的功能，根据实际情况在进行一个完善。
代码：
Private Function GetComList()'返回ComboBox列表On Error Resume NextGetComList = Array("")Dim s As WorksheetSet s = GetSheet(xSheetYF)Dim arr, ai As Long, ir As Long, ic As Integer, i As LongDim carr, ci As LongReDim carr(0)Dim isTrue As Booleanarr = s.Range("A1").CurrentRegionir = UBound(arr, 1)ic = 2For i = 2 To irisTrue = False For ci = LBound(carr) To UBound(carr) If carr(ci) = arr(i, ic) Then isTrue = True Exit For End If Next ci If Not isTrue Then If UBound(carr) = 0 Then carr(UBound(carr)) = arr(i, ic) ReDim Preserve carr(UBound(carr) + 1) Else carr(UBound(carr)) = arr(i, ic) ReDim Preserve carr(UBound(carr) + 1) End If End IfNext iGetComList = carrErase arrErase carrSet s = NothingEnd Function
代码实在太多，以前使用面向对象手动绘制窗体控件，此应用已经实现除窗体外全代码创建控件，于是，控件事件也增加了不少代码，这样就应用了更多类模块。
同时应用了函数式编程过程，主体代码也简洁了不少。
如药物管理窗体代码：
Private Sub UserForm_Initialize()On Error Resume NextSetFormStyle Me, xCaption & " -- 验方管理", 580, 1080, xBackColorSetLabelSetComboBoxSetBtnSelectSetListBoxSetFrameFunctionSetListVIewSetListViewListItemsEnd Sub
本文作为一个过渡文章，希望对制作有一些过程有所启发。
---END---
