Access+Обработчик

[Phantosmagor]

Добрый день, уважаемые форумчане хотел написать программу доходов-расходов, используя локальное хранилище.

Локальным хранилищем выбрал MDB файл MS Access. ( Mysql ставить в таких задачах посчитал не целесообразным, а т.к знаком с SQL/MySQL , то базу на Access счёл разумным решением).

Есть 2 формы:

1) Форма сводной таблицы (DBTables+DBGrid)
2) Форма добавления данных в файл Access'a

В чём собственно проблема:

По закрытию формы №2, хотел бы, чтобы автоматически обновлялось содержимое DBGrid формы 1. Никак не могу добиться, чтобы DBGrid формы 1 обновлялся сразу после закрытия формы2.

Код добавления в базу формы 2

procedure TForm1.Button1Click(Sender: TObject);
var
s : String;
strD:String;
begin
strD := FormatDateTime('yyyy-mm-dd hh:mm:ss', DateTimePicker1.Datetime);
s := 'insert into EP (Data,Inc,Out,Who,OnWhat) values("'+strD+'","'+Edit1.Text+'","'+Edit4.Text+'","'+Combobox2.Text+'","'+Edit2.Text +'")';

ADOQuery1.SQL.Text := s;
try
            ADOQuery1.ExecSQL;
            Form2.Timer1.Enabled:=true;
            Application.MessageBox('лалала', 'лала',MB_ICONINFORMATION);
     except on E: Exception do
            Application.MessageBox('огого,'огогого',MB_ICONERROR);
     end;
ADOQuery1.Close;
Form2.Button2.Click;  // - Кнопка на главной форме, которая апдейтит таблицу вручную *см код дальше
Form1.Close;
end;

код главной формы

procedure TForm2.FormCreate(Sender: TObject);
var
a:String;
d:string;
s:string;
begin
try
a:='Select Sum(Inc)-Sum(Out) as s_all From EP';
AdoQuery1.SQL.Text:=a;
AdoQuery1.Open;
d:=AdoQuery1.FieldValues['s_all'];
Edit3.Text:=d;
AdoQuery1.Close;

s := 'Select * From EP where WHO <> "unknown" order by Data';
ADOQuery1.SQL.Text := s;
ADOQuery1.Open;
except
on E: Exception do
begin
end;
end;
end;

..............
rocedure TForm2.Button2Click(Sender: TObject);
var
a:String;
d:string;
s:string;
begin
a:='Select Sum(Inc)-Sum(Out) as s_all From EP';
AdoQuery1.SQL.Text:=a;
AdoQuery1.Open;
d:=AdoQuery1.FieldValues['s_all'];
Edit3.Text:=d;
AdoQuery1.Close;

s := 'Select * From EP where WHO <> "unknown" order by Data';
ADOQuery1.SQL.Text := s;
ADOQuery1.Open;
//ADOQuery1.Close;
end;

Сделал обновление через клик Form2.Button2 по таймеру:

procedure TForm2.Timer1Timer(Sender: TObject);
begin
 Button2.Click;
 Timer1.Enabled:=false;
end;

Не всегда успевает отработать ( я имею ввиду, что отрабатывает, но свежедобавленные данные не появляются). А появляются лишь после пары кликов на "обновить" вручную. Может кто подскажет, куда копать?

P.S

про

s := 'Select * From EP where WHO <> "unknown" order by Data';

- нужный мне кусок, специально, чтобы не отображать одну из строк в базе.

[Баламут]

Что мешает обоим гридам назначить один DataSource? Даже писать ничего не придется. Я бы еще и все невизуальные компоненты расположил в Datamodule.

[Phantosmagor]

Сообщение от Баламут

Что мешает обоим гридам назначить один DataSource? Даже писать ничего не придется. Я бы еще и все невизуальные компоненты расположил в Datamodule.

1) Дбгрид один. Используется только в главной форме
2) AdoConnection один на обе формы , Datasource -тоже. *чуток переделывал код в 1ом посте, не обращайте внимание на то, что там 2 разных Конекшена.