2,496
社区成员
发帖
与我相关
我的任务
分享
procedure TForm2.Button1Click(Sender: TObject);
var
sos:string;
begin
ADOTable1.Close;
ADOQuery1.sql.Clear;
if edit1.Text='' then
ADOQuery1.sql.Add('select * from 回款数据')
else
begin
ADOQuery1.sql.Add(('select * from 回款数据 where :ziduan like :zhi'));
ADOQuery1.Parameters.ParamByName('ziduan').Value:=ComboBox1.Text;
ADOQuery1.Parameters.ParamByName('zhi').Value:=('%'+edit1.Text+'%');
end;
Parameters.ParamByName('zhi').Value:=('%'+edit1.Text+'%');
procedure TForm2.Button1Click(Sender: TObject);
var
sos:string;
begin
ADOTable1.Close;
ADOQuery1.sql.Clear;
if edit1.Text='' then
ADOQuery1.sql.Add('select * from 回款数据')
else
begin
{ ADOQuery1.sql.Add(('select * from 回款数据 where ')+ComboBox1.Text+(' like :zhi'));
//ADOQuery1.Parameters.ParamByName('ziduan').Value:=ComboBox1.Text;
ADOQuery1.Parameters.ParamByName('zhi').Value:='%'+edit1.Text+'%';}
ADOQuery1.SQL.Add(('select * from 回款数据 where :zhi like %哈尔滨%'));
ADOQuery1.Parameters.ParamByName('zhi').Value:=ComboBox1.Text;
end;
ShowMessage(ADOQuery1.sql.Text);
ADOQuery1.Open;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
sos:string;
begin
ADOTable1.Close;
ADOQuery1.sql.Clear;
if edit1.Text='' then
ADOQuery1.sql.Add('select * from 回款数据')
else
begin
ADOQuery1.sql.Add(('select * from 回款数据 where ')+ComboBox1.Text+(' like :zhi'));
//ADOQuery1.Parameters.ParamByName('ziduan').Value:=ComboBox1.Text;
ADOQuery1.Parameters.ParamByName('zhi').Value:='%'+edit1.Text+'%';
end;
ADOQuery1.Open;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
sos:string;
begin
ADOTable1.Close;
ADOQuery1.sql.Clear;
if edit1.Text='' then
ADOQuery1.sql.Add('select * from 回款数据')
else
begin
ADOQuery1.sql.Add(('select * from 回款数据 where :ziduan like :zhi'));
ADOQuery1.Parameters.ParamByName('ziduan').Value:=ComboBox1.Text;
ADOQuery1.Parameters.ParamByName('zhi').Value:=QuotedStr('%'+edit1.Text+'%'));
ADOQuery1.open;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
sos:string;
begin
ADOTable1.Close;
ADOQuery1.sql.Clear;
if edit1.Text='' then
ADOQuery1.sql.Add('select * from 回款数据')
else
begin
sos:='SELECT * FROM 回款数据 WHERE '+ QuotedStr(ComboBox1.Text)+' LIKE :zhi';
ADOQuery1.sql.Add(sos);
ADOQuery1.Parameters.ParamByName('zhi').Value:=('%'+edit1.Text+'%');
end;