delphi ͨ¹ýA±íÅúÁ¿¸ü¸ÄB±íµÄÄÚÈÝ
ͨ¹ýExcelµ¼ÈëÄÚÈݵ½±íA£¬²¢ÏÔʾÔÚdbgridÖУ¬µã»÷ÅúÁ¿Ð޸İ´Å¥£¬Í¨¹ýµ¼Èë±íAµÄÄÚÈÝÐ޸ıíB¡£ÏÖÔÚÓÐÒ»¸öÎÊÌ⣬µ¼ÈëµÄÕâÒ»ÅúÄÚÈÝ£¬Èç¹ûÔÚ±íBÖв»´æÔÚ£¬Ôò²åÈ룬Èç¹ûÔÚ±íBÖдæÔÚ£¬Ôò¸üУ¬ÈçºÎʵÏÖ£¿
ÒýÓà --1¡¢²åÈ룺 insert into B select ×Ö¶Î1,×Ö¶Î2,¡£¡£¡£¡£¡£¡£ from A where not exists(select 1 from B where A.×Ö¶Î1=B.×Ö¶Î1 and A.×Ö¶Î2=B.×Ö¶Î2¡£¡£¡£¡£¡£¡£) --2¡¢¸üУº update B set B.×Ö¶Î1 = A.×Ö¶Î1, B.×Ö¶Î2 = A.×Ö¶Î2,¡£¡£¡£¡£¡£¡£ from A where A.×Ö¶Î1 = B.×Ö¶Î1 and A.×Ö¶Î2 = B.×Ö¶Î2¡£¡£¡£¡£¡£¡£ Èç¹ûÕâÅúÃûµ¥ÖУ¬Í¬Ê±´æÔÚ²åÈëºÍ¸üвÙ×÷ÄØ£¿ÊDz»ÊÇÒªÌí¼ÓÅжÏÌõ¼þ£¿Ò»¸öbutton°´Å¥¿ÉÒÔͬʱʵÏÖ²åÈë¸üÐÂÁ½ÖÖ»ìºÏÃûµ¥µÄ²Ù×÷Â𣿠1¡¢ÎÒдµÄÊÇ SQL Óï¾ä£¬Äã¿ÉÒÔд³É´æ´¢¹ý³Ì 2¡¢Äãµã»÷ Button1£¬Óà AdoQuery1 »òÕß ADOStoredProc1 Ö´ÐÐÕâ¸ö´æ´¢¹ý³Ì£¬Ó¦¸Ã¾ÍÊǶԵģ¬ÄãÔÚǰ̨ ²»ÓÃдÌõ¼þ£¬ÎÒÔÚ SQL Óï¾äÖУ¬ÒѾ´¦ÀíÁË
Ïà¹ØÎÊ´ð£º
function myfun:integer; var b:pointer; begin b:=pointer($6Bc3C6); asm mov eax,[eax] xor eax,[ecx+4] cmp eax,0 je @b end; ÕâÑùд±àÒë²»¹ýÈ¥¡£ÇëÎÊÈçºÎ² ......
RT ÎÒÔڹرÕDelphi³ÌÐòµÄʱºòÐèÒªÏòINIÎļþÖÐдµã¶«Î÷. ÏÂ´ÎÆô¶¯Delphi³ÌÐòµÄʱºòÐèÒª¶Á,ÔÚDelphi³ÌÐòµÄOnCloseʼþÖÐдÁËûÎÊÌâ,µ«ÎÒ·¢ÏÖÈç¹û³ÌÐò¿ª×Å,È»ºó½«»úÆ÷:¿ªÊ¼->¹Ø±Õ¼ÆËã»ú->¹Ø±Õ»òÕßÖØÐÂÆô¶¯µÄʱº ......
ÈçÌ⣡ ÔÚDelphiÀïÃæµ÷ÓÃÎÒC#дµÄÒ»¸ö¿ÉÖ´ÐгÌÐò£¬È»ºóÔËÐÐDelphiµÄÓ¦ÓóÌÐòµÄʱºò£¬ÓкܴóµÄ¸ÅÂʵ÷Óò»ÉÏC#дµÄÓ¦ÓóÌÐò¡£ ´úÂë¿Ï¶¨Ã»ÓÐÎÊÌâ¡£ÓÐʱºòÄܵ÷ÓÃÉÏ£¬ÓÐʱºòµãÁËûÓз´Ó¦£¬¼´²»Äܵ ......
ÎÒÏëдһ¸öÔÚ´ò¿ªÍøÒ³ºó£¬ÆäÖÐÍøÒ³ÖÐÓÐÏÂÀÁбí¿òÀïÃæÓм¸¸öÖµ£¬ÎÒÔÚÏëÔÚÊÂÏÈ»¹Ã»Óдò¿ªÍøÒ³Ç°Ñ¡Ò»¸öÖµ£¬ÔÚ´ò¿ªÍøÒ³ºó£¬ÍøÒ³ÖÐÕâ¸öÏÂÀÁбí¿ò¾ÍÏÔʾÎÒÊÂÏÈѡȡµÄÖµ¡£Ð¡µÜ²»»á£¬Ï£ÍûÄÄλ´óÏÀ³öÊÖÏàÖúһϣ¿£¿£¿£¿£¿ ......
¸÷λ´óÀÐ: СµÜ±àдÁËһЩ³¬ÊÐǰ̨ÊÕÒø³ÌÐò(Óô¥ÃþÆÁ),µ«ÔÚ³ÌÐò½øÈëǰ,ÐèÒª²Ù×÷SQLÊý¾ÝÊýµÇ¼¿ò,ÎÒÏëÓÃXPµÄÆÁÄ»¼üÅÌÊäÈë,µ«ÊÇÖ»ÒªÆÁÄ»¼üÅÌ´ò¿ª,³ÌÐò×ÜÊDZ¨¶Ë¿Ú´«Êä³ö´íÐÅÏ¢(´ËÐÅÏ¢ÊÇÎҵijÌÐòÖÐÉèÖõÄ,ÊÇÏò¹Ë¿ÍÏÔÊ¾Æ ......