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

delphi ¶à¸öÎÞ¹ØÁª±í²éѯÎÊÌâ

ÎÒÏëʵÏÖÒÔϹ¦ÄÜ£¬ÔÚform1ÖеÄeditÎı¾¿òÖÐÊäÈëµ¥ºÅ£¬±£´æÊ±ÅжÏÕâ¸öµ¥ºÅÊÇ·ñ´æÔÚÓÚÁíÍâÈý¸ö±í£¬
±ítable1,table2,table3Öе¥ºÅÒÔ²»Í¬×ֶαíʾ£¬±ÈÈ磬dh1£¬dh2£¬dh3.
²»ÖªµÀ¸ÃÔõôдÁË¡£
select count(1) as aNum from (
select dh1 from table1 where dh1=QuotedStr(edit1.text)
union all
select dh2 from table2 where dh2=QuotedStr(edit1.text)
union all
select dh3 from table3 where dh3=QuotedStr(edit1.text) )  as p

Èç¹û²éѯ³öÀ´µÄֵΪ3˵Ã÷Èý¸ö±íÖж¼ÓУ¬·ñÔòûÓÐÔÚÈý¸ö±íÖдæÔÚ¡£

ÄÇÈç¹ûÈý¸ö±íÖÐÖ»ÒªÓÐÒ»¸ö±í´æÔھͿÉÒÔÄØ£¿

ÊÇÈý¸ö±íÖж¼²»´æÔÚ»¹ÊÇÖÁÉÙÓÐÒ»¸ö±í´æÔÚÄØ£¿


if not exists (select dh1 from table1 where dh1=QuotedStr(edit1.text))
  select -1
else if not exists (select dh1 from table2 where dh1=QuotedStr(edit1.text))
  select -2
else if not exists (select dh1 from table3 where dh1=QuotedStr(edit1.text))
  select -3
else select 0




ÒýÓÃ
ÄÇÈç¹ûÈý¸ö±íÖÐÖ»ÒªÓÐÒ»¸ö±í´æÔھͿÉÒÔÄØ£¿

ÄǾÍֻҪͳ¼Æ³öÀ´µÄaNum>=1¼´¿ÉÁË

ÒýÓÃ
ÊÇÈý¸ö±íÖж¼²»´æÔÚ»¹ÊÇÖÁÉÙÓÐÒ»¸ö±í´æÔÚÄØ£¿



µ¥ºÅ´æÔÚÓÚÁíÍâÈý¸ö±íÖеÄÈκÎÒ»¸ö¶¼ÐУ¡

ת»»³ÉdelphiÓïÑÔÄØ£¬ÓÃquery×é¼þ£¬Ì«±¿ÁË£¬³õѧÕß

with adoquery1 do begin
  close;sql.clear;
  sql.add('select count(1) as aNum from ');
&nbs


Ïà¹ØÎÊ´ð£º

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

VC Delphi ÄÚ´æËÙ¶È±È½Ï - VC/MFC / ·Ç¼¼ÊõÀà

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×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

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

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

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

ѧϰѧϰ¡£

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

2009ѧϰdelphiµÄǰ¾°

ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½ 
¿´µ½delphiµ ......

ÇóÒ»¶Îdelphi´úÂëתC#´úÂ룬¼±Ó㬿ÉÈËÃñ±ÒÖ§¸¶£¬Ð»Ð»

¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡­¡­);
Îļþ£ºUShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ