Скачать: CL | DM;

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 ©   (2006-12-31 13:35) [9]

>DrPass ©   (31.12.06 01:01) [8]

???

---

← →
DrPass ©   (2006-12-31 17:03) [10]

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

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

---

← →
Wind ©   (2007-01-08 01:53) [11]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.032 c