Êý¾Ý¿â½á¹¹ÈçÏ£º
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;
m ......
ÎÒ¸ÕѧϰDelphi£¬ÒòΪÒÔǰûÓÐÓùýËü£¬ËùÒÔ²»ÖªµÀËüÄܲ»ÄÜ×ö³öÏëÒªµÄÑù×Ó£¬ËùÒÔÏÖÔÚÇë´ó¼Ò°ïÎÒ·ÖÎö·ÖÎö£¡
ÏÖÔÚµÄÏîÄ¿Ò»°ã¶¼ÐèÒªÊý¾Ý¿â°É¡£ÒÔÇ°ÎÒÓõÄÊÇ.net£¬ËüÀïÃæÓÐsqlhelperÖ®ÀàµÄ£¬²»ÖªµÀDelphiÀïÃæÓÐûÓпìËÙ¿ª·¢Êý¾Ý¿âÓ¦Óó̶ȵġ£
ÏëÒªÒ»¸ö¼òµ¥ ÈÝÒ׿´¶®µÄ ´úÂëÈ«µÄ ×¢ÊÍÏêϸµãµÄ Êý¾Ý¿â¿ª·¢ÊµÀý ×îºÃÓÐÎĵµËµÃ ......
ÓÃdelphiµÄÏÖÓпؼþдÊÕ·¢Êý¾ÝµÄ²âÊÔ£¬ÔÚÁ½Ì¨»úÆ÷ÉÏÊÔ£¬½á¹ûÍøËÙÊÇ100MµÄ£¬´ø¿í×î¸ßÖ»ÄÜÓõ½30%ÖÁ50%£¬ÊDz»ÊÇÓ¦¸Ãͨ¹ýÍø¿¨Çý¶¯Ê²Ã´µÄÖ±½Ó×öÊÕ·¢Êý¾ÝµÄ´úÂ룿ÎÒÊÇÔÚÒª×öÒ»¸ö¼«ËÙÇé¿öÏÂÍøÂçÊý¾ÝÊÕ·¢³ÌÐò£¬ÄÇλÓÐ×ö¹ý»òÖªµÀÓ¦¸ÃÔõô×öµÄÍû´Í½Ì£¡
¶àÏß³ÌͬʱÊÕ·¢
Ó¦¸Ã½â¾ö²»ÁËÎÊÌ⣬֮ËùÒÔËÙ¶ÈÉϲ»È¥ÊÇÒòΪÍøÂç·¢ËͶ¼ÊÇһЩ ......
1.ÓÃdelphi±àд³ÌÐò,ÊDz»ÊǾÍÒªÓÃObject PascalµÄÓï·¨,ÄѵÀdelphiûÓÐ×Ô¼ºÓï·¨Âð?²»ÊÇ˵delphiÊDZà³ÌÓïÑÔ,Ò²ÊDZà³Ì¹¤¾ßÂð?
2.Äܲ»ÄÜÓñðµÄ±à³ÌÓïÑÔÔÚdelphi±àд³ÌÐò?ÄÄЩÓïÑÔÖ§³ÖÔÚdelphi±àд³ÌÐò?
3.Object PascalÊÇʲô?
ÏÖÔÚÎÒµÄÂ߼˼ά¶¼¸ãÂÒÁË
ÓÃVC±àд³ÌÐò,ÊDz»ÊǾÍÒªÓÃC++µÄÓï·¨,ÄѵÀVCûÓÐ×Ô¼ºÓï·¨Âð
ÒýÓÃ
......
Delphi(Pascal) code:
function Test(script: pchar; enable: boolean;allocid: integer):boolean; stdcall;
//************************************
var
null:integer;
//********************************
null:=-1;
Test(pchar(memo1.text),true,@null);
ÆäÖÐ delphiµÄmemo1µÄÊôÐÔScrollbarsΪSSBoth.¿ÉÒÔ½Ó ......
procedure WMNCHitTest(var Msg:TWMNCHitTest); message WM_NCHITTEST;
procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
ÇëÎÊһϣ¬ÕâÁ½¸öº¯ÊýÊÇÉÏÃæÒâ˼£¬ÔÚÉÏÃæʱºòµ÷Óã¬message WM_NCHITTEST; ºÍmessage WM_NCPAINT; ÊǸÉʲôµÄ£¿
·ÖÌ«ÉÙ¡£¡£Ìáʾ£ººÍ´°Ìå±êÌâÀ¸Óйء£¡£
½ÓÒ»·Ö¡£¡£¡£
½ÓÊÕÁ½ ......
×ܼǼÊý:1117; ×ÜÒ³Êý:187; ÿҳ6 Ìõ;
Ê×Ò³ ÉÏÒ»Ò³ [6] [7] [8] [9] 10
[11] [12] [13] [14] [15] ÏÂÒ»Ò³ βҳ