Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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Ôõôȡ·µ»ØÄÚÈÝÖеÄÖ¸¶¨²¿·Ö.

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

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

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

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

һ¥ÕýÈ·£¡

лл¸÷λÀ²

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

delphi ½øÏú´æÊ±Èë¿âÊýÁ¿ºÍ³ö¿âÊýÁ¿¼äµÄ¹ØÏµ

ÎÒÔÚ³ö¿â´°¿ÚдÁ˸ö·½·¨£ºADOQueryBill µÄbNum ×ֶεÄOnValidate·½·¨ ʵÏÖµÄÊdzö¿âÊýÁ¿²»ÄÜ´óÓÚÈë¿âµÄÊýÁ¿£¬·ñÔò¾ÍÖØÐÂÊäÈëÊýÁ¿£¬ÒÔÏÂÊÇÎҵĴúÂ룺
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......

delphi¼òµ¥ÎÊÌâ

IF THEN ELSEÖжà¸öÌõ¼þÔõôд£¬È磺×Ö·û´®S1£¬S2£¬S3£¬S4¾ùÒª²»Îª¿Õ¡£
ÔõôÑù°ÑËüдµ½IFÖÐÈ¥£¿
Çë¸÷λ°ï°ï棬лл£¡
if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then
begin ......

delphi 2010 ÓÐÆÆ½âµÄÂ𣿸ø¸öÏêϸµÄ£®

ÎÒÔõô²éÁËÄÇô¶à˵ÊÇÄÜÆÆ½âµÄ£®½á¹û¶¼²»ÐУ®ÄãÃÇÓÐûÓÐѽ£®¸øÎÒ¸öÏêϸµÄ½â¾ö·½°¸£®ÏÂÔØÄĸö°æ±¾£®ÆÆ½âÎļþ£¬»¹ÓÐ×¢²áÂë
²»Çå³þ

ÏÂÔØ¹Ù·½¹âÅ̾µÏñ£¬ÓÃdelphidistiller1.85ÆÆ½â

µ½www.2ccc.comÉÏÈ¥ÕÒdelphidis ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ