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

delphiÈý²ã¼Ü¹¹

Èý²ã¼Ü¹¹Ö¸µÄÊǽçÃæ£¬ÒµÎñÂß¼­ºÍÊý¾Ý´æ´¢·ÖÀë,²»ÊÇÖ¸ÎïÀíÉÏÊÇ·ñ·ÖÀë¡£
ÕâÑù×öµÄºÃ´¦ÊDzã´Î·ÖÃ÷£¬Î¬»¤ºÃ×ö£¬ÏµÍ³×ÊÔ´Ò²ºÃ·Ö²¼Ê½´¦Àí¡£
Êý¾Ý¿â²ãÄľͲ»ËµÁË£¬ÓÃMSSQL¡¢OrcaleËæÄãÁË£¬¾ÍÊÇÊý¾Ý·þÎñ²ã
ÒµÎñÂß¼­µÄ»°Òª·ÖÎöÇå³þ£¬¾ÍÊÇÖмä²ã
½çÃæ£¬Ò²½Ð¿Í»§¶Ë¡£ÕâÀï¾ÍÊǵõ½Êý¾ÝºÍÏÔʾÊý¾ÝµÄ²¿·ÖÁË£¬²»×öÆäËü´¦Àí¡£µ«ÊÇÊý¾ÝÓÐЧÐÔ·ÖÎö×îºÃ·ÅÔÚ½çÃæ²ã£¬ÒÔ³ä·ÖÀûÓÿͻ§¶ËµÄÐÔÄÜ¡£²»È»µÄ»°ÒµÎñÂß¼­²ãµÄ¸ºµ£Ì«´óÒ²»áÐÎ³ÉÆ¿¾¢¡£
Êý¾Ý¿âµÄ½¨Á¢²»ËµÁË¡£
Èý²ãÌåϵµÄ½¨Á¢
Ò» Êý¾Ý¿â²ãµÄ½¨Á¢
      ʹÓÃsqlserver»òorale½¨Á¢Êý¾Ý¿â¡£
¶þ Öмä²ãµÄ½¨Á¢
      Ò»°ã½«Öмä²ã·ÖΪ¶þ¸ö²¿·Ö£¬Êý¾Ý²¿·ÖºÍÂß¼­²¿·Ö¡£
     Êý¾Ý²¿·Ö¾ÍÊÇʹÓÃԭʼµÄ²éѯ,Ò»¸öadoÁ¬½Ó£¬¶à¸ö³É¶Ô³öÏÖµÄadqºÍdsp¡£adoÁ¬½Ó×îºóѡʹÓÃÎļþÁ¬½Ó£¬ÒÔ±ãÒÔºó¿ÉÒÔÔÚ¿Í»§¶Ë×ÔÓɾö¶¨Á¬½ÓÄĸöÊý¾Ý¿â¶ø²»ÐèÒª¸Ä³ÌÐò¡£
Âß¼­²¿·Ö¸ú¿Í»§¶ËÒ»Ñù£¬Ê¹ÓÃDComÀ´Á¬½Óµ½Êý¾Ý²¿·Ö£¬È»ºóʹÓÃcdsÁ¬½Óµ½DCOM²¢Ö¸Ã÷Êý¾ÝÌṩÆ÷dsp.È»ºóÔÙÔö¼ÓÏàÓ¦µÄº¯ÊýÀ´´¦ÀíÊý¾Ý¡£ÊÂÎñÒ»°ãÈ¡×Ô¶¯Î¬»¤µÄ£¬ÕâÑùº¯Êý¿ªÊ¼ÊÂÎñ×Ô¶¯¿ªÊ¼£¬ÎÒÃÇÖ»ÐèҪά»¤ÊÂÎñ»Ø¹ösetAbout,ºÍÊÂÎñÍê³Ésetcomplete.ÔÚÖмä²ã·þÎñÆ÷Öв»ÒªÌí¼ÓÐèÒªÈËÖ÷¶¯¸ÉÔ¤µÄ¶¯×÷£¬±ÈÈç¶Ô»°¿òÖ®Àà¡£ÒòΪÖмä²ã·þÎñÆ÷ºÍÊý¾Ý¿âÒ»ÑùÊdz¤Ê±¼ä²»¼ä¶ÏÔËÐеģ¬Ò²Ã»ÓÐË­»á´ôÔÚÖмä²ã·þÎñÆ÷ǰרÃÅ´¦ÀíÕâЩÎÊÌâ¡£
Àý£ºdelphi7 sqlserver2000£¬win32»·¾³
ÔÚdelphiÖн¨Á¢Ò»¸ö¶à²ãÏѡTranslation Data Moudle
È¡¸öÃûtestTran,Ïß³ÌģʽThreadling ModelÑ¡Aparment£¬µÈ»áÔÙ¸ÄËü¡£
ÊÂÎñģʽTranslation modelÈ¡ ÐèÒªÒ»¸öÊÂÎñrequires a Translation
µãOK¾Í½¨Á¢ÁËÒ»¸öÖмä²ã¡£
È»ºóµÃ¸ÄÒ»¸ÄÏß³ÌģʽÓÉtmApartment¸Ä³ÉtmNeutral.£¨ÔÚinitializationµÄ TComponentFactory.CreateÀï¸Ä²ÎÊý¡££©
ÔپͿÉÒÔÌí¼ÓÊý¾Ý¿Ø¼þ½øÐд¦ÀíÁË¡£
¸½£ºÏß³Ìģʽ 1.Single£ºµ¥Ị̈߳¬Ö»ÓÐÒ»¸öRmdỊ̈߳¬ËùÓпͻ§¶ËÖ»ÄÜ˳ÐòµØµÃµ½·þÎñ¡£
2.Apartment£º·þÎñ³ÌÐò¿ÉÒÔͬʱÓжà¸öRmdỊ̈߳¬µ«Ã¿¸öRmdÏß³ÌÖ»ÄÜ·þÎñÒÔµ¥Ïß³ÌģʽÔËÐС£
3.Free£ºÃ»ÓÐÏß³ÌÏÞÖÆµÄģʽ£¬Ã»¼ûÓùý¡£
4.Both£º½éÓÚApartmentºÍFreeÖ®¼äµÄÒ»ÖÖÏß³Ìģʽ£¬Ã»¼ûÓùý¡£
5.Neutral£º½ö¶ÔCom+ÓÐЧ£¬¿ÉÒÔʹ¶à¸ö¿Í»§¶ËͬʱÒÔ¶àÏß³ÌģʽӦÓ÷þÎñÆ÷£¬½¨ÒéʹÓ㬵«×¢ÒâÈ«¾Ö±äÁ¿µÄ±£»¤ÎÊÌâ¡£
Èý ¿Í»§¶ËµÄ½¨Á¢
     ¿Í»§¶ËµÄ½¨Á¢£¬È¡Êý¾ÝÖ±½ÓÓÃDCO


Ïà¹ØÎĵµ£º

Delphiº¯ÊýºÍ¹ý³Ì

     ¹ý³ÌÎÞ·µ»ØÖµ£¬º¯ÊýÓзµ»ØÖµ¡£
     procedure MyProc(m,n : Integer; o : String; p : Single = 2.5; q : String = 'Delphi');
     ÈçÉÏÀýËùʾ£¬¹ý³ÌÉùÃ÷ºÍ¶¨ÒåÖУ¬¶à¸ö²ÎÊýÊÇÓ÷ֺŸô¿ªµÄ£¬µ«ÔÚµ÷ÓÃʱÊÇÓöººÅ¸ô¿ªµÄ ¡£eg£º
  ......

delphiµÄÈ¡Õûº¯Êýround¡¢trunc¡¢ceilºÍfloor

1.Round£¨ËÄÉáÁùÈëÎåÁôË«£©
¹¦ÄÜ˵Ã÷£º¶ÔÒ»¸öʵÊý½øÐÐËÄÉáÎåÈë¡£(°´ÕÕÒøÐмÒËã·¨)
Àý£º
var
i, j: Integer;
begin
i := Round(1.5); // iµÈÓÚ2
j := Round(2.5); // jµÈÓÚ2
end;
ÔÚDelphiÖÐʹÓÃRoundº¯ÊýµÃµ½µÄ´ð°¸ÓÐʱÓëÎÒÃÇËùÔ¤ÆÚµÄ»á²»Ì«Ò»Ñù£º²ÉÓõÄÊÇËÄÉáÁùÈëÎåÁôË«¡£¼´µ±Éá»òÈëλ´óÓÚ»òСÓÚÎåÊ ......

delphiµ÷ÓÃExcel²éÕÒ¶¨Î»

var
ExcelFile:string;
SourceRange,DesRange:Variant;
Row,Column,i:integer;
begin
if OpenDialog1.Execute then
begin
ExcelFile:=OpenDialog1.Files[0];
if not FileExists(ExcelFile) then Exit;
end
else
Exit;
try
ExcelApp:=CreateOleObject('Excel.Application');
......

delphi×¢²á±í²Ù×÷ÍêÈ«ÊÖ²á

32λDelphi³ÌÐòÖпÉÀûÓÃTRegistry¶ÔÏóÀ´´æÈ¡×¢²á±íÎļþÖеÄÐÅÏ¢¡£
¡¡¡¡Ò»¡¢´´½¨ºÍÊÍ·ÅTRegistry¶ÔÏó
¡¡¡¡1.´´½¨TRegistry¶ÔÏó¡£ÎªÁ˲Ù×÷×¢²á±í£¬Òª´´½¨Ò»¸öTRegistry¶ÔÏó£ºARegistry := TRegistry.Create£»
¡¡¡¡2.ÊÍ·ÅTRegistry¶ÔÏó¡£¶Ô×¢²á±í²Ù×÷½áÊøºó£¬Ó¦ÊÍ·ÅTRegistry¶ÔÏóËùÕ¼Äڴ棺ARegistry.Destroy¡£
¡¡¡¡¶þ ......

Delphi ÖÐÈçºÎ°²×°×é¼þ?


Delphi ÖÐÈçºÎ°²×°×é¼þ?
delphiÖÐÈçºÎ°²×°×é¼þÓÐÎåÖÖÇé¿ö£º
1¡¢Ö»ÓÐÒ»¸öDCUÎļþµÄ×é¼þ¡£DCUÎļþÊDZàÒëºÃµÄµ¥ÔªÎļþ£¬ÕâÑùµÄ×é¼þÊÇ×÷Õß²»Ïë°ÑÔ´Â빫²¼¡£Ò»°ãÀ´Ëµ£¬×÷Õß±ØÐë˵Ã÷´Ë×é¼þÊʺÏDelphiµÄÄÄÖÖ°æ±¾£¬Èç¹û°æ±¾²»¶Ô£¬ÔÚ°²×°Ê±¾Í»á³öÏÖ´íÎó¡£Ò²ÕýÊÇÒòΪûÓÐÔ´Â룬¸øÊ¹ÓÃÕß´øÀ´Á˲»±ã£¬ÄǾÍÊÇÒ»µ©Delphi°æ±¾Éý¼¶£¬´Ë× ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ