例如你所点击"书号---书名"怎样得知数据库表中想应的书号字段值?
var
mynode:ttreenode;
begin
treeview1.Items.Clear;
mynode:=treeview1.Items.Add(nil,您所借所的的书号);
with Fdata.tree do
begin
close;
sql.Clear;
sql.Add('select 学号,书号,书名 from libraybook where 学号=''' +Edit1.Text+'''');
open;
first;
while not eof do
begin
treeview1.Items.AddChild(mynode,fieldbyname('书号').AsString + '---' +fieldbyname('书名').AsString);
next;
end;
end;
mynode.Expand(true);
end
var
mynode:ttreenode;
begin
treeview1.Items.Clear;
mynode:=treeview1.Items.Add(nil,您所借所的的书号);
with Fdata.tree do
begin
close;
sql.Clear;
sql.Add('select 学号,书号,书名 from libraybook where 学号=''' +Edit1.Text+'''');
open;
first;
while not eof do
begin
treeview1.Items.AddChild(mynode,fieldbyname('书号').AsString + '---' +fieldbyname('书名').AsString);
next;
end;
end;
mynode.Expand(true);
end
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货