поиском в бд

[_SERGEYX_]

Bek-Z, вот тебе весь поиск по БД.

select * from <table> where <field> like "%'+Edit1.Text+'%"

Если ты этого кода не понимаешь - читай книги по БД

[wm_leviathan]

исходя из вашего исходника (я по казахски вообще не понимаю ничего). добавил пару записей чтоб было из чего искать. на форме 7 (Form7) там где таблица кинул от фонаря Edit1 и кнопку в кнопке написал код

table1.Locate('Aty-joni',Edit1.Text,[loCaseInsensitive,loPartialKey]);

Aty-joni я так понял поле с фамилиями. при нажатии на эту кнопку курсор переходит на найденную фамилию в DbGrid'е. ну в эдите конечно забиваю фамилию (можно первые несколько букв).

[vovk]

хмм, ну да ладно, FORM7
то что в 4 посте для вашей таблицы

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

Aty-joni я так понял поле с фамилиями. при нажатии на эту кнопку курсор переходит на найденную фамилию в DbGrid'е. ну в эдите конечно забиваю фамилию (можно первые несколько букв).

Не повериш тоже самое по тому же полю)) мож скачать проверить)

[wm_leviathan]

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

Не повериш тоже самое по тому же полю)) мож скачать проверить)

умные мысли в дельные головы приходят одновременно

[Bek-Z]

daa... rabotaet! Ogromnoe spasibo vam VOVK i WM_LEVIATHAN. A mojno sdelat' tak 4toby stroka s naidennym polnost'yu vydelilas'???

[vovk]

можно всегда выделять текущую строку, к примеру в опциях DBGrid свойство dgRowSelect поставить в True, но тогда редактировать в гриде нельзя будет записи.

или вот так

private
    type
T_rDBGrid = class(TCustomDBGrid);
........
.......
.......
procedure TForm7.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 with   T_rDBGrid(sender) do
           begin
        if  DataLink.ActiveRecord  =    Row - 1 then
         	 Begin
    		Canvas.Brush.Color:= clred;
  		Canvas.Font.Color := clBlack;
                end;
            IF gdSelected in State   Then
         	 Begin
    		Canvas.Brush.Color:= clBlue;
  		Canvas.Font.Color := clHighLightText;
   		End;
          end;
  (sender  as TDBGrid).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

и можно редактировать

[Bek-Z]

private
type
T_rDBGrid = class(TCustomDBGrid);

imenno kuda stavit'-
T_rDBGrid = class(TCustomDBGrid);

[vovk]

можно сюда

  private
    type
T_rDBGrid = class(TCustomDBGrid);

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

[Bek-Z]

4e to ne prinimaet

[vovk]

что не принимает? какая ошибка, или что не получается?

ладно вот