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

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 Delphi ÄÚ´æËÙ¶È±È½Ï - VC/MFC / ·Ç¼¼ÊõÀà

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 ......

¹Ø±ÕµçÄÔʱ,Delphi³ÌÐò»á³ö·¢Ê²Ã´Ê¼þ?

RT
ÎÒÔڹرÕDelphi³ÌÐòµÄʱºòÐèÒªÏòINIÎļþÖÐдµã¶«Î÷.
ÏÂ´ÎÆô¶¯Delphi³ÌÐòµÄʱºòÐèÒª¶Á,ÔÚDelphi³ÌÐòµÄOnCloseʼþÖÐдÁËûÎÊÌâ,µ«ÎÒ·¢ÏÖÈç¹û³ÌÐò¿ª×Å,È»ºó½«»úÆ÷:¿ªÊ¼->¹Ø±Õ¼ÆËã»ú->¹Ø±Õ»òÕßÖØÐÂÆô¶¯µÄʱº ......

delphi 2010 dbgrideh EhLib5.0.13 µ¼³öÎļþ³ö´í

Delphi(Pascal) code:

function DBGridEhToExportFile(dbgrideh:TDBGridEh;filename:string='µ¼³öµÄÎļþ'):boolean ;
var ExpClass:TDBGridEhExportClass;
Ext:String;
savedialog1:tsavedialog;
b ......

Delphi 2010 PChar µÄÆæ¹ÖÏÖÏó

¡¡MessageBox(0,PChar('L'),PChar('LL'),0);
½á¹û£ºPChar('LL') ÏÔʾ¡¡£¬µ«PChar('L') ²»ÏÔʾ£®
var
  p1, p2: PChar;
begin
  p1 := PChar('L');
  p2 := PChar('LL');
  MessageBo ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ