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 £¬²»È»ºÜ
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
VC ¿ØÖÆÌ¨³ÌÐò:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
delphi »ñµÃÖ÷°åµÄÓ²¼þÐÅÏ¢
Win32_DiskDriveÒª»»Ò»Ï£¬Äã²éÏÂmsdn
http://hi.baidu.com/xuchuantao17/blog/item/dd6f1fdfe22ec41a48540314.html
²å¸ö±ê¼Ç
ÒýÓÃ
Win32_DiskDriveÒª»»Ò»Ï£¬Äã²éÏÂmsdn
Õ ......
delphiÈçºÎ»ñÈ¡ÍøÒ³µÄ·µ»Ø×´Ì¬£¬¾ÍÏñä¯ÀÀÆ÷Öзµ»ØµÄhttp 500´íÎó£¬404´íÎóµÈ
ÁíÍâÄܲ»ÄÜ»ñÈ¡µ½´ò¿ªÒ»¸öÍøÒ³µÄ·´Ó¦Ê±¼ä£¬¿ÉÒÔ´óÖ²ο¼ÍøÒ³´ò¿ªµÄËÙ¶È
лл£¡
¶¼¿ÉÒÔʵÏֵ쬾ßÌåµÄÄ㻹ÊDzé×ÊÁϰɣ¡
×Ô¼º ......