|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> 双击【显示机构设置】按钮添加事件处理代码如下为使储存从数据表中查找得到的数据在ButtonClick事件处理代码之前需要添加一个全局变量字符串数组mytable代码如下 private { Private declarations } public { Public declarations } end; //以上为Delphi自动生成的代码 type Ttable=array[] of string; //建立一个行列的字符串数组储存在显示树形控件时从组织机构编码表中读出的机构编号等信息以供 显示 var main: Tmain; mytable:Ttable; //初始化一个数组 //程序中需要用到的全局变量的声明 //下面两行也是Delphi自动生成的代码 implementation {$R *dfm} //机构设置及编码功能的实现 //完成树形图的显示 procedure TmainButtonClick(Sender: TObject); //完成树形图的显示 var pnode:TTreeNode; i:integer; //pnode为树节点类型的变量 scodescodelsname:string; ItemLevelParentIndex:integer; begin adoqueryOpen; i:=; while not adoqueryEof do begin scode:=adoqueryFieldByName(类别号)AsString; scodel:=adoqueryFieldByName(单位编号)AsString; sname:=adoqueryFieldByName(类别)AsString; ItemLevel:=adoqueryFieldByName(ItemLevel)AsInteger; ParentIndex:=adoqueryFieldByName(ParentIndex)AsInteger; //将表中的数据按数据储存的绝对顺序AbsIndex排列依次取出 //按绝对顺序读出数据可以为本实例的完成提供许多方便 mytable[i]:=scode; mytable[i]:=scodel; mytable[i]:=sname; i:=i+; //储存类别名单位编号和类别到前面定义好的字符串数组中 if (ItemLevel=) then begin treeviewItemsAddFirst(nilsname); //如果是第一个节点那么它没有父节点其父节点是nil(空)创建第一个节点的数据 right>[] [http://developcsaicn/delphi/htm>] |
