Многопользовательская работа

[leklerk]

Добрый день. Работаю через ADO с SQL Server 2005, запускаю 2 одинаковых exe в одном отменяю (или разрешаю) возможность корректировать данные, а во втором это не отражается, не могу понять, почему. Может, есть какие-то тонкости многопользовательской работы в delphi?
ADODataSet1 формирует запрос, который показывается в DBGrid; ADODataSet2 выполняется, чтобы узнать значение поля, которое показывает, разрешена ли корректировка. ADOCommand1 и ADOCommand2 изменяют соответствующим образом значение этого поля. Вот код:

procedure TForm1.FormCreate(Sender: TObject);
begin
ADODataSet1.Open();
ADODataSet2.Open();
ADODataSet2.First();


if ADODataSet2.Fields[0].Value=1 then begin
DBGrid1.ReadOnly := FALSE;
Button3.Caption:='Запретить корректировку';
end;

if ADODataSet2.Fields[0].Value=0 then begin
DBGrid1.ReadOnly := TRUE;
Button3.Caption:='Разрешить корректировку';
end;

// Кнопка запрета или разрешения корректировки
procedure TForm1.Button3Click(Sender: TObject);
begin
if Button3.Caption='Запретить корректировку' then begin
DBGrid1.ReadOnly := TRUE;
Button3.Caption:='Разрешить корректировку';
ADOCommand1.Execute();
end
else begin
DBGrid1.ReadOnly := FALSE;
Button3.Caption:='Запретить корректировку';
ADOCommand2.Execute();
end;
end;

// Обновление таблицы и времени каждые 10 секунд
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ADODataSet1.Close();
ADODataSet1.Open();

ADODataSet2.Close();
ADODataSet2.Open();
ADODataSet2.First();

if ADODataSet2.Fields[0].Value=1 then begin
DBGrid1.ReadOnly := FALSE;
Button3.Caption:='Запретить корректировку';
end;

if ADODataSet2.Fields[0].Value=0 then begin
DBGrid1.ReadOnly := TRUE;
Button3.Caption:='Разрешить корректировку';
end;
end;

[evg_m]

что здесь?

ADOCommand1.Execute();

и что здесь?

ADODataSet2.Open();
ADODataSet2.First();

if ADODataSet2.Fields[0].Value=1 then begin

ADODataSet2 выполняется, чтобы узнать значение поля, которое показывает, разрешена ли корректировка. ADOCommand1 и ADOCommand2 изменяют соответствующим образом значение этого поля.

и как они это делают?

[leklerk]

что здесь?

update Табель set Корректировка=0 where
LEFT(Дата, 2)=Day(Getdate())

и что здесь?

select TOP 1 Корректировка from Табель where 
LEFT(Дата, 2)=Day(Getdate())