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 Óï¾äÖУ¬ÒѾ´¦ÀíÁË
Ïà¹ØÎÊ´ð£º
VC ¿ØÖÆÌ¨³ÌÐò: #include <iostream> using namespace std; int main() { const int def_buffer = 1024 * 4; DWORD t; BYTE b[def_buffer]; memset(b, 0, sizeof(b)); PBYTE p; t = GetTickC ......
RT ÎÒÔڹرÕDelphi³ÌÐòµÄʱºòÐèÒªÏòINIÎļþÖÐдµã¶«Î÷. ÏÂ´ÎÆô¶¯Delphi³ÌÐòµÄʱºòÐèÒª¶Á,ÔÚDelphi³ÌÐòµÄOnCloseʼþÖÐдÁËûÎÊÌâ,µ«ÎÒ·¢ÏÖÈç¹û³ÌÐò¿ª×Å,È»ºó½«»úÆ÷:¿ªÊ¼->¹Ø±Õ¼ÆËã»ú->¹Ø±Õ»òÕßÖØÐÂÆô¶¯µÄʱº ......
Delphi(Pascal) code: function DBGridEhToExportFile(dbgrideh:TDBGridEh;filename:string='µ¼³öµÄÎļþ'):boolean ; var ExpClass:TDBGridEhExportClass; Ext:String; savedialog1:tsavedialog; b ......
¡¡MessageBox(0,PChar('L'),PChar('LL'),0); ½á¹û£ºPChar('LL') ÏÔʾ¡¡£¬µ«PChar('L') ²»ÏÔʾ£® var p1, p2: PChar; begin p1 := PChar('L'); p2 := PChar('LL'); MessageBo ......