DelphiÖÐADOÒì²½Ö´Ðз½Ê½
µ±A D O¿ªÊ¼´¦ÀíÊý¾Ýºó£¬Ó¦ÓóÌÐò±ØÐëµÈµ½A D O´¦ÀíÍê±ÏÖ®ºó²Å¿ÉÒÔ¼ÌÐøÖ´ÐС£µ«
ÊdzýÁËͬ²½Ö´Ðз½Ê½Ö®Í⣬ A D OÒ²ÌṩÁËÒì²½Ö´Ðеķ½Ê½£¬ÔÊÐíµ±A D O´¦Àíʱ£¬
Ó¦ÓóÌÐòÈÔÈ»Äܹ»ÏȼÌÐøÖ´ÐС£¶øµ±A D O´¦ÀíÊý¾ÝÍê±ÏÖ®ºó£¬ A D O»áÒÔʼþµÄ·½
ʽ֪ͨӦÓóÌÐò£¬´ËʱӦÓóÌÐò¿ÉÒÔÔÙ¸ù¾ÝA D OÖ´ÐеĽá¹ûÀ´²ÉÈ¡ÏàÓ¦µÄ¶¯×÷¡£
ʹÓÃÒì²½Ö´Ðз½Ê½ÓÐÐí¶àÓÃ;£¬ÀýÈ磬Èç¹ûÓ¦ÓóÌÐòÐèÒª´¦Àí»¨·Ñ´óÁ¿Ê±¼äµÄ¶¯
×÷£¬ÄÇôA D O¿ÉÒÔÑ¡ÔñÒÔÒì²½Ö´Ðз½Ê½ÈÃA D OÔÚºǫִ́ÐУ¬¶øÈÃÓ¦ÓóÌÐò¼ÌÐø´¦
ÀíͼÐÎÓû§½Ó¿Ú»òÓû§ÊäÈëµÄÊý¾Ý¡£
ÔÚA D OÖÐʹÓÃÒì²½Ö´Ðз½Ê½·Ç³£¼òµ¥£¬Ö»ÐèÒª¶ÔA D OÊý¾Ý¼¯µÄE x e c u t e O p t i o n s
ÊôÐÔÖµ½øÐÐÊʵ±µÄÉ趨¼´¿É¡£ÏÖÔÚ¾ÍÈÃÎÒÃÇÒÔһʵ¼ÊµÄ·¶ÀýÓ¦ÓóÌÐòÀ´ËµÃ÷ÈçºÎÈÃ
A D OÒÔÒì²½µÄ·½Ê½À´´¦ÀíÊý¾Ý¡£
ÏÂÔØ
1) ÔÚD e l p h i¼¯³É¿ª·¢»·¾³ÖйرÕËùÓеÄÏîÄ¿¡£
2) ½¨Á¢Ò»¸öеÄÓ¦ÓóÌÐòÏîÄ¿£¬ÔÚÖ÷´°ÌåÖзÅÈëTA D O C o n n e c t i o n¶ÔÏóÁ¬½Óµ½
Êý¾Ý¿â¡£
3) ÔÚÖ÷´°ÌåÖзÅÈëTA D O D a t a S e t×é¼þ¡£É趨ËüµÄC o n n e c t i o nÊôÐÔֵΪ²½Öè2) µÄ
TA D O C o n n e c t i o n£¬²¢ÇÒÔÚËüµÄC o m m a n d Te x tÊôÐÔÖµÖÐʹÓÃSelect * from ADOTe s t D a t a s
ÒÔÈ¡µÃËùÓеÄÊý¾Ý¡£ÔÙÉ趨ËüµÄA c t i v eÊôÐÔֵΪTr u eÒÔ´ò¿ª·¶ÀýÊý¾Ý±í¡£
4) ·ÅÈëTDataSource×é¼þ£¬É趨ËüµÄDataSetÊôÐÔֵΪ²½Öè3) ¼ÓÈëµÄTADODataSet
×é¼þ¡£
5) ·ÅÈëT D B N a v i g a t o rºÍT D B G r i d×é¼þ£¬É趨ËüÃǵÄD a t a S o u r c e×é¼þΪ²½Öè4¼Ó
ÈëµÄT D a t a S o u r c e×é¼þ¡£
6) ÔÚÖ÷´°ÌåÖзÅÈëÁ½¸öT B u t t o n×é¼þÒÔ¼°Ò»¸öT P r o g r e s s B a r×é¼þ£¬²¢ÇÒÉ趨Ëü
µÄÏà¹ØÊôÐÔÖµ¡£´ËʱÖ÷´°ÌåÈçͼ3 - 1 2Ëùʾ¡£
ͼ3-12 ·¶ÀýÓ¦ÓóÌÐòµÄÖ÷´°Ìå
7) ×îºóÔÚÖ÷´°ÌåÖзÅÈëÒ»¸öTA D O C o m m a n d×é¼þ¡£É趨ËüµÄC o n n e c t i o nÊôÐÔ
ֵΪ²½Öè2) µÄTA D O C o n n e c t i o n£¬²¢ÇÒÔÚËüµÄC o m m a n d Te x tÊôÐÔÖµÖÐʹÓÃS e l e c t
count(*) from ADOTe s t D a t a sÒÔ±ã´ÓA D O Te s t D a t a sÊý¾Ý±íÖÐÈ¡µÃËùÓÐÊý¾ÝµÄ±ÊÊý¡£
8) ÔÚÖ÷´°ÌåµÄO n A c t i v a t eʼþ´¦Àí³ÌÐòÖÐ׫дÈçϵijÌÐò´úÂ룺
µÚ3ÕÂ׫дʹÓÃA D O¼¼ÊõµÄÓ¦ÓÃϵͳ(¶þ) 1 1 1
ÏÂÔØ
p r o c e d u r e TForm1.FormActivate(Sender: TObject);
v a r
sRecNo : String;
b e g i n
ProgressBar1.Max := ADOCommand1.Execute.Fiel
Ïà¹ØÎĵµ£º
Ô×÷Õߣº¹âÃ÷ÐÖµÜ
×î½üÎÒÕýÔÚÑо¿ActiveX¼¼Êõ¡£ÎÒʹÓÃDelphi 7´´½¨ÁËÒ»¸ö¾ßÓÐActiveFormµÄActiveX¿Ø¼þÓ¦ÓóÌÐò¡£Õâ¸ö¿Ø¼þ²úÉúÒ»¸ö.OCXÎļþ¡£ÏÖÔÚ£¬ÎÒÐèÒª°ÑÕâ¸ö¿Ø¼þ²¿ÊðÔÚ·þÎñÆ÷¶Ë£¬ÔÚÓû§ä¯ÀÀÍøÒ³²¢Ñ¡Ôñ°²×°Õâ¸ö¿Ø¼þµÄʱºò£¬Óû§µÄIE²Å»áÏÂÔØ¡¢°²×°²¢ÏÔʾÕâ¸ö¿Ø¼þ¡£
µ«ÊÇÎҵĿؼþ±ØÐë×÷Êý×ÖÇ©ÃûÒÔºó£¬IE²Å»áÏÂÔØ°²×°¡£ ......
#13»Ø³µ»»ÐÐ
½«form2ÄÚÈݼÓÈëµ½form1Áбí¿ò£ºÔÚform2Àform1.listbox1.items.add(edit1.text)
listbox1.items.loadfromfile('chinese.txt')½«chinese.txtÎļþÄÚÈÝÔØÈëÁбí¿òÖС£µ«Ç°ÌáÊÇÒªÕû¸ö´°Ìå´´½¨Ê±ºò¼ÓÔØµ¼È룬˫»÷Õû¸ö´°Ìåprocedure TForm1.FormCreate(Sender: TObject)
listbox1.items.savetofile('chinese. ......
¡¡¡¡DelphiÓïÑÔ£¬ÎÞÂÛÊÇ´Ó¿ª·¢ËÙ¶È¡¢»¹ÊÇÔËÐÐËÙ¶È¡¢»¹ÊDZàÒëËÙ¶È¡¢»¹ÊDZàÒëÖ®ºóµÄÖ´ÐÐÎļþÌå»ý£¬¶¼ÊÇÊýÒ»Êý¶þµÄ¡£Òò´Ë±»×÷Ϊ¹²ÏíÈí¼þ¡¢¿ª·¢²úÆ·¡¢ÖÆ×÷“ÂÌÉ«Èí¼þ”µÄÊ×Ñ¡¡£µ«ÊÇ£¬ÓÉÓÚÖî¶àÔÒò£¬DelphiÖУ¬ÓÐһЩ¿Ø¼þ£¬´æÔÚһЩbug¡£²»ÂÛ¹ã´ó¼¼ÊõÈËÔ±ÈçºÎ·´Ó¦£¬Delphi¹Ù·½¾ÍÊÇ“ÊÓ¶ø²»¼û”¡£ÓÐÎÊÌ⣬È˼ ......
ÔÚDelphiÖУ¬µ÷ÓÃShowmessageºó£¬ÈçºÎʹµ¯³öµÄ¶Ô»°¿òÔÚÒ»ÃëÖÓºó×Ô¶¯¹Ø±Õ£¬¶ø²»ÓÃÊÖ¶¯È¥µãÈ·¶¨
1:ÓÃtimer¿Ø¼þµÄº¯Êý
procedure TForm1.Timer1Timer(Sender: TObject);
var
AHandle: THandle;
begin
AHandle := FindWindow('TMessageForm',
PChar(Application.Title));
if AHandle > 0 then
SendMessage( ......
¼¼Êõ½»Á÷,DH½²½â. ½ñÌì½øÈëÕâÊéµÚ¶þÕ ¹³×Ó(HOOK).
ÏÈ˵˵¹³×ÓÊÇʲô?
¹³×ÓÆäʵ¾ÍÔÚÄã»·¾³ÖмÓÉÏÒ»²ã¹ýÂË,ÔÚÌØÊâÇé¿öϾʹ¥·¢¹³×ӻص÷º¯Êý.
±ÈÈç˵ÎÒÃǰ²×°ÁËÈ«¾ÖµÄ¼üÅ̹³×Ó,ÄÇôµ±ÎÒÃǰ´¶¯¼üÅÌÉÏÃæµÄ¼üµÄʱºò,¹³×ӵĻص÷º¯Êý¾Í»á´¥·¢.
ÎÒÃÇÒ²ÄÜ¿´µ½±¾À´ÊÇÖ±À´Ö±ÍùµÄ,½á¹ûÏÖÔÚÖм䰲װÁËÒ»²ã¹ýÂË,Ï ......