TPageControl
От: niky_ch  
Дата: 06.08.03 14:40
Оценка:
Здравствуйте мастера!У меня такая проблема:есть компонент 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
Re: TPageControl
От: &reY Украина http://www.livejournal.com/~1000turov/
Дата: 06.08.03 16:27
Оценка:
Здравствуйте, niky_ch, Вы писали:

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


скорее всего именно из-за этого

зы. и зачем на разных tabsheet'ах делать гриды с одинаковыми таблицами, обычно эти tabsheets используются для отображения, ну хотябы, просто разных записей одного и того же грида, т.к. форма имеет один и тот же вид, просто разные данные

если же нужно разный вид, то используй pagecontrol
Re: TPageControl
От: akasoft Россия  
Дата: 06.08.03 17:35
Оценка:
Здравствуйте, niky_ch, Вы писали:

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


А какой скрытый смысл в наличии нескольких вкладок, если все TTable ссылаются на одну физическую таблицу?
... << RSDN@Home 1.1 alpha 1 >>
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.