Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

FieldByName [D7]

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

Wind (2007-01-08 01:53:00) [1]
DrPass
Большое спасибо за помощь.

DrPass (2006-12-31 17:03:00) [2]

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

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

MsGuns (2006-12-31 13:35:00) [3]
>DrPass © (31.12.06 01:01) [8]

???

DrPass (2006-12-31 01:01:00) [4]

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

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

Wind (2006-12-31 00:05:00) [5]

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

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

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

Anatoly Podgoretsky (2006-12-30 17:15:00) [6]
> Wind (30.12.2006 2:17:00) [0]

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

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

Wind (2006-12-30 02:38:00) [8]
Спасибо сам разобрался

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

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

Wind (2006-12-30 02:30:00) [9]
Вот так будет понятней чего я добиваюсь
Хотя пример кода неверен

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:27:00) [10]
Курсора в элементе DbGrid то есть, сделал SQL запрос получил к примеру 3 записи, устанавливаю курсор (или выделяю) вторую запись и в edit1 вписывается содержимое поля Name для этой записи.

Германн (2006-12-30 02:22:00) [11]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »