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
Ïà¹ØÎĵµ£º
½ñÌìÏîÄ¿×é·¢ÉúÒ»¸öÊÂÇé¾ÍÊÇ£¬ºǫ́aixÉ϶ԶàÓïÑÔÎı¾£¨Ó¢Óï+ºº×Ö£©»»ÐÐÎÊÌâ¸ã²»Ì«Çå³þ¡£
×îÔçǰ̨µÄ¶à×Ö·ûµÄ´úÂëÎÒ¼ì²éÁËһϣ¨°´ÕÕ0-128ÒÔÍâËãÖÐÎĵĴúÂ룩·¢ÏÖ²»Êǰ²È«µÄ´úÂë¡£
(delphi 7.0)
delphi°²È«µÄ»ìºÏ×Ö·ûµÄ²Ù×÷·½·¨ÊÇ£º
ÔÚstrsUtilsµ¥ÔªÖÐ
leftstr
MidStr
Rightstr
aixÏÂÊÇ£º ......
ÔÎIJμû£º http://blog.csdn.net/ingener/archive/2007/12/22/1958535.aspx
¹ØÓÚDelphiÖÐDLL·â×°¶ÔÏóµÄ¼¸ÖÖ·½·¨ÕûÀí¼°Ìå»á
DelphiÓÃDLLÀ´·â×°¶ÔÏóµÄ¼¼ÊõÖ÷ÒªÓÐÈýÖÖ:
ÓýӿÚʵÏÖ
Óô¿ÐéºÍ³éÏóÀà·½·¨ÊµÏÖ
ÓÃÀàÒýÓÃʵÏÖ
ǰÁ½ÖÖ£¬¶¼ÊÇÔÚDLLÖÐÉú³ÉÀàʵÀý£»µÚ3ÖÖͨ¹ýÔÚµ÷Ó÷½Éú³ÉʵÀý¡£ÈýÖÖ·½·¨µÄ¹²Í¬¾ÖÏÞÈçÏ£º ......
Procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
begin
if Msg.message = WM_MouseWheel then
begin
if Msg.wParam > 0 then
begin
if DBGrid.Focused then
......
żȻÀ´ÕÒÒ»¸öÎļþ£¬È´·¢ÏÖÕâÀï¹ØÓÚvc++ºÍDelphiµÄÌÖÂÛºÜÊǼ¤ÁÒ¡£¿´ÁË´ó¼ÒдµÄһЩ
ÎÄÕ£¬¾õµÃÓÐЩ¿´·¨ÕýÈ·£¬ÓÐЩ¾ÍºÜÆ«ÆÄÉõÖÁ´íÎó(Ò²ÐíÎÞÖª£¿ºÜ±§Ç¸ÎÒÕâÑù˵:-)¡£ÎÒ
ÎÞÒâÓëÈκÎÈËÕùÂÛ£¬¸üÔ¸Òâ°ÑÕâ¿´³ÉÊǼ¼ÊõÉϵÄÌÖÂÛ¡£Ó¦¸Ã±¾×Ź«Õý£¬²»´øÆ«¼ûµÄ̬¶È
(Õâ²¢²»Òâζ×Å·ÇҪƽ·ÖÇïÉ«£¬Ò»ÇÐÓ¦ÒÔÊÂʵΪ׼)¡£ÎÒÓùý³ýtp1ÒÔÍâµÄËùÓ ......