запрос на дату

[WALL]

Вот еще один мой вариант он идет, вот только он считывает только 1 сторку таблицы, и выводит сообщение по первому врачу. Как сделать чтобы считывал все строки таблицы.

var
i: integer;
a: integer;
ss: string;
begin
a:=CompareDate(Form2.ADOQuery2.FieldByName('Дата_завершения').AsDateTime, Now);
ss:=Form2.ADOQuery2.FieldByName('Врач').AsString;
if a=-1 then MessageDlg('Пройдите врачей:'+#13#10+ss+id,mtInformation,[mbOK],0);
end;

[Serge_Bliznykov]

можно в цикле.
ADOQuery2.First;
while not ADOQuery2.EOF do begin
... тут Ваш код сравнения...
ADOQuery2.Next; {перейти на следующую запись в датасете}
end;

Но Вы абсолютно зря выбрали этот путь и отказались от использования параметрического запроса (т.е. запроса, куда даты передаются в качестве параметра).
Проблемы у Вас возникают из-за того, что Вы переписываете часть запроса! Переписывайте запрос целиком!

Выложите Ваш исходный проект (целиком форму) - разберёмся, где у Вас ошибка. (только, если будете выкладывать проект, предварительно запакуйте его в архив)!

[WALL]

скинул форму посмотрите пожалуйста

[Serge_Bliznykov]

procedure TForm2.FormActivate(Sender: TObject);
begin
  if ADOQuery2.Active then form2.ADOQuery2.Close;

  ADOQuery2.SQl.Text :=
    'select * from med '+
    '  Where [дата_завершения] between :Dat1 and :Dat2;';

   ADOQuery2.Parameters[0].DataType:=ftDate;
   ADOQuery2.Parameters[0].Value:=Date;
   ADOQuery2.Parameters[1].DataType:=ftDate;
   ADOQuery2.Parameters[1].Value:=Date;
   ADOQuery2.open;

   if (ADOQuery2.RecordCount>=1) then
        MessageDlg ('Нужно пройти врача', mtInformation,[mbOK],0)
end;

Попутно замечания.

1) Грамматические ошибки. Это же просто жуть какая-то..
Вы найдите друга/подругу/маму/папу/знакомого, который знает русский язык. Так, навскидку:
Медецинская карта
Данные мед.персоонала
теперь в БД:
деетсестра
заведуюшая
гениколог (правильно - Гинеколог)
профтолог (если не ошибаюсь, речь идёт о Проктологе)

2) на форме просмотра данных мед.персонала вместо мобильного телефона отображается стаж

3) не уверен, может я и ошибаюсь, но Вам надо бы подумать, как корректнее работать с датой завершения (кстати, интуитивно не понятно, дата завершения чего? Врача? Обследования? Лечения? ). Дело в том, что если дата завершения меньше текущей, у Вас это никак не будет обрабатываться. Если надо - подумайте как это сделать.

[_SERGEYX_]

Хочу добавить...
1. Почему таблица пройденых/непройденых врачей никак не связана с таблицей пациентов? Они все в одно и то же время проходили одних и тех же врачей?
Имхо, последний запрос должен показать каких врачей должны пройти КАКИЕ ИМЕННО пациенты.
2. Задавай компонентам осмысленные названия. Такие имена как Form2, ADOQuery1, RadioButton1 и т.д. не есть гуд.

[WALL]

Извените может уже надоел, в этом сообщении как сделать ниже чтобы выводил список которых врачей надо пройти. Вопрос по поводу связи между таблицами как сделать ? через ADOTable знаю, а вот как через ADOQuery. Спс за помощь !!!

[Serge_Bliznykov]

ещё одна ошибка в проектировании БД.
Все таблицы ОБЯЗАТЕЛЬНО должны иметь ключевое поле.
Хотите, можете делать его типа "Счётчик", чтобы не заморачиваться с тем, как его получать и поддерживать целостность.
Но ключевое поле в каждой таблице должно быть ОБЯЗАТЕЛЬНО!!

[WALL]

оно есть ключевое поле

[Serge_Bliznykov]

оно есть ключевое поле

Шутите?
Ну и как называется ключевое поле в таблице med?
А в таблице Pitanie ?
А в таблице pitanie2 ?

впрочем, что это я?!...
Раз у Вас со структурой таблиц всё в порядке, то зачем я буду разубеждать Вас в обратном?!
я и так уже всё сказал...

[WALL]

в med ключевое поле код_к так и в таблице сотрудники, а pitanie и pitanie2 это две разные таблицы