Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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éÀúÒ»´ÎÖ»ÄÜËã³öÒ»¸ö½ÚµãµÄÊý¾Ý¡£
ÕâÑùÒªËã³öÿ¸ö½ÚµãµÄÊý¾ÝÐèÒª±éÀúµÄ´ÎÊýÌ«¶à¡£
ÒªÊÇ»ã×ܵÄʱºò´Óµ×²ã½Úµã¿ªÊ¼ÍùÉϱéÀú£¬Ëã·¨Ò²²»ÈÝÒס£
£¨ÏÈÈ¡³


Ïà¹ØÎÊ´ð£º

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

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

¸¶·ÑÇódelphiÆ´Òô±à³Ì - Delphi / ·Ç¼¼ÊõÇø

¾ßÌåÒªÇóÓ뱨³êQQ729851670
771234717

¡°Æ´Òô±à³Ì¡±ÊÇʲôÒâ˼

ÒýÓÃ
¡°Æ´Òô±à³Ì¡±ÊÇʲôÒâ˼
1.¸øÒ»¸ö×Ö¿ÉÒÔÏÔʾƴÒô£¬¶àÒô×ֵϰÄÜÏÔʾ¶ÔÓ¦µÄ¶à¸öÆ´Òô
2.¶Ô°üº¬¶àÒô×ֵĴÊÓïÖÇÄÜʶ±ð¸ø³öÆ´Òô¡£
3.¶ÔÒ»¶Î ......

vcתdelphiÎÊÌâ

C/C++ code:

void RefreshThreadList (DWORD dwOwnerPID)
{

HANDLE hThreadSnap = NULL;
BOOL bRet = FALSE;
THREADENTRY32 te32 = {0};
int px=0;
......

vcתdelphiÎÊÌâ

ÇëÎÊVCÖеÄ
C/C++ code:

for(int i=0;i<100;i++)
¸ÃÔõôת³Édelphi »¹ÓÐVCÖеÄbreak
delphiÊÇbreak»¹ÊÇexit?

exitµÄ»°ÊÇÖ±½ÓÍ˳öº¯Êý,breakÊÇ´ÓÑ­»·ÖÐÍ˳ö
......

DelphiÖеÄʱ¼ä²éѯ£¡ÄܸæËßÎÒÄÄÀï´íÁËÂ𣿣¡

t5:=' 1=1 ';
  if CheckBox5.Checked then
  t5:=' ÉúÈÕ>=#'+DateToStr(DateTimePicker1.Date)+'# and ÉúÈÕ<=#'+DateToStr(DateTimePicker2.Date)+'#';

¹ØÓÚʼþµÄ¸ñʽºÍ½ç¶¨·û£¬access,sq ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ