Почему работа за компьютером наносит вред здоровью человека

То, что работа за компьютером вовсе не безопасна, раньше других почувствовали в самой компьютеризированной стране мира - Соединенных Штатах Америки. Эпидемия "белых воротничков" охватила США, нанося вред здоровью многих людей. По данным Министерства труда, одни только так называемые "повторяющиеся травмирующие воздействия при работе с компьютером" (ПТВРК) обходятся корпоративной Америке в 100 млрд. долларов ежегодно. Компенсации, выплаченные служащим, достигают астрономических размеров, а некоторым пострадавшим от работы за компьютером приходится расплачиваться жестокими болями в течение всей жизни.
Зрительная работа за компьютером и ее последствия

Микротравмы

Микротравма - это постепенный износ организма в результате ежедневных нагрузок. Большинство нарушений в организме происходит из-за накапливающихся микротравм. Такой тип повреждений не возникает вдруг, как перелом руки или ноги (макротравма). Прежде, чем вы почувствуете боль, может пройти несколько месяцев сидения в неправильной позе или повторяющихся движений. Боль может ощущаться по-разному: в виде жжения, колющей или стреляющей боли, покалывания.

Заболевания, вызванные повторяющимися нагрузками (ПВПН) и ПТВРК

Повторяющиеся действия приводят к накоплению продуктов распада в мышцах. Эти продукты и вызывают болезненные ощущения. Очень трудно предотвратить повторяющиеся движения кистей и ладоней при работе на компьютере, однако регулярные перерывы и упражнения на растягивание мышц могут предотвратить ПВПН и ПТВРК.

Профилактические методы уменьшения усталости при работе за компьютером

Основанное на принципах ErgAerobics, программа профилактики травм, значительно снизить вероятность стать жертвой ПТВРК. Эрг-аэробика, разработанная двумя специалистами в области лечебной физкультуры, или "медицинской эргономики", включает в наиболее новаторские принципы эргономики, профилактические и реабилитационные упражнения.

Назовем предлагаемые здесь упражнения "эрг-упражнениями" (ErgErcises). Эрг-упражнения повышают выносливость и продуктивность работы пользователя компьютера. Их можно выполнять в любое время и любом месте. Эрг-упражнения просты, не привлекают к себе внимания и занимают очень мало времени. Их можно выполнять в перерывах на кофе, разговаривая по телефону или ожидая на автобусной остановке. Они помогают человеку поддержать прекрасную физическую форму и незаметно становятся естественным способом выполнения работы - здоровым и безболезненным.

Осанка

Осанка - это положение, которое принимает ваше тело, когда вы сидите за компьютером. Правильная осанка необходима для профилактики заболеваний шеи, рук, ног и спины. Необходимо так организовывать рабочее место, чтобы осанка была оптимальной, что снизит риск ПВПН и ПТВРК.

Правильная осанка

При работе за компьютером лучше всего сидеть на 2,5 см выше, чем обычно. Уши должны располагаться точно в плоскости плеч. Плечи должны располагаться точно над бедрами. Голову нужно держать ровно по отношению к обоим плечам, голова не должна наклоняться к одному плечу. При взгляде вниз, голова должна находиться точно над шеей, а не наклоняться вперед. Более детальное описание организации рабочего места находится ниже.

Компьютерная техника развивается сегодня особенно стремительно, с необычайной быстротой появляются, и также быстро устаревают и отмирают различные технические решения и стандарты. По прогнозам различных экономико-социологических организаций компьютерная техника и телекоммуникации будут оставаться одной из наиболее развивающихся отраслей мировой индустрии еще по крайней мере в течение 10 - 15 лет. Так что уменьшения числа людей, работающих за компьютерами ждать не приходиться. Наоборот, повальная компьютеризация, уже давно охватившая бизнес-сектор, сегодня все больше захватывает массового потребителя. В подобной гонке, где нет ничего постоянного, сложно давать рекомендации, принимать какие-либо долговечные решения, а тем паче устанавливать стандарты. А потому, пока компьютерный бум не пойдет на убыль, перед эргономикой и эргономистами будут вставать все новые задачи, касающиеся организации безопасных и комфортных условий для людей работающих с компьютерами .

Заключение

В 2006 году установлено, что во всех типах хозяйств Жамбылской области сельскохозяйственные животные и собаки с достаточно высокими показателями инвазированности заражены гельминтами разных таксономических рангов, которые формируют в организмах животных разнообразные ассоциации и причиняют значимый экономический ущерб экономике региона. Наиболее высокий пресс инвазии на пастбищные территории вокруг населенных пунктов оказывают популяции сельскохозяйственных животных мелких хозяйств, которые не имеют возможности придерживаться отгонной технологии животноводства.

Проблемы такого рода наблюдаются по всей территории южного Казахтана. Для более детальных исследований в данной области необходимо принимать комплексные меры взаимодействия раздичных средств исследоьвания. Неотъемлемой частью всего процесса на всей протяженности научных работ является доступ к различным данным, как старых исследований подобного рода, так и относительно новых проведенных ралот.

Подобные операции также необходимо применять и к новым исследованиям для получения последних данных и моментальной их обраотки. Для всего этого многообразия операций лучшим инструментом могут послужить базы данных.

Базы Данных – довольно большая и серьезная область программирования. Ни одно предприятие, фирма или организация сегодня не обходятся без программ, обеспечивающих работу с Базами Данных.

Обычно БД создается для хранения и доступа к данным, содержащим сведения о некоторой предметной области, то есть некоторой области человеческой деятельности или области реального мира. Всякая БД должна представлять собой систему данных о предметной области. БД, относящиеся к одной и той же предметной области, в различных случаях содержат более или менее детализированную информацию о ней. Степень детализации определяется рядом факторов, прежде всего целью использования информации из базы данных и сложностью производственных (деловых) процессов, существующих в пределах предметной области в конкретных условиях.

В данном случае БД была разработана для обработки данных исследований Жамбылской научно-исследовательской ветеринарной станции. Все занесенные данные можно обработать и затем вывести их как отчет в программу MS Excel. Этот наглядный пример может продемонстрировать необходимость таких программ в повседневной жизни не только больших предприятий, но и небольших учреждений.

Разработанная программа хранит данные гельминтологических исследований Жамбылской научно-исследовательской ветеринарной станции. Эти исследования очень важны для возможного предотвращения экономического ущерба, вызванного вследствие некоторых эпидемиологических заболеваний домашних животных, связанных с несвоевренной или недостаточно объектовной обраткой статистической информации. Используя такой инструмент, как база данных, можно в полном объеме обрабатывать большое количество информации за короткие сроки.

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

Таким образом, в результате выполнения настоящей дипломной работы предложена оригинальная база данных на СУБД Access с использованием языка Borland Delphi 7.0. Она отражает эпизоотическую ситуацию по гельминтозам домашних животных и содержит данные исследований Жамбылской научно-исследовательской ветеринарной станции. Информация отображается в виде удобного пользовательского интерфейса по одиннадцати показателям, результаты по двум из которых автоматически обрабатываются стандардтными математическими методами. В программе предусмотрена возможность переноса отобранного массива данных в MS Excel для дальнейшей графической и прочей обработки.

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

1. Архангельский А. Я. Программирование в Delphi 7 – М.: ООО "Бином-Пресс", 2004. – 1152 с.

2. Гофман В., Хомоненко А. Работа с базами данных в Delphi – СПб.: BHV, 2003. – 366 с.

3. Информатика. Базовый курс/ Симонович С.В. и др. – СПб: Питер, 2000. –640с.

4. Кириллов В.В. Основы проектирования реляционных баз данных . Учебное пособие. – СПб.: ИТМО, 1994. –90с.

5. Петров В.Н. Информационные системы – Спб.: Питер, 2002. – 688с.

6. Абель П. Язык ассемблера для IBM PC и программирования/ Пер. с англ. Ю.В. Сальникова.-М.:высш.шк.,1992.-447с.

7. Юров В., Хорошенко С. Ассемблер (учебный курс) Санкт- Петербург, Москва, Харьков, Минск: из-во Питер, -1999.-672с.

8. Зубков С.В. Assembler, DOS, Windows и Unix.-М.:ДМК, 1999.-640с.

9. Глушков В.Н. Основы безбумажной информатики Изд. 2-е, испр. М: Наука, 1987. 552с.

10. Фигурнов В.Э. "IBM PC для пользователя" М. ИНФРА М 1997. 475с.

11. Михаил Гук "Процессоры Pentium II, Pentium Pro и просто Pentium" Санкт- Петербург, Москва, Харьков, Минск: из-во Питер, 1999г. 283с.

12. Корнеев В.В., Киселев А.В. Современные микропроцессоры.-М.: Нолидж, 1998.-240с.

13. Довгаль С.И., Литвинов Б.Ю., Сбитнев А.И., Персональные ЭВМ: Турбо-Паскаль V6.0, Обьектное программирование, Локальные сети. (учебное пособие).-Киев: "Информсистема сервис",1993. -440с. с ил.

14. Перминов О.Н. Программирование на языке Паскаль. -М.:Радио и связь, 1988, С. 219.
Рыбкин Е.Н., Юдин А.Ю.: Программные средства ПЭВМ; Операционная система MS_DOS,-М.Финансы и стат., 1991.-112с.:ил.

15. Фаронов В.В. Delphi 3. Учебный курс. -М.: "Нолидж", 1998. -400 с.,ил.

16. Фаронов В.В. Delphi 4. Учебный курс. -М.: "Нолидж", 1998. -464 с.,ил.

17. Прайс Д. Программирование на языке Паскаль: Практическое руководство. Пер. с англ. - М.: Мир. 1987.-С.232.

18. Джордейн Р. Справочник программиста персональных компьютеров типа IBM PC, XT и AT:Пер. с англ./ Предисл. Н.В. Гайского.-М.:Финансы и статистика, 1992.

19. Марков А.С., Милов М.П.., Пеледов Г.В.: Программное обеспечение ЭВМ. кн.11, Перспективы развития вычислительной техники, в 11 книгах, Спр.пособие/Под ред. Ю.М. Смирнова, М.:Высш.шк., 1990.-127с.:илл.

20. Офицеров Д.В., Старых В.А. Программирование в интегрированной среде Турбо-Паскаль: Справ.пособие.-Мн.: Беларусь, 1992.-240с.: ил.

21. Александровский А.Д. Delphi 4. Шаг в будущее. М. “ДМК”, 1999г.

22. Б.Лисков, Дж.Гагер. Использование абстракций и спецификаций при разработке программ. М.: Мир, 1989 г.

23. Александовский А.Д. Технология программирования. Рыбинск, РГАТА, 1999г.

24. К.Зиглер. Методы проектирования программных систем. М.:Мир, 1985 г.

25. Р.Коутс, И.Влейминк. Интерфейс "человек-компьютер". М.:Мир, 1990 г.

26. Э. Йордан. Структурное проектирование и конструирование программ.- М.: Мир, 1979.

27. Теория и практика структурного программирования /Р.Лингер, Х. Миллс, Б. Уитт, М., Мир, 1982.

28. Технологический комплекс производства программ на машинах ЕС ЭВМ и БЭСМ-6/ И.В. Вельбицкий, В.Н. Ходаковский, Л.И.Шолмов. -М., Статистика, 1980.

29. Кинг Д. Создание эффективного программного обеспечения: Пер. с англ. - М., Мир, 1991.

30. Кошелев С.А. Программирование без программирования. Использование утилиты Disiner пакета Clarion для разработки программ. - М.: Радио и связь, 1992.

31. Г.А. Бугрименко. Автолисп - язык графического проектирования в системе AutoCAD. - М. Машиностроение, 1992.

32. Братко И. Программирование на языке Пролог для искусственного интеллекта.: Пер. с англ. -М., Мир, 1990.

33. Ван Тассел Д. Стиль, разработка, эффективность, оотладка и испытание программ. Пер. с англ. - М.: Мир, 1981.

34. Системы параллельной обработки. Пер. с англ. /Под ред. Д. Ивенса. - М.: Мир, 1985. - 412 с.

35. Автоматное управление асинхронными процессами в ЭВМ и дискретных системах /Под ред. проф. В.И. Варшавского. - М.: Наука, Гл. ред. ФМЛ, 1986. - 400 с.

36. Питерсон Дж. Теория сетей Петри и моделирование систем. - М,: Мир, 1984. -264 с. Минский М. Вычисления и автоматы. - М.: Мир, 1971. - 368 с.

37. Котов В.Е. Сети Петри. - М.: Наука, Гл. ред. ФМЛ, 1984. -160 с.

Приложение

Далее приведены поочередно листинги всех юнитов:

Приложение A.

Unit 6 – основное окно редактирования:

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DBCtrls, Grids, DBGrids, ExtCtrls, StdCtrls;

type

TForm6 = class(TForm)

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

Panel5: TPanel;

Panel6: TPanel;

Panel7: TPanel;

Panel9: TPanel;

Panel10: TPanel;

Panel11: TPanel;

Panel1: TPanel;

Panel8: TPanel;

Panel12: TPanel;

Panel13: TPanel;

DBGrid1: TDBGrid;

DBGrid3: TDBGrid;

DBGrid2: TDBGrid;

DBGrid4: TDBGrid;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button12: TButton;

Button7: TButton;

Button9: TButton;

Button10: TButton;

Button11: TButton;

Button13: TButton;

Button20: TButton;

Button22: TButton;

Button23: TButton;

Button24: TButton;

Button25: TButton;

Button14: TButton;

Button16: TButton;

Button17: TButton;

Button18: TButton;

Button19: TButton;

Button1: TButton;

Button8: TButton;

Button15: TButton;

procedure DBGrid1Exit(Sender: TObject);

procedure DBGrid2Exit(Sender: TObject);

procedure DBGrid3Exit(Sender: TObject);

procedure DBGrid4Exit(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button19Click(Sender: TObject);

procedure Button18Click(Sender: TObject);

procedure Button17Click(Sender: TObject);

procedure Button16Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button25Click(Sender: TObject);

procedure Button24Click(Sender: TObject);

procedure Button23Click(Sender: TObject);

procedure Button22Click(Sender: TObject);

procedure Button20Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

// procedure Button1Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

private

c:boolean;

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm6.DBGrid1Exit(Sender: TObject);

begin

try

if datamodule2.ADOTable1.Modified then

datamodule2.ADOTable1.Post;

except

end;

end;

procedure TForm6.DBGrid2Exit(Sender: TObject);

begin

if datamodule2.ADOTable2.Modified then

datamodule2.ADOTable2.Post;

end;

procedure TForm6.DBGrid3Exit(Sender: TObject);

begin

try

if datamodule2.ADOTable3.Modified then

datamodule2.ADOTable3.Post;

except

datamodule2.ADOTable3.CancelUpdates;

datamodule2.ADOTable3.Cancel;

end;

end;

procedure TForm6.DBGrid4Exit(Sender: TObject);

begin

try

if datamodule2.ParazitTable4.Modified then

datamodule2.ParazitTable4.Post;

except

datamodule2.ParazitTable4.CancelUpdates;

datamodule2.ParazitTable4.Cancel;

end;

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

datamodule2.ADOTable2.CancelUpdates;

datamodule2.ADOTable2.Cancel;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

try

datamodule2.ParazitTable4.Append;

except

end;

end;

procedure TForm6.Button3Click(Sender: TObject);

begin

try

datamodule2.ParazitTable4.Edit;

except

end;

end;

procedure TForm6.Button4Click(Sender: TObject);

begin

try

datamodule2.ParazitTable4.Delete;

except

end;

end;

procedure TForm6.Button5Click(Sender: TObject);

begin

try

if datamodule2.ParazitTable4.Modified then

datamodule2.ParazitTable4.Post;

except

end;

end;

procedure TForm6.Button6Click(Sender: TObject);

begin

try

datamodule2.ParazitTable4.Refresh;

except

end;

end;

procedure TForm6.Button12Click(Sender: TObject);

begin

datamodule2.ParazitiTable5.CancelUpdates;

datamodule2.ParazitiTable5.Cancel;

end;

procedure TForm6.Button19Click(Sender: TObject);

begin

try

datamodule2.adotable3.Append;

except

end;

end;

procedure TForm6.Button18Click(Sender: TObject);

begin

try

datamodule2.adotable3.Edit;

except

end;

end;

procedure TForm6.Button17Click(Sender: TObject);

begin

try

datamodule2.adotable3.Delete ;

except

end;

end;

procedure TForm6.Button16Click(Sender: TObject);

begin

try

if datamodule2.ParazitTable4.Modified then

datamodule2.adotable3.Post;

except

end;

end;

procedure TForm6.Button14Click(Sender: TObject);

begin

try

datamodule2.adotable3.Refresh;

except

end;

end;

procedure TForm6.Button15Click(Sender: TObject);

begin

datamodule2.adotable3.CancelUpdates;

datamodule2.adotable3.Cancel;

end;

procedure TForm6.FormCreate(Sender: TObject);

begin

c:=false;

end;

procedure TForm6.Button25Click(Sender: TObject);

begin

try

datamodule2.adotable2.Append;

except

end;

end;

procedure TForm6.Button24Click(Sender: TObject);

begin

try

datamodule2.adotable2.Edit;

except

end;

end;

procedure TForm6.Button23Click(Sender: TObject);

begin

try

datamodule2.adotable2.Delete;

except

end;

end;

procedure TForm6.Button22Click(Sender: TObject);

begin

try

if datamodule2.adotable2.Modified then

datamodule2.adotable2.Post;

except

end;

end;

procedure TForm6.Button20Click(Sender: TObject);

begin

try

datamodule2.adotable2.Refresh;

except

end;

end;

procedure TForm6.Button13Click(Sender: TObject);

begin

try

datamodule2.adotable1.Append;

except

end;

end;

procedure TForm6.Button11Click(Sender: TObject);

begin

try

datamodule2.adotable1.Edit;

except

end;

end;

procedure TForm6.Button10Click(Sender: TObject);

begin

try

datamodule2.adotable1.Delete;

except

end;

end;

procedure TForm6.Button9Click(Sender: TObject);

begin

try

if datamodule2.adotable2.Modified then

datamodule2.adotable2.Post;

except

end;

end;

procedure TForm6.Button7Click(Sender: TObject);

begin

try

datamodule2.adotable2.Refresh;

except

end;

end;

procedure TForm6.Button8Click(Sender: TObject);

begin

datamodule2.ADOTable1.CancelUpdates;

datamodule2.ADOTable1.Cancel;

end;

end.

Unit 5 – отвечает за редактирование видов животных:

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, Grids, DBGrids, ExtCtrls, DBCtrls, ADODB;

type

TForm5 = class(TForm)

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

ADOTable1key: TAutoIncField;

ADOTable1DSDesigner: TWideStringField;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit2;

{$R *.dfm}

end.

Unit 4– отвечает за редактирование видов паразитов:

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, DB, Grids, DBGrids, ADODB;

type

TForm4 = class(TForm)

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

ADOTable1keyparazit: TAutoIncField;

ADOTable1DSDesigner: TWideStringField;

DBNavigator1: TDBNavigator;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit2;

{$R *.dfm}

end.

Приложение B.

Unit 1– самый главный модуль программы:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls, Menus, OleServer,

ExcelXP, Mask, Buttons,ComObj;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

Panel1: TPanel;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

DBLookupComboBox3: TDBLookupComboBox;

Button2: TButton;

DBGrid1: TDBGrid;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit4: TEdit;

Edit5: TEdit;

Label4: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

Button3: TButton;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Label5: TLabel;

Label7: TLabel;

Edit9: TEdit;

Label8: TLabel;

BitBtn1: TBitBtn;

N6: TMenuItem;

Edit10: TEdit;

Label9: TLabel;

Excel1: TMenuItem;

Edit11: TEdit;

Edit12: TEdit;

Edit13: TEdit;

Label6: TLabel;

procedure N3Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure Edit3Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Edit4Change(Sender: TObject);

procedure Edit5Change(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Edit7Change(Sender: TObject);

procedure Edit6Change(Sender: TObject);

procedure Edit8Change(Sender: TObject);

procedure Edit9Change(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure zapros(Sender:TObject);

procedure Edit10Change(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Excel1Click(Sender: TObject);

procedure Edit11Change(Sender: TObject);

procedure Edit13Change(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

M1,mm1,c1,r1,t1, M2,mm2,c2,r2,t2,M3,mm3,c3,r3,t3:String;

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}

procedure TForm1.zapros(Sender: TObject);

var

s1,s2,s3,s4:string;

begin

try

datamodule2.ADOQuery1.Active:=false;

datamodule2.ADOQuery1.sql.Clear;

datamodule2.ADOQuery1.sql.add('SELECT *');

datamodule2.ADOQuery1.sql.add('FROM Îáëàñòè, Ðàéîíû,Îêðóãà,Ïàðàçèòû');

datamodule2.ADOQuery1.sql.add('where (keyparazit=key11)and(keyokrug=key1)and(keyrayon=key) '+

'AND Ïðèðîäíàÿ_çîíà LIKE('''+edit10.Text+'%'') AND Îáëàñòü LIKE('''+edit1.Text+'%'') AND '+

'Ðàéîí LIKE('''+edit2.Text+'%'') AND Îêðóã LIKE('''+edit3.Text+'%'')');

if (dblookupcombobox3.KeyValue>=0)then

datamodule2.ADOQuery1.sql.add('and(Vidzivotnogo='+inttostr(dblookupcombobox3.KeyValue)+')');

datamodule2.ADOQuery1.sql.add('and(Vozrastzivotnogo LIKE''%'+edit13.Text+'%'')');

datamodule2.ADOQuery1.sql.add('and (Kolvo BETWEEN '+edit4.Text+' AND '+edit5.Text+')');

if (dblookupcombobox2.KeyValue>=0)then

datamodule2.ADOQuery1.sql.add('and(Ïàðàçèò='+inttostr(dblookupcombobox2.KeyValue)+')');

datamodule2.ADOQuery1.sql.add('and (procent BETWEEN '+edit7.Text+' AND '+edit8.Text+')');

datamodule2.ADOQuery1.sql.add(' and (Ïëîòíîñòü BETWEEN '+edit6.Text+' AND '+edit12.Text+')');

s2:=Copy(edit11.Text,0,3);

s1:=Copy(edit11.Text,4,3);

s3:= Copy(edit11.Text,7,4) ;

s4:=s1+s2+s3;

datamodule2.ADOQuery1.sql.add('and ([Date]<=#'+s4+'#)');

s2:=Copy(edit9.Text,0,3);

s1:=Copy(edit9.Text,4,3);

s3:= Copy(edit9.Text,7,4) ;

s4:=s1+s2+s3;

datamodule2.ADOQuery1.sql.add('and ([Date]>=#'+s4+'#) ');

datamodule2.ADOQuery1.sql.add('ORDER BY Ïðèðîäíàÿ_çîíà,Îáëàñòü,Ðàéîí,Îêðóã,Vidzivotnogo,Vozrastzivotnogo,Ïàðàçèò,procent,Ïëîòíîñòü,Kolvo,Date;');

datamodule2.ADOQuery1.Active:=true;

except end;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

form6.ShowModal;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

Form1.zapros(Sender);

end;

procedure TForm1.Edit2Change(Sender: TObject);

begin

Form1.zapros(Sender);

end;

procedure TForm1.Edit3Change(Sender: TObject);

begin

Form1.zapros(Sender);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.zapros(Sender);

end;

procedure TForm1.Edit4Change(Sender: TObject);

begin

Form1.zapros(Sender);

end;

procedure TForm1.Edit5Change(Sender: TObject);

begin

Form1.zapros(Sender);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form1.zapros(Sender);

end;

procedure TForm1.Edit7Change(Sender: TObject);

begin

Form1.zapros(Sender);

end;

procedure TForm1.Edit6Change(Sender: TObject);

begin

Form1.zapros(Sender);

end;

procedure TForm1.Edit8Change(Sender: TObject);

begin

Form1.zapros(Sender);

end;

procedure TForm1.Edit9Change(Sender: TObject);

begin

Form1.zapros(Sender);

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

DBLookupComboBox3.KeyValue:=-1;

DBLookupComboBox2.KeyValue:=-1;

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='0';

edit5.Text:='100';

edit6.Text:='0';

edit7.Text:='0';

edit8.Text:='100';

edit9.Text:='01/01/1924';

edit11.Text:='01/01/2030';

Form1.zapros(Sender);

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form4.ShowModal;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

form5.ShowModal;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.Button4Click(Sender: TObject);

var i,j:integer;

z,c,ev1,ev2,r,m,t:real;

begin

z:=0; j:=0;

ev1:=0; r:=0; m:=0;

datamodule2.ADOQuery1.First;

for i:=1 to datamodule2.ADOQuery1.RecordCount do

begin

inc(j);

z:=z+ datamodule2.ADOQuery1Kolvo.AsVariant;

ev1:= ev1+sqr(datamodule2.ADOQuery1Kolvo.AsVariant);

datamodule2.ADOQuery1.Next;

end;

ev2:=sqr(z);

z:=z/j; M1:=Format('%8.0f',[z]);

c:=ev1-(ev2/j); c1:=Format('%8.1f',[c]);

r:=sqrt(c/(j-1)); r1:=Format('%8.2f',[r]);

m:=r/sqrt(j-1); mm1:=Format('%8.1f',[m]);

t:=z/m;t1:=Format('%8.1f',[t]);

//memo1.Lines.Add('M = '+M1+' C = '+c1+' r = '+r1+' m = '+mm1+' t = '+t1);

z:=0; j:=0;

ev1:=0; r:=0; m:=0;

datamodule2.ADOQuery1.First;

for i:=1 to datamodule2.ADOQuery1.RecordCount do

begin

inc(j);

z:=z+ datamodule2.ADOQuery1DSDesigner8.AsVariant;

ev1:= ev1+sqr(datamodule2.ADOQuery1DSDesigner8.AsVariant);

datamodule2.ADOQuery1.Next;

end;

ev2:=sqr(z);

z:=z/j; M2:=Format('%8.0f',[z]);

c:=ev1-(ev2/j); c2:=Format('%8.1f',[c]);

r:=sqrt(c/(j-1)); r2:=Format('%8.2f',[r]);

m:=r/sqrt(j-1); mm2:=Format('%8.1f',[m]);

t:=z/m;t2:=Format('%8.1f',[t]);

//memo1.Lines.Add('M = '+M2+' C = '+c2+' r = '+r2+' m = '+mm2+' t = '+t2);

z:=0; j:=0;

ev1:=0; r:=0; m:=0;

datamodule2.ADOQuery1.First;

for i:=1 to datamodule2.ADOQuery1.RecordCount do

begin

inc(j);

z:=z+ datamodule2.ADOQuery1procent.AsVariant;

ev1:= ev1+sqr(datamodule2.ADOQuery1procent.AsVariant);

datamodule2.ADOQuery1.Next;

end;

ev2:=sqr(z);

z:=z/j; M3:=Format('%8.0f',[z]);

c:=ev1-(ev2/j); c3:=Format('%8.1f',[c]);

r:=sqrt(c/(j-1)); r3:=Format('%8.2f',[r]);

m:=r/sqrt(j-1); mm3:=Format('%8.1f',[m]);

t:=z/m;t3:=Format('%8.1f',[t]);

//memo1.Lines.Add('M = '+M3+' C = '+c3+' r = '+r3+' m = '+mm3+' t = '+t3);

end;

procedure TForm1.Edit10Change(Sender: TObject);

begin

Form1.zapros(Sender);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.zapros(Sender);

end;

procedure TForm1.Excel1Click(Sender: TObject);

const

xlWBATWorksheet = -4167;

xlContinuous = 1;

var

XLApp: Variant;

XLWorkbook: Variant;

XLSheet: Variant;

XLArrayData : OLEVariant;

XLCellBegin: Variant;

XLCellEnd: Variant;

XLRange: Variant;

iColumnsCount: Integer;

iRowsCount: Integer;

i: Integer;

j: Integer;

z,c,ev1,ev2,r,m,t:real;

begin

try

XLApp := CreateOleObject('Excel.Application'); //ýòî ÷òîá íàñ íèêòî íå âèäåë

XLApp.Application.EnableEvents := False; // Îòêëþ÷åíèå ñîáûòèé Excel äëÿ óñêîðåíèÿ ýêñïîðòà

except

Application.MessageBox('Ïðèëîæåíèå MS Office Excel íå íàéäåíî.', PChar(Self.Caption), MB_OK + MB_ICONERROR);

Exit;

end;

try

XLApp.DisplayAlerts := False;

Screen.Cursor := crHourGlass;

try

XLWorkbook := XLApp.Workbooks.Add(xlWBATWorkSheet);

XLSheet := XLWorkbook.Sheets[1];

iRowsCount := datamodule2.ADOQuery1.RecordCount +1; // + øàïêà

iColumnsCount:= 11;

XLArrayData := VarArrayCreate([1, iRowsCount+7, 1, iColumnsCount], varVariant);

XLArrayData[1, 1] := 'Ïðèðîäíàÿ çîíà';

XLArrayData[1, 2] := 'Îáëàñòü';

XLArrayData[1, 3] := 'Ðàéîí';

XLArrayData[1, 4] := 'Îêðóã';

XLArrayData[1, 5] := 'Âèä æèâîòíîãî';

XLArrayData[1, 6] := 'Âîçðàñò æèâîòíîãî';

XLArrayData[1, 7] := 'Êîëè÷åñòâî èññëåäóåìûõ æèâîòíûõ';

XLArrayData[1, 8] := 'Âèä ãåëüìèíòà';

XLArrayData[1, 9] := 'Èíòåíñèâíîñòü(ÈÈ)' ;

XLArrayData[1, 10] := 'Ýêñòåíñèâíîñòü(ÝÈ)';

XLArrayData[1, 11] := 'Äàòà èññëåäîâàíèÿ';

datamodule2.ADOQuery1.First;

for i:=1 to iRowsCount-1 do

begin

XLArrayData[i+1, 1] := datamodule2.ADOQuery1.FieldByName('Ïðèðîäíàÿ_çîíà').AsString;

XLArrayData[i+1, 2] := datamodule2.ADOQuery1.FieldByName('Îáëàñòü').AsString;

XLArrayData[i+1, 3] := datamodule2.ADOQuery1.FieldByName('Ðàéîí').AsString;

XLArrayData[i+1, 4] := datamodule2.ADOQuery1.FieldByName('Îêðóã').AsString;

XLArrayData[i+1, 5] := datamodule2.ADOQuery1.FieldByName('Âèä').AsString;

XLArrayData[i+1, 6] := datamodule2.ADOQuery1.FieldByName('Vozrastzivotnogo').AsString;

XLArrayData[i+1, 7] := datamodule2.ADOQuery1.FieldByName('Kolvo').AsString;

XLArrayData[i+1, 8] := datamodule2.ADOQuery1.FieldByName('Âèä ãåëüìèíòà').AsString;

XLArrayData[i+1, 9] := datamodule2.ADOQuery1.FieldByName('Ïëîòíîñòü').AsString;

XLArrayData[i+1, 10] := datamodule2.ADOQuery1.FieldByName('procent').AsString;

XLArrayData[i+1, 11] := datamodule2.ADOQuery1.FieldByName('Date').AsString;

datamodule2.ADOQuery1.Next;

end;

z:=0; j:=0;

ev1:=0; r:=0; m:=0;

try

datamodule2.ADOQuery1.First;

for i:=1 to datamodule2.ADOQuery1.RecordCount do

begin

inc(j);

z:=z+ datamodule2.ADOQuery1DSDesigner8.AsVariant;

ev1:= ev1+sqr(datamodule2.ADOQuery1DSDesigner8.AsVariant);

datamodule2.ADOQuery1.Next;

end;

ev2:=sqr(z);

z:=z/j; M2:=Format('%8.0f',[z]);

c:=ev1-(ev2/j); c2:=Format('%8.1f',[c]);

r:=sqrt(c/(j-1)); r2:=Format('%8.2f',[r]);

m:=r/sqrt(j-1); mm2:=Format('%8.1f',[m]);

t:=z/m;t2:=Format('%8.1f',[t]);

//memo1.Lines.Add('M = '+M2+' C = '+c2+' r = '+r2+' m = '+mm2+' t = '+t2);

except

M2:='0';c2:='0';r2:='0';mm2:='0';t2:='0';

end;

z:=0; j:=0;

ev1:=0; r:=0; m:=0;

try

datamodule2.ADOQuery1.First;

for i:=1 to datamodule2.ADOQuery1.RecordCount do

begin

inc(j);

z:=z+ datamodule2.ADOQuery1procent.AsVariant;

ev1:= ev1+sqr(datamodule2.ADOQuery1procent.AsVariant);

datamodule2.ADOQuery1.Next;

end;

ev2:=sqr(z);

z:=z/j; M3:=Format('%8.0f',[z]);

c:=ev1-(ev2/j); c3:=Format('%8.1f',[c]);

r:=sqrt(c/(j-1)); r3:=Format('%8.2f',[r]);

m:=r/sqrt(j-1); mm3:=Format('%8.1f',[m]);

t:=z/m;t3:=Format('%8.1f',[t]);

except

M3:='0';c3:='0';r3:='0';mm3:='0';t3:='0';

end;

XLArrayData[iRowsCount+3, 7] :='Ïî ÈÈ:';

XLArrayData[iRowsCount+4, 7] :='M±m:';

XLArrayData[iRowsCount+5, 7] :='Ñð. êâ. îòêëîíåíèå(r):';

XLArrayData[iRowsCount+6, 7] :='Êîýôèöåíò âàðèàöèè(Cv):';

XLArrayData[iRowsCount+7, 7] :='Äîñòîâåðíîñòü(t):';

XLArrayData[iRowsCount+4, 8] :=M2+'±'+mm2;

XLArrayData[iRowsCount+5, 8] :=r2;

XLArrayData[iRowsCount+6, 8] :=c2;

XLArrayData[iRowsCount+7, 8] :=t2;

XLArrayData[iRowsCount+3, 9] :='Ïî ÝÈ:';

XLArrayData[iRowsCount+4, 9] :='M±m:';

XLArrayData[iRowsCount+5, 9] :='Ñð. êâ. îòêëîíåíèå(r):';

XLArrayData[iRowsCount+6, 9] :='Êîýôèöåíò âàðèàöèè(Cv):';

XLArrayData[iRowsCount+7, 9] :='Äîñòîâåðíîñòü(t):';

XLArrayData[iRowsCount+4, 10] :=M3+'±'+mm3;

XLArrayData[iRowsCount+5, 10] :=r3;

XLArrayData[iRowsCount+6, 10] :=c3;

XLArrayData[iRowsCount+7, 10] :=t3;

XLCellBegin := XLSheet.Cells[1, 1];

XLCellEnd := XLSheet.Cells[iRowsCount+7, iColumnsCount];

XLRange := XLSheet.Range[XLCellBegin, XLCellEnd];

XLRange.NumberFormat := '@';

// ïåðåäà÷à ìàññèâà äàííûõ â ýêñöåëü

XLRange.Value := XLArrayData;

// êîíòóðû òàáëèöû

XLRange.Borders.LineStyle := xlContinuous;

XLSheet.Name := 'Customers';

XLSheet.Columns.Font.Bold := True;

XLSheet.Columns.ColumnWidth := 10;

// /Çàïîëíÿåì âñþ ïåðâóþ êîëîíêó

XLSheet.Range['A1','K1'].Font.Color := clBlue;

XLSheet.Range['A1','K'+inttostr(iRowsCount+7)].Font.Size := 10;

XLSheet.Range['A1','K'+inttostr(iRowsCount+7)].Font.Name := 'Times New Roman';

XLSheet.Range['A1','K'+inttostr(iRowsCount+7)].HorizontalAlignment := xlHAlignLeft;

XLSheet.Range['A1','K'+inttostr(iRowsCount+7)].ColumnWidth := 31;

XLSheet.Columns.HorizontalAlignment := xlLeft;

for i:= 1 to iColumnsCount do

XLSheet.Columns[i].AutoFit;

XLApp.Visible := True;

finally

Self.Enabled:= True;

Screen.Cursor := crDefault;

XLApp.DisplayAlerts:= True;

VarClear(XLArrayData);

end;

except

XLApp.Quit;

Application.MessageBox(PChar('Îøèáêà ýêñïîðòà â Excel.'), PChar(Self.Caption), MB_OK + MB_ICONERROR);

end;

end;

procedure TForm1.Edit11Change(Sender: TObject);

begin

Form1.zapros(Sender);

end;

procedure TForm1.Edit13Change(Sender: TObject);

begin

Form1.zapros(Sender);

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

try

datamodule2.ADOConnection1.Connected:=true;

datamodule2.ADOTable1.Active:=true;

datamodule2.ADOTable2.Active:=true;

datamodule2.ADOTable3.Active:=true;

datamodule2.ADOTable4.Active:=true;

datamodule2.ADOTable5.Active:=true;

datamodule2.ADOTable6.Active:=true;

//datamodule2.ADOQuery1.a.Active:=true;

datamodule2.VidTable4.Active:=true;

datamodule2.VozrastTable4.Active:=true;

datamodule2.ParazitTable4.Active:=true;

datamodule2.ParazitiTable5.Active:=true;

form4.ADOTable1.Active:=true;

form5.ADOTable1.Active:=true;

except

close;

end;

DBLookupComboBox3.KeyValue:=-1;

DBLookupComboBox2.KeyValue:=-1;

//DBLookupComboBox1.KeyValue:=-1;

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='0';

edit5.Text:='100';

edit6.Text:='0';

edit12.Text:='100';

edit7.Text:='0';

edit8.Text:='100';

edit9.Text:='01/01/1924';

edit11.Text:='01/01/2030';

datamodule2.ADOQuery1.Active:=false;

datamodule2.ADOQuery1.sql.Clear;

datamodule2.ADOQuery1.sql.add('SELECT *');

datamodule2.ADOQuery1.sql.add('FROM Îáëàñòè, Ðàéîíû,Îêðóãà,Ïàðàçèòû');

datamodule2.ADOQuery1.sql.add('where (keyparazit=key11)and(keyokrug=key1)and(keyrayon=key)');

datamodule2.ADOQuery1.sql.add('ORDER BY Ïðèðîäíàÿ_çîíà,Îáëàñòü,Ðàéîí,Îêðóã,Vidzivotnogo,Vozrastzivotnogo,Ïàðàçèò,procent,Ïëîòíîñòü,Kolvo,Date;');

datamodule2.ADOQuery1.Active:=true;

end;

end.

Аннотация

Разработана база данных на СУБД Access с использованием языка Borland Delphi 7.0. Она отражает эпизоотическую ситуацию по гельминтозам домашних животных и содержит данные исследований Жамбылской научно-исследовательской ветеринарной станции. Информация отображается в виде удобного пользовательского интерфейса по одиннадцати показателям, результаты по двум из которых автоматически обрабатываются стандардтными математическими методами. В программе предусмотрена возможность переноса отобранного массива данных в MS Excel для дальнейшей графической и прочей обработки.

Түйіндеме

Borland Delphi 7.0 тілін қолданып, Access Берілгендер Базасын Басқару Жүйесінде берілгендер базасы жасалынды. Ол үй жануарларының гельминтоздармен заладануының эпизоотикалық жағдайын көрсетеді, және Жамбыл ғылыми-зерттеу ветеринария стансасының ғылыми деректеріне негізделген. Базадаға ақпаратты қолдануға ыңғайлы интерфейсте 11 көрсеткіш бойынша қадағалауға болады. Екі көрсеткіштің берілгендері автоматты түрде стандартты математикалық тәсілдермен өңделеді. Басқа да ары қарай графикалық және басқа да өңдеулер үшін программада таңдалған берілгендер массивтерін MS Excel көшіру мүмкіндігі қарастырылған.

Abstract

A database on the Access database using language Borland Delphi 7.0. It reflects the epizootic situation on helminthiasis domestic animals and provides data research Zhambyl research veterinary station. The information is displayed in a user-friendly user interface for the eleven indicators, the results on two of which are automatically processed standardtnymi mathematical methods. The programme provides an opportunity to transfer selected array of data in MS Excel for further processing and other graphics.