FieldByName

← →
Wind © (2006-12-30 02:17) [0]

Уважаемые программисты у меня вопрос следующего содержания:
К примеру есть
ADOQuery1, DataSource1, DbGrid1 и Edit1
Необходимо чтобы при установке курсора на определенную запись
в Edit1 вписывалось значение поля (к примеру "Name") как это сделать знаю что можно использовать FieldByName, но не могу привезать ее ни к чему (не заню к какому событию DBGrid1 и как узнать номер тек записи )..
Помогите простеньким примером пожалуйста.

← →
Германн © (2006-12-30 02:22) [1]

> Необходимо чтобы при установке курсора на определенную запись

Поясни что есть "установка курсора" в этой твоей фразе?

← →
Wind © (2006-12-30 02:27) [2]

Курсора в элементе DbGrid то есть, сделал SQL запрос получил к примеру 3 записи, устанавливаю курсор (или выделяю) вторую запись и в edit1 вписывается содержимое поля Name для этой записи.

← →
Wind © (2006-12-30 02:30) [3]

Вот так будет понятней чего я добиваюсь
Хотя пример кода неверен

procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Edit2.Text:=DBGrid1.Fields[0].CurValue;
end;

← →
Wind © (2006-12-30 02:38) [4]

Спасибо сам разобрался

procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Edit2.Text:=DBGrid1.Fields[0].CurValue;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
Edit2.Text:=DBGrid1.Fields[0].CurValue;
end;

← →
Max Zyuzin © (2006-12-30 13:27) [5]

>Wind © (30.12.06 02:30) [3]
Лучше использовать события не DBGrid-а а компонента работающего с набором данных. в твоем случае ADOQuery1. Обрабатывай событие AfterScroll.

← →
Anatoly Podgoretsky © (2006-12-30 17:15) [6]

> Wind (30.12.2006 2:17:00) [0]

Рациональнее заменить TEdit на TDBEdit, тогда ничего делать не надо.

← →
Wind © (2006-12-31 00:05) [7]

> Рациональнее заменить TEdit на TDBEdit, тогда ничего делать
> не надо.

Как записать данные из TDBEdit в переменную ?
т.е.

var a: string;
begin
a:= DbEdit1.???
end;

← →
DrPass © (2006-12-31 01:01) [8]

> var a: string;
> begin
> a:= DbEdit1.???
> end;

var a: string;
begin
a:= ADOQuery1.FieldByName(DBEdit1.DataField).AsString;
end;

> MsGuns © (31.12.06 13:35) [9]

Человек хотел с помощью DBEdit1 получить ее содержимое. Он его получит таким способом. Если мозгов хватит, то легко сможет разобраться и усовершенствовать этот пример. Если не хватит - сам себе злобный буратино. А курс по работе с базами данных в Delphi здесь писать не стоит :)

DrPass
Большое спасибо за помощь.

FieldByName Найти похожие ветки