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

Delphi + DBµÄ²éѯÓÅ»¯Éè¼ÆË¼Ïë

¾­µä°¸Àý·ÖÏí Ôݲ»Éæ¼°·ÖÇø±í,±íÉè¼ÆµÈ Ö»´Ó±È½ÏdzµÄ½Ç¶ÈÀ´ÓÅ»¯
1.Ïȼì²é³ÌÐò ¼ì²éÄ£ÐͲãµÄÉè¼ÆÓë±àÂëÊÇ·ñºÏÀí ½«ºÍÕâ¸ö±íÓÐÓа󶨵ÄÊý¾Ý¸ÐÖª¿Ø¼þÈ«²¿È¥µô¡£
2.¹ÀËãÒ»¸öÊý¾ÝµÄ×î´óÁ¿ ¿ÉÒÔ´ÓÉè¼Æ½Ç¶È Ò²¿ÉÒÔ´Ó¿Í»§ÌṩµÄÊý¾Ý·ÖÎö δÀ´Ò»¶¨ÖÜÆÚÄÚµÄÔ¤Ôö³¤Á¿
3.½«ÌõÂëµÄ³¤¶È±£´æÆðÀ´£¬ÏÈÓÃÌõÂëµÄ³¤¶È½øÐйýÂË£¬Èç¹û80%ÒÔÉϵij¤¶È¶¼ÊÇÒ»¸ö³¤¶È£¬Ôò²»ÓÃÕâ¸ö·½·¨
4.½«ÌõÂëÖеÄżÊý¸öÊý±£´æÔÚÒ»¸ö¶ÀÁ¢µÄÊý×Ö×Ö¶ÎÖУ¬ÏȽøÐбȽϣ¬Ó¦¸ÃÏÈÄÜÅųýÒ»°ë
5.½«ÌõÂëµÄ×îºó¼¸Î»Êý¾Ý¶ÀÁ¢±£´æÔÚÒ»¸öÊý×Ö×Ö¶ÎÖУ¬ÏȽøÐбȽϣ¬Êý×ֱȽÏËÙ¶ÈÓ¦¸Ã±È×ֶαȽϿì
6.ÔÚ¸ù¾ÝÒµÎñ¿´ÊÇ·ñÄÜÓÃʱ¼äÀ´»®·Ö£¬Ã¿Ìì»òÿÖÜ£¬Ã¿Ô½¨Á¢Ò»Õűí
7.Ôö¼ÓÒ»intÀàÐ͵ÄÖ÷¼ü¡£³·ÏúÌõÂëµÄÖ÷¼ü¡£
×ܵÄÔ­ÔòÊǽ«Êý¾Ý·ÖÀàÀ´²é£¬²»ÒªÃ¿½«¶¼ÔÚÒ»´ó¶ÑÖвéÕÒ£¬¾ÍÏóÔÚÊéµêÒ»Ñù£¬¿ÉÒÔ°´³ö°æÉÌ£¬°´ÊéÀàÐͽøÐÐ
Êé¼Ü·ÖÀ࣬ȻºóÕÒÊéµÄʱ¼ä²ÅÄÜ¿ìËÙ¶¨Î»¡£
/////////////////////////////////////////////////////////////////////////
¾­µäÒ»¾äSQL:
if not exists(select akey from a where akey='1234')
  insert into a values(akey, b,c,d)


Ïà¹ØÎĵµ£º

delphiÊý×éÖ®²ËÄñƪ


Êý×éÊÇ¿ÉÒÔͨ¹ýË÷ÒýÀ´ÒýÓõÄͬÀàÐÍÊý¾ÝµÄÁÐ±í¡£°´ÕÕ´æ´¢¿Õ¼äµÄ»ñÈ¡·½Ê½£¬Delphi
Ö§³ÖµÄÊý×éÀàÐÍÓÐÁ½ÖÖ£¬¼´¾²Ì¬Êý×éºÍ¶¯Ì¬Êý×é¡£Ëùν¾²Ì¬Êý×é¾ÍÊÇÔÚÉùÃ÷ʱ¾ÍÒѾ­È·¶¨´óСµÄÊý×éÀàÐÍ£¬¶ø¶¯Ì¬Êý×éÊÇÖ¸Æä´óСÔÚÉùÃ÷ʱ²»ÄÜÈ·¶¨µÄÊý×飬¶¯Ì¬Êý×éµÄ´óСÔÚʹÓÃʱȷ¶¨¡£
ÉùÃ÷¾²Ì¬Êý×éµÄ·½Ê½·Ç³£¼òµ¥£¬Ö»ÒªÖ¸Ã÷Êý×鳤¶ÈºÍÊý¾ÝÀàÐÍ ......

Delphi×ÔÊÊÓ¦·Ö±æÂÊ£¨±È½ÏÍêÃÀµÄÒ»¸ö·½·¨£©

procedure TfrmMain.FormCreate(Sender: TObject); //Ö÷´°ÌåFormCreateʼþ
var FWidth:integer;
begin
  if (screen.Width <> 1024) then  //¼ÙÉèÄãÉè¼Æ³ÌÐòʱµÄ·Ö±æÂÊΪ1024
  begin
    FWidth:=width;
    scaled:=true;
  & ......

Delphi 2010 µÄChar

½ñÌìÓÃdelphi 2010£¬×öÒ»¸ö¼òµ¥µÄÄÚ´æÓ³ÉäµÄ³ÌÐò£¬ÔÚdelphiÒÔǰ°æ±¾ÉÏÅܵĺúõijÌÐò£¬ÔÚ2010ÉÏ£¬¾ÓÈ»³öÏÖÁ˲»Í¬µÄЧ¹û£¬·¢ËͶ˷¢Ë͵Ä×Ö·û´®£¬½ÓÊÕ¶ËÖ»ÊÕµ½Ò»°ë£¬´ó¸Å³ÌÐòÈçÏ£º
·¢ËͶˣº
var
    str : String;
begin
  CopyMemory(@(PShare^.Data),str,Length(str));  //°ÑÊý¾Ý¿½±´µ½ ......

DELPHI²ÎÊý¼¸¸ö¸ÅÄîÉϵÄÇø±ð ÊÕ²Ø

DELPHI²ÎÊý¼¸¸ö¸ÅÄîÉϵÄÇø±ð ÊÕ²Ø
 ÒýÓòÎÊý£º
ÒýÓòÎÊýÓÃvar¹Ø¼ü×Ö±êʾ
procedure DoubleTheValue (var Value: Integer);
begin
  Value := Value * 2;
end;ÔÚÕâÖÖÇé¿öÏ£¬²ÎÊý¼È°ÑÒ»¸öÖµ´«µÝ¸ø¹ý³Ì£¬ÓÖ°ÑÐÂÖµ·µ»Ø¸øµ÷Óùý³ÌµÄ´úÂë¡£µ±ÄãÖ´ÐÐÍêÒÔÏ´úÂëʱ£º
var
  X: Integer;
begin
  X : ......

DelphiÖÐDLL³õʼ»¯ºÍÍ˳ö´¦Àí

DelphiÖÐDLL³õʼ»¯ºÍÍ˳ö´¦Àí
choysan
2010-01-08 8:56:43
<1>ÀûÓÃUnitµÄInitalizationÓëFinalizationÕâÁ½¸öС½Ú
¡¡¡¡¿ÉÒÔÔÚUnitµÄÕâÁ½¸öС½ÚÖа²ÅÅUnitµÄ½øÈëºÍÍ˳ö£¬µ«ÊÇ
ProgramÓëLibrary²¢Ã»ÓÐÕâÁ½¸ö²¿·Ö£¬ËùÒÔÖ»ÄÜдÔÚUnitÖС£
<2>ÀûÓÃExitProc±äÁ¿
¡¡¡¡ÔÚLibraryµÄbegin..end.ÖмäÊÇ¿ÉÒÔд´úÂëµÄ£ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ