摘要: varrow:integer;sqlstr,sqlstr2:String;beginASG2.ScrollBars:=ssNone;ASG2.RowCount := 1; //表格为空row:=ASG2.rowcount-1;sqlstr:='select * from Ta where 1=1 '; if Et1.Text<>'' then begin //sqlstr2:='%'+Et1.Text+'%'; sqlstr:=sqlstr+' and UPPER(KHMC) like UPPER('+QuotedStr('%'+Et1.Text+'%')+')'; end; 阅读全文
posted @ 2011-02-18 21:54 阳光不远 阅读(465) 评论(1) 推荐(0) 编辑