Аис

Чем лучше защитные свойства, тем выше цена. Но в настоящее время достаточно широко распространились мониторы с низким уровнем излучения — так называемые LR — мониторы (LowRadiation). Эти устройства отвечают одной из двух спецификаций, выработанных Шведским Национальным Советом по Измерениям и Тестированию MPR (SwedishNationalBoardofMeasurementandTesting).Расчет естественного освещения.

Для установления в рабочей зоне инженера — программиста нормального освещения по СНиП 2−4-79 необходим расчет освещения. Расчет и нормирование естественного освещения производят по коэффициенту естественной освещенности (КЕО) в % по формуле [9]:, где: Ев — освещенность внутри помещения, лк;Ен — одновременная освещенность наружной и горизонтальной плоскости рассеянным светом небосвода, лк. На предприятиях радиоэлектронной промышленности наибольшее распространение получило естественное боковое освещение. При таком освещении основой расчета является требуемая площадь светового проема, определяемая по формуле [9]:, где: So — площадь окон, м2;Sп — площадь пола помещения, м2;н — нормированное значение КЕО, %;ho — световая характеристика окна (6.5 29);Кз — коэффициент запаса;to — общий коэффициент светопропускания, определяемый из.

СНИП 2−4-79;Кзо — коэффициент, учитывающий затемнение окон противостоящими зданиями (1,0 1,7);r1 — коэффициент, учитывающий повышение КЕО за счет отражения света от поверхности помещения (1,05 — 1,7).Коэффициент Кз = 1,5. Учитываем, что длина пола помещения l=6 м, а ширина b=2,5 м находим площадь пола: Sп = l · b=6 · 2,5 = 15 м². Нормированное значение КЕО: н = 1,1%.Значения остальных коэффициентов примем равными: ho = 29;r1 = 1,2;Кзо = 1;to = 0,3.При расчете получено следующее значение требуемой площади светового проема по формуле:

м2.Учитывая, что в помещении площадь оконного проема составляет около 5 м², нужно признать, что применение лишь одного источника естественного освещения недостаточно для данного помещения. Следовательно, в помещении кроме естественного освещения необходимо использовать искусственное освещение, расчет которого приведен в следующем пункте. Расчет искусственного освещения.

Искусственное освещение применяют в темное и переходное время суток, а также при недостаточном или отсутствии естественного освещения. В помещении применяется общее равномерное искусственное освещение, расчет которого производится по методу светового потока. При расчете этим методом учитывается как прямой свет от светильника, так и свет, отраженный от потолка и стен. Согласно СНиП 11−4-79 освещенность рабочего места при комбинированном освещении должна составлять 300 лк [9]. Помещение лаборатории освещается лампами типа ЛБ80, световой поток которых F = 5220 лм. Освещенность определяется по следующей формуле, где: F — световой поток каждой из ламп, лм;E — минимальная освещенность, лк;k — коэффициент запаса, учитывающий запыление светильников и износ источников света;Sп — площадь помещения, м2;N — число источников света;

использования светового потока;z — коэффициент неравномерности освещения;y — коэффициент затенения. Определим данные для расчета. Коэффициент k для помещений освещаемых люминесцентными лампами, и при условии чистки светильников не реже двух раз в год берется равным: k = 1,4 1,5 .При оптимальном расположении светильников коэффициент неравномерности равен: z = 1,1 1,2 .Коэффициент затенения y вводится в расчет для помещений с фиксированным положением работающих, а также при наличии крупногабаритных предметов и принимается равным:

у = 0.8 0.9 .Коэффициент использования светового потока зависит от типа светильника, коэффициента отражения светового потока от стен, потолка, пола, а также геометрических размеров помещения и высоты подвеса светильников, что учитывается одной комплексной характеристикой — индексом помещения. Показатель помещения определяется по формуле, где: — h — высота подвеса светильников над рабочей поверхностью, м;l — ширина помещения, м;b — длина помещения, м. Тогда индекс помещения по формуле (4) получается равным:.По найденному показателю помещения i и коэффициентам отражения потолка н и стен, а определяем коэффициент использования светового потока (под которым понимается отношение светового потока, падающего на рабочую поверхность, к световому потоку источника света). Коэффициент в зависимости от показателя помещения i имеет следующие значения, приведенные в таблице2. Таблица2 — Коэффициент использования помещения в зависимости от показателя помещения iпомещение i0,512 345.

Коэффициент использования помещения 0.

220.

370.

480.

540.

590.

61Для нашего случая = 0.

22. Тогда освещенность по формуле (3) равна лк. Расчет показывает, что освещенность в данной лаборатории не удовлетворяет требованиям, так как нормальная минимальная освещенность должна составлять Ен=300лк. Необходимо увеличить количество светильников до 8 штук. Произведем расчет по формуле (3) для этого количества:

лк, чтоявляетсядостаточным.

Заключение

.

В соответствии с заданием данной курсовой работы разработана автоматизированная информационная система «Медосмотр сотрудников».В процессе выполнения работы были выполнены все поставленные задачи:

исследована предметная область;

проведена постановка задачи;

разработано техническое задание, в котором определены требования, предъявляемые к разрабатываемой информационной системе;

выполнено концептуальное моделирование системы;

разработана инфологическая и даталогическая модели данных;

рассмотрены принципы проектирования визуального интерфейса системы;

разработана инструкция пользователя АИС «Медосмотр сотрудников».Разработанный программно-методический комплекс, позволит:

повысить производительность труда сотрудников, ведущих учет результатов ежедневного медицинского осмотра сотрудников;

экономить рабочее время сотрудников;

автоматизировать процесс учета данных о здоровье сотрудников;

сократить время на формирование (составление) отчетов;

хранить информацию в безбумажном виде. Система предусматривает дальнейшее совершенствование. Пути совершенствования и развития системы создание новых отчетных модулей, модулей импорта и экспорта данных из внешних источников. Все поставленные задачи выполнены в полном объеме. Цель курсового проектирования достигнута.

Список литературы

Баймухамбетова С. С. Финансовый менеджмент. М., 2004. — 286 с. Бобровский С. И. Технологии Delphi. Разработка приложений для бизнеса.

— СПб: Питер, 2007. — 720 с. Быков В. В. Основы эксплуатации ЭВМ.

СПб.: Издательство «Питер», 2007. — 195 с. Вершинина Е. Е. Основы управления, СПб, 2005. — 250 с. Вендров А. М. CASE — технологии. Современные методы и средства проектирования информационных систем.

— М.: Финансы и статистика, 2012. — 320 с. Гришина Н. А., Информационная безопасность предприятия.

Учебное пособие, М.: Форум, 2015, 240 с. Диго С. М. Базы данных. Проектирование и создание.

М:ЕАОИ, 2008. — 172 с. Дейт К.

Введение

в системы баз данных: Пер. сангл.

М.;СПб., 2010. — 389 с. Емельянова Н. А., Защита информации в персональном компьютере. Учебное пособие, М.- Инфра-М, 2015, 368 с. Зрюмов Е. А., Зрюмова А. Г. Базы данных для инженеров: Учебное пособие. — Барнаул: Изд-во Алт.

ГТУ, 2010. — 131 с. Илюшечкин В. А., Основы использования и проектирования баз данных. Учебник, М.: Юрайт, 2014, 214 с. Исаев Г. А., Проектирование информационных систем. Учебное пособие, М.- Омега-Л, 2015, 432 с. Липаев В. В. Технико-экономическое обоснование проектов сложных программных систем. — М.: СИНТЕГ, 2004, 284 Корняков В.

Программирование документов и приложений MS Office в Delphi. — СПб.:BHV, 2006. — 496 с. Лори Ульрих Фуллер, Кен Кук Access 2010 для чайников.

СПб.: Вильямс, 2011. 384 с. Ржеуцкая С. Ю. Базы данных. Язык SQL. Вологда: ВоГТУ, 2010. — 159 с. Сеннов А.

A ccess 2010. — СПб.: Питер, 2010. 288 с. Хомоненко А. Д. и др. Базы данных: Учебник для вузов / Под ред. проф. А. Д. Хомоненко.

— СПб.: КОРОНА принт, 2004 — 736 с. Хомоненко А. Д. Delphi 7. — СПб.: БХВ-Петербург, 2008. ;

497 с. Фленов М. Е. Библия Delphi: 2-ое изд. — СПб.: БХВ-Петербург, 2008. — 800 с. ПриложениеunitUnitMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, jpeg, ExtCtrls;type TForm1 = class (TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; Label1: TLabel; Image1: TImage;procedure N2Click (Sender: TObject);procedure N8Click (Sender: TObject);procedure N9Click (Sender: TObject);procedure N10Click (Sender: TObject);procedure N7Click (Sender: TObject);procedure N6Click (Sender: TObject);procedure N11Click (Sender: TObject);procedure N12Click (Sender: TObject);procedure N5Click (Sender: TObject);procedure N4Click (Sender: TObject);procedure N14Click (Sender: TObject);procedure N13Click (Sender: TObject);procedure N15Click (Sender: TObject);procedureFormClose (Sender: TObject; var Action: TCloseAction);private{ Private declarations }public{ Public declarations }end;var Form1: TForm1;implementation{$R *.dfm} uses UnitSptav, UnitOsmotr, UnitObsled, UnitKarta, UnitRep, UnitAuth;procedure TForm1. N2Click (Sender: TObject);beginClose;end;procedure TForm1. N8Click (Sender: TObject);beginShowNSIForm ('Сотрудники','Сотрудники');end;procedure TForm1. N9Click (Sender: TObject);beginShowNSIForm ('Отделы','Отделы');end;procedure TForm1. N10Click (Sender: TObject);beginShowNSIForm ('Должности','Должности');end;procedure TForm1. N7Click (Sender: TObject);beginShowNSIForm ('Список.

Врачей','Врачи');end;procedure TForm1. N6Click (Sender: TObject);beginShowNSIForm ('Вид.

Осмотра','Видыосмотра');end;procedure TForm1. N11Click (Sender: TObject);beginShowNSIForm ('Справ.

СостояниеЗдоровья','Состояние здоровья');end;procedure TForm1. N12Click (Sender: TObject);beginif (Form10.bUserAdmin=false)thenbeginShowMessage ('У вас нет прав для редактирования списка пользователей');exit; end;ShowNSIForm ('Аутентификация','Список пользователей');end;procedure TForm1. N5Click (Sender: TObject);var fOsmotr: TForm3 ;beginfOsmotr:=Tform3.Create (Application);fOsmotr.ShowModal;end;procedure TForm1. N4Click (Sender: TObject);beginShowNSIForm ('План.

МедОбследований','План медицинских обследований');end;procedure TForm1. N14Click (Sender: TObject);var fOb: TForm4 ;beginfOb:=Tform4.Create (Application);fOb.ShowModal;end;procedure TForm1. N13Click (Sender: TObject);var fOb: TForm5 ;beginfOb:=Tform5.Create (Application);fOb.ShowModal;end;procedure TForm1. N15Click (Sender: TObject);var f: TForm7;beginf:=TForm7.Create (Application);f.ShowModal;end;procedure TForm1. FormClose (Sender: TObject; var Action: TCloseAction);beginApplication.Terminate;end;end.unitUnitKarta;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, DB, ADODB, DBCtrls, StdCtrls, ExtCtrls, Grids, NXDBGrids, DBGrids;type TForm5 = class (TForm) Splitter1: TSplitter; Panel1: TPanel; Panel2: TPanel; Label1: TLabel; DBLookupListBox1: TDBLookupListBox;aObsled: TADOQuery;aObsledDSDesigner: TAutoIncField; aObsledDSDesigner4: TDateTimeField; aObsledDSDesigner2: TIntegerField;aObsledField: TStringField; aObsledDSDesigner3: TIntegerField;dObsled: TDataSource; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; NXDBGrid1: TNXDBGrid; DBGrid1: TDBGrid;aKarta: TADOQuery;dKarta: TDataSource;aOsmor: TADOQuery;dOsmotr: TDataSource; NXDBGrid2: TNXDBGrid;aKartaDSDesigner: TAutoIncField; aKartaDSDesigner2: TWideStringField; aKartaDSDesigner3: TWideStringField; aKartaDSDesigner4: TWideStringField; aKartaDSDesigner5: TWideStringField; aKartaDSDesigner6: TWideStringField; aKartaDSDesigner7: TWideStringField;aOsmorDSDesigner: TAutoIncField; aOsmorDSDesigner2: TIntegerField; aOsmorDSDesigner3: TIntegerField; aOsmorDSDesigner4: TIntegerField; aOsmorDSDesigner5: TDateTimeField; aOsmorDSDesigner6: TWideStringField; aOsmorDSDesigner7: TIntegerField;aOsmorField: TStringField; aOsmorField2: TStringField; aOsmorField3: TStringField; Panel3: TPanel; NXDBGrid3: TNXDBGrid; Label2: TLabel; Label3: TLabel;aSledPr: TADOQuery;dSwldPr: TDataSource;aSledPrDSDesigner: TAutoIncField; aSledPrDSDesigner2: TWideStringField; aSledPrDSDesigner3: TAutoIncField; aSledPrDSDesigner4: TWideStringField; aSledPrDSDesigner5: TIntegerField; aSledPrDSDesigner6: TDateTimeField; aSledPrDSDesigner7: TDateTimeField; DBNavigator1: TDBNavigator;procedure DBLookupListBox1Click (Sender: TObject);procedureFormCreate (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form5: TForm5;implementationusesUnitData;{$R *.dfm}procedure TForm5. DBLookupListBox1Click (Sender: TObject);beginLabel1.Caption:=DBLookupListBox1.SelectedItem; DataModule1.aObsled.Filtered:=false; DataModule1.aObsled.Filter:='Код.

Сотрудника='+inttostr (DBLookupListBox1.KeyValue); DataModule1.aObsled.Filtered:=true; DataModule1.aMedKarta.Filtered:=false; DataModule1.aMedKarta.Filter:='Код.

Сотрудника='+inttostr (DBLookupListBox1.KeyValue); DataModule1.aMedKarta.Filtered:=true; DataModule1.aMedOsmor.Filtered:=false; DataModule1.aMedOsmor.Filter:='Код.

Сотрудника='+inttostr (DBLookupListBox1.KeyValue); DataModule1.aMedOsmor.Filtered:=true;aSledPr.Filtered:=false;aSledPr.Filter:='Код.

Сотрудника='+inttostr (DBLookupListBox1.KeyValue);aSledPr.Filtered:=true; NXDBGrid3. Repaint;end;procedure TForm5. FormCreate (Sender: TObject);begin//aObsled.Open;//aKarta.Open;//aOsmor.Open;aSledPr.Open;DBLookupListBox1. KeyValue:=1;DBLookupListBox1Click (Application);end;end.unitUnitAuth;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls;type TForm10 = class (TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; ADOQuery1: TADOQuery;procedure Button1Click (Sender: TObject);private{ Private declarations }public{ Public declarations }bUserAdmin:Boolean;end;var Form10: TForm10;implementationusesUnitData, UnitMain;{$R *.dfm}procedure TForm10. Button1Click (Sender: TObject);beginADOQuery1.SQL.Clear; ADOQuery1. Connection:=DataModule1.ADOConnection1;ADOQuery1.SQL.Add ('select * from Аутентификация where Логин='+ QuotedStr (Edit1.Text)+' and Пароль='+QuotedStr (Edit2.Text)); ADOQuery1. Open; ADOQuery1. Active:=True; ADOQuery1. ExecSQL ;if ADOQuery1. RecordCount <=0 thenbeginMessageDlg ('Неверныйлогин и пароль', mtError, mbOKCancel, 0) endelsebeginbUserAdmin:=false; Form1. Label1.Caption:='Оператор АИС «Медосмотр сотрудников» ';if ADOQuery1. FieldByName ('Администратор').AsString = '1' thenbeginbUserAdmin:=true; Form1. Label1.Caption:='Администратор АИС «Медосмотрсотрудников» ';end;// Form1:=TForm1.Create (Application); // if ADOQuery1. RecordCount > 0 then Form1. Label2.Caption:='Администратор' else Form1. Label2.Caption:='Инженер'; Form10. Hide; Form1. Show;end;end;end.unitUnitData;interfaceusesSysUtils, Classes, DB, ADODB;type TDataModule1 = class (TDataModule) ADOConnection1: TADOConnection;dAuth: TDataSource;aAuth: TADOTable;dVidOsmotra: TDataSource;aVidOsmotra: TADOTable;dDolj: TDataSource;aDolj: TADOTable;dMedKarta: TDataSource;aMedKarta: TADOTable;dMedOsmotr: TDataSource;aMedOsmor: TADOTable;dOtdeli: TDataSource;aOtdeli: TADOTable;dPlanObsl: TDataSource;aPlanObsl: TADOTable;dSotr: TDataSource;aSotr: TADOTable;dVrachi: TDataSource;aVrachi: TADOTable;dSostZd: TDataSource;aSostZd: TADOTable;dOsled: TDataSource;aObsled: TADOTable;aMedKartaDSDesigner: TAutoIncField; aMedKartaDSDesigner2: TWideStringField; aMedKartaDSDesigner3: TWideStringField; aMedKartaDSDesigner4: TWideStringField; aMedKartaDSDesigner5: TWideStringField; aMedKartaDSDesigner6: TWideStringField; aMedKartaDSDesigner7: TWideStringField; aMedKartaDSDesigner8: TIntegerField;aMedKartaField: TStringField;aMedOsmorDSDesigner: TAutoIncField; aMedOsmorDSDesigner2: TIntegerField; aMedOsmorDSDesigner3: TIntegerField; aMedOsmorDSDesigner4: TIntegerField; aMedOsmorDSDesigner5: TDateTimeField; aMedOsmorDSDesigner6: TWideStringField; aMedOsmorDSDesigner7: TIntegerField;aMedOsmorField: TStringField; aMedOsmorField2: TStringField; aMedOsmorField3: TStringField; aMedOsmorField4: TStringField;aPlanObslDSDesigner: TAutoIncField; aPlanObslDSDesigner2: TWideStringField; aPlanObslDSDesigner3: TIntegerField; aPlanObslDSDesigner4: TWideStringField;aSotrDSDesigner: TAutoIncField; aSotrDSDesigner2: TWideStringField; aSotrDSDesigner3: TWideStringField; aSotrDSDesigner4: TIntegerField; aSotrDSDesigner5: TIntegerField;aSotrField: TStringField; aSotrField2: TStringField;aVrachiDSDesigner: TAutoIncField; aVrachiDSDesigner2: TWideStringField; aVrachiDSDesigner3: TWideStringField;aObsledDSDesigner: TAutoIncField; aObsledDSDesigner2: TIntegerField; aObsledDSDesigner3: TIntegerField; aObsledDSDesigner4: TDateTimeField;aObsledField: TStringField; aObsledField2: TStringField; aMedKartaField2: TStringField; aObsledField3: TStringField;procedureDataModuleCreate (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var DataModule1: TDataModule1;implementation{$R *.dfm}procedure TDataModule1. DataModuleCreate (Sender: TObject);beginaAuth.Open;aVidOsmotra.Open;aDolj.Open;aMedKarta.Open;aMedOsmor.Open;aOtdeli.Open;aPlanObsl.Open;aSotr.Open;aVrachi.Open;aSostZd.Open;end;end.unitUnitRep;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, DateUtils;type TForm7 = class (TForm) DateTimePicker1: TDateTimePicker; Label1: TLabel; DateTimePicker2: TDateTimePicker; Button1: TButton; Button2: TButton; Button3: TButton;procedure Button1Click (Sender: TObject);procedure Button2Click (Sender: TObject);procedure Button3Click (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form7: TForm7;implementationusesUnitReports;{$R *.dfm}procedure TForm7. Button1Click (Sender: TObject);var f: TForm6; d1, d2: string;begin d1:= IntToStr (MonthOf (DateTimePicker1.Date))+'/' + IntToStr (DayOf (DateTimePicker1.Date))+'/' + IntToStr (yearof (DateTimePicker1.Date)); d2:= IntToStr (MonthOf (DateTimePicker2.Date))+'/' + IntToStr (DayOf (DateTimePicker2.Date))+'/' + IntToStr (yearof (DateTimePicker2.Date));f:=TForm6.Create (Application); f. ADOQuery1.SQL.Text:='SELECT Сотрудники. ФИО, Должности. Наименование, Отделы. Наименование, Медосмотр.Дата.

Осмотра, Список.

Врачей.ФИО, Список.

Врачей.Специализация, Вид.

Осмотра.Наименование, Справ.

СостояниеЗдоровья.Наименование, Медосмотр. Рекомендации '+'FROM Вид.

Осмотра INNER JOIN (Справ.

СостояниеЗдоровья INNER JOIN (Список.

Врачей INNER JOIN (Должности INNER JOIN (Отделы INNER JOIN (Сотрудники INNER JOIN Медосмотр ON Сотрудники.Код.

Сотрудника = Медосмотр.Код.

Сотрудника) ON '+' Отделы.Код.

Отдела = Сотрудники.Код.

Отдела) '+'ONДолжности.Код.

Должности = Сотрудники.Код.

Должности) ONСписок.

Врачей.Код.

Врача = Медосмотр.Код.

Врача) ONСправ.

СостояниеЗдоровья.Код.

Состояния = Медосмотр.Код.

СостоянияЗдоровья) ONВид.

Осмотра.Код.

ВидаОсмотра = Медосмотр.Код.

ВидаОсмотра '+'WHERE (((Медосмотр.Дата.

Осмотра)>=#'+d1+'# And (Медосмотр.Дата.

Осмотра)<=#'+d2+'#));';f.ADOQuery1.Open;f.QuickRep1.Preview;end;procedure TForm7. Button2Click (Sender: TObject);var f: TForm6; d1, d2: string;begin d1:= IntToStr (MonthOf (DateTimePicker1.Date))+'/' + IntToStr (DayOf (DateTimePicker1.Date))+'/' + IntToStr (yearof (DateTimePicker1.Date)); d2:= IntToStr (MonthOf (DateTimePicker2.Date))+'/' + IntToStr (DayOf (DateTimePicker2.Date))+'/' + IntToStr (yearof (DateTimePicker2.Date));f:=TForm6.Create (Application); f. ADOQuery2.SQL.Text:='SELECT Должности. Наименование, Отделы. Наименование, * '+'FROM Отделы INNERJOIN (Должности INNERJOIN Сотрудники ONДолжности.Код.

Должности = Сотрудники.Код.

Должности) ONОтделы.Код.

Отдела = Сотрудники.Код.

Отдела '+'WHERE (((Сотрудники. Код.

Сотрудника]) NotIn (selectа.Код.

Сотрудникаfrom Медосмотр as, а WHEREа.Дата.

Осмотра>=#'+d1+'# Andа.Дата.

Осмотра<=#'+d2+'#))); ';f.ADOQuery2.Open;f.QuickRep2.Preview;end;procedure TForm7. Button3Click (Sender: TObject);var f: TForm6;beginf:=TForm6.Create (Application); f. ADOQuery3.SQL.Text:='SELECT План.

Прививок.Код.

Сотрудника, План.

Прививок.ФИО, План.

Прививок.Код.

МедДействия, План.

Прививок.Наименование, План.

Прививок.Описание, '+ 'Обследование.Дата.

Обследования, iif (isnull (Обследование.Дата.

Обследования), Now (), DateAdd («d», План.

Прививок.Периодичность.

Дн, Обследование.Дата.

Обследования))AS След '+'FROM План.

Прививок LEFT JOIN Обследование ON (План.

Прививок.Код.

МедДействия = Обследование.Код.

Плана) AND (План.

Прививок.Код.

Сотрудника = Обследование.Код.

Сотрудника)'+'ORDER BY Обследование.Дата.

ОбследованияDESC, DateAdd («d», План.

Прививок.Периодичность.

Дн, Обследование.Дата.

Обследования);'; f. ADOQuery3. Open;f.QuickRep3.Preview;end;end.