Поиск в бд.

[googl]

и вот это:

procedure TForm77.Edit_SearchChange(Sender: TObject);
var Key: Word; Shift: TShiftState;
begin
if Edit_Search.Text='' then
begin
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [клиенты]');
ADOQuery1.Active:=True;
end else
begin
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [клиенты] WHERE [Фамилия] LIKE "'+Edit_Search.Text+'%"');
ADOQuery1.Active:=True;
end;

можно переписать так:

procedure TForm77.Edit_SearchChange(Sender: TObject);
var Key: Word; Shift: TShiftState;
begin
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [клиенты] WHERE [Фамилия] LIKE '+chr(39)+Edit_Search.Text+'%'+chr(39));
ADOQuery1.Active:=True;
end;

[googl]

офигеть:TForm77

[Екатерина20]

Сообщение от googl

Мне кажется, никто не увидел суть изначальной проблемы. В едите изначально сотри Text и укажи TextHint -поиск. и вот когда ты будешь нажимать на окошко с поиском, слово ПОИСК будет пропадать. а все Clear можно поубирать

У меня TextHint не отображается. Что делать?

Он похоже есть только после 9 версии, а у меня 7

googl, Спасибо, благодаря тебе нашла на другом форуме ответ Твое решение подойдет для, для более новых версий.
А для моей, может кому-то понадобится, подошел этот код

procedure TForm77.Edit1Exit(Sender: TObject);
begin
      if Edit1.Text = '' then
        begin
          Edit1.Text:='Поиск';
          Edit1.Font.Color:=clGray
        end
    end;

procedure TForm77.Edit1Enter(Sender: TObject);
begin
     Edit1.Clear;
      Edit1.Font.Color:=clBlack;
end;
end.

Да, что такое! Поиск стал исчезать, но опять с какими-то косяками. Наводишь на таблицу, чтобы выбрать клиента, и она пустой становится.

[Arishk@]

Сообщение от Екатерина20

Да, что такое! Поиск стал исчезать, но опять с какими-то косяками. Наводишь на таблицу, чтобы выбрать клиента, и она пустой становится.

Таблица пустой становится??

там где едит у тебя очищается я бы сделала так... правда загвоздка будет с тем если ты будешь вводить слово поиск

if Edit1.Text = 'Поиск' then begin
Edit1.Clear;
 Edit1.Font.Color:=clBlack;
 end;

хотя можно ввести переменную и недостаток устранится

procedure TForm1.Edit1Enter(Sender: TObject);
begin
if (Edit1.Text = 'Поиск') and (l=1) then begin
Edit1.Clear;
 Edit1.Font.Color:=clBlack;
  l:=0;
 end;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
if Edit1.Text = '' then
 begin
 Edit1.Text:='Поиск';
 Edit1.Font.Color:=clGray ;
 l:=1;
 end;
end;

[googl]

там при клике код есть?

[Екатерина20]

Сообщение от googl

там при клике код есть?

Нет, только в Change

[googl]

чет я не въеду. скрин выложить можно? или код из этого модуля

[Екатерина20]

Сообщение от googl

чет я не въеду. скрин выложить можно? или код из этого модуля

 //Поиск
procedure TForm77.Edit1Change(Sender: TObject);
var Key: Word; Shift: TShiftState;
begin
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [клиенты] WHERE [Фамилия] LIKE '+chr(39)+Edit1.Text+'%'+chr(39));
ADOQuery1.Active:=True;
end;

procedure TForm77.Edit1Exit(Sender: TObject);
begin
if Edit1.Text = '' then
begin
Edit1.Text:='Поиск';
Edit1.Font.Color:=clGray
end;
end;

procedure TForm77.Edit1Enter(Sender: TObject);
begin
Edit1.Clear;
Edit1.Font.Color:=clBlack;
end;

From Stilet: У нас принято код оформлять по правилам с помошью спецтега, по кнопке # в редакторе! Попрошу не игнорировать эту возможность.

Похоже придется мне рядом подписывать)

[googl]

Сообщение от Екатерина20

 //Поиск
procedure TForm77.Edit1Change(Sender: TObject);
var Key: Word; Shift: TShiftState;
begin
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [клиенты] WHERE [Фамилия] LIKE '+chr(39)+Edit1.Text+'%'+chr(39));
ADOQuery1.Active:=True;
end;

procedure TForm77.Edit1Exit(Sender: TObject);
begin
if Edit1.Text = '' then
begin
Edit1.Text:='Поиск';
Edit1.Font.Color:=clGray
end;
end;

procedure TForm77.Edit1Enter(Sender: TObject);
begin
Edit1.Clear;
Edit1.Font.Color:=clBlack;
end;

Ченч реагирует на любые изменения в едите.
Т.е. когда делается ексит и текс присваивается поиск, выполняется запрос с параметром "поиск".

вот так:

procedure TForm77.Edit1Change(Sender: TObject);
var Key: Word; Shift: TShiftState;
begin
if Edit1.text<>'Поиск' then
 begin
  ADOQuery1.Active:=False;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM [клиенты] WHERE [Фамилия] LIKE          '+chr(39)+Edit1.Text+'%'+chr(39));
   ADOQuery1.Active:=True;
end;
end;

[Екатерина20]

Сейчас вроде все работает. Только так же сортировку меняет, ну да ладно оставлю так. Спасибо за помощь))