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

Leklerk

Дата 1.3.2012, 16:44 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 200
Регистрация: 31.7.2009
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Добрый день. Работаю через 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;

Данкинг

Дата 1.3.2012, 16:50 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

А что в ADOCommand1-то содержится?

--------------------

There's nothing left but silent epitaphs.

Leklerk

Дата 1.3.2012, 18:06 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 200
Регистрация: 31.7.2009
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Цитата

А что в ADOCommand1-то содержится?

Код


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

ADOCommand1 и ADOCommand2 изменяют поле корректировки (на 0 и 1, соответственно).

Данкинг

Дата 1.3.2012, 20:38 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

А если вторую программу просто перезапустить после корректировки, то работает?

--------------------

There's nothing left but silent epitaphs.

Leklerk

Дата 2.3.2012, 11:13 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 200
Регистрация: 31.7.2009
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Цитата(Данкинг @ 1.3.2012, 22:38

)

А если вторую программу просто перезапустить после корректировки, то работает?

Да.

Данкинг

Дата 2.3.2012, 11:33 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Ну, попробуй после

Код


Button3.Caption:='Запретить корректировку';
Application.ProcessMessages;

--------------------

There's nothing left but silent epitaphs.

superVad

Дата 2.3.2012, 12:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 3
Всего: 15

Leklerk, какой запрос в ADODataSet2?

Leklerk

Дата 2.3.2012, 12:47 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 200
Регистрация: 31.7.2009
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Цитата(superVad @ 2.3.2012, 14:04

)

Leklerk, какой запрос в ADODataSet2?

Код


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

Добавлено через 11 минут и 4 секунды

Цитата(Данкинг @ 2.3.2012, 13:33

)

Ну, попробуй после

Нет, Данкинг, не помогает.

Leklerk

Дата 13.3.2012, 14:57 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 200
Регистрация: 31.7.2009
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Проблема решена. Нужно было вместо

Код


if ADODataSet2.FieldByName('Корректировка').Value=1

писать

Код


if ADODataSet2.FieldByName('Корректировка').Value=TRUE

Данкинг

Дата 13.3.2012, 15:49 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(Leklerk @ 13.3.2012, 15:57

)

Проблема решена.

А ты изменение данных непосредственно в таблице не проверял, что ли? smile

Добавлено через 24 секунды
Да и написал бы, что поле булево.

--------------------

There's nothing left but silent epitaphs.

Leklerk

Дата 14.3.2012, 07:12 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 200
Регистрация: 31.7.2009
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Цитата(Данкинг @ 13.3.2012, 17:49

)

А ты изменение данных непосредственно в таблице не проверял, что ли?

Дело в том, что в таблице записывается именно 1 или 0.

Цитата(Данкинг @ 13.3.2012, 17:49

)

Да и написал бы, что поле булево.

Оно не булево.

Цитата

bit (Transact-SQL)
An integer data type that can take a value of 1, 0, or NULL.

Это сообщение отредактировал(а) Leklerk - 14.3.2012, 07:19

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »