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

delphiÊ÷µÄ±éÀúÇóºÍ

´ó¼ÒºÃÓÐÎÊÌâÇë½Ì
ÈçÌ⣺
Êý¾Ý¿â½á¹¹£º
id,parentid,name,money,totalmoney
0,0,¸ù½Úµã,0,0
1,0,ÕÅɽ,1000,0
2,0,ÕźÃ,2000,0
3,0,ÍõÎå,3000,0
4,1,ÀèÃ÷,4000,0
5,2,ÀÏÁõ,5000,0
...........
ÏÖÔÚʹÓÃdxdbtreeviewÄܹ»ÐγÉÊ÷Ðνṹ¡£
Òª½â¾öµÄÎÊÌ⣬ÈçºÎʵÏÖÿ¸öÈ˵ÄtotalmoneyΪËùÓÐϲã½ÚµãµÄºÍ¡£
Òâ˼¾ÍÊǶ¥²ã½ÚµãµÄtotalmoney×Ö¶ÎΪÏÂÃæËùÓеÄmoneyÖ®ºÍ
µÚ¶þ²ã½ÚµãͬÑùµÄtotalmoney×Ö¶ÎÒ²ÊÇ×Ô¼ºÏÂÃæËùÓнڵãµÄmoneyÖ®ºÍ¡£
ÎÒÊÔ¹ý±éÀúËã·¨£¬µ«ÊÇÒ»´Î±éÀúÖ»ÄÜËã³öÒ»¸ö½ÚµãµÄÊý¾Ý¡£
±ð±éÀúÁË£¬Ö±½ÓÔÚÊý¾Ý¿âÖÐËãºÃ°É£¬±ÈÈçÄãÔÚ¼ÈëÊý¾Ýʱ£¬¾Í°ÑtotalmoneyËãºÃ£¬Èç¹ûÿ´Î¶¼±éÀúµÄË㣬ЧÂÊÌ«µÍÁË

¼ÈëÊý¾ÝµÄʱºòû·¨Ëã°¡£¬totalmoney³õʼµÄʱºòÊÇ0£¬ÈËԱ¼ÈëÒÔºó£¬Ã¿Ò»¸öÔÂÎÒÒª¼ÆËã³öÿ¸ö½ÚµãµÄtotaomoney£¬Õâ¸öÊýÊÇÏÂÃæÃ¿¸ö½ÚµãµÄmoneyÖ®ºÍ£¬Ò²¾ÍÊÇÒª°ÑmoneyÖ®ºÍÌîÈëÿ¸öÈ˵Ätotalmoney×Ö¶ÎÀïÃæ

Èç¹ûÓÐPARENTÖ¸Õë¾ÍºÃËãÁËÈü ¡«¡« ÿµ±Â¼ÈëµÄʱºò if it.parent<>nil then 
begin
  it.parent.increase(money);
  it := it.parent;
end;

ºÃÏñÕâÑùдû´í°É ¾ÍÊÇÕâ¸öÒâ˼

¿´ÁËÂ¥ÉÏÐֵܵÄ˵·¨ÓеãÁé¸Ð¡£
ÕâÖÖ˵·¨ÊÇÿ´Î¼ÈëÊý¾ÝµÄʱºò½øÐбéÀú¼ÆËã¡£
ÕâÑùÊÇ´Ó×îµ×²ãÍùÉϱéÀúÈÝÒ×ʵÏÖ¡£
ÏÖÔÚÊÇÓÐûÓиüºÃµÄ°ì·¨£º
1.ÔÚ¼ÈëÊý¾ÝµÄʱºò²»½øÐмÆËã¡£
2.ÿ¸öÔ½øÐÐÒ»´Î×îÖÕ»ã×Ü¡£
×îÖÕ»ã×ܵÄʱºò£¬´Ó¸ù½ÚµãÍùϱéÀú±È½ÏÈÝÒ×£¬µ«ÊDZéÀúÒ»´ÎÖ»ÄÜËã³öÒ»¸ö½ÚµãµÄÊý¾Ý¡£
ÕâÑùÒªËã³öÿ¸ö½ÚµãµÄÊý¾ÝÐèÒª±éÀúµÄ´ÎÊýÌ«¶à¡£
ÒªÊÇ»ã×ܵÄʱºò´Óµ×²ã½Úµã¿ªÊ¼ÍùÉϱéÀú£¬Ëã·¨Ò²²»ÈÝÒס£
£¨ÏÈÈ¡³


Ïà¹ØÎÊ´ð£º

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

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

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

xml´´½¨ºóÈçºÎÏú»Ù? - Delphi / ÍøÂçͨÐÅ/·Ö²¼Ê½¿ª·¢

xml := CreateOleObject('Microsoft.XMLHTTP');
  xml.Open('GET','http://www.google.com', False);
  xml.Send;
  xml.responseText;
ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......

VB/delphi ÐÞ¸ÄtextÎļþ - VB / »ù´¡Àà

¸÷λºÃ£¡£¡
¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ
Ò»¸öÃû½Ð 1.text
ÄÚÈÝ£º
I like PC.... 
ÁíÍâÒ»ÊÇ2.text
ÄÚÈÝ:
function yk as string
endfunction
globals
endglobals
***********************·Ö½çÏß********** ......

delphi·Ö×éͳ¼ÆºóÔٺϼÆÍ³¼Æ£¿

ÏÖÔÚ±íÖУº
Æ·Ãû1 Æ·Ãû2 Æ·Ãû3 ÊýÁ¿
Ìú ÉúÌú 2
Ìú ÊìÌú 3
¿ó·Û ½ø¿Ú¿ó ÔÓ¿ó 1
¿ó·Û ±¾¿ó 2
¿ó·Û ½ø¿Ú¿ó ´ó¿ó 3
¿ó·Û ½ø¿Ú¿ó ÔÓ¿ó 1
ͳ¼Æ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ