[Вовайн]

У меня есть формы одинакового вида их много. Мне нужно сделать 1 форму с dbgrid. Чтобы при нажатии кнопки, он сам выбирал нужную мне таблицу. Что я сделал. Создал новую форму с dbgrid. На обработчик кнопки прописал

Код:

procedure TForm1.N15Click(Sender: TObject);
begin
datamodule1.tDform10.tablename:='Оперативная память Samsung';
datamodule1.tDform10.active:=true;
form70.show;
end;

Не работает. Что не так?

[Alegun]

Сообщение от Вовайн

...Что не так?

Вероятно "Оперативная память Samsung"

[Вовайн]

Сообщение от Alegun

Вероятно "Оперативная память Samsung"

Название таблицы, которая как раз на tDform10 совпадает.

[Alegun]

Попробуйте её переименовать ненадолго, напр. в "tmp" и проверьте

З.Ы. К сожалению, не оно - сейчас попробовал у себя табличку длинным русским обозвать - работает, что-то здесь другое

З.Ы.З.Ы. Оказалось первой строки не хватает

Код:

datamodule1.tDform10.active:= false;
...

[Uniq!]

Если я правильно понимаю, то задача стоит в открытии опр. таблицы в другой форме?

Тогда делаете так:
1) Создаёте новую форму.
2) В public ветке создаёте function с Именем ViewTable, которая будет принимать потомка TTable, который вы и будете через DataSource отображать в DBGrid

В сухом остатке:

Код:

procedure TFormMain.Button1Click(Sender: TObject);
begin
    with TFormBasicFunc.Create(Application) do
      try
        // ... не помню как деактивировать таблицу
        Table.TableName := 'имя таблицы';
        // ... не помню как активировать таблицу
        Execute(Table);
      finally
        Free;
      end;
end;

А Execute представляет из себя лишь:

Код:

public
    function TFormBasicFunc.Execute(aTable: TDataSet): boolean;

...

function TFormBasicFunc.Execute(aTable: TDataSet): boolean;
begin
  DataSourceTable.DataSet := aTable;
  // ... не помню как построить все колонки в DBGrid
  Result := ShowModal = mrOk;
end;

Таким образом вы ИЗ формы в Форму передаёте информацию через внутренние функции, пользуясь основными принципами ООП.

[Вовайн]

Сообщение от Alegun

Попробуйте её переименовать ненадолго, напр. в "tmp" и проверьте

З.Ы. К сожалению, не оно - сейчас попробовал у себя табличку длинным русским обозвать - работает, что-то здесь другое

З.Ы.З.Ы. Оказалось первой строки не хватает

Код:

datamodule1.tDform10.active:= false;
...

Так должно быть? Ничего не изменилось.

Код:

procedure TForm1.J1Click(Sender: TObject);
begin
datamodule1.tDform10.active:= false;
datamodule1.t9.tablename:='Оперативная память Kingston';
datamodule1.t9.active:=true;
form70.show;
end;

[Вовайн]

Сообщение от Uniq!

Если я правильно понимаю, то задача стоит в открытии опр. таблицы в другой форме?.

Что за опр таблица?

[Uniq!]

Сообщение от Вовайн

Что за опр таблица?

Определённую (т.е. её имя известно заранее)

[Alegun]

Сообщение от Вовайн

...Ничего не изменилось...

У вас разные источники данных, а дибисетка одна - может ей ещё нужно явно указывать необходимый DataSource

[Вовайн]

Сообщение от Alegun

У вас разные источники данных, а дибисетка одна - может ей ещё нужно явно указывать необходимый DataSource

Это огромная куча их получится у меня штук так 25. А по другому можно как нибудь?

[Alegun]

Имелось ввиду

Код:

DBGrid1.DataSource:= datamodule1.t9;

всёравно ведь имя таблицы явно задаётся, и источник тоже так можно указывать

[Вовайн]

Сообщение от Alegun

Имелось ввиду

Код:

DBGrid1.DataSource:= datamodule1.t9;

всёравно ведь имя таблицы явно задаётся, и источник тоже так можно указывать

[dcc32 Error] Unit39.pas(233): E2010 Incompatible types: 'TDataSource' and 'TADOTable'

[Uniq!]

Сообщение от Вовайн

[dcc32 Error] Unit39.pas(233): E2010 Incompatible types: 'TDataSource' and 'TADOTable'

Код:

DBGrid1.DataSource.DataSet:= datamodule1.t9;

[Вовайн]

Сообщение от Uniq!

Код:

DBGrid1.DataSource.DataSet:= datamodule1.t9;

[Alegun]

Всё, пошёл перелив из пустого в порожнее, так результата не будет, выкладывайте свои наработки, нужно видеть "в живую"