摘要:
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; 阅读全文