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

Çë½Ìdelphiɾ³ýÁÙʱ±íµÄÎÊÌâ

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[temp1]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[temp1]
GO

ÉÏÃæÊÇSQLÖÐÉú³É±íʱµÄɾ³ý±í½Å±¾£¬ÎÒÏëÎÊÏÂÕâ¶ÎÅжÏÓï¾äÔÚdelphiÖоßÌåÓ¦¸ÃÔõôʵÏÖ¡£
ÏÂÃæÉ¾³ýÓï¾äûÓмӱíÃûÊÇ·ñ´æÔÚµÄÅжϣ¬ÅжÏÓ¦¸ÃÒªÔõô¼Ó£¿
/*
¼ÓÈëÅжϣ¬±í´æÔÚÔòɾ³ý
*/
with dm.bsbaobiaoqry1 do begin
close;
sql.Clear;
sql.Add('drop table T_bswxtabletemp');
execsql;
end;

with dm.bsbaobiaoqry1 do begin
  close;
  sql.Clear;
  sql.Add('select * into T_bswxtabletemp from T_scanjobdetail');
  execsql;
end;

sql.Add('if exists select * from T_bswxtabletemp drop table T_bswxtabletemp')

ÒýÓÃ
with dm.bsbaobiaoqry1 do begin
close;
sql.Clear;
sql.Add('if exists (select * from dbo.sysobjects where id = object_id(N'+#39+'[dbo].[T_bswxtabletemp]'+#39+') and OBJECTPROPERTY(id, N'IsUserTable') = 1) ')
sql.Add('Add('drop table T_bswxtabletemp');
execsql;
end;

up~

лл£¬ÎÒÊÔÊÔ¿´


Ïà¹ØÎÊ´ð£º

100·Ö£¡¹ØÓÚvbµ÷ÓÃdelphi±àдµÄdllµÄÎÊÌ⣬¼±£¡£¡£¡

¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......

2009ѧϰdelphiµÄǰ¾°

ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½ 
¿´µ½delphiµ ......

ÇóÒ»¶Îdelphi´úÂëתC#´úÂ룬¼±Ó㬿ÉÈËÃñ±ÒÖ§¸¶£¬Ð»Ð»

¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡­¡­);
Îļþ£ºUShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......

Ç¿ÁÒ½¨ÒéDELPHI°æ¸ü»»´ó°æ - Delphi / ·Ç¼¼ÊõÇø

hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ­³£ÉÏÀ´×ª×ªµÄ

ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔ­Òò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......

delphi UDPÎÊÌâ

(¼±)ÎÒÏëÓÃUDPʵÏÖ¿Í»§¶ËÓë·þÎñÆ÷Ö®¼äµÄÐÅÏ¢·¢ËÍ¡£¼´£¬¿Í»§¶Ë·¢ÐÅÏ¢¸ø·þÎñÆ÷¶Ë£¬·þÎñÆ÷ÄÜÕý³£µÄ½ÓÊÜ£¬²¢ÇÒÊǰ´Ë³Ðò½ÓÊܵġ£Èç¿Í»§¶Ë·¢ËÍEdit1,Edit2,Edit3,Edit4....ºó£¬ÔÚ·þÎñÆ÷µÄEdit1,Edit2,Edit3,Edit4....ÒÀ´Î¶ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ