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

ÔÚDelphiÖÐÈçºÎ´´½¨ºÍʹÓÃudlÎļþ


·½·¨Ò»£º
Ö±½Óµ¯³öUDL¶Ô»°¿ò:
use
ADOConed;
  EditConnectionString(ADOQuery1);
·½·¨¶þ£º
¢Å¡¢ÓÒ¼ü---н¨---Îı¾Îĵµ£¬ÖØÃüÃûΪ connSet.udl ¡£
¢Æ¡¢Ë«»÷´ò¿ª connSet.udl °´Ìáʾ²Ù×÷ÅäÖÃÊý¾Ý¿â£¬Ñ¡Ôñ±¾µØ»òÔ¶³ÌÊý¾Ý¿â£¬ÅäÖúúóÍ˳ö¡£
¢Ç¡¢Ê¹ÓÃDelphi ¿Ø¼þTADOConnectionÁ¬½Ó´úÂ룺
  ÔÚForm1µÄOnCreateʼþÈçÏÂ
 try
        ADOC.Connected := false;
        ADOC.ConnectionString := '';
        ADOC.ConnectionString := 'FILE NAME='+ExtractFilePath(ParamStr(0))+'\connSet.udl';
        ADOC.Provider := ExtractFilePath(ParamStr(0))+'\connSet.udl';
        ADOC.Connected := true;
    except
        showmessage('Á¬½Óʧ°Ü,ÇëÖØÐÂÅäÖÃconnSet.udlÎļþ');
        EXIT;
    end;
¢È¡¢Èç¹ûÄãÒª°ÑÓ¦ÓóÌÐò·Ö·¢µ½¾ÖÓòÍøÖÐʹÓã¬Êý¾Ý¿â·þÎñÆ÷ûÓиı䣬ֱ½Ó¸´ÖÆÓ¦ÓóÌÐò¾Í¿ÉÒÔÁË£¬²»ÓÃÔÙÅäÖÃconnSet.udl Îļþ¡£µ±ÔÚÁíÍâÒ»¸ö¾ÖÓòÍøÖа²×°Óв»Í¬ÃûµÄÊý¾Ý¿â·þÎñÆ÷ʱ£¬ÓÒ¼üÓüÇʱ¾´ò¿ªconnSet.udl Îļþ£¬»á¿´µ½£º
[oledb]
; Everything after this line is an OLE DB initstring
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=jfgl_sa;Initial Catalog=jfgl;Data Source=192.168.0.117
ÉÏÃ漸ÐÐÎļþ£¬ÕâÊÇн¨connSet.udl Îļþ£¬²¢ÅäÖúÃÊý¾Ý¿âºó×Ô¶¯Éú³ÉµÄ´úÂë¡£ÎÒĬÈϵĵǼÓû§Îªjfgl_sa£¬ÃÜÂëΪ¿Õ£¬Êý¾Ý¿âΪjfgl£¬¾ÖÓòÍøÊý¾Ý¿â·þÎñÆ÷ÃûIP£º192.168.0.117£¬Äã¿É°´ÕÕ×Ô¼ºµÄʵ¼Ê»·¾³½øÐÐÅäÖá£
¢É¡¢²»Í¬µÄ¾ÖÓòÍøÊý¾Ý¿â·þÎñÆ÷£¬ÄãÖ»ÒªÐÞ¸ÄÅäÖÃconnSet.udlÁ¬½ÓÎļþ¾Í¿ÉÒÔÁË£¬²»ÓÃÐÞ¸ÄDelphi´úÂ룬ºÜ·½±ãŶ¡£
¢Ê¡¢
¹ÊÕÏ´¦Àí£ºÈç¹ûÔËÐÐÓ¦ÓóÌÐòʱ£¬³öÏÖ´íÎóÌáʾ“ÎÞЧµÄÊÚȨ˵Ã÷”£¬ÊÇÒòΪǰÃæÎÒÃÇÒѾ­Ð½¨ÁËconnSet.udl
Á¬½Ó£¬ÏÖÔÚÖ»Òª°ÑDelphi¿Ø¼þTADOConnectionµÄÊôÐÔConnectionStringֵɾ³ýΪ¿Õ£¬ÕâÊǾ²Ì¬Á¬½ÓÊý¾Ý¿âµÄ×Ö·û´®Öµ£¬ËùÒÔ
ɾ³ýConnectionStringÖµºó£¬ÔÙÖØбàÒë¾Í¿ÉÒÔÁË¡£
Ó÷½·¨¶þ×Ô²â³É¹¦£¬ÔÚ±¾µØ»ùÓÚoracle 10g¿ª·¢µÄ³ÌÐò£¬·Åµ½ÁíÍâ×°ÓÐoracl


Ïà¹ØÎĵµ£º

ÔÚDelphiÖÐʹÓÃÕýÔò±í´ïʽ

//²Î¿¼µØÖ·£ºhttp://www.wangchao.net.cn/bbsdetail_41190.html
Ò»¡¢Î¢ÈíRegExp
      1. ÏÂÔز¢°²×°×îаæµÄ"Microsoft(r) Windows(r) Script"
¡¡¡¡2. RegExp°üº¬ÔÚvbscript.dllÖÐËùÒÔÎÒÃDZØÐëÏÈ×¢²áregsvr32 vbscript.dll
¡¡¡¡×¢(°²×°ÁËIe5ºóĬÈÏÒѾ­°üº¬¸Ã¿Ø¼þ)
¡¡¡¡3.ÔÚDelph ......

DelphiË«ÏòÁ´±íÀà

unit DvsLinkingClass;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs;
type
PRecLinkNode = ^RecLinkNode;
RecLinkNode = record
NodeMsg: String;
Counter: Integer;
Previous: PRecLinkNode;
Next: PRecLinkNode;
end;
TLinkingClass = class
......

Delphi×Ö·û´®¡¢PCharÓë×Ö·ûÊý×éÖ®¼äµÄת»»

Delphi×Ö·û´®¡¢PCharÓë×Ö·ûÊý×éÖ®¼äµÄת»»
ÉèÓÐÒÔÏÂÈý¸ö±äÁ¿£º
var
s:string;
p:pchar;
a:array[1..20] of char;
ÄÇôÈýÕßÖ®¼äµÄת»»ÈçÏ£º
1¡¢×Ö·û´®µ½PChar
    p:=PChar(s);
2¡¢PCharµ½×Ö·û´®
    s:=p;
3¡¢PCharµ½×Ö·ûÊý×é
    StrCopy(@a,p);
4¡¢×Ö·ûÊý×éµ ......

delphiÖÐapplication.processmessagesµÄ×÷ÓÃ


delphiÖÐapplication.processmessagesµÄ×÷ÓÃ

procedure TForm1.Button2Click(Sender: TObject);
var
   I, J, X, Y: Word;
begin
   I := 0;
   J := 0;
   while I < 64000 do
   begin
     Randomize;
   & ......

Delphi Öд®¿ÚͨѶµÄʵÏÖ

  Delphi ÊÇÐÂÒ»´ú¿ÉÊÓ»¯¿ª·¢¹¤¾ß£¬Ëü¾ßÓй¦ÄÜÇ¿´ó¡¢¼ò±ãÒ×ÓúʹúÂëÖ´ÐÐËٶȿìµÈÌص㣬ÊÇÈ«Çò¹«ÈϵĿìËÙÓ¦Óÿª·¢¹¤¾ß¼¼ÊõµÄÏÈÇýÕߣ¬ËüÔ½À´Ô½ÔÚ¹¹¼ÜÆóÒµÐÅϢϵͳ·½Ãæ·¢»Ó×ÅÖØÒª×÷Óá£ÓÉÓÚDelphi ÕâЩÏÔÖøÌص㣬Ðí¶à³ÌÐòԱѡÔñDelphi×÷Ϊ¿ª·¢¹¤¾ß±àÖƸ÷ÖÖÓ¦ÓóÌÐò¡£µ«ÊÇ£¬ÁîÈËÍïϧµÄÊÇDelphiûÓÐ×Ô´ø´®¿Ú ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ