Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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´úÂëתC#´úÂ룬¼±Ó㬿ÉÈËÃñ±ÒÖ§¸¶£¬Ð»Ð»

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

unit UShare;
interface
uses Windows, Me ......

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

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

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

һ¥ÕýÈ·£¡

лл¸÷λÀ²

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

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

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

ÇódelphiºÚ°×Æå´úÂë

ÒªÇóÄÜʵÏÖ¶þÈËÔŲ́ͬµçÄÔÉ϶ÔÕ½µÄ ²»ÓÃÌ«»¨ÉÚ ×îºÃ»¹¼ÓÉÏÈË»ú¶ÔÕ½µÄ ¼±Ðè Ë­°ïÏÂæ°¡Ñ½!!!!!!!!
up

baidu£¬google

up

http://www.codepub.com/software/view-software-4061.html 
ÍøÕ¾ÉÏÓÐ
......

delphi¼òµ¥ÎÊÌâ

IF THEN ELSEÖжà¸öÌõ¼þÔõôд£¬È磺×Ö·û´®S1£¬S2£¬S3£¬S4¾ùÒª²»Îª¿Õ¡£
ÔõôÑù°ÑËüдµ½IFÖÐÈ¥£¿
Çë¸÷λ°ï°ï棬лл£¡
if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then
begin ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ