Не отображаются данные таблицы

[panuta]

При запуске приложения в таблицах(dbgrid-ах) не отображаются данные. работаю с datasourse, table, query. когда нахожусь в среде delphi, приложение не запущено, на форме все отображается, при запуске данные пропадают. Подскажите пожалуйста в чем дело??? заранее благодарна! Если нужно какой либо код выложу, только не знаю какой.

Неужели ни у кого мыслей нет никаких??!! Или не понятно написано, то я дополню??? Хоть какую-нибудь причину подскажите, пожалуйста!!!!! скоро сдавать, а сделать дальше ничего не могу

[Аватар]

Form1 дважды создается - зачем? DM - не создается. И конектиться к базе принято программно, а не компилить с Connected=True

program hleby;

{$R *.res}

uses
forms,
  dm1 in 'dm1.pas' {DM: TDataModule},
  priv in 'priv.pas' {Form1},
  gla in 'gla.pas' {Form2};

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

[panuta]

я видимо тот самый залетевший дятел и есть... но я только учусь и надеюсь на лучшее...


Вот это совсем не поняла((( И конектиться к базе принято программно, а не компилить с Connected=True

и этот свой код в проекте найти не могу(((

program hleby;

{$R *.res}

uses
forms,
  dm1 in 'dm1.pas' {DM: TDataModule},
  priv in 'priv.pas' {Form1},
  gla in 'gla.pas' {Form2};

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

[Surgeon]

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

При запуске приложения в таблицах(dbgrid-ах) не отображаются данные. работаю с datasourse, table, query. когда нахожусь в среде delphi, приложение не запущено, на форме все отображается, при запуске данные пропадают. Подскажите пожалуйста в чем дело??? заранее благодарна! Если нужно какой либо код выложу, только не знаю какой.

Наборы данных неактивны.
Либо

procedure TDM.DataModuleCreate(Sender: TObject);
begin
...
DM.hleb.active:=true;
...
end;

либо:

...
DM.hleb.Open;
...

Алиасы у меня не существуют, так что подключения не установлено.
Вообще почему используется именно BDE компоненты доступа? База-то mdb, есть ADO, ИМХО комфортабельнее.

Если бы для DBgrid'ов не было настроено отображение Columns то DBgrid'ы были бы пусты, а так создается иллюзия что нет не одной записи и DBGRID.Enabled:=false;

[Аватар]

1. Меню Project, пункт ViewSource:
удалите одну строчку Application.CreateForm(TForm1, Form1);
сохраните

2. Меню Project, пункт Options, закладка Forms
Выделите справа DM и нажмите <
сохраните

Запустите на выполнени, что получится?

[panuta]

Так не получилось((

procedure TDM.DataModuleCreate(Sender: TObject);
begin
...
DM.hleb.active:=true;
...
end;

...
DM.hleb.Open;
...

А компоненты BDE т.к. только так в универе научили... я только учусь программировать и очень хочу научиться...

Такое ощущение, что у меня формы не под одним проектом??!!!

Аватар, спасибо вам огромнейшее!!!!! Все получилось!!

[Surgeon]

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

Так не получилось((

Импосибля. Что конкретно произошло?

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

А компоненты BDE т.к. только так в универе научили... я только учусь программировать и очень хочу научиться...

А в поставленном задании есть ограничение?
Сам BDE не пользуюсь.
P.S. работа ведется на чужом ноуте?

[panuta]

Ничего не произошло, данные все также не отображались...
Ограничения действительно есть, т.к. мы выполняем строго по заданию лабораторной..
Работаю на своем компьютере..

[Surgeon]

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

Ничего не произошло, данные все также не отображались...

Попробуй удалить все настроенные тобой Columns для DBGrid'ов.

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

Работаю на своем компьютере..

Этот проект создавался на той же машине где ты сейчас работаешь?
Под каким пользователем входишь в систему? (твой логин в винде).
База и проект лежат на рабочем столе?