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

Основные методы защиты от компьютерных вирусов

Для защиты от вирусов можно использовать:

- общие средства защиты информации;

- профилактические меры;

- специализированные программы для защиты от вирусов.

Общие средства защиты информации полезны не только для защиты от вируса. Имеются две основные разновидности этих средств:

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

- разграничение доступа - предотвращает несанкционированное использование информации.

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

- программы-детекторы - позволяют обнаруживать файлы, зараженные одним из нескольких известных вирусов (например: Scan, Norton AntiVirus, Dr. Web);

- программы-доктора, или фаги - «лечат» зараженные программы или диски, «выкусывая» из зараженных программ тело вируса;

- программы-ревизоры - сначала запоминают сведения о состоянии программ и системных областей дисков, а затем сравнивают их состояние с исходным. При выявлении несоответствий об этом сообщается пользователю (например: Adinf+AdinfExt, AVSP);

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

- программы-фильтры - располагаются резидентно в оперативной памяти компьютера и перехватывают те обращения к операционной системе, которые используются вирусами для размножения и нанесения вреда, и сообщают о них пользователю (например: FlutShot Plus);

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

Копирование файлов с жесткого диска

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

Обслуживание дисков

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

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

3. Эксплуатация программных средств

3.1 Структура вычислительного центра

Схема3.1.1.Структура вычислительного центра

3.2 Должностные инструкции техника - программиста

1. Общие положения.

1.1 Техник-программист относится к категории специалистов, принимается и увольняется на работу приказом начальника ВЦ (начальника производственного отдела ВЦ (ИВЦ), иного структурного подразделения).

 1.2 На должность техника-программиста 1 категории назначается лицо, имеющее среднее профессиональное образование и стаж работы в должности техника-программиста II категории не менее 2 лет; на должность техника-программиста II категории - среднее профессиональное образование и стаж работы в должности техника-программиста не менее 2 лет; на должность техника-программиста - среднее профессиональное образование, без предъявления требований к стажу работы.

1.3 Техник-программист подчиняется начальнику ВЦ (ИВЦ), начальнику производственного отдела ВЦ (ИВЦ), иному должностному лицу.

1.4 В своей деятельности техник-программист руководствуется:

- нормативно-правовыми актами, регулирующими соответствующие вопросы;

- методическими материалами, касающимися вопросов его деятельности;

- правилами трудового распорядка;

-приказами, распоряжениями директора предприятия (непосредственного руководителя);

- настоящей должностной инструкцией.

1.5 Техник-программист должен знать:

- методы проектирования механизированной и автоматизированной обработки информации;

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

- технологию механизированной и автоматизированной обработки информации;

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

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

- действующие системы счислений, шифров и кодов;

- основные формализованные языки программирования;

- основы программирования;

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

- методы расчета выполненных работ;

- основы экономики, организации труда и производства;

- правила и нормы охраны труда.

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

2. Функции.

На техника-программиста возлагаются следующие функции:

2.1 Механизированная и автоматизированная обработка поступающей в вычислительный центр информации.

2.2 Участие в проектировании систем обработки данных и систем математического обеспечения машины.

2.3 Разработка программ.

2.4 Учет использования машинного времени, объемов выполненных работ.

3. Должностные обязанности.

Для выполнения возложенных на него функций техник-программист обязан:

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

3.2 Принимать участие в проектировании систем обработки данных и систем математического обеспечения машины.

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

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

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

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

3.7 Участвовать в выполнении различных операций технологического процесса обработки информации (прием и контроль входной информации, подготовка исходных данных,  обработка информации, выпуск исходящей документации и передача ее заказчику).

3.8 Вести учет использования машинного времени, объемов выполненных работ.

4. Права.

Техник-программист имеет право:

4.1 Знакомиться с проектами решений руководства предприятия, касающимися его деятельности.

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

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

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

4.5 Требовать от руководства предприятия оказания содействия в исполнении своих должностных обязанностей и прав.

5. Ответственность.

Техник-программист несет ответственность:

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

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

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

4. Расчет себестоимости программного продукта

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

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

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

-по экономическим элементам;

-по статьям калькуляции.

Расчёт себестоимости на создание программного продукта «Информационная система гостиничного комплекса».

1. Количество компьютеров - 1 шт.

2. Количество дней работы над программой - 30 дней.

3. Коэффициент использования ПК - 0,8.

4. Средняя продолжительность рабочей смены - 5ч..

5. Тариф за потребление электроэнергии - 1,04 руб./ кВ.ч.

6. Потребляемая мощность ПК - 0,3 кВт/ч.

Полезный фонд времени работы ПК.

Фп = T * Ku * n * t (час)

Фп = 30 * 0,8 * 1 * 5 = 120 (час), где

Фп - полезный фонд

Т - количество дней работы над программой

Ku - коэффициент использования ПК

n - количество ПК

t - продолжительность смены

Стоимость потребляемой энергии.

Uэ\э = Фn * Ц * Р (руб.)

Uэ\э = 120 * 1,04 * 0,3 = 37,4 (руб), где

Uэ\э- стоимость потребляемой энергии

Ц - тариф за 1 кВтч

Р - потребляемая мощность ПК

Эксплуатационные материалы.

Таблица 1 «Эксплуатационные материалы»

№	Наименование	Кол-во, шт	Стоимость 1 единицы, руб	Сумма, руб
1	Тетрадь	1	3-00	3-00
2	Ручка	1	7-50	7-50
3	Карандаш	1	1-50	1-50
4	Диск	1	18-00	18-00
5	Дискета	3	15-00	45-00
ИТОГО:	75-00

Материальные затраты.

Материальные затраты - это наиболее крупный элемент затрат на производство, доля которого в общей сумме затрат может составлять от 60% до 90%.

Uмз= Uэ\э + Uэм

Uмз= 37,4 + 75,0 = 112,4, где

Uмз - материальные затраты

Uэ\э- стоимость потребляемой энергии

Uэм- стоимость эксплуатационных материалов

Оплата труда.

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

Основная заработная плата за время работы над программой.

Заработная плата программиста высшей категории 2334 руб/мес.

Заработная плата программиста без категории 1934 руб/мес.

ЗПосн = Т * З (руб)

ЗПосн = 30 * 88,0 = 2640,0 (руб), где

Т - время работы над программой

З - заработная плата программиста за один день

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

ЗПдоп = 0,4 * ЗПосн (руб)

ЗПдоп = 0,4 * 2640,0 = 1056,0 (руб), где

ЗПдоп - дополнительная заработная плата

ЗПосн - основная заработная плата за время работы над программой

Оплата труда.

Uзп = ЗПосн + ЗПдоп (руб)

Uзп = 2640,0 + 1056,0 = 3696,0 (руб), где

Uзп - оплата труда всего

ЗПдоп - дополнительная заработная плата

ЗПосн - основная заработная плата за время работы над программой

Отчисления на социальные нужды

Включают отчисления в бюджет РФ - 20%, в фонд социального страхования - 3,2 %, в фонд обязательного медицинского страхования (федеральный и территориальный) - 2,8 %. Общий размер единого социального налога - 26% от фонда оплаты.

Uсн = Нсн/100 * Uзп

Uсн = 26/100 * 3696,0 =961, где

Uсн - отчисления на социальные нужды

Uзп - оплата труда всего

Нсн - норма отчисления на социальные нужды (26%)

Амортизационные отчисления

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

На = На% / 100 % * Соф

На = 10,7 / 100 * 25000 = 2675, где

На- амортизационные отчисления

На% - норма амортизационных отчислений = 10,7 %

Соф - стоимость основных фондов = 25000

Прочие затраты

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

Uпр = 450 (руб.), где

Uпр - прочие затраты

Полные издержки

U = Uмз + Uзп + Uсн + На + Uпр

U = 112,4 + 3696,0 + 961,0 + 2675,0 + 450,0 =7894,4, где

Uмз - материальные затраты

Uзп - оплата труда всего

Uсн - отчисления на социальные нужды

На- амортизационные отчисления

Uпр - прочие затраты

Структура себестоимости.

Таблица 2 «Структура себестоимости»

№	Наименование	Издержки (руб)	% структура себестоимости
1	Материальные затраты	112,4	1,4
2	Оплата труда	3696,0	46,8
3	Социальные нужды	961,0	12,2
4	Амортизационные отчисления	2675,0	33,9
5	Прочие затраты	450,0	5,7
6	ИТОГО	7894,4	100

Sn - Сумма по статьям издержек.

Sn = 112,4 + 3696,0 + 961,0 + 2675,0 + 450,0 = 7894,4

Sмз = (112,4 / 7894,4) * 100 = 1,4%

Sопл = (3696,0 / 7894,4) * 100 = 46,8%

Sсн = (961,0 / 7894,4) * 100 = 12,2%

Sа = (2675 / 7894,4) * 100 = 33,9%

Sпр = (450 / 7894,4) * 100 = 5,7%

5. Мероприятия по технике безопасности и противопожарной технике

5.1 Общие положения по технике безопасности

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

Повышенный уровень электромагнитных излучений;

Повышенный уровень статического электричества;

Повышенная ионизация воздуха;

Статические физические перегрузки;

Перенапряжение зрительных анализаторов;

Работник обязан:

- выполнять только ту работу, которая определена его должностной инструкцией;

- содержать в чистоте рабочее место;

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

- соблюдать меры пожарной безопасности.

1.1 Инструкция предназначена для пользователей персональных компьютеров.

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

1.3 Профессиональные пользователи должны проходить обязательные предварительные (при поступлении на работу) и периодические медосмотры

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

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

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

1.7 Следует иметь в виду, что:

-расстояние между рабочими столами с компьютерами в направлении тыла поверхности одного видеомонитора и экрана другого видеомонитора должно быть не менее 2 м, а расстояние между боковыми поверхностями видеомониторов - не менее 1.2м;

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

- площадь на одно рабочее место ПК должна составлять не менее 6,0 кв. м, а объем - не менее 20,0 куб. м.

- верхний край экрана следует располагать на уровне глаз или чуть ниже;

- оптимальное расстояние от глаз до экрана 600-700 мм, но не ближе 500 мм;

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

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

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

- рабочие места с ПК при выполнении творческой работы, требующей значительного умственного напряжения или высокой концентрации внимания, следует изолировать друг от друга перегородками высотой 1,5-2,0 м.

- в помещениях с ПК ежедневно должна проводится влажная уборка.

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

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

- для предотвращения образования и защиты от статического электричества, в помещении, где установлен компьютер, необходимо применять нейтрализаторы и увлажнители. Должна быть эффективная вентиляция и поддерживаться относительная влажность воздуха на уровне 40-60 % (можно разместить вблизи компьютера цветы или аквариум).

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

1.9 При работе с персональным компьютером в ночную смену (с 22 до 6 часов), независимо от категории и вида трудовой деятельности, продолжительность регламентированных перерывов должна увеличиваться на 60 мин.

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

5.2. Техника безопасности при работе с ПК

1. Требования безопасности перед началом работы.

1.1 Подготовить рабочее место, убедиться в достаточной освещенности.

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

1.3 При выявлении неполадок сообщить об этом инженеру - программисту или руководителю работ и до их устранения к работе не приступать.

2. Требования безопасности во время работы.

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

2.2 Питание на процессор следует подавать после включения всех периферийных устройств. После работы первым должен выключаться процессор.

2.3 Не оставлять компьютер включенным при уходе с рабочего места. При длительном перерыве в работе компьютер следует обесточить, отсоединив от сети.

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

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

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

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

3. Требования безопасности в аварийных ситуациях.

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

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

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

4. Требования безопасности по окончании работы.

4.1 Отключить компьютер от электросети и убрать рабочее место

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

Заключение

Современный этап автоматизации управления общественным производством характерен развитием распределенной обработки экономической информации. Наиболее перспективной сферой использования концепции распределенной обработки экономической информации является автоматизация планово-управленческих функций на базе персональных ЭВМ, установленных непосредственно на рабочих местах специалистов. Эти системы получили широкое распространение в организационном управлении под названием автоматизированных рабочих (АРМ).

Автоматизированное рабочее место представляет собой рабочее место персонала автоматизированной системы управления, оборудованное средствами, обеспечивающими участие человека в реализации функций управления.

Программа «Информационная система гостиничного комплекса» была разработана, прошла тестирование и готова к эксплуатации.

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

1. Архангельский А. Я. Программирование Delphi7 - Москва, 2005;

2. Благодатских В. А. и др. Экономика, разработка и использование программного обеспечения ЭВМ - Москва, 1995;

3. Благодатских В. А. и др. Стандартизация разработки программных средств - Москва, 2003;

4. Бобровский С. И. Delphi 7 - Москва, 2005;

5. Голицина О. Л., Максимов Н. В. и др. База данных - Москва, 2003;

6. Коннолли Т. А., Бег К. В. Базы данных. Проектирование, реализация и сопровождение - Москва, 2001;

7. Океанова З. К. Основы экономической теории -Москва, 2003;

8. Орлов С. К. Технологии разработки программного обеспечения - Санкт-Петербург, 2002;

9. Полещук Н. Н. AutoCAD 2005, Санкт - Петербург, 2004;

10. Рудаков А. В. Технология разработки программных продуктов - Москва, 2005;

11. Семакин И. Г., Шестаков А. П. Основы программирования - Москва, 2001;

12. Фаронов В. В. Программирование баз данных в Delphi 7, Санкт-Петербург, 2003;

13. Фигунов В. Э. IBM PC для пользователей - Москва, 1996;

14. Якубайтис Э. А. Информационные сети и системы - Москва, 1996.

Приложение

Листинг программы «Информационная система гостиничного комплекса»

unit Unit1;

interface

uses

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

Dialogs, Menus, Grids, DBGrids, DB, DBTables, jpeg, ExtCtrls, ComCtrls,

StdCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N21: TMenuItem;

N9: TMenuItem;

N22: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N23: TMenuItem;

N31: TMenuItem;

N41: TMenuItem;

N51: TMenuItem;

N61: TMenuItem;

N71: TMenuItem;

N81: TMenuItem;

N91: TMenuItem;

N101: TMenuItem;

N111: TMenuItem;

N121: TMenuItem;

N131: TMenuItem;

N141: TMenuItem;

N151: TMenuItem;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Query1: TQuery;

StatusBar1: TStatusBar;

Label1: TLabel;

Label2: TLabel;

N13: TMenuItem;

Button1: TButton;

N14: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N31Click(Sender: TObject);

procedure N41Click(Sender: TObject);

procedure N61Click(Sender: TObject);

procedure N81Click(Sender: TObject);

procedure N71Click(Sender: TObject);

procedure N91Click(Sender: TObject);

procedure N51Click(Sender: TObject);

procedure N101Click(Sender: TObject);

procedure N121Click(Sender: TObject);

procedure N131Click(Sender: TObject);

procedure N141Click(Sender: TObject);

procedure N151Click(Sender: TObject);

procedure N23Click(Sender: TObject);

procedure N111Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N14Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit11, Unit7, Unit3, Unit2, Unit4, Unit5, Unit6, Unit8, Unit9, Unit10,

Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit19, Unit21,

Unit20, Unit22, Unit23, Unit24, Unit25, Unit26, Unit28, Unit29, Unit30;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

Form11.ShowModal;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

form7.showmodal;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form3.showmodal;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

form2.showmodal;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

form4.showmodal;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

form5.showmodal;

end;

procedure TForm1.N21Click(Sender: TObject);

begin

form6.showmodal;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

form8.showmodal;

end;

procedure TForm1.N22Click(Sender: TObject);

begin

form9.showmodal;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form10.showmodal;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

Button1.Visible:=true;

dbgrid1.Visible:=true;

form13.ShowModal;

end;

procedure TForm1.N31Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form24.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N41Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

Form14.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N61Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form15.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N81Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form28.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N71Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form16.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N91Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form29.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N51Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form17.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N101Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form18.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N121Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form19.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N131Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form20.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N141Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form22.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N151Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form23.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N23Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form25.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N111Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form26.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

DBGrid1.Visible:=false;

button1.Visible:=false;

Form1.Query1.SQL.Clear;

end;

procedure TForm1.N14Click(Sender: TObject);

begin

Form30.showmodal;

end;

end.

unit Unit20;

interface

uses

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

Dialogs, StdCtrls, DBCtrls;

type

TForm20 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

ComboBox2: TComboBox;

Label6: TLabel;

Label7: TLabel;

DBComboBox1: TDBComboBox;

procedure Button1Click(Sender: TObject);

procedure FormPaint(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form20: TForm20;

implementation

uses Unit1, Unit17, Unit13, Unit2;

{$R *.dfm}

procedure TForm20.Button1Click(Sender: TObject);

begin

if (dbcombobox1.Text = '') or (edit1.Text = '') or (edit2.Text = '') then

MessageBox(Application.Handle, 'Заполните все поля', 'Ошибка', MB_OK + MB_ICONHAND) else

begin

Form1.Query1.SQL.Clear;

Form1.Query1.SQL.Add('SELECT DISTINCT Naimenovanie_gost as Наименование_гостиницы, N_klienta as Номер_клиента, FIO as ФИО_клиента, Z_s_b as Занят_Свобод_Заброн, Data_zaselenia as Дата_заселения FROM гост_комплекс, общая, клиенты, клиенты2 ');

Form1.Query1.SQL.Add('WHERE гост_комплекс.N_gost=общая.N_gost and клиенты2.N_klienta=клиенты.N_klienta and клиенты2.N_nomera=общая.N_nomera and Naimenovanie_gost='''+dbcomboBox1.Text+''' and Data_zaselenia between '''+edit1.text+''' and '''+edit2.text+''' and Z_s_b='''+combobox2.text+'''');

Form1.Query1.Open;

end;

if Form1.Query1.RecordCount = 0 then showmessage ('Данной записи не существует') else

form20.Close;

end;

procedure TForm20.FormPaint(Sender: TObject);

begin

DBCombobox1.Items.Clear;

form2.Query1.First;

while not form2.Query1.Eof do

begin

DBCombobox1.Items.Add( form2.query1.Fields.FieldByName('Naimenovanie_gost').AsString);

form2.Query1.Next;

end;

form2.Query1.First;

end;

end.