DelphiÖеÄʱ¼ä²éѯ£¡ÄܸæËßÎÒÄÄÀï´íÁËÂ𣿣¡
t5:=' 1=1 ';
if CheckBox5.Checked then
t5:=' ÉúÈÕ>=#'+DateToStr(DateTimePicker1.Date)+'# and ÉúÈÕ<=#'+DateToStr(DateTimePicker2.Date)+'#';
¹ØÓÚʼþµÄ¸ñʽºÍ½ç¶¨·û£¬access,sqlserver,oracle¶¼Óе㲻ͬ£¬ÄãÕâÑùÓ²±àÂ뽨Òé¿´¿´ÄãµÄÊý¾Ý¿âµÄ¸ñʽҪÇó¡£
½¨ÒéÄãÓòÎÊý¾Í¿ÉÒÔ½â¾öÕâ¸öÎÊÌ⣬ʱ¼äÓòÎÊý±êʶ£¬ÔÚ´ò¿ªÊý¾Ý¼¯µÄ֮ǰÓÃParaByName('ʱ¼ä²ÎÊý1').Value:=TDateTime±äÁ¿¼´¿É£¬ÕâÑù¿ÉÒÔ±ÜÃⲻͬµÄÊý¾Ý¿âµÄʱ¼ä±íʾ·¨ºÍ½ç¶¨·û²»Í¬µÄÎÊÌâ
Èç¹ûÊÇoracleµÄ»°£¬¿ÉÒÔÓÃto_dateº¯Êý·½±ãÃ÷È·µÄת»»,´ïµ½ÔÚsqlÓï¾äÖÐÓ²±àÂë
ÀýÈç:select * from ±í1 where ʱ¼ä×Ö¶Î1 >= to_date('19900101','yyyyMMdd')
Ó¦¸ÃÊÇÒýºÅÎÊÌâ
strµÄ»°Ó¦¸ÃÓÃ''' °É
ͬÒâ˼һ¥µÄ˵·¨¡£
Êý¾Ý¿â²»Í¬SQLÓï¾äÂÔÓв»Í¬¡£
Â¥Ö÷µ½µ×³öʲô´í
if CheckBox5.Checked then
t5:=' ÉúÈÕ>=#'+formatdatetime('yyyy-mm-dd',DateTimePicker1.Date)+'# and ÉúÈÕ<=#'+formatdatetime('yyyy-mm-dd',DateTimePicker2.Date)+'#';
Â¥Ö÷Èç¹ûÓõÄÊÇaccessÊý¾Ý¿âÄÇô
t5:=' ÉúÈÕ>=#'+formatdatetime('yyyy-mm-dd',DateTimePicker1.Date)+'# and ÉúÈÕ<=#'+formatdatetime('yyyy-mm-dd',DateTimePicker2.Date)+'#';
Èç¹ûÊÇmssqlÄÇô
t5:=' ÉúÈÕ>='''+formatdatetime('yyyy-mm-dd',DateTimePicker1.Date)+''' and ÉúÈÕ<='''+formatdatetime('yyyy-mm-dd',DateTimePicker2.Date)+'''';
½¨ÒéÓòÎÊý´«µÝÈÕÆÚ
ÎÒÓõÄÊÇsql server2000Êý¾Ý¿â¡£
²¹³äһϣ¬ÎÒÓõÄÊÇsql server2000µÄÊý¾Ý¿â£¬ÉúÈÕÀàÐÍÓõÄÊÇdatetim
Ïà¹ØÎÊ´ð£º
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......
select * from shuju.DB where ¿ªÅ̼Û-ÊÕÅ̼Û<=0.02
¿ªÅÌ¼Û ÓëÊÕÅÌ¼Û ÊÇÊý¾Ý¿âÀïµÄ×Ö¶Î
select * from aTableName where ((¿ªÅ̼Û-ÊÕÅ̼Û) <=0.02 )
¿ªÅ̼۱ÈÊÕÅ̼۵ÍÁ½·ÖÒÔϵÄÇé¿ö
Mark!!!!!!
se ......
¸÷λºÃ£¡£¡
¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ
Ò»¸öÃû½Ð 1.text
ÄÚÈÝ£º
I like PC....
ÁíÍâÒ»ÊÇ2.text
ÄÚÈÝ:
function yk as string
endfunction
globals
endglobals
***********************·Ö½çÏß********** ......
Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......