数据库结构如下：
id parentid,name,money,totalmoney,submoney
0,0,根节点,0,15000,0
1,0,张山,1000,5000,0
2,0,张好,2000,7000,0
3,0,王五,3000,3000,0
4,1,黎明,4000,4000,0
5,2,老刘,5000,5000,0
type
tmydata = record
id:integer;
parentid:integer;
name:string;
money:double;
totalmoney:double;
submoney:double;
resume:boolean;
end;
pmydata = ^tmydata;
现在想反向计算submoney.
submoney 是当前节点的totalmoney 减去下面所有层次的money.
并且要去掉当前下级节点的money最大值。
function submoney(p:tTreenode):double;
var
i:integer;
d:pcustdata;
begin
d:=pcustdata(p.data);
{
if not d.resum then //resum 起到只计算一次的作用?。
begin
result:=d.money;
exit;
end;
}
if p.Count <1 then
begin
d.submoney := 0; //=0
result := d.money;
d.resum:=false;
exit;
end;
result := d.money;
for i:=0 to p.count -1 do
result := result + submoney(p.Item[i]);
//全部加起来以后用总数去减
d.submoney := d.totalmoney + d.money - result;
d.resum:=false;
end;
我写的这个没有考虑下级节点的最大值。
另外一种。
function submoney(p:tTreenode):double;
相关问答：
请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？
无人回答？
做成资源� ......
例子程序见附件，用Delphi 7进行编译
问题代码为
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
老师布置了一个课题，需要用Delphi做一个影院售票管理系统，但是我们还没有学过Delphi，各位高手能否指点一下，如何进行系统设计，时间比较紧急，谢谢啊
我也不懂，也想学！
我也是啊，感觉Delphi挺好的，现 ......
定义变量s,sql为string类型，s为函数参数，sql：='select field1 from table1 where'+s;运行时s赋值为id>7或者id<7、id=7,但是运行时总是出错，请各位帮我改错，多谢！
showMessage(sql)下看看
sql：='sel ......
有没有办法实现跟QQ邮箱一样的效果，点击左边的菜单，右边刷新，多个页面间切换，而左边的菜单栏不变
有很多控件可以实现
等你分加分，我给你写个源码。这点分实在没有动力回答。
ExpressBars
看看。
� ......
