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;
вывод сообщения по дате
Вопрос в чем есть БД в которой врач и выводит сообщение только у меня не показываей какого именно врача или несколько нужно пройти. Как сделать
Код:
Тут наверное нужно плясать от конструкции самой БД. Скорее всего нужно сделать таблицу врачей (docturs):
oid | title
таблицу пациентов (pacients):
oid | title
и таблицу посещений пациентом доктура (visits):
pacient_oid | doctur_oid | visit
ну и соответственно выбирать:
Это если выбирать пациентов у доктура за какой-то период времени.
Если последним условием поставить идентификатор пациента, то для пациента будет список докторов со временем посещения за определённый период.
oid | title
таблицу пациентов (pacients):
oid | title
и таблицу посещений пациентом доктура (visits):
pacient_oid | doctur_oid | visit
ну и соответственно выбирать:
Код:
SELECT visits.visit, docturs.title, pacients.title AS pacient
FROM visits INNER JOIN
pacients ON visits.pacient_oid = pacients.oid INNER JOIN
docturs ON visits.doctur_oid = docturs.oid
WHERE (visits.visit BETWEEN <время> AND <время>)
AND (visits.doctur_oid = <oid доктура>)
FROM visits INNER JOIN
pacients ON visits.pacient_oid = pacients.oid INNER JOIN
docturs ON visits.doctur_oid = docturs.oid
WHERE (visits.visit BETWEEN <время> AND <время>)
AND (visits.doctur_oid = <oid доктура>)
Это если выбирать пациентов у доктура за какой-то период времени.
Если последним условием поставить идентификатор пациента, то для пациента будет список докторов со временем посещения за определённый период.