Поиск по БД Access

[tresheron]

Здравствуйте, у меня такой вопрос, задание в инсте дали вот такое:
Допустим я 30.04.2011 работал с Базой и производил следующие действия УДАЛЕНИЕ, ДОБАВЛЕНИЕ,РЕДАКТИРОВАНИЕ...
Сегодня я решил посмотреть по заданной дате что, происходило... Допустим
я решил посмотреть, что делалось 30.04.2011 и у меня должно высветиться
только те данные в базе, которые были актуальны в этот день 30.04.2011
То есть ВСЕ данные бызы которые я редактировал, добавлял и удалял...

Извиняюсь за недопонимание, но я сам толком понять не могу, это типа реестр что ли и как хоть примерно, если вообще можно это реализовать на Delphi, заранее спасибо!

[Vanta11a]

Добавить в таблицу поле с датой, обозвать например "Время изменения", в него при каждом запросе в каждую запись писать текущий день. Потом выборку по этому полю с указанием определенной даты.

И да, если удалено - то как бы удалено, отобразить не получится.

[OlegVE]

Здравствуйте
У формы есть события. Создайте таблицу журнала событий и записывайте туда любые производимые действия через события формы.
До свидания.

Добавка
Извините, пропустил слово Delphi Описанное выше для формы относится чисто к MS Access. Для Delphi смотрите события, например, для ADOTable.

[tresheron]

Если можно, не могли бы вы написать примерный код, это который вносил бы записи в поле "время изменения", если изменяешь данные в таблице.

И OlegVE не могли бы вы поподробнее рассказать про Журнал событий, и если возможно, привести примеры с кодом?

[OlegVE]

Что-то вроде этого для удаления

procedure TForm1.ADOTable1AfterDelete(DataSet: TDataSet);
begin
ADOQueryNNN.Close;
ADOQueryNNN.SQL.Clear;
ADOQueryNNN.SQL.Text:= 'INSERT INTO ИмяСозданнойВамиЗаранееТаблицы
VALUES ('''КлючОбработаннойЗаписи''', '''ПроизведенаОперацияУдаления''', Date())';
ADOQueryNNN.ExecSQL;
end;

Таблица "ИмяСозданнойВамиЗаранееТаблицы " (Это и будет Журнал событий) с полями: 1. КлючОбработаннойЗаписи 2. ПроизведённаяОперация, 3. ДатаОперации

Добавка
Надо ещё добавить в таблицу ключ записи над которой производилась операция.

[tresheron]

И так надо код по каждому действию, удаление, создание, редактирование?

[OlegVE]

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

И так надо код по каждому действию, удаление, создание, редактирование?

Да. Для каждого события своя запись в журнал. Только подправите выделенное красным на свою операцию:

'INSERT INTO ИмяСозданнойВамиЗаранееТаблицы
VALUES ('''КлючОбработаннойЗаписи''', '''ПроизведенаОперацияУдаления''', Date())';

См. добавку и исправления выше.

[tresheron]

А вот у меня подключена таблица access через DBGrid 1, мне получается еще бд access создать и подключить через DBGrid 2, извиняюсь что так дотошно, просто я новичок и во многом не разбираюсь, вообще я уже кое как создал проект в котором подключена бд access через ADO, и сделал запросы по дате, по текущей:

procedure TForm1.Button11Click(Sender: TObject);
begin
   try
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('SELECT * FROM AUTO WHERE dt = :D');
    ADOQuery1.Parameters.ParamByName('D').Value := Date;
    ADOQuery1.Open;
   except
    on e:Exception do
   end;
end;

И по заданной через поле Edit:

procedure TForm1.Button10Click(Sender: TObject);
begin
   try
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('SELECT * FROM AUTO WHERE dt = :A');
    ADOQuery1.Parameters.ParamByName('A').Value := Edit1.Text;
    ADOQuery1.Open;
   except
    on e:Exception do
   end;
end;

и в принципе, это все что есть, получается надо еще создать кнопки управления базой: создать строку, удалить еще че то, и вот этот самый журнал событий, в который будут записываться действия с данными, это я написал чтобы была видна полная картина действий, а что за "КлючОбработаннойЗаписи" ?

[tresheron]

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