Информационная система управления в сфере обслуживания на примере гостиничного комплекса "Турист"

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

- использовать архитектурно-планировочные и технологические решения изоляции источников шума

8.4 Электробезопасность

Использование компьютеров невозможно без электрической энергии.

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

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

- расположение токоведущих частей на недоступной высоте более 2,5м;

- ограждение доступных токоведущих частей;

- применение усиленной изоляции;

- использование двойной изоляции в сетях и потребителях тока;

- устройство защитных заземлений;

- устройство занулений;

- устройство отключений;

- выравнивание потенциалов;

- устройства блокировок;

- использование средств индивидуальной защиты;

- регулярное проведение проверок изоляции в сетях и потребителях тока;

- регулярное проведение проверок работы защитных заземлений, занулений, выключателей и блокировочных устройств;

- регулярное проведение испытаний средств индивидуальной защиты;

- регулярное проведение испытаний оборудования и инструмента;

-регулярное проведение обучения, аттестации и переаттестации персонала, обслуживающего электрические сети и установки;

- применение специальных электрозащитных средств;

организация безопасной эксплуатации электрозащитных установок

8.5 Микроклиматические условия

- Температура. В операторском помещении по санитарным нормам температура должна быть не ниже плюс 15°С и не выше плюс 23°С в зимнее и летнее время соответственно.

Комфортные условия для большинства людей определяются температурой 21°С при влажности от 30 % до 70 %.

- Влажность. Влажность воздуха влияет на теплорегуляцию организма. Оптимальное значение относительной влажности воздуха в пределах 40-60 % и достигается с помощью системы вентилирования и способа вентиляции.

- Вентиляция. Движение воздуха имеет большое значение для теплорегуляции организма. При движении воздуха, даже при неизменной температуре резко увеличивается теплоотдача с поверхности тела человека путем конвекции, что снижает температуру кожи и увеличивает работоспособность оператора. Рекомендуемая скорость движения воздуха для операторских помещений 0,25-0,5 м/с.

- Микроклиматические параметры в операторском помещении:

скорость воздуха V=0-0,1 м/с, где индексы «з» и «л» означают зимние и летние значения величин.

Исходя из требований СНиП ("Отопление, вентиляция и кондиционирование воздуха", 2.04.05-86) приходим к выводу, что необходима вентиляция и кондиционирование в летнее время года.

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

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

8.6 Санитарно-гигиенических требований к помещениям

Кабинеты, их размеры (площадь объем) должны в первую очередь соответствовать количеству работающих и размещаемому в них комплекту технических средств.

В них предусматриваются соответствующие параметры температуры, освещения, чистоты воздуха, обеспечивают изоляцию, от производственных шумов и т.п.

Для обеспечения нормальных условий труда санитарные нормы СН 245-71 устанавливают на одного работающего, объём помещения не менее 15 м3, площадь помещения выгороженного стенами или глухими перегородками не менее 4,5 м3.

Содержание помещения в надлежащем санитарном состоянии. Своевременный ремонт аппаратуры и здания. Раз в месяц проводится осмотр оборудования. Ежедневно в помещении проводится влажная уборка.

В кабинетах с ЭВМ, как правило, применяется боковое естественное освещение.

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

8.7 Пожарная безопасность

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

В случае возгорания на предприятии имеются первичные средства тушения и ручные огнетушители. В наличии имеются огнетушители марок ОУ-2 и ОП-5.

Срок годности огнетушителя ОП-5 определяется по тонометру или их заменяют один раз в пять лет. Их объем составляет 5 килограмм.

Огнетушитель ОУ-2 заменяют один раз в два года. Их объем составляет 2 килограмм.

На каждом этаже данного предприятия размещен план эвакуации.

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

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

9. Охрана окружающей среды

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

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

В данном дипломном проекте разработана автоматизированная система тестирования уровня знаний обучающихся.

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

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

Возможные электромагнитные излучения и поля:

- рентгеновское излучение - возникает внутри электронно-лучевой трубки, когда разогнанные электроны тормозятся материалом экрана;

- оптические виды излучения - возникают при взаимодействии электронов и люминофора экрана;

- высокочастотные электромагнитные поля - связаны с частотой формирования элементов изображения, а также с интенсивностью электронного луча;

- низкочастотные электромагнитные поля - возникают в связи с потенциалом разгона и проводимостью поверхности экрана.

Источником рентгеновских лучей внутри монитора является внутренняя флуоресцирующая поверхность экрана. Незначительное рентгеновское излучение регистрируется лишь на расстоянии нескольких миллиметров от поверхности экрана, на расстоянии же от экрана 50 см рентгеновское излучение не регистрируется.

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

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

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

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

Для того, что бы улучшить экологическую обстановку при работе с персональными компьютерами необходимо учесть следующее:

Оптимальная расстановка рабочих мест в кабинете позволяет снизить опасность для здоровья.

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

Нельзя забывать и о шуме, вызванного при работе персонального компьютера (системного блока), это относится к старым моделям компьютеров, на новых моделях шумность системного блока находится в допустимых пределах 50 децибел.

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

9.1 Защита атмосферного воздуха

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

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

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

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

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

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

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

9.2 Защита водных ресурсов

Защита вод питьевого назначения также имеет глобальное значение.

Степень очистки сточных вод устанавливается в зависимости от местных условий с учетом возможного использования очищенных сточных вод - для промышленных и сельскохозяйственных нужд.

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

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

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

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

Заключение

Поставленная задача реализована. Выбранная интегрированная среда разработки прикладных программ Delphi 7.0, фирмы Borland International на данное время, считаю правильно выбранным. Среди всех известных фирм производителей инструментальных программных средств, таких как Microsoft, Symantec, Adobe и т.д. продукция фирмы Borland International является наиболее используемой в мире на данный момент. Главные преимущества программных продуктов этой фирмы: наибольшая скорость компиляции, наибольшая скорость выполнения и минимальный объем памяти разрабатываемых программ

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

Данный дипломный проект «АСУ в сфере обслуживания на примере гостиничного комплекса

Решение задач предложенных в данном проекте, будет способствовать:

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

· сокращению сроков формирования и обработки информации путем исключения дублирования ввода информации и оперативной её обработки;

· рациональному использованию средств автоматизации;

· получению определенного экономического эффекта, описанного в экономической части диплома.

Ценность данного проекта - улучшение качества работы в гостиничном комплексе.

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

Список используемой литературы

1 Белов С.В. Ильницкая А.В., Казьков А.Ф. «Безопасность жизнедеятельности». Учебник для вузов. Высшая школа, 2000

2 Белов С.В. Охрана окружающей среды -М.: Высшая школа, 1991, 224с.

3 Браун М., Ханикатт Д. “HTML 3.2”, К., 1996

4 В. Гофман, А. Хомоненко “Delphi 6”, С-П, 2001г.

5 Ван-Тассел Д. «Стиль, разработка, эффективность, отладка и испытание программ» М. Мир. 1985.

6 Варжепетян А.Г., Глушенко В.В. «Системы управления». Москва, 2000

7 Гайдамакин Н.А. «Автоматизированные информавционные системы, базы и банки данных». Москва, 2002

8 Грабер М., “Справочное руководство по SQL”, М., 1997

9 Дейта К. “Введение в системные баз данных”, М., 1999

10 Дейтел Г. «Введение в операционные системы»., М.,1997.

11 Денисов А и др. Интернет - самоучитель Спб.: «Питер» 2000г.

12 Емелина Е.И. «Основы программирования на языке Паскаль». М., 1997

13 Кириллов В.В. “Структуризованный язык запросов (SQL)”, М.,1997

14 Кузнецов С.Д. “Безопасность и целостность или, Худший враг себе - это ты сам”, СПб., 1998

15 Кузнецов С.Д. “Основы современных баз данных”, К., 1999

16 Л. Омельченко “Visual FoxPro 7.0”, С-П, 2002г.

17 Майкл Дж. Хернандес, Джон Л. Вьескас “ Запросы для простых смертных”

18 Методические указания к выполнению курсового проекта по дисциплине«БАЗЫ ДАННЫХ». - Томск, 2002.

19 С. Бобровский “Delphi 5”, С-П, 2002г.

20 Фаронов В. В. «Delphi 4». Учебный курс. Издательство «Нолидж», 1998

21 Фаронов В. В., «DELPHI 3 Учебный курс», М: Нолидж, 1998г., 400с

22 Фаронов В. В., Шумаков П.В. «DELPHI 4 Руководство разработки баз данных», М: Нолидж, 1999г., 506с

23 Федоров А. Г. «Delphi 3.0 для всех» М.: КомпьютерПресс, 1998

24 Фигурнов “IBM для пользователя”,М,1994г

Приложение А

К данной форме подключена база "istoriya_gosti_base"

Поля

K_ist_gost + *

Fam A 20

Im A 15

Ot A 20

Data_R D

Strana A 3

Gorod A 4

Ulica A 25

Dom A 5

Kv A 5

Passport A 15

Reg_n A 7

Cel_priezda A 20

Data_nachalo D

Data_konec D

Organizacya A 3

N_komn A 5

Data_priezda D

Raschet A 1

Summa A 7

К данной форме подключена база "base_reg"

Поля

K_reg + *

Fam A 20

Im A 15

Ot A 20

Data_R D

Strana A 3

Gorod A 4

Ulica A 25

Dom A 5

Kv A 5

Passport A 15

Reg_n A 7

Cel_priezda A 20

Data_nachalo D

Data_konec D

Organizacya A 3

N_komn A 5

Data_priezda D

Raschet A 1

Summa A 7

К данной форме подключена база "spr_komnat"

Поля

K_komnaty + *

No_komnaty A 5

Kol_mest A 1

Itaj A 2

Klass A 1

Zagruzka_komnat A 1

Data_nachalo D

Data_konec D

Kol_fact A 1

=====================================================}

unit U_reg_cart;

interface

uses

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

Mask, ToolEdit, StdCtrls, ExtCtrls, Buttons, Vclutils, ComCtrls;

type

TF_reg_cart = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label4: TLabel;

DateEdit1: TDateEdit;

Label5: TLabel;

Edit4: TEdit;

Label6: TLabel;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Edit8: TEdit;

Memo1: TMemo;

Label11: TLabel;

Label12: TLabel;

DateEdit2: TDateEdit;

DateEdit3: TDateEdit;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Edit9: TEdit;

SpeedButton1: TSpeedButton;

Label16: TLabel;

Label17: TLabel;

DateEdit4: TDateEdit;

Label18: TLabel;

Label19: TLabel;

Edit11: TEdit;

RadioGroup1: TRadioGroup;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

ComboBox3: TComboBox;

Bevel1: TBevel;

Bevel2: TBevel;

Bevel3: TBevel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

procedure FormActivate(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

procedure Edit3KeyPress(Sender: TObject; var Key: Char);

procedure Edit5KeyPress(Sender: TObject; var Key: Char);

procedure Edit6KeyPress(Sender: TObject; var Key: Char);

procedure Edit7KeyPress(Sender: TObject; var Key: Char);

procedure Edit8KeyPress(Sender: TObject; var Key: Char);

procedure Edit4KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

F_reg_cart: TF_reg_cart;

Raz_Spr_Stran, tz, Raz_Spr_Gorodov, tx, Raz_spr_org, tf:integer;

Spr_Stran_MStran, Spr_Gorodov_MGorodov, Spr_org_Morg:array of string;

Spr_Stran_MKod, Spr_Gorodov_MKod, Spr_org_MKod:array of string;

implementation

uses U_DM, U_reg_svob_komn;

{$R *.DFM}

procedure TF_reg_cart.FormActivate(Sender: TObject);

var i, j, f:integer;

begin

{DM1.T_spr_tarif.Open;

DM1.T_spr_tarif['tarif']; }

RadioGroup1.ItemIndex:=0;

loadkeyboardlayout('00000419',klf_activate);

DateEdit1.Text:='01.01.1980';

DateEdit2.Text:=FormatDateTime('dd/mm/yyyy',Date);

DateEdit3.Text:=FormatDateTime('dd/mm/yyyy',Date);

DateEdit4.Text:=FormatDateTime('dd/mm/yyyy',Date);

//Заполнение комбобокса из справочника стран

DM1.T_spr_stran.Open;

Raz_Spr_Stran:=DM1.T_spr_stran.RecordCount;

Spr_Stran_MStran:=NIL;

Spr_Stran_MKod:=NIL;

SetLength(Spr_Stran_MStran,Raz_Spr_Stran);

SetLength(Spr_Stran_MKod,Raz_Spr_Stran);

F_reg_cart.ComboBox1.Clear;

i:=0;

tz:=1;

with DM1.T_spr_stran do

begin

first;

while not eof do

begin

Spr_Stran_MStran[i]:=VarToStr(DM1.T_spr_stran['Country']);

Spr_Stran_MKod[i]:=VarToStr(DM1.T_spr_stran['K_country']);

F_reg_cart.ComboBox1.Items.Add(DM1.T_spr_stran['Country']);

i:=i+1;

next;

end;//while

end;//with

combobox1.ItemIndex:=0;

//Заполнение комбобокса из справочника городов

DM1.T_spr_gorodov.Open;

Raz_Spr_Gorodov:=DM1.T_spr_gorodov.RecordCount;

Spr_Gorodov_MGorodov:=NIL;

Spr_Gorodov_MKod:=NIL;

SetLength(Spr_Gorodov_MGorodov,Raz_Spr_Gorodov);

SetLength(Spr_Gorodov_MKod,Raz_Spr_Gorodov);

F_reg_cart.ComboBox2.Clear;

j:=0;

tx:=1;

with DM1.T_spr_gorodov do

begin

first;

while not eof do

begin

Spr_Gorodov_MGorodov[j]:=VarToStr(DM1.T_spr_gorodov['Cityname']);

Spr_Gorodov_MKod[j]:=VarToStr(DM1.T_spr_gorodov['K_city']);

F_reg_cart.ComboBox2.Items.Add(DM1.T_spr_gorodov['Cityname']);

j:=j+1;

next;

end;//while

end;//with

combobox2.ItemIndex:=0;

DM1.T_spr_org.Open;

Raz_spr_org:=DM1.T_spr_org.RecordCount;

Spr_org_Morg:=NIL;

Spr_org_MKod:=NIL;

SetLength(Spr_org_Morg,Raz_spr_org);

SetLength(Spr_org_MKod,Raz_spr_org);

F_reg_cart.ComboBox3.Clear;

f:=0;

tf:=1;

with DM1.T_spr_org do

begin

first;

while not eof do

begin

Spr_org_Morg[f]:=VarToStr(DM1.T_spr_org['Nazv_org']);

Spr_org_MKod[f]:=VarToStr(DM1.T_spr_org['K_org']);

F_reg_cart.ComboBox3.Items.Add(DM1.T_spr_org['Nazv_org']);

f:=f+1;

next;

end;//while

end;//with

combobox3.ItemIndex:=0;

end;

procedure TF_reg_cart.SpeedButton3Click(Sender: TObject);

begin

F_reg_cart.Close;

end;

procedure TF_reg_cart.SpeedButton1Click(Sender: TObject);

//var a,b,f:integer;

begin

{ label25.Caption:=DateEdit3.Text;

label27.Caption:=DateEdit2.Text;

a:=StrToInt(label27.Caption);

b:=StrToInt(label25.Caption);

f:=a-b;

label28.Caption:=IntToStr(f);}

F_reg_svob_komn.showmodal;

end;

procedure TF_reg_cart.SpeedButton2Click(Sender: TObject);

{====кнопка "Регистрация"====}

var vid, prov, prov2,prov3,prov4,prov5,prov6,prov7, bol, Fam, Im, Ot, Ulica:string;

sverka, sverka1:integer;

begin

if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='') or(Edit4.Text='') or

(Edit5.Text='') or (Edit6.Text='') or (Edit7.Text='') or (Edit8.Text='') or (Edit9.Text='')then

begin

messagebox(handle, 'Заполните все поля!', 'Предупреждение!', MB_ICONERROR );

end

else

begin

bol:=Edit1.text;

Fam:=AnsiUpperFirstChar(bol); //изменяем регистр букв

prov:=Fam;

bol:=Edit2.text;

Im:=AnsiUpperFirstChar(bol);

prov2:=Im;

bol:=Edit3.text;

Ot:=AnsiUpperFirstChar(bol);//изменяем регистр букв

prov3:=Ot;

bol:=Edit5.text;

Ulica:=AnsiUpperFirstChar(bol); //изменяем регистр букв

prov4:=Edit4.Text;

prov5:=DateEdit2.Text;

prov6:=DateEdit3.Text;

prov7:=DM1.T_spr_komnat['K_komnaty'];

DM1.T_base_reg.Open;

DM1.T_base_reg.Refresh;

DM1.T_spr_komnat.Open;

DM1.T_spr_komnat.Refresh;

vid:='10';

if RadioGroup1.ItemIndex=0 then vid:=IntToStr(5) else vid:=IntToStr(9);

if not DM1.T_base_reg.Locate('Fam;Im;Ot;Passport;Data_nachalo;Data_konec;N_komn', vararrayof([prov,prov2,prov3,prov4,prov5,prov6,prov7]),[]) then

begin

sverka:=DM1.T_spr_komnat['Pods'];

sverka1:=DM1.T_spr_komnat['Kol_fact'];

if sverka=0 then messagebox(handle, 'В данной комнате нет свободных мест!', 'Предупреждение!', MB_ICONERROR ) else

begin

sverka:=sverka-1;

DM1.T_spr_komnat.Open;

DM1.T_spr_komnat.Edit;

DM1.T_spr_komnat['Kol_fact']:=sverka1+1;

DM1.T_spr_komnat['Pods']:=sverka;

sverka:=sverka+1;

DM1.T_spr_komnat['Zagruzka_komnat']:=sverka;

DM1.T_spr_komnat['Data_nachalo']:=DateEdit2.Text;

DM1.T_spr_komnat['Data_konec']:=DateEdit2.Text;

DM1.T_base_reg.Open;

DM1.T_base_reg.Insert;

DM1.T_base_reg['Fam']:=Fam;

DM1.T_base_reg['Im']:=Im;

DM1.T_base_reg['Ot']:=Ot;

DM1.T_base_reg['Date_r']:=DateEdit1.Text;

DM1.T_base_reg['Passport']:=Edit4.Text;

DM1.T_base_reg['Strana']:=Spr_Stran_Mkod[Combobox1.ItemIndex];

DM1.T_base_reg['Gorod']:=Spr_Gorodov_Mkod[Combobox2.ItemIndex];

DM1.T_base_reg['Ulica']:=Ulica;

DM1.T_base_reg['Dom']:=Edit6.Text;

DM1.T_base_reg['Kv']:=Edit7.Text;

DM1.T_base_reg['Cel_priezda']:=Memo1.Text;

DM1.T_base_reg['Data_nachalo']:=DateEdit2.Text;

DM1.T_base_reg['Data_konec']:=DateEdit3.Text;

DM1.T_base_reg['Organizacya']:=Spr_org_Mkod[Combobox3.ItemIndex];

{--} DM1.T_base_reg['N_komn']:=StrToInt(edit9.text);

DM1.T_base_reg['Data_priezda']:=DateEdit4.Text;

DM1.T_base_reg['Raschet']:=vid;

DM1.T_base_reg['Summa']:=Edit11.Text;

DM1.T_base_reg['Reg_n']:=Edit8.Text;

DM1.T_base_reg.Post;

DM1.T_ist_gost.Open;

DM1.T_ist_gost.Insert;

DM1.T_ist_gost['Fam']:=Fam;

DM1.T_ist_gost['Im']:=Im;

DM1.T_ist_gost['Ot']:=Ot;

DM1.T_ist_gost['Date_r']:=DateEdit1.Text;

DM1.T_ist_gost['Passport']:=Edit4.Text;

DM1.T_ist_gost['Strana']:=Spr_Stran_Mkod[Combobox1.ItemIndex];

DM1.T_ist_gost['Gorod']:=Spr_Gorodov_Mkod[Combobox2.ItemIndex];

DM1.T_ist_gost['Ulica']:=Edit5.Text;

DM1.T_ist_gost['Dom']:=Edit6.Text;

DM1.T_ist_gost['Kv']:=Edit7.Text;

DM1.T_ist_gost['Cel_priezda']:=Memo1.Text;

DM1.T_ist_gost['Data_nachalo']:=DateEdit2.Text;

DM1.T_ist_gost['Data_konec']:=DateEdit3.Text;

DM1.T_ist_gost['Organizacya']:=Spr_org_Mkod[Combobox3.ItemIndex];

{--} DM1.T_ist_gost['N_komn']:=StrToInt(edit9.text){DM1.T_spr_komnat['No_komnaty'];};

DM1.T_ist_gost['Data_priezda']:=DateEdit4.Text;

DM1.T_ist_gost['Raschet']:=vid;

DM1.T_ist_gost['Summa']:=Edit11.Text;

DM1.T_ist_gost['Reg_n']:=Edit8.Text;

DM1.T_ist_gost.Post;

Messagebox(handle, 'Регистрация прошла удачно!', 'Подтверждение!', MB_ICONINFORMATION);

end end

else

begin

messagebox(handle, 'Данная регистрация уже сущевтсвует!', 'Внимание!', mb_iconwarning);

end;

end;

end;

procedure TF_reg_cart.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['А'..'Я','а'..'я',#8]) then key:=#0 ;

end;

procedure TF_reg_cart.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['А'..'Я','а'..'я',#8]) then key:=#0 ;

end;

procedure TF_reg_cart.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['А'..'Я','а'..'я',#8]) then key:=#0 ;

end;

procedure TF_reg_cart.Edit5KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['А'..'Я','а'..'я','A'..'Z','a'..'z','0'..'9','/',#8,' ','.']) then key:=#0 ;

end;

procedure TF_reg_cart.Edit6KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['А'..'Я','а'..'я','0'..'9','/',#8]) then key:=#0 ;

end;

procedure TF_reg_cart.Edit7KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['А'..'Я','а'..'я','0'..'9','/',#8]) then key:=#0 ;

end;

procedure TF_reg_cart.Edit8KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['А'..'Я','а'..'я','A'..'Z','a'..'z','0'..'9',#8]) then key:=#0 ;

end;

procedure TF_reg_cart.Edit4KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['А'..'Я','а'..'я','A'..'Z','a'..'z','0'..'9',#8]) then key:=#0 ;

end;

end.

Приложение B

Журнал компьютеров

Группа	№ Компьютера	Рабочее место	№ Комнаты
1	1	Системный администратор	АСУ
2	2	Бухгалтер ресторана	215
	3	Бухгалтер ресторана	215
	4	Бухгалтер ресторана	214
3	5	Бухгалтерия (расч. часть)	211
	6	Бухгалтерия (расч. часть)	211
	7	Гл. бухгалтер	210
4	8	Бухгалтер безнал. расчета	213
	9	Бухгалтер гостиницы	213
	10	Бухгалтер гостиницы	213
5	11	Портье №1	Вестибюль
	12	Портье №2	Вестибюль
	13	Портье №3	Вестибюль
6	14	Начальник службу размещения	209
	15	Отдел бронирования	209
7	16	Отдел кадров	236
	17	ПЭО	236
	18	Канцелярия	240
	19	Директор	240
	20	Сервер	АСУ

Размещено на Allbest.ru