|
在财务软件设计中经常会遇到对会计科目的输入查询的设计，尤其是
在编制记帐凭证时，为减轻会计人员的工作量，总希望采取一些提示、查询会计科目的方法，常用的
有代码替代法、Fx键提示法等，但从用友财务软件WIN95版来看，他们采取了在会计科目输入框旁加
查询按钮再通过触发按钮的Click事件来调用树型结构显示表单的方法来实现会计科目的快速输入，
用友公司使用的是VB/VC+ACCESS编程，我们在VFP＋DBF下也同样能实现上述操作：
在下列示例中我们采用了同用友数据结构一样的一个DBF文件—Tdwcode.dbf,在该文件中我们用到了CCODE（科目代码）和CCODE_NAME（科目名称）两个
字段，其中科目代码是按3-3-3划分会计级别。
1、新建一表单TREE.SCX,加入TreeView控件和文本框
2、在控件的Init事件中加入：
sele tdwcode
go top
do while .not.eof()
pkey=substr(tdwcode.ccode,1,3)+"_"
pkey2=substr(tdwcode.ccode,1,6)+"_"
if len(alltrim(tdwcode.ccode))=3
this.nodes.add(,1,alltrim(tdwcode.ccode)+"_",tdwcode.ccode_name,,)
else
if len(alltrim(tdwcode.ccode))=6
this.nodes.add(pkey,4,alltrim(tdwcode.ccode)+"_",tdwcode.ccode_name,,)
else
this.nodes.add(pkey2,4,alltrim(tdwcode.ccode)+"_",tdwcode.ccode_name,,)
endif
endif
if eof()
exit
endif
skip
endd
go top
3、在控件的NodeClick事件中加入：
LPARAMETERS node
sele tdwcode
thisform.text1.value=substr(node.key,1,len(node.key)-1)
thisform.text1.refresh
运行后界面如下：
Tags:应用 设计 控件 tdwcode.ccode 会计 alltrim 科目 用友
|
