Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphi treeµÝ¹éÇó²î - Delphi / Êý¾Ý¿âÏà¹Ø

Êý¾Ý¿â½á¹¹ÈçÏ£º
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;


Ïà¹ØÎÊ´ð£º

delphi ±¾µØ×°ÔØÇý¶¯ - Delphi / Windows SDK/API

delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......

delphiµÄdll×Ó´°ÌåÎÊÌâµÄ½â¾ö - Delphi / ·Ç¼¼ÊõÇø

Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾­³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......

¼òµ¥SQLÓïÑÔ - Delphi / Êý¾Ý¿âÏà¹Ø

Êý¾Ý£º Äê Ô ÈÕ ¿ªÅÌ ÊÕÅÌ
ʹÓÃÏÂÃæÓï¾äËÑË÷µ½ÁË Ã¿Äêÿ¸öÔµÄÔ³õºÍÔÂÄ©¶¼ÊǼ¸ºÅ  
select Äê,ÔÂ,MIN(ÈÕ) as frist,MAX(ÈÕ) AS laset from mt4his.DB GROUP BY Äê,ÔÂ
ÎÒÏëµÃµ½ ÿÄêÿ¸öÔµÄÔ³õºÍÔÂÄ© ......

delphi ¿ò¼Ü - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ

ÓÐûÓа취ʵÏÖ¸úQQÓÊÏäÒ»ÑùµÄЧ¹û£¬µã»÷×ó±ßµÄ²Ëµ¥£¬ÓÒ±ßˢУ¬¶à¸öÒ³Ãæ¼äÇл»£¬¶ø×ó±ßµÄ²Ëµ¥À¸²»±ä
ÓÐºÜ¶à¿Ø¼þ¿ÉÒÔʵÏÖ

µÈÄã·Ö¼Ó·Ö£¬ÎÒ¸øÄãд¸öÔ´Âë¡£Õâµã·ÖʵÔÚûÓж¯Á¦»Ø´ð¡£

ExpressBars

¿´¿´¡£

Ò ......

DelphiÊý¾Ý¿âͼƬÎÊÌâ - Delphi / Êý¾Ý¿âÏà¹Ø

ÎÒÓõÄÊÇsql server2000£¬ÀïÃæ´æÓÐ×ֶΣºÕÕÆ¬ image
ÎÒ²»Ã÷°×Ôõô°ÑͼƬ´æÈëÊý¾Ý¿âÖУ¿
ÎÒ»¹ÔÚDelphiÖн¨Á¢ÁË´°Ì壬ÈçºÎ½«Êý¾Ý¿âÖеÄͼƬһ²¢ÏÔʾ³öÀ´£¬ÎÒÓõÄÊÇDBGridºÍImage
ÈçºÎ½«Á½Õß¹ØÁªÆðÀ´£¿£¡
²Î¿¼(ÎÒ»Ø ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ