StrSQL:='1=1'; //... //StrSQL:=StrSQL+'And a='''asdsadas''; //... ExeSql:='Select * from tb where '+StrSQL;
²»ÖªµÀÀí½â´íû ±ÈÈçTable1£¬ÓÐÒ»¸öÓÃÓÚ²éѯµÄ×Ö¶ÎField1£¬Èç¹ûÒªÓøÃ×Ö¶Î×÷Ϊ¹ýÂËÌõ¼þÀ´²éѯÊý¾Ý£¬¾ÍÒª´«²ÎÊý¸ø¸Ã×ֶΣ¬ÔòSQLд·¨ÈçÏ£º select * from Table1 where Field1 = :Field1; µ«Èç¹ûÓû§Ïë²éѯËùÓÐÊý¾Ý£¬ÔòSQLд·¨ÈçÏ select * from Table ÏÖÔÚ¾ÍÊÇÏëÒªÓÃÒ»ÌõSQLÓï¾äÀ´Ð´¡£ÒÔǰÓÐÓùýÕâÖÖд·¨µÄ£¬µ«Ïë²»ÆðÀ´ÁË£¬ÍûÓÐд¹ýÕâÖÖSQLÓï¾äµÄ´óÏÀÖ¸µãÖ¸µã¡£ ²»Ã÷°×Â¥Ö÷Ҫʲô¹¦ÄÜ£¿¾Ù³öÒ»¸öʵÁÐÀ´ËµÃ÷£¡ ʵÀý¼û3Â¥ sql := 'select * from Table1';
if Field1='' then sql := sql + ' where Field1 = :Field1'; sorryд·´ÁË¡£¡£
if Field1 <>'' then ...... form3.ADOQuery1.Close; form3.ADOQuery1.SQL.Clear; form3.ADOQuery1.SQL.Add('select sum(̨Êý*ÊýÁ¿) from hpck'); form3.ADOQuery1.Open; label54.Caption:=form3.ADOQuery1['expr1000']; <