摘要:
{Copyright (c) 咏南工作室Author: 陈新光 Date: 2006.11.26 ToDo: 类别、部组业务单元}unit uTree;interfaceuses sysUtils, comCtrls, db, dbClient, forms, iTree, //接口单元 uDm2; //数据模块type Ttree = class(TinterfacedObject, It) private dm2: Tdm2; {增加节点} procedure AppendNode(Tree: TTreeView; NODE: TTreeNode; c... 阅读全文