Delphi/Access

[Scabby]

Здравствуйте.
Я делаю базу данных сотрудников отдела, использую Дельфи и Аксесс.
Вроде все подключенно.
Но у меня не работает навигатор. Он не подключается к DataSource. Не могу понять что мне сделать.
вот исходники
помогите пожалуйста

[Scabby]

вот исходник

[Neeter]

Во-первых, у вас путь к базе прописан как: "G:\Курсовая\бд\БД2.mdb"
У меня ничего не работает, вы исправьте просто на "БД2.mdb"
Установите у ADOConnection свойство Connected в false; У всех DataSet'ов(TADOTable, TADOQuery) свойство Active тоже в false
Пропишите в onCreate DataModule:

procedure Tdm_Connect.DataModuleCreate(Sender: TObject);
var
 i: integer;
begin
 try
  for i := 0 to ADO.DataSetCount - 1 do
  begin
   //Тут можно проверять разные условия, например:
   if ADO.DataSets[i].Name <> 'ADOMember' then
   if ADO.DataSets[i].Name <> 'aq_Member' then
   if ADO.DataSets[i].Name <> 'aq_Price' then
    ADO.DataSets[i].Active := true;
  end;
 except
  on e: exception do MessageBox(GetActiveWindow, PChar(e.Message),
    'Ошибка открытия базы данных', MB_OK or MB_ICONSTOP);
 end;
end;

В onDestroy:

procedure Tdm_Connect.DataModuleDestroy(Sender: TObject);
var
 i: integer;
begin
 try
  for i := 0 to ADO.DataSetCount - 1 do
   ADO.DataSets[i].Active := false;
 except
  on e: exception do MessageBox(GetActiveWindow, PChar(e.Message),
    'Ошибка закрытия базы данных', MB_OK or MB_ICONSTOP);
 end;
end;

И добавьте в раздел Uses модуль Windows

Во вторых, исправьте запросы и саму таблицу, там не хватает поля какого-то, вот я и написал вверху:

   if ADO.DataSets[i].Name <> 'ADOMember' then
   if ADO.DataSets[i].Name <> 'aq_Member' then
   if ADO.DataSets[i].Name <> 'aq_Price' then

В-третьих, навигатор не работает, потому что вы не выставили у него свойство DataSource. Выставьте на то, которое вам нужно.
Для этого нажмите в Unit3 File/Use Unit... и выберите Unit2, чтоб использовать DataModule в программе

[SERG1980]

Вам нужно в в Unit3 добавить Unit2
В главном меню делфи File -> Use Unit и из списка выбрать Unit2 после этого в св-ве DataSource навигатора можно выбрать необходимый datasource

[Neeter]

Я это сказал вверху

[Scabby]

спасибо большое.
попробую сделать.

[Scabby]

^Во вторых, исправьте запросы и саму таблицу, там не хватает поля какого-то, вот я и написал вверху^

не понимаю что с этим делать.все остально исправленно.
возле aq_Member и aq_Price стоят вопросительные знаки.
что это значит?

исходник:
http://ifolder.ru/12196903

[Neeter]

Так, удалите строчку

if ADO.DataSets[i].Name <> 'ADOMember' then

Дальше, нажмите на ADOMember два раза и удалите поле зароботная плата
Их у вас там два одинаковых, только одно правильно написано.

Насчет вопросительных знаков... Вы имеете в виду иконки что ли?)

[Scabby]

да.что они значат?
без этой строки выдает ошибку - Заработная плата not found.
что-то торможу ужасно.

[Neeter]

Я же сказал, вы читайте до конца:

Дальше, нажмите на ADOMember два раза и удалите поле зароботная плата
Их у вас там два одинаковых, только одно правильно написано.