Разработка приложения для работы с базой данных

Оптимальное расстояние глаз до экрана видеомонитора должно составлять 60-70 см, допустимое не менее 50 см. Рассматривать информацию ближе 50 см не рекомендуется.

 

7.6 Пожарная  безопасность при работе с  компьютером

Пожар – неконтролируемое горение вне специального очага, который наносит огромный ущерб. Электрическое горение – это замыкание, перегрузка электрического тока на электрооборудование, грозовая молния. Устранение причин пожара в электрических оборудованиях производиться в различных направлениях:

• предупреждения замыкания производиться правильным выбором, монтажом и эксплуатацией сетей;
• применение защиты схем в виде быстро действующих реле, а также выключателей, автоматических выкл.

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

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

Так же есть различные  электрические защитные средства от поражения током.

Защитные средства могут  быть условно разделены на три  группы: изолирующие, ограждающие и  предохранительные.

Изолирующие - изолируют человека от токоведущих и земных частей, а так же от земли.

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

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

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

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

Соблюдение всех  правил и норм по охране труда ведет к  повышению трудоспособности и улучшению делопроизводства.

 

Заключение

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

В процессе разработки дипломной работы на тему: «Электронный справочник лекарственных препаратов» поставленные задачи были реализованы в полном объёме.

Программное обеспечение  выполняет следующие функции:

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

Разработана справочная система, обеспечивающую оперативную  помощь пользователю при работе с  программным обеспечением.

В свою очередь  внедрение ПО в промышленную эксплуатацию даст возможность оперативно получать достоверную и нужную информацию при поиске.

Был проведён анализ предметной области и разработана  структура базы данных.

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

Интерфейс пользователя прост и удобен в работе.

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

 

Перечень использованных источников

1. Каратыгин С.А. «Электронный офис» т1,т2.Turbo Pascal Version 6.0. Programmer's Guide. Borland International, Inc. 1990.
2. Зуев Е.А. «Язык программирования Turbo Pascal  6.0.» -М.: Унитех,1992. -298 c.
3. Фаронов В.В. «Турбо Паскаль (в 3-х книгах)».-M.: Учебно-инженерный центр "МВТУ-ФЕСТО ДИДАКТИК", 1992. -304 c. ил.
4. Климов Ю.С. и др. «Программирование в среде Turbo Pascal 6.0.: Справочное пособие/» Минск, "Высшая школа", 1992. -158 c. ил.
5. Епанешников А.М., Епанешников  В.А. «Delphi 4 Среда разработки». Учебное пособие М: Диалог – Мифи, 1999г.- 304с
6. Культин Н. «Программирование на Object Pascal» СПБ: БХВ – Санкт-Петербург, 1999г. 480с.
7. A.M. Епанешников, «Программирование в среде Delphi 7.0» Москва, «Наука», 1989 г.
8. Брябрин В.М., «Программное обеспечение персональных ЭВМ», Москва, «Наука», 1989 г.
9. Шафрин Ю.А. «Основы компьютерной технологии». М., 1998
10. Шафрин Ю.А. «Рекомендации по обще пользовательскому интерфейсу», Microsoft, редакция 1995г.
11. Джон Матчо, Дэвид Р.Фолкнер. «Delphi» — пер. с англ. — М.Бином, 1995г.
12. Брябрин В.М., «Программное обеспечение персональных ЭВМ», Москва, «Наука», 1989 г.
13. Дж.  Тельман,  «Основы систем баз данных», Москва, «Финансы и статистика», 1983г. Когловский М.Р.,  «Технология баз данных на персональных ЭВМ», Москва, «Финансы и статистика», 1992 г.
14. Фаронов В.В., Шумаков П.В. «DELPHI 4  Руководство разработки баз данных”, М: Нолидж, 1999г., 560с.
15. Шумаков П.В. «DELPHI 3 и разработка приложений баз данных” М: Нолидж, 1998г., 704сДрахведидзе М.Г., Марков Е.П. «DELPHI 4 среда визуального программирования” СП8:BHV –Санкт – Петербург, 1999г.
16. Конституция Республики Казахстан от 30 августа 1995.
17. Закон Республики Казахстан от 7 июня 1999 года «Об образовании» Закон Республики Казахстан от 28 февраля 2004 года № 528 «О безопасности и охране труда»
18. Закон Республики Казахстан от 8 мая 2003 года № 412-2 «Об информатизации»
19. Постановление Правительства РК от 4.04.2000г. № 492 «О развитии единого информационного пространства в Республике Казахстан и создании ЗАО «Национальные информационные технологии»
20. Кодекс Республики Казахстан «О нормах и обязательных платежах в бюджет (Налоговый Кодекс)» по состоянию на 1 января 2005 г.
21. Гофман В. и Хомоненко А. «Работа с базами данных в Delphi» Издательство Санкт- Петербург 2000г.
22. Дейтел Г. «Введение в операционные системы»./Т1.Т2/Пер. с англ.. - М.:Мир, 1987
23. Драхведидзе М.Г., Марков Е.П., «Delphi 4 среда визуального программирования», СП8:ВНУ - Санкт-Петербург, 1999г., 352с 10. Озерова В. «Delphi Советы программистов» Второе издание, дополненное.
24. Издательство Санкт-Петербург «Символ» 2003г. К «Методические рекомендации к выполнению и защите дипломного проекта для специальности 3706002» - Астана, 2007,32с
25. Морозов Л.Л.» Охрана труда» Издательство Санкт- Петербург 2000г.
26. Фаронов В.В., «Delphi Учебный курс», М: Нолидж, 1998г., 400с
27. Фаронов В.В., Шумаков П.В. «Delphi Руководство разработки баз данных», М: Нолидж, 1999г., 506с
28. Фёдоров А.Г., «Delphi для всех», М: КомпьютерПресс, 1998г., 544с
29. Шумаков П.В., «Delphi» и разработка приложений баз данных» М: Нолидж, 1998г., 704с
30. Шумаков П.В., Фаронов В.В. «Delphi руководство разработчика баз данных» издательство «Номедж» Москва 1999г.
31. Фаронов В.В., Шумаков П.В. Delphi «Руководство разработчика баз данных» издательство «Номедж» Москва 1999г.
32. Симонович С.В. «Информатика для юристов и экономистов» – Санкт-Петербург, Москва, Харьков, Минск, 2001г. ПИТЕР
33. Мартин Дм. «Организация баз данных в вычислительных системах» издательство «Номедж» Москва 1999г..
34. Флорес И. «Структуры и управление данными». /Пер. с англ. -М.: Финансы и статистика, 1982.
35. Хоренко В. Н. «Информационные системы». /Пер. с англ. -М.: Финансы и статистика, 1982.
36. Артре Ш. «Структурный подход к организации баз данных». /Пер. с англ. М.: Финансы и статистика, 1983.
37. Дейт К. «Введение в системы баз данных». М.: Наука, 1980.
38. Четвериков В.Н., Ревунков Г.И., Самохвалов Э.Н. «Базы и банки данных издательство «Номедж» Москва 1999г.
39. Фигурнов В.Э. «IBM PC для пользователя». -Терра, 1996.
40. Морозов Л.Л. «Охрана труда». М.: Мир, 1996

 

Приложение.

Form1

 

unit Unit1;

interface

uses

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

  Dialogs, XPMan, Buttons, StdCtrls, ExtCtrls, ComCtrls, Menus, ShellAPI;

type

  TForm1 = class(TForm)

    SpeedButton1: TSpeedButton;

    XPManifest1: TXPManifest;

    SpeedButton2: TSpeedButton;

    SpeedButton3: TSpeedButton;

    SpeedButton4: TSpeedButton;

    SpeedButton5: TSpeedButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Panel1: TPanel;

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    TabSheet3: TTabSheet;

    TabSheet4: TTabSheet;

    TabSheet5: TTabSheet;

    Panel2: TPanel;

    SpeedButton8: TSpeedButton;

    SpeedButton7: TSpeedButton;

    SpeedButton6: TSpeedButton;

    Panel3: TPanel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    SpeedButton9: TSpeedButton;

    SpeedButton10: TSpeedButton;

    SpeedButton11: TSpeedButton;

    SpeedButton12: TSpeedButton;

    SpeedButton13: TSpeedButton;

    Panel4: TPanel;

    Label11: TLabel;

    Label12: TLabel;

    Label13: TLabel;

    Label14: TLabel;

    Label15: TLabel;

    SpeedButton14: TSpeedButton;

    SpeedButton15: TSpeedButton;

    SpeedButton16: TSpeedButton;

    SpeedButton17: TSpeedButton;

    SpeedButton18: TSpeedButton;

    Panel5: TPanel;

    Label16: TLabel;

    Label17: TLabel;

    Label18: TLabel;

    Label19: TLabel;

    Label20: TLabel;

    SpeedButton19: TSpeedButton;

    SpeedButton20: TSpeedButton;

    SpeedButton21: TSpeedButton;

    SpeedButton22: TSpeedButton;

    SpeedButton23: TSpeedButton;

    Panel6: TPanel;

    Label21: TLabel;

    Label22: TLabel;

    Label23: TLabel;

    Label24: TLabel;

    Label25: TLabel;

    SpeedButton24: TSpeedButton;

    SpeedButton25: TSpeedButton;

    SpeedButton26: TSpeedButton;

    SpeedButton27: TSpeedButton;

    SpeedButton28: TSpeedButton;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    procedure SpeedButton6Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure SpeedButton7Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure PageControl1Change(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton8Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

    procedure SpeedButton5Click(Sender: TObject);

    procedure SpeedButton9Click(Sender: TObject);

    procedure SpeedButton13Click(Sender: TObject);

    procedure SpeedButton12Click(Sender: TObject);

    procedure SpeedButton11Click(Sender: TObject);

    procedure SpeedButton10Click(Sender: TObject);

    procedure SpeedButton15Click(Sender: TObject);

    procedure SpeedButton14Click(Sender: TObject);

    procedure SpeedButton18Click(Sender: TObject);

    procedure SpeedButton17Click(Sender: TObject);

    procedure SpeedButton16Click(Sender: TObject);

    procedure SpeedButton20Click(Sender: TObject);

    procedure SpeedButton19Click(Sender: TObject);

    procedure SpeedButton23Click(Sender: TObject);

    procedure SpeedButton22Click(Sender: TObject);

    procedure SpeedButton21Click(Sender: TObject);

    procedure SpeedButton25Click(Sender: TObject);

    procedure SpeedButton24Click(Sender: TObject);

    procedure SpeedButton28Click(Sender: TObject);

    procedure SpeedButton27Click(Sender: TObject);

    procedure SpeedButton26Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  shag:integer;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.SpeedButton6Click(Sender: TObject);

begin

SpeedButton7.Enabled:=true;

shag:=shag+1;

If shag=4 then

begin

SpeedButton6.Enabled:=false;

end;

PageControl1.TabIndex:=PageControl1.TabIndex+1;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

TabSheet1.Show;

shag:=0;

end;

 

procedure TForm1.SpeedButton7Click(Sender: TObject);

begin

If SpeedButton6.Enabled=false then begin

SpeedButton6.Enabled:=true;

  end;

shag:=shag-1;