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

delphi²Ù×÷Êý¾Ý¿âÎÊÌâ

ÏÈ˵˵ÒÔǰÓÃasp²éѯµÄ·½·¨
downÊÇÒ»¸ö±í,·Ö±ðÓÐ×Ö¶Îdown_id,down_url,down_text
testdownÊÇÁíÒ»¸ö±í,·Ö±ðÓÐ×Ö¶Îdown_id,test_down_url
sql="select * from down order by down_count desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
ÎÒÏÖÔÚÒª²éѯÁíÒ»¸ö±ítestdownµÄ×Ö¶Îtest_down_urlµÄÄÚÈÝ,µ±down_idÓëµÚÒ»¸ö±ídownµÄ×Ö¶Îdown_idÏàͬµÄʱºò
sql1="select * from testdown where down_id="&rs("down_id")
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,1

µÚ¶þ²éѯ¾ÍʵÏÖÁËÕâ¸öĿ¼,ÔÚÁíÒ»¸ö±íÖвéѯÓëµÚÒ»¸ö±íÖÐÏàͬ×Ö¶ÎÖµµÄÒ»¸öÖµ
ÎÒ²»ÖªµÀÔÚdelphiÔõôʵÏÖ

ÓÃADOQueryµÄ»°
Çë¸÷ÐÅ´óÉñÖ¸µã½­É½,СµÜ²»²Å,³õѧdelphi
ÀàËÆ·½·¨ÈçÏ£¬ÓÃinner joinÁ¬½Ó
select * from A inner join B on A.id=B.id where A.id=1

Delphi(Pascal) code:

qry1.Close;
qry1.SQL.Text:='select * from down order by down_count desc';
qry1.Open;

down_id:=qry1.fieldByName('down_id').asstring;//Õâ¸öÖµ²»ÖªµÀÄãÊÇʲôʱºòÈ¡µÄ
qry2.Close;
qry2.SQL.Text:='select * from testdown where down_id='+down_id;
qry2.Open;




ллÁ½Î»ÐÖµÜÏà½Ì,СµÜ·Ö²»¶à,´ÓÐÄÀï¸ÐлÄãÃÇ


Ïà¹ØÎÊ´ð£º

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

delphi¹ýÂËhtmµÄÎÊÌâ

HTML code:
<th scope="col">¿ì¼þµ¥ºÅ</th><th scope="col">²Ù×÷ʱ¼ä</th><th scope="col">¿ì¼þÁ÷³Ì</th>
</tr><t ......

delphi µ÷Óô洢¹ý³Ì

Çë½Ì´ó¼ÒÒ»¸öÎÊÌ⣬delphi²»Óÿؼþµ÷ÓÃSQL SERVER´æ´¢¹ý³Ì¡£ ÈçÏÂÃæÓï¾ä£º
....//Ç°ÃæµÄÓï¾äÎÒ¾ÍÊ¡ÂÔÁË
strSQL:='UP_READREQ '+''''+strApplyID+''''+,+strNo+', ......

¸Õ½Ó´¥delphi£¬Ò»ÎÊÌâÇóÖúdelphi¸ßÊÖ

ÉèÓÐÈçϱíÏÔʾÔÚdbgridÖÐ


µ¥¼Û ÊýÁ¿ ×ܼÛ

0.5 100 50

0.2 50 10

0.1 100 10

µ±ÎÒ ÔÚdbgrid ÐÞ¸Ä µ±ÎÒ°Ñ µÚÒ»¸ö¼Ç¼ µÄ µ¥¼Û ×÷Ð޸ĺó,½¹µãÒÆ¿ª ËùÐ޸ĵÄÄǸöµ¥Ôª¸ñʱ, ÎÒÏ£ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ