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

← →
николай (2003-07-30 12:32) [0]

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

← →
Плохиш (2003-07-30 12:39) [1]

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

← →
Соловьев © (2003-07-30 13:12) [2]

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

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

← →
SPIRIT © (2003-07-30 13:20) [3]

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:26) [4]

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

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

← →
SPIRIT © (2003-07-30 13:39) [5]

а по мне так лучше 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:47) [6]

на разных

← →
SPIRIT © (2003-07-30 13:54) [7]

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

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

← →
Плохиш (2003-07-30 14:02) [9]

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

как сделать кнопку Найти похожие ветки