проблема с Query

[kuzmich]

привет всем!
у меня две таблицы и два компонента ComboBox. ComboBox1 и Query связал и у меня оно работает, а вот связь со вторым ComboBox не работает.
вот код:

 ComboBox1.Items.Clear;
 Form2.Query1.Open;
 while not Form2.Query1.Eof do
  begin
    ComboBox1.Items.Add(Form2.Query1.FieldByName('Sezon_goda').AsString);
    Form2.Query1.Next;
  end;
  ComboBox1.ItemIndex := 0;
  Form2.Query1.Close;

 ComboBox2.Items.Clear;
 Form4.Query1.Open;  //выдает тут ошибку
 while not Form4.Query1.Eof do
  begin
    ComboBox2.Items.Add(Form4.Query1.FieldByName('Firm').AsString);
    Form4.Query1.Next;
  end;
  ComboBox2.ItemIndex := 0;
  Form4.Query1.Close;

вот сама ошибка:



подскажите люди добрые!...

[Stilet]

Ты где етот код прописал?
Уверен что на момент его исполнения Form4 еще не существует.

[kuzmich]

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

Ты где етот код прописал?
Уверен что на момент его исполнения Form4 еще не существует.

существует он! на 4 - ой форме у меня таблица через Query работает

[kuzmich]

вот вам сам проект - тут
можете сами посмотреть!

[Прик]

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

существует он! на 4 - ой форме у меня таблица через Query работает

Существует, да, но обращение к форме 4 происходит до ее создания.
При создании Формы3 (в ее процедуре, привязанной к OnCreate) происходит обращение к форме4, но формы4 еще нет.
Порядок создания форм в вашем проекте говорит сам за себя:

  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);

Сказал же Stilet почему ошибка. Чего тут упрямиться.

[kuzmich]

Сообщение от Прик

Существует, да, но обращение к форме 4 происходит до ее создания.
При создании Формы3 (в ее процедуре, привязанной к OnCreate) происходит обращение к форме4, но формы4 еще нет.
Порядок создания форм в вашем проекте говорит сам за себя:

  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);

Сказал же Stilet почему ошибка. Чего тут упрямиться.

теперь понял! не подскажите как создать?

[Прик]

Вариант "правильный". Создать форму DataModule, переместить не нее все компоненты доступа к БД и при запуске приложения эту форму создавать первой.
Она не визуальная, поэтому не будет главной.
Вариант "не правильный" (быстрый, но рано или поздно аукнется). Изменить порядок создания форм:

  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm3, Form3);

[Yurk@]

да и ComboBox лучше заменить на DBComboBox ...
эти куски кода:

while not Form2.Query1.Eof do
  begin
    ComboBox1.Items.Add(Form2.Query1.FieldByName('Sezon_goda').AsString);
    Form2.Query1.Next;
  end;

отпадут сами собой