procedure Tfrom1.Edit1Change(Sender: TObject); begin if edit1.Text<>'' then begin if cpzl.Active=true then cpzl.Active:=false; cpzl.SQL.Clear; cpzl.SQL.Text:='select * from cpzl where CPPH like '+'''%'+edit1.Text+'%'''; cpzl.Open; end; end;
procedure Tfrom1.Edit1Change(Sender: TObject); begin if edit1.Text<>'' then begin if cpzl.Active=true then cpzl.Active:=false; cpzl.SQL.Clear; cpzl.SQL.Text:='select * from cpzl where CPPH like '+'''%'+edit1.Text+'%'''; cpzl.Open; end; end;
begin
if edit1.Text<>'' then
begin
if cpzl.Active=true then
cpzl.Active:=false;
cpzl.SQL.Clear;
cpzl.SQL.Text:='select * from cpzl where CPPH like '+'''%'+edit1.Text+'%''';
cpzl.Open;
end;
end;
begin
if edit1.Text<>'' then
begin
if cpzl.Active=true then
cpzl.Active:=false;
cpzl.SQL.Clear;
cpzl.SQL.Text:='select * from cpzl where CPPH like '+'''%'+edit1.Text+'%''';
cpzl.Open;
end;
end;