БД(Аccess)+SQL+DELPHI

[neonex]

Здравствуйте уважаемые гуру. Имеется проблемка в которой требуется совет. Есть программа работающая с БД(Аccess), в БД вносятся данные, такие как номер ячейки, время начала использования (hh:mm), время окончания использования, состояние ячейки(занята/пустая/блокирована). Блокировка идет после окончания времени. Всё завязано на ADO. Теперь суть проблемы: как лучше реализовать проверку истечения времени и последующую блокировку ячейки.

В принципе логически догадываюсь что надо использовать таймер+( GetLocalTime или TimeToStr(Now) ). Но чегото все до кучи собрать немогу. Заранее спасибо за советы и помощь.

[neonex]

Всё также нуждаюсь в помощи или совете.

[Азамат Казанчев]

можно поставит таймер и в обработчике события описать проверку оставшегося времени, т.е. пусть таймер скажем с интервалом в 1 сек каждый раз считывает значение ячейки с оставшимся временм и проверяет равно ли он нулю(или чему тебе надо), реализовать данный алгоритм не так сложно, так что удачи

[neonex]

Спасибо за совет. Но если в таблице больше 1й строки?.. в общем чтобы не дай бог не подумали что я жду только готового решения: влаживаю свой проект. Основная проблема состоит по истечению времени в базе где стоит поле "занят" поставить "блокирован". Посмотрите пожалуйста, а то я чтото совсем умираю изза этой мелочи..

[neonex]

Проблема решена, спасибо Gulik. Решение тут Раздел БД в Delphi

[Азамат Казанчев]

вопрос, у тебя все строки в конце будут заблокированы?
если так можно поставаить фильтрацию на поле время окончания по возрастанию, также у ado есть функции adoquery1.first(переход к первой строке), adoquery1.last(переход к последней строке), adoquery1.next(переход на след строку) - используя их можно в цикле выполнять проверку времени(по алгоритму который я выше описал)

P.S - функции на делфи

[neonex]

2 Азамат Казанчев решение было в этом

   if not ADOQuery4.IsEmpty then begin // <- если таблица не пустая тогда
      while not ADOQuery4.Eof do begin    // цикл до конка таблицы
            ADOQuery4.Edit ;    // режим редактирования
            ADOQuery4.FieldByName('time_b').AsString := '' ;  // Очищаем время
            ADOQuery4.FieldByName('time_e').AsString := '' ;  // Очищаем время
            ADOQuery4.FieldByName('in_use').AsString := 'Блокирован' ;   // устанавливаем значение БЛОКИРОВАН
            ADOQuery4.Next ;  // Переход к следующей записи
      end ;

[Азамат Казанчев]

и где это проверяется в этом цикле?
хотя если у тебя все получается, то хорошо

[neonex]

2 Азамат Казанчев это всего лишь часть кода для таймера. Вся программа работает как надо, полный код от Gulik:

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Panel1: TPanel;
    Button2: TButton;
    Button3: TButton;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    Timer1: TTimer;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    DataSource3: TDataSource;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    Button1: TButton;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    Label3: TLabel;
    Panel2: TPanel;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Label1.Caption := TimeToStr(Now) ;  // Присваиваем Label1 значение текущего времени
   //////////////////////////////
   ADOQuery4.Close ;   // Закрыввем таблицу
   ADOQuery4.SQL.Clear ; // Очищаем SQL запрос
   ADOQuery4.SQL.Add('SELECT * FROM razd WHERE (in_use="Занят") AND (time_e = ''' + TimeToStr(Now) + ''')') ; 
   // ^   
   // Блокировка идет после окончания времени. Запрашиваются занятые ящики  и где время окончания "прям щас"
   ADOQuery4.Open ;    // Открываем таблицу
   if not ADOQuery4.IsEmpty then begin // <- если таблица не пустая тогда
      while not ADOQuery4.Eof do begin    // цикл до конка таблицы
            ADOQuery4.Edit ;    // режим редактирования
            ADOQuery4.FieldByName('time_b').AsString := '' ;  // Очищаем время
            ADOQuery4.FieldByName('time_e').AsString := '' ;  // Очищаем время
            ADOQuery4.FieldByName('in_use').AsString := 'Блокирован' ;   // устанавливаем значение БЛОКИРОВАН
            ADOQuery4.Next ;  // Переход к следующей записи
      end ;
      ADOQuery1.Close ;        //
      ADOQuery2.Close ;       //
      ADOQuery3.Close ;      //   Обновляем данные
      ADOQuery1.Open ;      //\     в таблицах
      ADOQuery2.Open ;     // \\
      ADOQuery3.Open ;    //   \\
   end ;
   //////////////////////////////
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   ADOQuery1.Edit;        // режим редактирования
   ADOQuery1.FieldByName('time_b').AsString := TimeToStr(Now) ;    // выставляем текущее время
   ADOQuery1.FieldByName('time_e').AsString := TimeToStr(Now + DateTimePicker1.Time) ;   // выставляем текущее время + время установленное в DateTimePicker1
   ADOQuery1.FieldByName('in_use').AsString := 'Занят' ;  // устанавливаем значение ЗАНЯТ
   ADOQuery1.Post ;        // Сохраняем данные
   ADOQuery1.Close ;        //
   ADOQuery2.Close ;       //
   ADOQuery3.Close ;      //   Обновляем данные
   ADOQuery1.Open ;      //\     в таблицах
   ADOQuery2.Open ;     // \\
   ADOQuery3.Open ;    //   \\
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   if ADOQuery2.IsEmpty then begin  // <- если таблица пустая тогда
      Application.MessageBox('Пустое поле!', 'Предупреждение', MB_ICONWARNING) ; // ShowMessage('пустое поле!');  // выводим сообщение
   end
   else begin  // иначе
      ADOQuery2.Edit ;    // режим редактирования
      ADOQuery2.FieldByName('time_b').AsString := '' ;  // Очищаем время
      ADOQuery2.FieldByName('time_e').AsString := '' ;  // Очищаем время
      ADOQuery2.FieldByName('in_use').AsString := 'Свободен' ;   // устанавливаем значение СВОБОДЕН
      ADOQuery2.Post ;     // Сохраняем данные
      ADOQuery1.Close ;        //
      ADOQuery2.Close ;       //
      ADOQuery3.Close ;      //   Обновляем данные
      ADOQuery1.Open ;      //\     в таблицах
      ADOQuery2.Open ;     // \\
      ADOQuery3.Open ;    //   \\
   end ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if ADOQuery3.IsEmpty then begin  // <- если таблица пустая тогда
      Application.MessageBox('Пустое поле!', 'Предупреждение', MB_ICONWARNING) ; // ShowMessage('пустое поле!');  // выводим сообщение
   end
   else begin  // иначе
      ADOQuery3.Edit ;    // режим редактирования
      ADOQuery3.FieldByName('time_b').AsString := '' ;  // Очищаем время
      ADOQuery3.FieldByName('time_e').AsString := '' ;  // Очищаем время
      ADOQuery3.FieldByName('in_use').AsString := 'Свободен' ;   // устанавливаем значение СВОБОДЕН
      ADOQuery3.Post ;     // Сохраняем данные
      ADOQuery1.Close ;        //
      ADOQuery2.Close ;       //
      ADOQuery3.Close ;      //   Обновляем данные
      ADOQuery1.Open ;      //\     в таблицах
      ADOQuery2.Open ;     // \\
      ADOQuery3.Open ;    //   \\
   end ;
end;

end.

[Азамат Казанчев]

все понятно, вопросов нет