| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

как сделать кнопку

николай ©   (2003-07-30 12:32:00) 

Привет всем!Помогите пожайлуста написать процедуру добавления записи к кнопочке TBitBtn.У меня существует БД Access на Delphi7,
в ней есть компонент TPageControl на котором есть несколько вкладок,а на них по одной таблице TTable1,TTable2 и т.д.Я хочу чтобы при записи данных в Еdit1,Edit2 и т.д.(находятся за TPageControl)и нажатии кнопки TBitBtn(добавить),запись добовлялась в активную вкладку(таблицу).Помогите пожайлуста,очень нужно.Заранее благодарен.

---

SPIRIT   (2003-07-30 14:10:00) [1]

за огромной, толстой книгой которая начинается со слов:
"Нажмите кнопку на CD-ROM и вставьте установочный диск с Delphi7..." и т.д. ;-/

---

Плохиш   (2003-07-30 14:02:00) [2]

>SPIRIT © (30.07.03 13:58)
Ну так стоит ему за книжкой сбегать? ;-)

---

SPIRIT   (2003-07-30 13:58:00) [3]

ааа Николай имел в виду TDBgrid ..... ????? Да ??? а не TTable ... который этот тейбл и отображает так ведь..
т.е. на каждой вкладке по
в ней есть компонент TPageControl на котором есть несколько вкладок,а на них по одной таблице TTable1,TTable2 и т.д
по однолму DBGrid"у

---

SPIRIT   (2003-07-30 13:54:00) [4]

НЕ СПРОРЬ... он не оюманывает .. так и есть
или же ты обращаешься Form1.PageControl1.Table1???????

---

николай   (2003-07-30 13:47:00) [5]

на разных

---

SPIRIT   (2003-07-30 13:39:00) [6]

а по мне так лучше TTabControl и один TEdit

if tabControl.tabindex=0 then
begin
table1.insert;
table1.fiel....edit1.text;
table1.post;
end
else
begin
table2.insert;
table2.fiel....edit1.text;
table2.post;
end

если закладки конечно всего 2

---

ЮЮ   (2003-07-30 13:26:00) [7]

>есть компонент TPageControl на котором есть несколько вкладок,а на них по одной таблице TTable1,TTable2

Начнем с того, что TTable1,TTable2,... лежат на форме, на не на разных TabSheet-ах :-)

---

SPIRIT   (2003-07-30 13:20:00) [8]


If pageControl1.TabIndex=0 then
begin
with AdoTable1 do
begin
insert;
fieldbyname("имя поля").value:=edit1.text;
post;
end;
end
else with AdoTable2 do
begin
insert;
fieldbyname("имя поля").value:=edit2.text;
post;
end;


а если работать не будет, то не беги за книжкой ,а задавай вопросы здесь на то он ФОРУМ

---

Соловьев   (2003-07-30 13:12:00) [9]

> николай (30.07.03 12:32)

вчера ты спрашивал как такое сделать с TEdit, и что? не получилось?

---

Плохиш   (2003-07-30 12:39:00) [10]

Кидаешь на форму TBitBtn, кликаешь на ней два раза (очень быстро) и в открывшемся редакторе пишешь всё, что хочешь.
Если не знаешь, что хочешь, то бежишь в ближайший книжный магазин и покупаешь книжку по программированию на Delphi.

---

Наверх