Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
brick08
0 / 0 / 1
Регистрация: 12.05.2016
#1

Работа с несколькими таблицами - Delphi

25.11.2011, 12:00. Просмотров 502. Ответов 1
Метки нет (Все метки)

ДД!
Есть много БД на Парадоксе 7 и на форме много ТБГридов. Как сделать так чтобы при переходе с одного табшита на другой в дбгриде для этого табшита показывались данные другой таблиц. Использовать нужно только один Тэйбл и один ДатаСоурс. Вот примерный код который выдает ошибку при выходе с Табшита:
Код
procedure TForm1.FormActivate(Sender: TObject);
begin
tabsheet1.Show;
tabsheet3.Show;
end;

procedure TForm1.TabSheet3Show(Sender: TObject);
begin

Table1.DatabaseName:=path;
table1.TableName:=name;
//datasource1.DataSet.Open;
//datasource1.DataSet.edit;
datasource1.DataSet:=table1;
dbgrid1.DataSource:=datasource1;
dbgrid1.Columns[1].Visible:=false;
table1.AutoRefresh:=true;table1.Active:=true;
end;

procedure TForm1.TabSheet3Hide(Sender: TObject);
begin
datasource1.DataSet.Edit;
table1.Active:=false;
table1.Post;
table1.Close;
datasource1.DataSet.Cancel;

end;
Подскажите пож как правильнее.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2011, 12:00
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Работа с несколькими таблицами (Delphi):

Работа с таблицами
Здравствуйте! На MYSQL есть база с одинаковыми по структуре таблицами но...

Работа с таблицами
Помогите сделать таблицу, как в ворде, только в делфи. Я пыталась, но не могу...

Работа с таблицами
Есть stringgrid1 и stringgrid2,надо из первой таблицы перенести значения во...

Работа с таблицами Word
Подскажите пожалуйста что я делаю не так. Хочу создать таблицу и задать её...

Работа с хэш-таблицами
Здравствуйте,прошу вашей помощи в написании программы на тему "Работа с...

Работа с несколькими файлами
Добрый день.Возник вопрос. Работаю с файлами txt,программа открывает один...

1
brick08
0 / 0 / 1
Регистрация: 12.05.2016
28.11.2011, 15:06 #2
Лучший ответ Сообщение было отмечено как решение

Решение

выдает ошибку что ДатаСет не находится в режиме редактирования

Добавлено через 8 часов 2 минуты
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TabSheetChange(const DataBaseName1, TableName1:String);
 var table:TTable;
 datasource:TDataSource;
 dbgrid:tDBGrid;
 begin
 if table.State=dsbrowse then table.Close;
Table.DatabaseName:=DataBaseName1;
Table.TableName:=TableName1;
datasource.DataSet:=table;
dbgrid.DataSource:=datasource;
table.Active:=true;
end;
подскажите как правильнее написать код, чтобы при переходе с одного TabShet на другой автоматически обновлялся ТБГрид
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2011, 15:06
Привет! Вот еще темы с решениями:

Работа с несколькими компонентами
У меня есть 10 Label с именами:Label1,Label2... И мне надо изменить Caption...

Работа с несколькими listbox
Подскажите, как сделать чтобы, если я листал 1 lisbox, другой тоже листался?

Работа с несколькими ComboBox-ми
Доброе время суток! Помогите разобраться! Есть три ComboBox с указанными...

Работа с несколькими ComboBox
Добрый день. Поиском пользовался, но не нашел того что нужно. Может плохо...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru