delphi ʹÓÃado ¶Áд vfp»òÕßdbase4µÄÊý¾Ý¿â
tableDB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFilePath(dir) +';Extended Properties=dBase 5.0;Persist Security Info=False;';
tableDB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(dir)+';Extended Properties=dBASE IV;User ID=Admin;Password=;';
ʹÓÃado¶ÁÈ¡dbfµÄʱºò£¬³öÁËһЩÎÊÌ⣬ʹÓÃÉÏÃæµÄÁ¬½Ó´®£¬ÔÚдdbfÎļþµÄʱºò£¬ÖÐÎĵÄÊý¾ÝÔÚ±£´æµÄʱºò¾Í³ÉÁËÂÒÂ룬µ«ÊÇÔÚ±í¸ñÏÔʾµÄʱºòÈ´ÊÇÕý³£µÄ£¬Êý×Ö»òÕß×ÖĸûÓÐÎÊÌâ¡£
ÓÃÏÂÃæµÄÁ¬½Ó´®ÔÚдÖÐÎÄÊý¾ÝµÄʱºòûÓÐÎÊÌ⣬²»¹ýÐèҪעÒâÓÐЩ¿Í»§µçÄÔûÓÐ×°vfpodbcÇý¶¯£¬ÔÚ´ò°ü°²×°³ÌÐòµÄʱºò£¬×îºÃÒ»¿é´ò°ü°²×°¡£
tableDB.ConnectionString:='Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB='+ExtractFilePath(dir)+';SourceType=DBF;';
Ïà¹ØÎĵµ£º
ADO ʹÓà ORACLE provider FOR OLE DB Çý¶¯Ê±
µ÷Óô洢¹ý³ÌÐèÒª·µ»ØÓαêʱ£¬ÔÚÁ¬½Ó×Ö·û´®ÖÐÔö¼Ó
PLSQLRSet=1 ²ÎÊý¡£
´æ´¢¹ý³ÌÖеÄÓα겻ÐèÒª¸¶³õʼֵ
Èç:
sp1: TADOStoredProc;
sp1.Close;
sp1.ProcedureName := 'pkg_ScanList_By_JobNo.sp_GetScanList';& ......
ÒÔǰÓùýdelphi 2007µÄÕâ¸öº¯ÊýµÄ£¬²ÎÊý³¬¶à£¬ÏÖÔڵĹ«Ë¾ÓÃD7£¬½á¹ûÍøÉÏÒ»²éÕâ¸öº¯Êý£¬Óò»³ÉÁË£¬ÔÀ´ÎÒÓôíÁ˺¯Êý
unit QDialogs;
{$IFDEF LINUX}
function SelectDirectory(const Caption, Root: WideString;
var Directory: WideString; ShowHidden: Boolean = False): Boolean;
{$ENDIF}
{$IFDEF MSWINDOW ......
absolute
//ËüʹµÃÄãÄܹ»´´½¨Ò»¸öбäÁ¿, ²¢ÇҸñäÁ¿µÄÆðʼµØÖ·ÓëÁíÒ»¸ö±äÁ¿Ïàͬ.
var
Str: string[32];
StrLen: Byte absolute Str;
//Õâ¸öÉùÃ÷Ö¸¶¨Á˱äÁ¿StrLenÆðʼµØÖ·ÓëStrÏàͬ.
//ÓÉÓÚ×Ö·û´®µÄµÚ0¸öλÖñ£´æÁË×Ö·û´®µÄ³¤¶È, ËùÒÔStrLenµÄÖµ¼´×Ö·û´®³¤¶È.
begin
Str := 'abc';
Ed ......
32λDelphi³ÌÐòÖпÉÀûÓÃTRegistry¶ÔÏóÀ´´æÈ¡×¢²á±íÎļþÖеÄÐÅÏ¢¡£
¡¡¡¡Ò»¡¢´´½¨ºÍÊÍ·ÅTRegistry¶ÔÏó
¡¡¡¡1.´´½¨TRegistry¶ÔÏó¡£ÎªÁ˲Ù×÷×¢²á±í£¬Òª´´½¨Ò»¸öTRegistry¶ÔÏó£ºARegistry := TRegistry.Create£»
&n ......
ÔÚдc++µÄ½Ó¿Úʱ¿ÉÒÔ½«Á½¸öÏ໥ÒýÓõÄÀà·ÅÔÚÁ½¸ö.hÎļþÖУ¬È»ºó½«Õâ¸ö½Ó¿Ú·Òëµ½delphiʱ£¬·ÅÔÚÁ½¸öÎļþÀï¾Í²»¿ÉÄÜÁË¡£Ö»ÄÜ·ÅÔÚͬһ¸öunitÖС£²¢ÇÒÒª½«ÕâÁ½¸öÀà¶¼·ÅÔÚͬһ¸ötypeÏÂÃæ½øÐж¨Ò壬µ±Ç°ÃæÒ»¸öÀàҪʹÓúóÃæÒ»¸öÀàʱ£¬ÐèÒªÔÚÇ°ÃæÒ»¸öÀàµÄÇ°Ãæ·ÅÖÃÒ»¸öǰÖÃÉùÃ÷£¬²¢ÇÒǰÖÃÉùÃ÷Ö»ÄÜÊÇIVariantMap = class;ÕâÖÖ¸ñʽ¶ø² ......