¹ØÓÚDELPHI¶àÏß³Ìͬ²½µÄÎÊÌâ - Delphi / ·Ç¼¼ÊõÇø
¸÷λÅóÓÑ´ó¼ÒºÃ£¬±¾È˸տªÊ¼Ñо¿¶àỊ̈߳¬»¹Óкܶ಻Ã÷°×µÄµØ·½£¬Íû´ó¼ÒÖ¸½Ì£¬Ð»Ð»£¡
ÎÊÌâÊÇÕâÑùµÄ£º
¶¨ÒåÁ½¸öỊ̈߳¬µ±°´Å¥Á¬½ÓʱִÐÐÁ¬½Ó´´½¨Ò»¸öÏß³ÌÐò£¬Á¬½Ó³É¹¦ºóÖ´Ðвéѯ°´Å¤ÔÙ´´½¨Ò»¸öỊ̈߳¬ÏÖÔÚÎÊÌâÊDzéѯÏß³Ì
ÖÐÎÞ·¨ÀûÓá¡Á¬½ÓÏ̵߳ÄSocketConnection1£¬ÈçºÎͬ²½ÄØ£¿
²¿·Ö´úÂëÈçÏ£º
¶¨Ò壺
type
Tthread1 = class(Tthread)
protected
procedure Execute;override;
procedure getSocketConn;
end;
type
Tthread2 = class(Tthread)
protected
procedure Execute;override;
procedure getClientDataSet;
end;
procedure Tthread1.Execute;
begin
Try
FreeOnTerminate:=true;
ConToolsFrm.SocketConnection1.ServerGUID:='{2C8E3F43-ABE4-11D4-B352-00E04C67568C}';
ConToolsFrm.SocketConnection1.ServerName:='apply_tier.Apply_data';
ConToolsFrm.SocketConnection1.Connected:=False;
ConToolsFrm.SocketConnection1.Host:= ConToolsFrm.edtHost.Text;
ConToolsFrm.SocketConnection1.Connected:=True;
ShowMessage('Á¬½Ó³É¹¦£¡');
Except
ShowMessage('Á¬½Óʧ°Ü£¬Çë¶Ï¿ªºóÔÙÊÔ£¡');
ConToolsFrm.SocketConnection1.Connected:=False;
end;
end;
procedure Tthread2.Execute;
var
sqlStr:string;
begin
ConToolsFrm.ClientDataSet1.Close;
&nb
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
Êý¾Ý£º Äê Ô ÈÕ ¿ªÅÌ ÊÕÅÌ
ʹÓÃÏÂÃæÓï¾äËÑË÷µ½ÁË Ã¿Äêÿ¸öÔµÄÔ³õºÍÔÂÄ©¶¼ÊǼ¸ºÅ
select Äê,ÔÂ,MIN(ÈÕ) as frist,MAX(ÈÕ) AS laset from mt4his.DB GROUP BY Äê,ÔÂ
ÎÒÏëµÃµ½ ÿÄêÿ¸öÔµÄÔ³õºÍÔÂÄ© ......