急,怎样用IWTreeView控件读取后台数据啊
解决方案 »
- 关于 DecompressBuf的使用
- Dream 组件的相关操作
- 南京企业纳贤 --有意愿请跟帖,留下qq 或手机号码以便联系
- 给EDIT框发回车消息,这样有错吗?
- 大家好,请教1下,如何安装.pas为后缀的组件,最近我得到一些组件,是以.pas为后缀的,请问如何安装呀
- 有关webbrowser的问题
- 那位朋友帮帮忙,在数据库编程中怎样读取条形码值?
- 请问两个程序间通信的问题,我在A中调用B,在B creat完之后结束A,请问该怎么做呢?
- delphi工程師的前景如何
- 请问键盘记录的软件怎么做?
- 帮我看看这些单引号的意思,糊涂中!!!!!!!
- 急求:Delphi中如何进行TreeView之间的拖拽?
var tnd,tnd1,tnd2,tnd3:TTreeNode;
begin
dmd.cx3.Close;
dmd.cx3.SQL.Clear;
dmd.cx3.SQL.Add('select 部门 from rybm');
dmd.cx3.Open;
while not dmd.cx3.eof do
begin
tnd:=treeview1.Items.Add(nil,(dmd.cx3.FieldByName('部门').Asstring));
dmd.cx4.Close;
dmd.cx4.SQL.clear;
dmd.cx4.SQL.add('select 工号,姓名,部门 from ry where 部门='''+dmd.cx3.fieldbyname('部门').asstring+'''');
dmd.cx4.Open;
while not dmd.cx4.eof do
begin
tnd1:=treeview1.Items.addchild(tnd,((dmd.cx4.fieldbyname('工号').asstring)+'-'+(dmd.cx4.fieldbyname('姓名').asstring)));
dmd.cx4.Next;
end;
dmd.cx4.First;
dmd.cx3.next;
end;
end;
dmd.cx3和dmd.cx4是两个adoquery
IWTreeView2.Items.Add.Caption:=oraquery1.fieldbyname('compname').AsString;
下面第二层怎样写代码