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

delphiÈçºÎʵÏÖ¶à¸ö±íÖÐÊý¾ÝÏà¼Ó

³É±¾·ÑÓôæÔÚ4¸ö±íÖУ¬±ÈÈçcb1£¬cb2£¬cb3£¬cb4£¬×ֶηֱðΪfy1£¬fy2£¬fy3£¬fy4£¬ÎÒÈçºÎÔÚdelphiÖÐÀûÓÃsqlÓï¾äͳ¼Æ³É±¾·ÑÓÃ×ܺͣ¬±¾ÈËÐÂÊÖ£¬Ï£ÍûÄÜÏêϸ˵ÏÂ.

ÕâËĸö³É±¾±íûÓÐÈκιØÁª£¬ÔÙ˵¾ßÌåÒ»µã£¬±ÈÈç˵ÔÚform1ÖÐÓÐÒ»¸öedit¿ò£¬ÏÖÔÚÒª×öµÄ¾ÍÊÇ£¬¸ù¾Ýedit¿òÖÐÊäÈëµÄµ¥ºÅ£¬Ôڳɱ¾±íÀï½øÐмìË÷£¬¼ìË÷³öÀ´ºó½«ËûÃǵÄ×ÜºÍ¼ÓÆðÀ´¾ÍÊÇ×ܵijɱ¾ÁË¡£²»ÖªÎÒ±í´ïÇå³þÁËû¡£
ÎÒÕâÑùд²»ÖªµÀ¶Ô²»¶Ô

Delphi(Pascal) code:
sql.clear;
sql.add('select sum(a+b+c+d) as aNum from');
sql.add('(select dl_tit as a from dl_fyxx where dl_id='+QuotedStr(edit12.text));
sql.add('union all');
sql.add('select other_tit as b from other_fyxx where other_id='+QuotedStr(edit12.text));
sql.add('union all') ;
sql.Add('select cd_tit as c from cd_fyxx where cd_id='+QuotedStr(edit12.Text));
sql.Add('union all');
sql.add('select hy_tit as d from hy_fyxx where hy_id='+QuotedStr(edit1.text)+') as p ') ;
dm.QCBFY.Open;
cb:=dm.QCBFY.FieldByName('aNum').AsInteger;


ÕâÑù»áÂýËÀ

select sum(a.a)+sum(b.b)+sum(c.c)+sum(d.d) as aNum from dl_fyxx a,other_fyxx b,cd_fyxx c,hy_fyxx d where a.dl_id = b.other_id and a.dl_id = c.cd_id and a.dl_id = d.hy_id
and a.dl_id='+QuotedStr(edit12.text);

ÒÔÉÏ´úÂëû²âÊÔ£¬²»ÖªµÀ¶Ô²»¶Ô£¬µ«ÊÇÄã²»Òª¸ã¼¸¸öSELECT £¬²»È»ºÜ


Ïà¹ØÎÊ´ð£º

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

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

DelphiÔõôȡ·µ»ØÄÚÈÝÖеÄÖ¸¶¨²¿·Ö.

·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......

Çë½ÌÏ£¬ÓÃDELPHI×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

Delphi½øÏú´æÅ̵ãά»¤ ÅÌÓ¯¿÷¹¦ÄÜ

ÏëÇëÎʸ÷λ£ºÅ̵ãά»¤ÀïÃæ£ºÅÌÓ¯¿÷ÊýÁ¿=¿â´æÊýÁ¿+Èë¿âÊýÁ¿-³ö¿âÊýÁ¿£¬ÕâÑù×öÊǶԵÄÂð£¬

Â¥ÉÏÕý½â,ÕýÊýÅÌÓ¯ ¸ºÊýÅÌ¿÷

һ¥ÕýÈ·£¡

лл¸÷λÀ²

¾ÍÊÇ£ºÊDz»ÊÇ Êµ¼Ê¿â´æÀïµÄ¿â´æÁ¿ ÓëÄãÊÖ¶¯Êä½øÈ¥µÄÊýÁ¿Ö®¼äµ ......

delphi activx µÄÎÊÌâ 110·Ö

ÎÒÔÚÍøÉÏÕÒÁ˸ö¹ØÓÚIEBHOµÄ´úÂ룬Ȼºó°´ÕÕÄĸöÉèÖÃÁË£¬ºóÀ´ÔËÐеÄʱºò³öÏÖ 
[´íÎó] Unit1.pas(15): Undeclared identifier: 'GetTypeInfoCount'
[´íÎó] Unit1.pas(15): Undeclared identifier: 'GetTypeInfo ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ