Тормоза при добавлении записей в БД MS Access

[Vit@L]

Привет всем. Подскажите пожалуйста в чем может быть проблема? После запуска программы все работает нормально. Все быстро открывается, все устраивает. Но после некоторой работы (добавление/удаление записей) прога начинает заметно тормозит. Справочники открывает долго, формочки где лежат ADOQuery, тоже долго открываются. Причем, как говориться, чем дальше в лес тем толще партизаны, т.е. чем больше добавляется записей в базу, тем больше программа тормозит. После закрытия и повторного запуска приложения все в порядке, но потом опять, по мере добавления новых записей программа все сильнее и сильнее тормозит.
В чем может быть причина, помогите пожалуйста разобраться.
Заранее спасибо!

[Vit@L]

Никто не сталкивался с такой проблемой?

[vovk]

утечки памяти? только не спрашивайте где конкретно

[Vit@L]

vovk, а из-за чего это может быть? И как это можно исправить?

[quit]

проблем может быть тысячи, это как пальцем в небо )
а исправляется это путем выпрямления рук(шутка)

[Vit@L]

Ну хотя бы какие-то намеки дайте.
Может мне перед закрытием формы делать adoquery.close или кщк что?

[Dark_Spirit]

может хотя бы кусок кода, там де в базу записывается

[Vit@L]

Вот:

if adoquery4.Modified then adoquery4.Post;
      adoquery1.Edit;
      adoquery1['DOK_ID1']:=adoquery1['DOK_ID1']+1;
      adoquery1.Post;
      journalquery.SQL.Clear;
      journalquery.SQL.Add('select * from JOURNAL_OBSH');
      journalquery.Active:=true;
      journalquery.Append;
      if label16.Caption='' then journalquery['SF']:='0' else journalquery['SF']:=label16.Caption;
      journalquery['ST']:=0;
      journalquery['DOKUMENT']:=label2.Caption;
      journalquery['NUM']:=panel1.Caption;
      journalquery['NUM_DOK']:=num_dok;
      journalquery['DATA']:=dateedit1.Date;
      journalquery['VREMYA']:=timetostr(time);
      journalquery['FIRMA']:=RxDBLookupCombo3.Value;
      journalquery['SCHET']:=RxDBLookupCombo4.Value;
      journalquery['SCHET_NUM']:=adoquery9['NUM_SCHETA'];
      journalquery['SKLAD']:=RxDBLookupCombo1.Value;
      journalquery['KONTRAGENT']:=comboedit3.Text;
      journalquery['SKIDKA']:=panel6.Caption;
      journalquery['VID_OPL']:=combobox1.Text;
      journalquery['OPLATA_DO']:=dateedit2.Date;
      journalquery['VALUTA']:=RxDBLookupCombo2.Value;
      journalquery['SUMMA_DOK']:=currencyedit1.Value;
      journalquery['AVTOR']:=label9.Caption;
      journalquery['KOMMENT']:=edit1.Text;
      journalquery['ID_FIRMA']:=id_firm;
      journalquery['ID_KONTR']:=id_kontr;
      journalquery['ID_GRUPP']:=grupp_kontr;
      journalquery.Post;

[Dark_Spirit]

adoquery1['DOK_ID1']:=adoquery1['DOK_ID1']+1;

мне вот интерессно, а что это за строка и зачем она?
дальше..... а чего всё через кверики, а не через датасет-ы?

[vovk]

может быть какиенибудь компоненты создаваемые динамически неуничтожаются.. Ведь есть компоненты создаваемые динамически?
извините телепатор чтото барахлит, поэтому могу ошибатся