procedure TForm1.Button1Click(Sender: TObject);
VAR
SS:STRING;
i:integer;
begin
ss:='select * from qd2_main where ';
if trim(edit1.Text)<>'' then
begin
ss:=ss+' and mainno like ''%' + Trim(edit1.Text) + '%''';
end;end;end.
VAR
SS:STRING;
i:integer;
begin
ss:='select * from qd2_main where ';
if trim(edit1.Text)<>'' then
begin
ss:=ss+' and mainno like ''%' + Trim(edit1.Text) + '%''';
end;end;end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货