Форум: "Базы";
Текущий архив: 2003.08.28;
Скачать: [xml.tar.bz2];
Вниз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;
← →
MsGuns (2003-08-06 12:57) [3]Если надо отображать одну и ту же таблицу на разных контролах (допустим разные комбинации отображаемых полей или еще что), но при изменении надо отображать это новшество только в том котнтроле, которое было активным на момент изменения, то
1. Вместо TTable использовать TQuery
2. Редактить давать либо через UpdateObject либо через сторонний контрол.
3. Переоткрытие датасета в активном контроле.
Но вообще-то странно все это. Получается, что если я удалю запись в первом щите, а во втором добавлю, оба щита мне будут показывать разные данные одной и той же таблицы ?
Здаэться мени, що "шось пробздило у датьсом короливсьтви" ;)))
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.08.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c