Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 unitMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2 ......

Delphi»ù´¡¿ª·¢¼¼ÇÉ(1)

http://developer.51cto.com/art/200510/7205.htm
[DELPHI]ÍøÂçÁÚ¾Ó¸´ÖÆÎļþ
uses shellapi;
copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);
[DELPHI]²úÉúÊó±êÍ϶¯Ð§¹û
ͨ¹ýMouseMoveʼþ¡¢DragOverʼþ¡¢EndDragʼþʵÏÖ,ÀýÈçÔÚPANELÉϵÄLABEL:
var xpanel,ypanel,xlabel,yla ......

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¡¢×Ö·ûÊý×éµ ......

asp¡¢delphi¡¢oracleµÄ¼¼ÊõÎĵµ×ܽá

1) DelphiÏòoracleÖд«µÝ²ÎÊý ÈçoracleÖеIJÎÊýÃûΪerpcx 
´ð£ºÈç¹ûÏë´Ó±íÀïȡֵµ½oracle£¬Ôòerpcx:=trim(aq1.fieldbyname('erpcx').AsString);
·ñÔòÖ±½ÓÓÿؼþÃû×Ö
Óï¾äΪ
with aperp do    
begin
connection:=dm.ADOCerp;      
parameters.Clear;&nbs ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ