TPageControl

← →
Niky (2003-08-06 11:05) [0]

Здравствуйте мастера!У меня такая проблема:есть компонент TPageControl (несколько вкладок) у каждой вкладки(TabSheet1,TabSheet2...)есть свой DBGrid1,DBGrid2...и свой TTable1,TTable2...,а также свой DataSeurse1,DataSeurse2...мне надо сделать кнопочку BitBtn, чтобы запись при её нажати добовлялась в активную таблицу(вкладку),но почему то запись добовляется во все вкладки,может это из-за того, что у меня во всех TTable-ах одинаковое TableName(имя таблицы)?
Пишу так:
procedure TForm1.BitBtn1Click(Sender: TObject); Begin case PageControl1.ActivPageIndex of 1:IF Table1.Locate(StToInt(edit1.Text),[loCaseInsensitive])=true then MessageDlg("совпадение",mtInformation,[mbok],0)else begin Table1.Insert; Table1.FieldByName("Год").AsInteger:=strtoint(Edit1.text); Table1.FieldByName("Автор").AsString:=Edit2.Text; Table1.FieldByName("Название литературы").AsString:=edit3.Text; Table1.FieldByName("Источник").AsString:=edit4.Text; Table1.FieldByName("Примечание").AsString:=Edit5.text; Table1.Post; Table1.Close; Table1.Open; end;
ит.д.с Table2.....
Я в делфи ещё новичёк,омогите пожайлуста.Niky

← →
Smashich © (2003-08-06 11:10) [1]

> добовляется во все вкладки,может это из-за того, что у меня во всех TTable-ах одинаковое TableName(имя таблицы)?

именно

← →
SPIRIT © (2003-08-06 12:23) [2]

If pagecontrol1.tabIndex=0 then begin действия с Table1; end; If pagecontrol1.tabIndex=1 then begin действия с Table2; end; If pagecontrol1.tabIndex=2 then begin действия с Table3; end;
если у тебя пейдж контрол сделай на каждой странице свою кнопку ха.. а вообще то это все делается гораздо интереснее....
и зачем у тебя в таблице одинаковые поля ????

или, я так прикинул это у тебя статьи из трех журналов... а если еще журнал добавиться ? скажи чё за база может поможем спроектировать эффективнее...
вместо
close; и
open;
используют active:=false;
active:=true;

Если надо отображать одну и ту же таблицу на разных контролах (допустим разные комбинации отображаемых полей или еще что), но при изменении надо отображать это новшество только в том котнтроле, которое было активным на момент изменения, то
1. Вместо TTable использовать TQuery
2. Редактить давать либо через UpdateObject либо через сторонний контрол.
3. Переоткрытие датасета в активном контроле.

Но вообще-то странно все это. Получается, что если я удалю запись в первом щите, а во втором добавлю, оба щита мне будут показывать разные данные одной и той же таблицы ?

Здаэться мени, що "шось пробздило у датьсом короливсьтви" ;)))

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