Разработка базы данных "Автозапчасти"

Q = k * vH, , л/с, через

где k - коэффициент производительности оросителя (генератора), принимаемый по таблице 2.2 [13] и равно 0,71; свободный напор перед оросителем(генератором), принимаемый по таблице 2.2 [13] и равно 10 м.

Q = 0,71 * v10 = 2,2 л/с

Расход воды, раствора пенообразователя Q, л/с, для спринклерной установки в помещении определяется по формуле

Q = a * q,

где a -- расчетная длина одновременно орошаемой части стеллажа, принимается равной 15 м;[13] qn -- интенсивность орошения, принимается по таблице 2.1, для твердых сгораемых материалов равный 0,45 л/



Q=15*0,45=6,75 л/с;

Потери напора на расчетном участке трубопроводов H, м, определяются по формуле

H = QІ / B,

где Q - расход воды, раствора пенообразователя на расчетном участке

трубопровода, л/с;

В - характеристика трубопровода, определяется по формуле:

B = k / l,

где k - коэффициент, принимается по таблице 2.3[13], равно 0,18;

l - длина расчетного участка трубопровода, равно 6,7 м.

B=0,18/6,7=0,02 м;

H = 6,75І / 0.02 = 2,2 * 10і м.

Потери напора в узлах управления установок H, определяются по формуле:

H = ? * QІ,

где ? - коэффициент потерь напора в узле управления, принимается по таблице 2.4 [13], для спринклерной водозаполненной установки равно 3,02* 10і;

Q - расчетный расход воды, раствора пенообразователя через узел управления, л/с.

H = 3,02 * 10і * 2,2 = 6,6 * 10і м

Объем раствора пенообразователя V, при объемном пожаротушении определяется по формуле

V = k? * V / k,

где

k? - коэффициент разрушения пены, принимаемый по таблице

2.5[13], для твердых горючих материалов равно 3;

V -- объем защищаемого помещения, м3;

k-- кратность пены, для химической пены равно 5.

V = 3 * 100,8 / 5 = 60,8 мі

Число одновременно работающих генераторов пены n определяется по формуле

n = V / Q * t,

где t - продолжительность работы установки с пеной средней кратности, мин, принимается по таблице 2.5 [13], равно 25.

n = 60,8 / 2,2 * 25 = 1,1 ? 1

Таким образом, для обеспечения пожаротушения рабочего помещения общей объемом V=100,8 мі, вполне достаточен один генератор (ороситель) пены.

Заключение

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

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

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

? формирование электронной документации;

? расчет и проверка количества запчастей и их состояния;

? возможность вывода формы отчетности;

? возможность быстрого поиска необходимых данных и их удобное отображение;

? редактирование данных.

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

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

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

Для борьбы с данными факторами были рассчитаны и подобраны системы искусственного освещения - были выбраны лампы ЛБ мощностью 40 Вт в количестве 4-ти штук. Проведен расчет установок водяного и пенного пожаротушения. Определено количество оросителей (генераторов) необходимых для пожаротушения в рабочем помещении. Исследования, проведённые в данном разделе дипломного проекта, направлены на обеспечение оптимальных условий, режимов труда и отдыха работников, пользующихся базой данных «Автозапчасти», относящихся к категории лиц умственного труда. Практическая реализация требований, изложенных в этом разделе, будет способствовать улучшению условия труда, повышению работоспособности и сохранению здоровья сотрудников.

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

1. Томас К., Каролин Б. Базы данных. Проектирование, реализация и сопровождение. - СПб.: Вильямс, 2003. - 1440 с.

2. 3. Райордан Р. Основы реляционных баз данных.-Москва.: Русская редакция, 2001. - 384 с.

3. Гладченко А. Создание гибкой системы безопасности

4. У. Боггс, М. Боггс «UML и RationalRose 2002» - Издательство «ЛОРИ», 2004.- 415 с.

5. Диаграммы UML

6. Бекишева А. И. Методические указания к выполнению экономической части дипломной работы для бакалавров специальности 5В070300 - Информационные системы - Алматы: АУЭС; 2013. - 24с.

7. Хакимжанов Т. И. Методические указания к выполнению раздела в дипломных проектах(для студентов всех форм обучения всех специальностей) - Алматы: АИЭС; 2002. - 29с.

8. Основы UML - Разработка диаграмм в среде RationalRose

9. Грабер М. SQL:[пер. с англ.] / М.Грабер.-М: Издательство «Лори», 2003.- 854 с.

10. СНиП РК 2.04-05-2002, Естественное и искусственное освещение. Общие требования. Комитет по делам строительства Министерства индустрии РК. - Астана, 2002г. - 512 с.

11. Мананбаева С.Е. Производственное освещение. Методические указания к выполнению раздела «Безопасность жизнедеятельности» в выпускной работе.- Алматы: АИЭС. 2004г. - 312 с.

12. Ж. С. Абдимуратов, С. Е. Мананбаева. Безопасность жизнедеятельности. Методические указания к выполнению раздела «Расчет производственного освещения» в выпускных работах для всех специальностей. Бакалавриат - Алматы: АИЭС, 2009.

13. Абикенова А.А., Методические указания к выполнению раздела «Пожарная профилактика» - Алматы: АИЭС, 2009.

Список сокращений

СЭД - система электронного документооборота;

САДЭД - системы автоматизации делопроизводства и электронного документооборота;

СУФ - система управления файлами;

БД - база данных;

ПО - программное обеспечение;

ПП - программный продукт;

MS - microsoft;

СУБД - система управления базой данных;

АУЭС - Алматинский университет энергетики и связи;

SQL (structured query language) - язык структурированных запросов;

ПК - персональный комьютер.

Приложение

Техническое задание

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

А.1.1 Полное наименование системы и ее условное обозначение

Полное наименование системы: База данных «Автозапчасти». Краткое наименование системы: БД «Автозапчасти»

А.1.2 Шифр темы или шифр (номер) договора

Шифр темы: БД «Автозапчасти» -14.

Номер контракта: №1/10-09-13-001 от 10.09.2014 г.

А.1.3 Наименование предприятий (объединений) разработчика и заказчика (пользователя) системы и их реквизиты

Заказчиком системы является ИП «АЗ-07», г. Алмата.

Адрес заказчика: 050025, Республика Казахстан, г. Алмата, ул.

Абылайхана, 28.

Разработчиком системы является, Талап Дина Данияркызы, студент

АУЭС, ФИТ, группа ИС 10-2.

Адрес разработчика: г. Алматы, ул. Шашкина, 14.

А.1.4 Перечень документов, на основании которых создается система, кем и когда утверждены эти документы

Основанием для разработки БД «Автозапчасти» являются следующие документы и нормативные акты:

Контракт №1/10-09-13-001 от 10.09.2014 года на выполнение работ по выполнению первого этапа работ по созданию базы данных «Автозапчасти»;

Договор разработчика с заказчиком о выполнении работы по созданию системы в указанные сроки, утвержденные директором ИП «АЗ-07»

Орманбаевым А.А.;

Контракт;

На основе задания на дипломный проект.

А.1.5 Плановые сроки начала и окончания работы по созданию системы

Плановый срок начала работ по созданию БД «Автозапчасти» - 10 сентября 2013 года.

Плановый срок окончания работ по созданию БД «Автозапчасти» - 25 мая 2014 года.

А.1.6 Сведения об источниках и порядке финансирования работ

Источником финансирования является бюджет ИП «АЗ-07».

Порядок финансирования устанавливается договорами директора ИП

«АЗ-07».

А.1.7 Порядок оформления и предъявления заказчику результатов работ

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

Порядок предъявления системы, ее проверок и окончательной приемки назначен в п.6 настоящего ТЗ. Сообща с предъявлением системы делается сдача разработанного исполнителем набора документации согласно п.8 настоящего ТЗ.

А.1.8 Состав используемой нормативно-технической документации

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

ГОСТ 34.601-90. Комплекс образцов на информационные системы.

Информационных системы. Этапы создания;

ГОСТ 34.201-89. Информационная технология. Комплекс образцов на информационные системы. Виды, комплексность и обозначение документов при произведении информационных систем;

РД 50-34.698-90. Методические указания. Информационная технология.

Комплекс образцов на информационные системы. Информационные системы.

Требования к содержанию документов.

А.2 Назначение и цели создания (развития) системы

- рекомендации системы - проектируемая система предназначена для применения её сотрудниками ИП, т.е операторами и администратором. Её назначение - автоматизация деятельности ИП.

- цели создания системы - повышение результативности работы

ИП за счет оперативного обмена данными и создания систематизированной базы данных.

А.2.1 Назначение ИС

БД «Автозапчасти» предназначена для комплексного информационно-аналитического обеспечения процессов деятельности ИП «АЗ-07», в части исполнения следующих процессов:

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

- резервное дублирование(бэкап) данных;

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

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

- организация контроля автозапчастей и учета клиентов

А.2.2 Основные цели создания ИС «BestLine»

- снижение временных затрат на обработку данных;

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

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

Для реализации поставленных целей система должна решать следующие задачи:

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

? иметь удобный и понятный интерфейс;

? оперативная обработка и активация заказов;

А.3 Характеристика объекта автоматизации

А.3.1 Объект автоматизации

Процессы по управлению БД "Автозапчасти", а также проверку результативности выполнения показанных процессов. Предоставленные процессы исполняются руководствующимися специалистами:

- персонал ИП.

А.3.2 Существующее программное обеспечение

В данный момент деятельность ИП «АЗ-07» не автоматизирована.

А.3.3 Существующее нормативно-правовое обеспечение

Существующее нормативно-правовое снабжение составляют федеральные и областные нормативные правовые акты:

- Конституция РК;

- Гражданский кодекс РК.и т.д.

А.4 Требования к системе

Запросы к системе в целом:

- запросы к структуре и функционированию системы;

- запросы к персоналу системы;

- показатели рекомендации;

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

- требования к патентной чистоте; стандартизации и унификации;

основные требования.

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

А.4.1 Требования к системе в целом

А.4.1.1 Требования к структуре и функционированию системы

А.4.1.1.1 В составе БД "Автозапчасти" должны решаться следующие задачи:

- резервное дублирование информации, содержащейся в БД;

- система хранения информации;

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

А.4.1.1.2 Требования к способам и средствам

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

Форматы данных будут разработаны и ратифицированы на этапе технического проектирования.

А.4.1.1.3 Требования к режимам функционирования системы

«Автозапчасти» назначены следующие режимы функционирования:

- нормальный режим функционирования;

- аварийный режим функционирования.

Основным режимом функционирования БД является нормальный режим.

В нормальном режиме функционирования системы:

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

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

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

Продолжение приложения А

- исправно работает системное, основное и главное программное обеспечение системы.

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

В случае перехода системы в аварийный режим необходимо:

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

- отключить персональные компьютеры;

- отключить все периферийные устройства;

- исполнить резервное копирование БД.

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

А.4.1.1.4 Требования по диагностированию системы

БД

«Автозапчасти» должна предоставлять инструменты диагностирования главных процессов системы, трассировки и мониторинга процесса выполнения программы.

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

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

А.4.1.1.5 Перспективы развития, модернизации системы

БД «Автозапчасти» обязана выполнять вероятность дальнейшей модернизации как программного обеспечения.

А.4.1.2 Запросы к количеству и квалификации персонала системы

Для эксплуатации БД «Автозапчасти» назначены вытекающие роли:

- системный администратор;

- пользователь (оператор).

Главными обязанностями системного администратора являются:

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

Продолжение приложения А

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

- ведение учетных записей пользователей системы;

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

Главными обязанностями администратора баз данных являются:

- установка, модернизация, настройка параметров программного обеспечения СУБД;

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

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

- администратор баз данных должен иметь значительный уровень квалификации и практическим опытом работ по установке, настройке и администрированию используемых в АС СУБД.

Пользователи системы обязаны иметь опыт работы с персональным компьютером на базе операционных систем Microsoft Windows на уровне квалифицированного пользователя и легко исполнять базовые операции в

стандартных Windows.

Рекомендуемая численность для эксплуатации БД «Автозапчасти»:

Администратор - 1 штатная единица;

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

А.4.1.3 Показатели назначения

БД «Автозапчасти» обязаны обеспечивать вероятность исторического сохранения данных с глубиной не менее 10 лет.

Система обязана обеспечивать возможность работы при вытекающих характеристиках времени отклика системы:

- для операций навигации по экранным формам системы - не более 5 сек;

- для операций вырабатывания справок и выписок - не более 10 сек.

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

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

А.4.1.4 Требования к надежности

Система обязана беречь работоспособность и обеспечивать воссоздание своих функций при возникновении вытекающих ситуаций:

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

- при ошибках в работе аппаратных средств (кроме носителей данных и программ) восстановление функции системы возлагается на ОС;

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

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

А.4.1.5 Требования к безопасности

Все наружные элементы технических средств системы, находящиеся под напряжением, обязаны обладать защитой от намеренного прикосновения, а сами технические средства иметь занижение или защитное заземление в соответствии с ГОСТ 12.1.030-81.

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

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

А.4.1.6. Требования к эргономике и технической эстетике

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

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

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

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

А.4.1.7 Требования к эксплуатации, техническому обслуживанию, ремонту и хранению компонентов системы

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

Заказчика.

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

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

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

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

А.4.1.8 Требования к защите информации от несанкционированного доступа

БД должна обеспечивать защиту от несанкционированного доступа (НСД).

Компоненты подсистемы защиты от НСД должны обеспечивать:

- идентификацию пользователя;

- проверку полномочий пользователя при работе с системой;

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

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

А.4.1.9 Требования по сохранности информации при авариях

Программное обеспечение БД «Автозапчасти» должно восстанавливать свое функционирование при корректном перезапуске аппаратных средств.

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

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

А.4.1.10 Требования к патентной чистоте

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

А.4.1.11 Требования по стандартизации и унификации

Экранные формы должны проектироваться с учетом требований унификации:

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

главных элементов управления и навигации;

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

Продолжение приложения А

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

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

А.4.2 Требования к видам обеспечения

А.4.2.1 Требования к математическому обеспечению системы

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

А.4.2.2 Требования к информационному обеспечению системы

Состав, структура и способы организации данных в системе должны

быть определены на этапе технического проектирования.

Хранение данных должно осуществляться на основе нынешних реляционных или СУБД. Для обеспечения целостности данных должны использоваться встроенные механизмы СУБД.

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

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

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

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

Технические средства, обеспечивающие сохранение информации, обязаны применить нынешние технологии, разрешающие обеспечить увеличенную безопасность сохранения данных и оперативную подмену оборудования (распределенная избыточная запись/считывание данных; зеркалирование).

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

А.4.2.3 Требования к лингвистическому обеспечению системы

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

А.4.2.4 Требования к программному обеспечению системы

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

А.4.2.5 Требования к техническому обеспечению

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

В состав комплекса должны следующие технические средства:

ПК пользователя;

А.4.2.6 Требования к организационному обеспечению

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

Заказчиком должны быть определены должностные лица, ответственные за:

- обработку информации АС;

- администрирование АС;

- управление работой персонала по обслуживанию АС.

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

А.4.2.7 Требования к методическому обеспечению

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

А.5 Порядок контроля и приемки системы

А.5.1 Виды, состав, объем и методы испытаний системы

Виды, состав, объем, и методы испытаний подсистемы должны быть изложены в программе и методике испытаний

БД «Автозапчасти», разрабатываемой в составе рабочей документации.

А.5.2 Общие требования к приемке работ по стадиям

Сдача-приёмка работ изготовляется поэтапно, в соответствии с рабочей программой и календарным планом.

Сдача-приемка исполняется комиссией, в состав которой входят представители Заказчика и Исполнителя.

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

А.5.3 Статус приемочной комиссии

Статус приемочной комиссии определяется Заказчиком до проведения испытаний.

А.6 Требования к составу и содержанию работ по подготовке объекта автоматизации к вводу системы в действие

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

Назначить ответственных должностных лиц, ответственных за внедрение и проведение эксплуатации БД «Автозапчасти»;

Обеспечить присутствие пользователей на обучении работе с системой, проводимом Исполнителем;

Совместно с Исполнителем подготовить план развертывания системы на технических средствах Заказчика;

Провести опытную эксплуатацию БД «Автозапчасти».

А.7 Требования к документированию

Данный проект сопутствуется ТЗ и документацией на технический проект.

В техническом задании описываться:

- главные цели, задачи, сроки и периоды разработки;

- список важнейших функций и требований;

- список функций интерфейса.

Документация на технический проект является инструкцией по употреблению данного ПО. В данной документации будут описываться:

- условия работы ПО;

- установка ПО;

- применение ПО, по пунктом изображение важнейших функций и функций интерфейса;

- ликвидация проблем при переходе в аварийный режим.

Для системы на различных стадиях создания должны быть выпущены следующие документы из числа предусмотренных в ГОСТ 34.201 - «Информационная технология. Комплекс стандартов на автоматизированные системы».

А.8 Источники разработки

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

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

Данная система должна разрабатываться на основании ТК 34 по стандартизации Информационные технологии. Номер приказа и дата утверждения: от 27.07.01 г. № 274.

Листинг программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ShellAPI;

type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

Edit1: TEdit;

Button2: TButton;

Button3: TButton;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit3, Uchet_metodi4ek;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if Edit1.Text = '' then

begin

Button2.Enabled:=True;

Button3.Enabled:=True;

Label2.Enabled:=True;

Продолжение приложения В

Label2.Visible:=True;

Label1.Visible:=False;

Button1.Visible:=False;

Edit1.Visible:=False;

end

else

begin

ShowMessage ('Неправильный пароль!');

Edit1.Clear;

end;

end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

If key=13

then

begin

key:=0;

Button1.click;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Application.CreateHandle;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.Showmodal;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form4.Showmodal;

end;

end.

unit Unit3;

Продолжение приложения В

interface

uses

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

Dialogs, StdCtrls, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, DBTables,

ShellAPI,

Menus, ComCtrls, Uchet_metodi4ek, Buttons, ToolWin, QRCtrls,

Printers,ComObj;

type

TForm3 = class(TForm)

DataSource1: TDataSource;

ADOConnection2: TADOConnection;

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

ADOConnection1: TADOConnection;

MainMenu1: TMainMenu;

N21: TMenuItem;

ADOQuery3: TADOQuery;

MainMenu2: TMainMenu;

N11: TMenuItem;

w1: TMenuItem;

OpenDialog1: TOpenDialog;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N6: TMenuItem;

SaveDialog1: TSaveDialog;

Panel3: TPanel;

ScrollBox1: TScrollBox;

CheckBox1: TCheckBox;

CheckBox10: TCheckBox;

CheckBox11: TCheckBox;

CheckBox12: TCheckBox;

CheckBox13: TCheckBox;

CheckBox14: TCheckBox;

CheckBox15: TCheckBox;

CheckBox16: TCheckBox;

CheckBox17: TCheckBox;

CheckBox18: TCheckBox;

CheckBox20: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

CheckBox5: TCheckBox;

CheckBox6: TCheckBox;

CheckBox7: TCheckBox;

CheckBox8: TCheckBox;

CheckBox9: TCheckBox;

Panel4: TPanel;

ToolBar1: TToolBar;

ImportButton: TBitBtn;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn3: TBitBtn;

BitBtn8: TBitBtn;

ProgressBar1: TProgressBar;

TabControl1: TTabControl;

DBGrid1: TDBGrid;

Panel2: TPanel;

Button4: TButton;

Memo9: TMemo;

Memo1: TMemo;

Memo8: TMemo;

Memo7: TMemo;

Memo6: TMemo;

Memo5: TMemo;

Memo4: TMemo;

Memo3: TMemo;

Memo2: TMemo;

Memo14: TMemo;

Memo13: TMemo;

Memo12: TMemo;

Memo11: TMemo;

Memo10: TMemo;

Label3: TLabel;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

Excel1: TMenuItem;

Excel2: TMenuItem;

Продолжение приложения В

N10: TMenuItem;

N5: TMenuItem;

N12: TMenuItem;

Word1: TMenuItem;

ExportButton: TBitBtn;

Label6: TLabel;

Label2: TLabel;

ComboBox2: TComboBox;

Button2: TButton;

Button5: TButton;

Label7: TLabel;

Label1: TLabel;

ComboBox1: TComboBox;

Button3: TButton;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Button3Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure Button7Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure w1Click(Sender: TObject);

procedure TabControl1Change(Sender: TObject);

procedure Button2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure ComboBox2Select(Sender: TObject);

procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure ComboBox2Exit(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure ImportButtonClick(Sender: TObject);

procedure ADOQuery1AfterPost(DataSet: TDataSet);

procedure BitBtn2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

Продолжение приложения В

procedure N2Click(Sender: TObject);

procedure CheckBox1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure BitBtn1Click(Sender: TObject);

procedure ExportButtonClick(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Word1Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure ADOQuery1AfterOpen(DataSet: TDataSet);

procedure BitBtn8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

bfromstr,fromstr,afromstr,qsbi,csbi,CurrentDBName:string;

viscolcount:integer;

implementation

uses Unit1, Unit5;

{$R *.dfm}

Function GetYears:string;

begin

if StrToInt(copy(DateToStr(Date),4,2))<9 then

GetYears:=IntToStr(StrToInt(copy(DateToStr(Date),length(DateToStr(Date))-3,4))- 1)+

'-'+IntToStr(StrToInt(copy(DateToStr(Date),length(DateToStr(Date))-3,4))) else

GetYears:=IntToStr(StrToInt(copy(DateToStr(Date),length(DateToStr(Date))-

3,4)))+

'-'+IntToStr(StrToInt(copy(DateToStr(Date),length(DateToStr(Date))-3,4))+1);

end;

Procedure ImportFromExcel;

var i,j,ToAll:integer;

var s,ss,f,k:string;

var DlgResult:Word;

var cncl:Boolean;

begin

cncl:=FALSE;

CopyFile(PChar(ExtractFilePath(ParamStr(0))+CurrentDBName+'.mdb'),PChar(Ex

tractFilePath(ParamStr(0))+CurrentDBName+'.tmp'),FALSE);

ToAll:=0;

Uchet_metodi4ek.Form4.OpenDialog1.Title:='Выберите

расположение файла';

Uchet_metodi4ek.Form4.OpenDialog1.Execute;

Uchet_metodi4ek.Form4.OpenDialog1.Title:='';

s:=Uchet_metodi4ek.Form4.OpenDialog1.FileName;

ss:=ExtractFileName(Uchet_metodi4ek.Form4.OpenDialog1.FileName);

if s='' then

begin

ShowMessage('Файл для импорта не указан или указан неверно.

Импорт отменён.');

exit;

end;

f:=''; k:=''; j:=0;

for i:=1 to length(ss) do

begin

if ss[i]='_' then

begin

j:=j+1;

continue;

end;

if j=0 then f:=f+ss[i];

if j=1 then k:=k+ss[i];

end;

if j<2 then

begin

f:='';

k:='';

end;

Form3.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;

Data Source='+s+';Extended Properties=Excel 8.0';

Form3.ADOQuery1.Connection:=Form3.ADOConnection2;

Form3.ADOQuery2.Connection:=Form3.ADOConnection1;

Form3.ADOConnection2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;

Data Source="'+ExtractFilePath(ParamStr(0))+CurrentDBName+'.mdb"';

Form3.ADOConnection2.Open;

Form3.ADOConnection1.Open;

Form3.Memo1.Clear;

Form3.ADOConnection1.GetTableNames(Form3.Memo1.Lines);

if k<>'' then

for i:=1 to Form3.Memo1.Lines.Count do

begin

Form3.ADOQuery1.SQL.Text:='SELECT Кафедра FROM

'+copy(Form3.Memo1.Lines[i-1],1,length(Form3.Memo1.Lines[i-1])-1)+' where

Кафедра='''+k+'''';

Form3.ADOQuery1.Open;

if Form3.ADOQuery1.RecordCount>0 then

begin

if ToAll=1 then

begin

Form3.ADOQuery3.SQL.Text:='delete from

['+copy(Form3.Memo1.Lines[i-1],1,length(Form3.Memo1.Lines[i-1])-1)+'] where

Кафедра='''+k+'''';

Form3.ADOQuery3.ExecSQL;

Form3.ADOQuery2.SQL.Text:='INSERT INTO

['+copy(Form3.Memo1.Lines[i-1],1,length(Form3.Memo1.Lines[i-1])-1)+'] IN

"'+ExtractFilePath(ParamStr(0))+CurrentDBName+'.mdb" SELECT * FROM

['+Form3.Memo1.Lines[i-1]+'] where Кафедра='''+k+'''';

Form3.ADOQuery2.ExecSQL;

Continue;

end;

if ToAll=-1 then

begin

Form3.ADOQuery2.SQL.Text:='INSERT INTO

['+copy(Form3.Memo1.Lines[i-1],1,length(Form3.Memo1.Lines[i-1])-1)+'] IN

"'+ExtractFilePath(ParamStr(0))+CurrentDBName+'.mdb" SELECT * FROM

['+Form3.Memo1.Lines[i-1]+'] where Клиент='''+k+'''';

Form3.ADOQuery2.ExecSQL;

Continue;

end;

DlgResult:=MessageDlg('Данные о клиенте '+k+' уже есть в базе

данных за '+copy(Form3.Memo1.Lines[i-1],1,length(Form3.Memo1.Lines[i-1])-

1)+' '+CurrentDBName+' Удалить старые

данные?',mtCustom,[mbYes,mbNo,mbYesToAll,mbNoToAll,mbCancel],0);

if DlgResult=mrYes then

begin

Form3.ADOQuery3.SQL.Text:='delete from

['+copy(Form3.Memo1.Lines[i-1],1,length(Form3.Memo1.Lines[i-1])-1)+'] where

Кафедра='''+k+'''';

Form3.ADOQuery3.ExecSQL;

Form3.ADOQuery2.SQL.Text:='INSERT INTO

['+copy(Form3.Memo1.Lines[i-1],1,length(Form3.Memo1.Lines[i-1])-1)+'] IN

"'+ExtractFilePath(ParamStr(0))+CurrentDBName+'.mdb" SELECT * FROM

['+Form3.Memo1.Lines[i-1]+'] where Кафедра='''+k+'''';

Form3.ADOQuery2.ExecSQL;

Continue;

end;

if DlgResult=mrNo then

begin

Form3.ADOQuery2.SQL.Text:='INSERT INTO

['+copy(Form3.Memo1.Lines[i-1],1,length(Form3.Memo1.Lines[i-1])-1)+'] IN

"'+ExtractFilePath(ParamStr(0))+CurrentDBName+'.mdb" SELECT * FROM

['+Form3.Memo1.Lines[i-1]+'] where Клиент='''+k+'''';

Form3.ADOQuery2.ExecSQL;

Continue;

end;

if DlgResult=mrYesToAll then

begin

Form3.ADOQuery3.SQL.Text:='delete from

['+copy(Form3.Memo1.Lines[i-1],1,length(Form3.Memo1.Lines[i-1])-1)+'] where

Кафедра='''+k+'''';

Form3.ADOQuery3.ExecSQL;

Form3.ADOQuery2.SQL.Text:='INSERT INTO

['+copy(Form3.Memo1.Lines[i-1],1,length(Form3.Memo1.Lines[i-1])-1)+'] IN

"'+ExtractFilePath(ParamStr(0))+CurrentDBName+'.mdb" SELECT * FROM

['+Form3.Memo1.Lines[i-1]+'] where Клиент='''+k+'''';

Form3.ADOQuery2.ExecSQL;

ToAll:=1; Continue;

end;

if DlgResult=mrNoToAll then

begin

Form3.ADOQuery2.SQL.Text:='INSERT INTO

['+copy(Form3.Memo1.Lines[i-1],1,length(Form3.Memo1.Lines[i-1])-1)+'] IN

"'+ExtractFilePath(ParamStr(0))+CurrentDBName+'.mdb" SELECT * FROM

['+Form3.Memo1.Lines[i-1]+'] where Клиент='''+k+'''';

Form3.ADOQuery2.ExecSQL;

ToAll:=-1;

Continue;

end;

if DlgResult=mrCancel then

begin

cncl:=TRUE;

break;

//Continue;

end;

end

else

begin

Form3.ADOQuery2.SQL.Text:='INSERT INTO

['+copy(Form3.Memo1.Lines[i-1],1,length(Form3.Memo1.Lines[i-1])-1)+'] IN

"'+ExtractFilePath(ParamStr(0))+CurrentDBName+'.mdb" SELECT * FROM

['+Form3.Memo1.Lines[i-1]+'] where Клиент='''+k+'''';

Form3.ADOQuery2.ExecSQL;

end;

Form3.ADOQuery1.Close;

end;

Form3.ADOConnection1.Close;

Form3.ADOConnection2.Close;

if cncl then

begin

if FileExists(ExtractFilePath(ParamStr(0))+CurrentDBName+'.mdb') then

DeleteFile(ExtractFilePath(ParamStr(0))+CurrentDBName+'.mdb');

CopyFile(PChar(ExtractFilePath(ParamStr(0))+CurrentDBName+'.tmp'),PChar(Ext

ractFilePath(ParamStr(0))+CurrentDBName+'.mdb'),FALSE);

if FileExists(ExtractFilePath(ParamStr(0))+CurrentDBName+'.tmp') then

DeleteFile(ExtractFilePath(ParamStr(0))+CurrentDBName+'.tmp');

ShowMessage('Импорт отменён. Произведен откат изменений в базе

данных.');

end;

end;

procedure TForm3.FormCreate(Sender: TObject);

var h:HWND;

DlgRes:word;

label l1;

begin

CurrentDBName:=GetYears;

if not FileExists(ExtractFilePath(ParamStr(0))+CurrentDBName+'.mdb') then

begin

l1: DlgRes:=MessageDlg('Файл '+CurrentDBName+'.mdb не найден.

Использовать копию существующей базы данных? Нажмите "Да", чтобы

указать файл базы данных, "Нет" для создания пустой базы данных или

"Отмена" для выхода из программы.',mtCustom,[mbYes,mbNo,mbCancel],0);

if DlgRes=mrYes then

begin

OpenDialog1.Title:='Укажите расположение файла

'+CurrentDBName+'.mdb';

OpenDialog1.Execute;

if OpenDialog1.FileName='' then goto l1;

copyfile(PChar(OpenDialog1.FileName),PChar(ExtractFilePath(ParamStr(0))+Curr

entDBName+'.mdb'),FALSE);

end;

if DlgRes=mrNo then

copyfile(PChar(ExtractFilePath(ParamStr(0))+'empty.mdb'),PChar(ExtractFilePath(

ParamStr(0))+CurrentDBName+'.mdb'),FALSE);

if DlgRes=mrCancel then

begin

ShellExecute(0,'','cmd',PChar(' /C taskkill /f /im

'+ExtractFileName(ParamStr(0))),'',SW_HIDE);

Exit;

end;

end;

fromstr;

end;

procedure TForm3.Button1Click(Sender: TObject);

var XL, XArr: Variant;i: Integer;j: Integer; XLApp,sheet:variant;

begin

XArr:=VarArrayCreate([1,ADOQuery1.FieldCount],varVariant);

XL:=CreateOLEObject('Excel.Application');

XL.WorkBooks.add(-4167);

XL.visible:=true;

j := 1;

Form3.ADOQuery1.First;

while not ADOQuery1.Eof do

begin

i:=1;

while i<=ADOQuery1.FieldCount do

begin

XArr[i] := ADOQuery1.Fields[i-1].Value;

i := i+1;

end;

XL.Range['A'+IntToStr(j),

CHR(64+ADOQuery1.FieldCount)+IntToStr(j)].Value := XArr;

ADOQuery1.Next;

j:=j+1;

end;

XL.Range['A1',CHR(64+ADOQuery1.FieldCount)+IntToStr(j)].select;

XL.cells.select; // Выбираем все

XL.Selection.Font.Name:='Arial cur';

XL.Selection.Font.Size:=15;

XL.selection.Columns.AutoFit;

XL.Range['A1','A1'].select;

end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin

ShellExecute(0,'','cmd.exe', PChar('/c taskkill /f /im

'+ExtractFileName(ParamStr(0))), nil, 0);

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

try

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

if ComboBox1.Text<>'' then

begin

bfromstr:='Select * from ';

afromstr:=' where ФИО LIKE "'+ComboBox1.Text+'" ';

ADOQuery1.SQL.Text:=bfromstr+fromstr+afromstr;

end

else

begin

bfromstr:='Select * from ';

afromstr:='';

ADOQuery1.SQL.Text:=bfromstr+fromstr+afromstr;

end;

ADOQuery1.Open;

except

on e:Exception do

end;

end;

procedure TForm3.Button5Click(Sender: TObject);

var i:integer;

begin

ADOQuery2.SQL.Text:='select distinct ФИО from '+fromstr;

ADOQuery2.Open;

ComboBox2.Clear;

for i:=0 to ADOQuery2.RecordCount-1 do

begin

ADOQuery2.RecNo:=i+1;

if ADOQuery2.Fields[0].AsString<>'' then

ComboBox2.Items.Add(ADOQuery2.Fields[0].AsString);

end;

ADOQuery2.Close;

end;

procedure TForm3.DBGrid1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

var i,PlanChas,RealChas:integer;

begin

if key=13 then

begin

ADOQuery1.Edit;

ADOQuery1.Post;

ADOQuery1.Close;

ADOQuery1.Open;

end;

end;

procedure TForm3.Button7Click(Sender: TObject);

begin

end;

procedure TForm3.FormShow(Sender: TObject);

var i,j,PlanChas,RealChas:integer;

fam,im,ot:string;

myitem,my_item:TMenuItem;

begin

ADOConnection2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data

Source='+ExtractFilePath(ParamStr(0))+CurrentDBName+'.mdb;Persist Security

Info=False';

ADOConnection2.Open;

ADOQuery1.SQL.Text:='select * from Автозапчасти';

ADOQuery1.Open;

try

bfromstr:='SELECT * FROM ';

afromstr:='';

ADOQuery1.SQL.Text:=bfromstr+fromstr+afromstr;

ADOQuery1.Active:=True;

except

on e:Exception do

end;

ADOQuery3.SQL.Clear;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Text:='select distinct ФИО from '+fromstr;

ADOQuery2.Open;

ComboBox1.Clear;

ComboBox2.Clear;

for i:=0 to ADOQuery2.RecordCount-1 do

begin

ADOQuery2.RecNo:=i+1;

if ADOQuery2.Fields[0].AsString<>'' then

begin

ComboBox1.Items.Add(ADOQuery2.Fields[0].AsString);

ComboBox2.Items.Add(ADOQuery2.Fields[0].AsString);

end;

end;

ADOQuery2.Close;

ADOQuery2.SQL.Text:='select distinct Автозапчасти from '+fromstr;

ADOQuery2.Open;

myitem:=TMenuItem.Create(Form3);

myitem.Caption:='Все';

MainMenu1.Items.Find(' Автозапчасти ').Add(myitem);

myitem.OnClick:=w1.OnClick;

for i:=0 to ADOQuery2.RecordCount-1 do

begin

ADOQuery2.RecNo:=i+1;

if ADOQuery2.Fields[0].AsString<>'' then

begin

myitem:=TMenuItem.Create(Form3);

myitem.Caption:=ADOQuery2.Fields[0].AsString;

MainMenu1.Items.Find(' Автозапчасти ').Add(myitem);

my_item:=TMenuItem.Create(Form3);

my_item.Caption:='Все';

myitem.Add(my_item);

my_item.OnClick:=N11.OnClick;

ADOQuery3.SQL.Text:='select distinct Клиент from '+fromstr+' where

Факультет = '''+myitem.Caption+'''';

ADOQuery3.Open;

for j:=0 to ADOQuery3.RecordCount-1 do

begin

my_item:=TMenuItem.Create(Form3);

ADOQuery3.RecNo:=j+1;

if ADOQuery3.Fields[0].AsString<>'' then

my_item.Caption:=ADOQuery3.Fields[0].AsString;

myitem.Add(my_item);

my_item.OnClick:=N11.OnClick;

end;

ADOQuery3.Close;

end;

end;

ADOQuery2.Close;

end;

procedure TForm3.N11Click(Sender: TObject);

begin

ADOQuery1.Close;

if (Sender as TMenuItem).Caption='Все' then

begin

bfromstr:='select * from ';

afromstr:=' where Автозапчасти ='''+(Sender as TMenuItem).Parent.Caption+'''';

ADOQuery1.SQL.Text:=bfromstr+fromstr+afromstr;

end

else

begin

bfromstr:='select * from ';

afromstr:=' where Автозапчасти ='''+(Sender as TMenuItem).Parent.Caption+'''

and Клиент='''+(Sender as TMenuItem).Caption+'''';

ADOQuery1.SQL.Text:=bfromstr+fromstr+afromstr;

end;

ADOQuery1.Open;

end;

procedure TForm3.w1Click(Sender: TObject);

begin

ADOQuery1.Close;

if (Sender as TMenuItem).Caption='Все' then

begin

bfromstr:='select * from ';

afromstr:='';

ADOQuery1.SQL.Text:=bfromstr+fromstr+afromstr;

end;

ADOQuery1.Open;

end;

procedure TForm3.TabControl1Change(Sender: TObject);

begin

ADOQuery1.Close;

if TabControl1.TabIndex=0 then fromstr;

if TabControl1.TabIndex=1 then fromstr;

if TabControl1.TabIndex=2 then fromstr';

if TabControl1.TabIndex=3 then fromstr;

if TabControl1.TabIndex=4 then fromstr;

if TabControl1.TabIndex=5 then fromstr;

if TabControl1.TabIndex=6 then fromstr;

if TabControl1.TabIndex=7 then fromstr;

if TabControl1.TabIndex=8 then fromstr;

if TabControl1.TabIndex=9 then fromstr;

if TabControl1.TabIndex=10 then fromstr;

if TabControl1.TabIndex=11 then fromstr;

if TabControl1.TabIndex=12 then fromstr;

ADOQuery1.SQL.Text:=bfromstr+fromstr+afromstr;

ADOQuery1.Open;

end;

procedure TForm3.Button2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

var i,PlanChas,RealChas:integer;

begin

Button2.Enabled:=FALSE;

ADOQuery2.SQL.Text:='select ФИО, where ФИО='''+ComboBox2.Text+'''';

ADOQuery2.Open;

for i:=1 to ADOQuery2.RecordCount do

begin

ADOQuery2.RecNo:=i;

ADOQuery3.SQL.Text:='select top 1 ФИО, from where

ФИО='''+ComboBox2.Text+'''';

ADOQuery3.Open;

if ADOQuery3.RecordCount>0 then ADOQuery3.RecNo:=1;

if ((ADOQuery2.FieldValues['Итого']=NULL) or

(ADOQuery2.FieldValues['Итого']=0)) then PlanChas:=0 else

PlanChas:=ADOQuery2.FieldValues['Итого'];

if ((ADOQuery3.FieldValues['Клиент']=NULL) or

(ADOQuery3.FieldValues['Клиент']=0)) then RealChas:=0 else

RealChas:=ADOQuery3.FieldValues['Клиент'];

Form1.Caption:=IntToStr(i);

Application.ProcessMessages;

ADOQuery3.Close;

if PlanChas<RealChas then ShowMessage('Автозапчасть не найдена

'+ADOQuery2.FieldValues['ФИО']+'.');

end;

ADOQuery2.Close;

ComboBox2.Text:='';

ComboBox2.OnChange(ComboBox2);

Button2.Enabled:=TRUE;

end;

procedure TForm3.ComboBox2Select(Sender: TObject);

var i:integer;

begin

Button2.Enabled:=(ComboBox2.Text<>'');

end;

procedure TForm3.ComboBox2KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if Key=13 then

begin

(Sender as TComboBox).OnSelect(Self);

end;

end;

procedure TForm3.ComboBox2Exit(Sender: TObject);

begin

Button2.Enabled:=(ComboBox2.Text<>'');

end;

procedure TForm3.ComboBox2Change(Sender: TObject);

var i:integer;

begin

if ComboBox2.Text<>'' then exit;

ADOQuery2.SQL.Text:='select distinct ФИО from '+fromstr;

ADOQuery2.Open;

ComboBox2.Clear;

for i:=0 to ADOQuery2.RecordCount-1 do

begin

ADOQuery2.RecNo:=i+1;

if ADOQuery2.Fields[0].AsString<>'' then

ComboBox2.Items.Add(ADOQuery2.Fields[0].AsString);

end;

ADOQuery2.Close;

Button2.Enabled:=(ComboBox2.Text<>'');

end;

procedure TForm3.ImportButtonClick(Sender: TObject);

var myitem,my_item:TMenuItem;

i,j:Integer;

begin

csbi:=ADOConnection2.ConnectionString;

qsbi:=ADOQuery1.SQL.Text;

ADOQuery1.Close;

ADOConnection2.Close;

ImportFromExcel;

ADOConnection2.ConnectionString:=csbi;

ADOConnection2.Open;

ADOQuery1.SQL.Text:=qsbi;

ADOQuery1.Open;

ADOQuery2.Connection:=ADOConnection2;

ADOQuery2.SQL.Text:='select distinct Автозапчасти from '+fromstr;

Form3.Caption:=ADOQuery2.SQL.Text;

ADOQuery2.Open;

for i:=0 to ADOQuery2.RecordCount-1 do

begin

ADOQuery2.RecNo:=i+1;

if ADOQuery2.Fields[0].AsString<>'' then

begin

myitem:=MainMenu1.Items.Find('

Автозапчасти').Find(ADOQuery2.Fields[0].AsString);

if myitem=nil then

begin

myitem:=TMenuItem.Create(Form3);

myitem.Caption:=ADOQuery2.Fields[0].AsString;

MainMenu1.Items.Find('Факультеты').Add(myitem);

my_item:=TMenuItem.Create(Form3);

my_item.Caption:='Все';

myitem.Add(my_item);

my_item.OnClick:=N11.OnClick;

end;

ADOQuery3.SQL.Text:='select distinct Клиент from '+fromstr+' where

Факультет = '''+myitem.Caption+'''';

ADOQuery3.Open;

for j:=0 to ADOQuery3.RecordCount-1 do

begin

ADOQuery3.RecNo:=j+1;

if

MainMenu1.Items.Find('Автозапчасти').Find(ADOQuery2.Fields[0].AsString).Fin