В проге таблицы размещены на TPageControl. При добавлении\изменении данных одним пользователем другой не видит этих изменения, до тех пор пока не сделает переподключение к серверу. В чем дело? В OnChange событии PageControl-а прописаны изменения запросов. Наподобии этого:
| Код | case PageControlData.ActivePageIndex of
0:
begin
ActiveDBGrid:=nil;
ActiveImage:=ImageCover;
ActiveImageAuto:=Image8;
IsActive:=DM.IBDataSet1.Active;
UnActiveDataSet;
ActiveDeleteSQL:='Delete From Doc';
ActiveZeroGenerator:='SET GENERATOR DOC_ID TO 0';
with DM.IBDataSet1 do
begin
SelectSQL.Clear;
SelectSQL.Add(SQLDocSelect);
RefreshSQL.Clear;
RefreshSQL.Add(SQLDocRefresh);
ModifySQL.Clear;
ModifySQL.Add(SQLDocModify);
InsertSQL.Clear;
InsertSQL.Add(SQLDocInsert);
DeleteSQL.Clear;
DeleteSQL.Add(SQLDocDelete)
end;
with DM.ibdsNewRecID.SelectSQL do
begin
Clear;
Add(SQLDocIncID);
end;
TrySetActive(IsActive,0)
end;
1:
2:
3:
4:
......
|
Старые данные нормально отображаются, а вот с новыми проблемка. В чем может быть дело? Заранее спасибо. |