Проектирование реализации операций бизнес-процесса «Предоставление рекламных услуг»
Содержание:
ВВЕДЕНИЕ
Данный проект посвящен проектированию реализации операций бизнес-процесса «Предоставление рекламных услуг».
Цели работы – полностью разработать информационную систему для агентства рекламных услуг. Необходимо произвести анализ предметной области, определить структуру задачи и смоделировать систему при помощи диаграмм. Далее произвести выбор программных и технических средств. По результатам работы спроектировать экранные формы и создать готовый программный продукт.
В состав рассмотренных вопросов вошли:
• Технико-экономический анализ и характеристика деятельности предприятия
• Проектирование информационной системы рекламного агентства
• Программная реализация информационной системы рекламного агентства
ГЛАВА 1. АНАЛИТИЧЕСКАЯ ЧАСТЬ
Выбор комплекса задач автоматизации
В проекте рассматривается деятельность агентства рекламных услуг. Автоматизации подлежит локальное рабочее место.
В предметной области подлежит автоматизации задача учета и расчета стоимости заказов. Эту задачу делим на 2 подзадачи: учет работы и расчет стоимости.
Учет работы заключается в фиксации информации о заказчиках, заказах, принятых и выполненных, счетах за оплату заказов. Внесение информации о наличии материалов на складе. Занесение, обновление нормативов по расходу ресурсов, предоставляемых услугах и специалистах, выполняющих их. Исходным источниками и документами являются:
- для данных о заказчиках – информация, предоставляемая клиентами;
- о заказах – информация, составленная заказчиками вместе с дизайнерами и оформителями (проекты, сроки выполнения);
- о материалах – списки материалов и поставщиков со склада;
- о нормативах по расходу ресурсов, предоставляемых услугах и специалистах, выполняющих их – документация, предоставляемая бухгалтерией.
Расчет стоимости заказа заключается в составлении расчетов на оплату труда, стоимости расходуемых материалов в соответствии с нормами расхода ресурсов. На основании этих расчетов составляется смета, в которой рассчитывается итоговая стоимость заказа.
Результатирующими (выходными) документами должны стать договора на выполнение заказа, расчеты на оплату стоимости работы исполнителя, расчеты стоимости материалов, сметы на стоимость заказа, и по окончанию работы – счета. Также конечными документами могут быть распечатанные списки, таблицы.
Для нормального функционирования системы, конечно же, необходимо обеспечить просмотр всей имеющейся информации, добавление, удаление и редактирование записей.
Характеристика документооборота, возникающего при решении задачи
Описание проблем, выявленных на основе предыдущего описания и анализа деятельности объекта, которые могут быть разрешены (или смягчены) путем внедрения современных информационных технологий:
Учет поступивших заказов и оказанных услуг не автоматизирован, запись осуществляется в записных книжках, что влечет за собой трудоемкость, риск ошибки и потери заказа и не передача его на анализ и размещение. В свою очередь это влечет к потери потенциального клиента и прибыли для фирмы, а в случае со смежным производством (сувенирный шоколад) потеря процентов со сделки для менеджера, ведущего это направление;
Невозможность своевременного и точного выявления ситуаций с прохождением заказа – это бронирование производственного времени на фирме, где будет проходить печать. Из-за несвоевременной подачи заявки и бронирования места может возникнуть ситуация, когда все производства будут заняты на длительный срок вперед, особенно это существенно в предновогодний период, когда объем работ увеличивается. Также контроль сроков исполнения, контроль стадий разработки и согласования дизайна макетов и цветопроб, контроль выставления счетов и их оплаты;
Невозможность быстрого оценивания прибыльности выполнения предлагаемого заказа, а также сбор мелких заказов от нескольких клиентов для последующей реализации;
Переписка с клиентами и производством по электронной почте недоступна руководству. Важные письма могут пропасть или быть стёрты; невозможно восстановить историю работы с клиентом;
При отсутствии менеджера по производству на рабочем месте (командировка, болезнь, отпуск) получить информацию о заказе невозможно. Возможные сделки срываются.
Менеджер по производству тратит много времени на поиск и выбор нужной фирмы или типографии с учетом конкретной особенности заказа.
Отсутствует общая БД по клиентам и производственникам, где отражалась бы полная и существенная информация о них, их производственных мощностях, об политике отношений с ними (различные особенности оплаты, скидки, сроки и т.д. );
Не организована БД клиентов по смежному направлению (сувенирный шоколад), При увольнении менеджер не оставляя подробной информации о клиенте и его особенностях, и уносит эту информацию с собой;
Отсутствует учет того, появился ли клиент сам, воспользовавшись рекламой, или он был привлечен менеджером. Соответственно учет этого факта при распределении процентов по заработной плате и дальнейшее ведение этого клиента.
Ознакомившись с тем как, проходит бизнес процесс в данной организации налицо сразу большое количество проблем требующих решения с помощью современных информационных технологий. Все проблемы, перечисленные в предыдущем разделе, могут быть решены с помощью информатизации. На мой взгляд, все проблемы неразделимы и их скорейшее решение жизненно необходимо для данной фирмы, но тем не менее я могу выделить первоочередные из них:
Автоматизация формирования учета поступивших заказов.
Осуществление контроля за заказом на всех стадиях его прохождения;
Организация БД клиентов и партнеров, осуществляющих производство.
В результате внедрения информационной системы позволяющей решить выше изложенные проблемы станет возможным налаживание бизнес процессов и приведение их должное состояние соответствующее современному ведению бизнеса.
Характеристика существующих бизнес –процессов
В модели требований описываются установленные пользователем задачи, функциональные и нефункциональные требования к системе. Так как рассматриваемая нами система описывается при помощи UML-диаграмм, то для построения модели требований используем в данном случае диаграмму вариантов использования (или диаграмма прецедентов) и диаграммы деятельности.
Диаграммой прецедентов, или использования (Use case diagram), называется диаграмма, на которой показана совокупность прецедентов и актеров, а также отношения между ними. Диаграммы прецедентов представляют собой один из пяти типов диаграмм, применяемых в UML для моделирования динамических аспектов системы. Они применяются для моделирования вида системы с точки зрения прецедентов (или вариантов использования). Чаще всего это предполагает моделирование контекста системы, подсистемы или класса либо моделирование требований, предъявляемых к поведению указанных элементов.
Проектируемая система предполагает участие в ее работе оператора, а также косвенного участия заказчиков и исполнителей по вопросам требований к заказам. Оператор выполняет операции по созданию, редактированию и удалению учетных записей заказчиков, исполнителей, обновлению данных о нормах расхода ресурсов, предоставляемых услугах, вносит данные о материалах и их поставщиках, и, самое главное, производит расчет стоимости услуг.
Диаграмма вариантов использования изображена на рисунке 1.1.
Рисунок 1.1 - Диаграмма вариантов использования
Диаграмма деятельности - это, по существу, блок-схема, которая показывает, как поток управления переходит от одной деятельности к другой.
Диаграммы деятельности можно использовать для моделирования динамических аспектов поведения системы. Как правило, они применяются, чтобы промоделировать последовательные (а иногда и параллельные) шаги вычислительного процесса. С помощью диаграмм деятельности можно также моделировать жизнь объекта, когда он переходит из одного состояния в другое в разных точках потока управления. Диаграммы деятельности описывают переходы от одной деятельности к другой.
На рисунках 1.2, 1.3, 1.4 показаны диаграммы деятельности, описывающие функционирование рассматриваемой системы.
Рисунок 1.2 - Диаграмма деятельности: прием заказа
Рисунок 1.3 - Диаграмма деятельности: расчет с заказчиком
Рисунок 1.4 - Диаграмма деятельности: внесение материалов
Деятельности по обновлению, внесению данных могут быть описаны по аналогии с диаграммой деятельности по внесению материалов.
Модель анализа выявляет основные классы и взаимоотношения между ними. Диаграммой классов (Class diagram) называют диаграмму, на которой показано множество классов, интерфейсов, коопераций и отношений между ними. В нашей системе всего четыре класса: смета, стоимость материалов, оплата времени, счета. Классы между собой находятся в отношении ассоциации. Ассоциацией (Association) называется структурное отношение, показывающее, что объекты одного типа неким образом связаны с объектами другого типа.
На рис. 1.5 показана диаграмма классов. На рисунке 1.6 изображена схема базы данных системы.
Рисунок 1.5 - Диаграмма классов
Рисунок 1.6 - Схема базы данных
Модель проектирования показывает взаимодействия внутри системы, способы передачи информации, потоки данных, состояния объектов системы. Для описания модели проектирования используем диаграммы взаимодействия (последовательности и кооперации) и состояния.
На диаграммах взаимодействий показывают связи, включающие множество объектов и отношений между ними, в том числе сообщения, которыми объекты обмениваются. При этом диаграмма последовательностей акцентирует внимание на временной упорядоченности сообщений, а диаграмма кооперации - на структурной организации посылающих и принимающих сообщения объектов.
На рис. 1.7, 1.8, 1.9 и 1.10 показаны диаграммы последовательностей.
Рисунок 1.7 - Диаграмма последовательностей: расчет стоимости заказа
Рисунок 1.8 - Диаграмма последовательностей: регистрация заказа
Рисунок 1.9 - Диаграмма последовательностей: расчет с заказчиком
Рисунок 1.10 - Диаграмма последовательностей: внесение материалов
На рис. 1.11, 1.12 и 1.13 показаны диаграммы кооперации.
Рисунок 1.11 - Диаграмма кооперации: расчет стоимости заказа и его регистрация
Рисунок 1.12 - Диаграмма кооперации: расчет с заказчиком
Рисунок 1.13 - Диаграмма кооперации: внесение материалов
Диаграммы состояний показывают поведения определенных классов или других объектов в динамике. Они отражают последовательность состояний, через которые проходит объект; события, которые являются причиной перехода от одного состояния к другому, или действия, которые являются причиной изменения состояния.
На рис. 1.14, 1.15, 1.16 и 1.17 показаны диаграммы состояния.
Рисунок 1.14 - Диаграмма состояния: расчет стоимости заказа и его регистрация
Рисунок 1.15 - Диаграмма состояния: внесение материалов
Рисунок 1.16 - Диаграмма состояния: расчет с заказчиком
Рисунок 1.17 - Диаграмма состояния: ЖЦ заказа
Обоснование проектных решений по информационному обеспечению
Информационное обеспечение (ИО) – совокупность единой системы классификации и кодирования информации, унифицированных систем документации, схем информационных потоков, циркулирующих в организации, методология построения баз данных. Данная подсистема предназначена для своевременного представления информации, принятия управленческих решений.
ИО отдела Выписка представляет собой информационную модель данного объекта.
ИО автоматизированных информационных систем состоит из внемашинного (информация, которая воспринимается человеком без каких-либо технических средств) – это классификаторы технико-экономической информации и документы; и внутримашинного ИО (совокупность всех данных, записанных на машинных носителях, сгруппированных по определенным признакам) – это макеты / экранные формы для ввода первичных данных в ЭВМ или ввода результатной информации.
При организации БД учета материальных ценностей и готовой продукции целесообразно использовать следующие типы баз данных.
Основная база – это БД, в которой каждая запись хранит информацию, не имеющую никакой связи с другими записями этой же базы данных. Основные БД не могут иметь связи друг с другом посредством своих полей. Они могут соотноситься только путем разделения дополнительной базы, которая называется базой связи. Записи из основных БД могут быть удалены, модифицированы, запакованы или упорядочены. К основным базам данных в системе относятся базы, заполняемая при поступлении первичных приходных документов и база, содержащая информацию первичных расходных документов.
Подчиненная база – это БД, которая позволяет хранить данные, относящиеся к какой-либо записи основной базы. Записи из этой базы могут модифицироваться и удаляться. Подчиненной базой в системе является база данных платежных документов.
Справочник – это БД, которая содержит общие данные, разделяемые другими компонентами. Такие базы служат для хранения информации, изменение которой в одном месте, должно немедленно отразиться на всех других, где она используется. Достигается это путем ссылок на справочник. Такая гибкость при внесении изменений не допускает действий с изменением порядка следования записей в справочнике, а также удаление из него записей. К справочникам в системе относятся следующие базы данных: справочник номенклатуры, справочник поставщиков.
Организация связей между базами данных требует определенных правил обращения с записями:
- При удалении записи из некоторой базы или подчиненной базы должны быть удалены все записи из подчиненных баз нижнего уровня, которые относятся к удаляемой записи.
- Если все-таки требуется удалить запись, из справочника нужно удалить все ссылки на эту запись во всех базах, связанных со справочником.
- При дополнении структуры какой-либо базы подчиненную базу следует использовать там, где нельзя точно сказать, сколько однотипной информации будет храниться.
Справочник эффективен для быстрого ввода логически связанной группы информации. Кроме того, он является единственным средством для классификации объектов. Поэтому справочник обязательно следует использовать там, где предполагается группировка данных по какому-либо признаку.
Обоснование проектных решений по программному обеспечению
Программное обеспечение определяет объемы хранимых и обрабатываемых данных, возможности и качество прикладных программ, интерфейсы, удобство работы с системой с точки зрения пользователя и разработчика, требования к техническим средствам. От правильного выбора инструментальных средств создания информационных систем зависит эффективность функционирования системы.
Выбранная СУБД – Microsoft Office Access 2003. Она обеспечивает нормальное функционирование программы, а также необходимые скоростные характеристики обработки информации. В таблице 2 представлены параметры Access в сравнении с СУБД Visual FoxPro.
Таблица 1.1 – Сравнение Microsoft Office Access и Visual FoxPro.
|
№ |
Характеристики |
Средства |
|
|
Visual Foxpro |
Access |
||
|
1. |
Принцип обработки кода |
Интерп.(псевдо |
Интерп.(псевдо- |
|
2. |
Язык |
DBASE c |
Basic c Объектами |
|
3. |
Система |
Закрытая |
Закрытая |
|
4. |
Встроенные базы данных |
DBF, DBC, ODBC |
MDB, ODBC |
|
5. |
Создание пользовательских мастеров |
- |
- |
|
6. |
Динамическое создание форм ввода, обработки сообщений |
+ |
+ |
|
7. |
Модель создания приложения |
- |
- |
|
8. |
Технология |
Построители экранов, меню, отчетов (drag-and-drop), классов |
Построители экранов, меню, отчетов (drag-and-drop), классов |
|
9. |
Вывод из баз данных на печать |
Встроенный Report |
Встроенный Report |
|
10 |
Обработка исключений |
Процедура |
Процедура |
|
11 |
Поддержка CASE-средств |
- |
+ |
|
12. |
Цена базы данных |
Формат бесплатен |
Формат бесплатен |
|
13. |
Основные преимущества |
Высокий уровень объектной модели. Высокая скорость обработки данных. Интеграция объектно-ориентированного языка программирования с Xbase и SQL. Многоплатформенность. |
Простота освоения. |
|
14. |
Основное назначение |
Создание приложений масштаба предприятия. Создание приложений для работы на различных платформах (Windows 3.x, Windows 95, Macintosh и т. д.) |
Создание отчетов произвольной формы на основании различных данных. Разработка не коммерческих приложений. |
Таким образом, можно сказать, что Visual FoxPro отличается высокой скоростью, имеет встроенный объектно-ориентированный язык программирования с использованием xBase и SQL. Однако в отличие от Visual FoxPro, фактически превратившегося в средство разработки приложений, Access ориентирован в первую очередь на пользователей Microsoft Office, в том числе и не знакомых с программированием, а сейчас мало людей не знакомых с компанией Microsoft Office, то есть простота использования один из самых решающих факторов выбора этой СУБД.
Программа Visual Basic была специально разработана и идеально подходит для создания интерфейса пользователя, или проектирования «лицевой стороны» программы, а также для работы с имеющимися базами данных, в том числе Microsoft Access. Visual Basic предусматривает технологию обработки баз данных, аналогичную используемой Microsoft Access. Это дает возможность создавать основные приложения для работы с базами данных с помощью всего нескольких десятков строк в тексте программы.
ГЛАВА 2. ПРОЕКТНАЯ ЧАСТЬ
Информационная модель и её описание
Графическое представление информационной модели отражено на рис. 2.1.
Рисунок 2.1 – Информационная модель системы
Характеристика нормативно-справочной, входной и оперативной информации
В качестве нормативно-справочной, входной и оперативной информации используются справочники:
- клиенты
- заявки
- цены
- смета
- задание
- предложение
Характеристика результатной информации
Система будет содержать отчеты.
Общие положения (дерево функций и сценарий диалога)
Основным действующим лицом в разработанной системе является сотрудник отдела. Дерево функций для пользователя представлено на рисунке 2.2.
Рисунок 2.2 - Дерево функций системы сотрудника
Сценарии диалога, формирующийся на основе дерева функций, приведен на рисунке 2.3.
Рисунок 2.3 - Сценарий диалога для пользователя
Характеристика базы данных
Таблицы, используемые при проектировании АИС хранятся в БД Microsoft Access.
Таблица «price» содержит в себе информацию о перечне товаров, предлагаемых рекламным агентством.
Таблица 1. Таблица «price»
|
Имя |
Назначение |
Тип |
Длина |
|
id_uslugi |
Код услуги |
Числовой |
Счетчик |
|
name_uslugi |
Наименование услуги |
Текстовый |
40 |
|
cena_za_ed |
Цена за единицу |
Числовой |
Длинное целое |
Таблица «klient» содержит информацию о всех клиентах фирмы, которые хотя бы единожды делали заказ.
Таблица 2. Таблица «klient»
|
Имя |
Назначение |
Тип |
Длина |
|
id_klienta |
Код клиента |
Числовой |
Счетчик |
|
fio_klienta |
ФИО клиента |
Текстовый |
25 |
|
telefon |
Телефон клиента |
Текстовый |
10 |
Таблица «zayvka» содержит информацию обо всех заказах.
Таблица 3. Таблица «zayvka»
|
Имя |
Назначение |
Тип |
Длина |
|
id_zayavki |
Код заявки |
Числовой |
Счетчик |
|
fio_zakazhika |
ФИО заказчика(клиента) |
Текстовый |
25 |
|
data_zajvki |
Дата подачи заявки |
Дата/время |
|
|
id_usligi |
Код услуги |
Числовой |
Длинное целое |
|
kol |
Количество |
Числовой |
Длинное целое |
|
cena |
Цена за единицу |
Числовой |
Длинное целое |
|
stoim |
Стоимость |
Числовой |
Длинное целое |
|
status |
Статус заказа (Выполнен/Не выполнен) |
Текстовый |
15 |
Таблица «smeta» содержит информацию о выполненных заказах.
Таблица 4. Таблица «smeta»
|
Имя |
Назначение |
Тип |
Длина |
|
id_z |
Код заказа |
Числовой |
Длинное целое |
|
id_uslugi |
Код услуги |
Числовой |
Длинное целое |
|
kol |
Количество |
Числовой |
Длинное целое |
|
cena |
Цена за единицу |
Числовой |
Длинное целое |
|
stoim |
Стоимость |
Числовой |
Длинное целое |
В таблице «teh_zad» хранится информация о нарядах, которые менеджер формирует для творческого отдела.
Таблица 5. Таблица «the_zad»
|
Имя |
Назначение |
Тип |
Длина |
|
id_zayavki |
Код заказа |
Числовой |
Длинное целое |
|
fio_zakazhika |
ФИО заказчика |
Текстовый |
25 |
|
data_zajvki |
Дата подачи |
Дата/время |
|
|
id_uslugi |
Код услуги |
Числовой |
Длинное целое |
|
kol |
Количество |
Числовой |
Длинное целое |
|
cena |
Цена |
Числовой |
Длинное целое |
|
stoim |
Стоимость |
Числовой |
Длинное целое |
|
status |
Статус |
Числовой |
15 |
Таблица «predlog» содержится информация об отзывах и предложениях клиентов фирмы.
Таблица 6. Таблица «predlog»
|
Имя |
Назначение |
Тип |
Длина |
|
id |
Код отзыва |
Числовой |
Счетчик |
|
data_otz |
Дата размещения |
Дата/время |
Длинное целое |
|
otziv |
Текст отзыва |
Текстовый |
50 |
Схема данных представлена на рис. 2.4..
Рисунок 2.4 – Схема структуры БД
Структурная схема пакета (дерево вызова программных модулей)
Для разработки системы автоматизации организации используется система приложение. Эта система имеет модульную форму организации конфигурации. В глобальных модулях хранятся переменные, процедуры и функции доступные из любых других модулей. Также можно выделить другие группы модулей:
- справочники
- документы
- отчеты
- обработки
- регистры.
Описание программных модулей
Работа с программой начинается с выбора пользователя и вывода информационного окна и активизации системы меню.
Работа программы осуществляется по диалоговому и событийному режиму, при этом по диалогом понимается предоставление пользователю нескольких альтернатив и обработка его выбора. В диалоговую систему входят главное меню с соответствующими всплывающими подменю а также диалоговые окна. Под событиями понимаются процессы активизируемые пользователем (например – нажатие функциональных клавиш), а также программные события – получение определенным полем фокуса редактирование или потеря фокуса ввода. На основании данных событий активизируются процедуры контроля допустимости данных.
Программа состоит из следующих основных модулей.
Глобальный модуль - конфигурация среды окружения, формирование основного экрана программы, создание системы главного меню и соответствующих подменю, активизация меню.
Процедуры формирования отчетов – обеспечение выдачи установленных форм документов на основании критериев, определяемых пользователем и информационной базы.
Модуль справочников и модуль документов - обеспечение ввода информации с первичных документов в базы данных, контроль за допустимостью значений, обеспечение ввода данных путем выбора из списка.
Все модули в программе связаны между собой по данным, которые анализируются на входе и вырабатываются на выходе. Данные в модули поступают через диалог с пользователем, параметры и документы информационной базы.
Для ведения информационной базы могут быть выполнены операции просмотра и печати документов, их редактирование, ведение нормативно-справочных документов, а также создание архивов и восстановление документов БД. Операции осуществляются путем выбора соответствующих пунктов в главном и подчиненных меню.
Данные через диалог могут быть получены прямым и косвенным способом. Прямой способ реализуется путем их ввода по шаблону или по запросу конкретных значений. Косвенный способ – путем меню.
Параметры (входные документы ) – входные данные, полученные в виде конкретных значений, переданных в оперативной памяти смежным модулям (функциям ).
Итак, составлены модели требований, анализа и проектирования и составлены соответствующие им диаграммы, подробно описано взаимодействие между объектами. Исходя из этого, можно приступить к созданию форм приложения.
Проект запускается с главной формы. С ее помощью открываются все остальные формы, как для расчетов, так и для просмотра и редактирования нужной информации. На всех формах расположены кнопки для вызова процедур добавления, удаления и печати данных. Имеются формы со справочной информацией, полностью отражающие таблицы базы данных. Созданы отдельные формы для расчета смет, расчета оплаты времени и стоимости материалов, расчета с заказчиками и форма для внесения данных о материалах и поставщиках.
Эскизы форм приведены ниже на рис. 2.5 – 2.11.
Рисунок 2.5 - Главная форма: начало запуска
Рисунок 2.6 - Форма для составления и печати договоров
Рисунок 2.7 - Форма для расчета стоимости ресурсов
Рисунок 2.8 - Форма для расчета смет
Рисунок 2.9 - Форма для расчета с заказчиками
Рисунок 2.10 - Форма для внесения данных о материалах
Рисунок 2.11 - Форма списка заказчиков
Формы со списками услуг, заказов, выполненных заказов, счетов, исполнителей, норм расхода времени, норм расхода материалов, расчетов стоимости материалов, расчетов стоимости оплаты времени, расчетов смет, материалов, поставщиков аналогичны форме со списком заказчиков.
ЗАКЛЮЧЕНИЕ
В ходе выполнения курсовой работы спроектирована и разработана информационная система для выбранной предметной области – агентства цифровых, оформительных и рекламных услуг. Результат разработки – приложение, выполненное при помощи средств СУБД – Microsoft Access на языке программирования Visual Basic.
В ходе разработки последовательно разработаны модели требований, анализа, проектирования и соответствующие диаграммы вариантов использования, деятельности, классов, последовательностей, кооперации и состояний. Спроектированы формы приложения. Разработанная ИС обрабатывает характерные для применения данные и обеспечивает выполнение полного набора операций для этого применения.
Руководство пользователя:
1. После запуска приложения появляется главная форма. При помощи меню главной формы можно открыть списки (выполненные заказы, заказчики, заказы, исполнители, материалы, нормы расхода, поставщики, расход ресурсов, сметы, счета, услуги), формы для расчета смет, стоимости ресурсов, расчета с заказчиками, внесения материалов и формы договоров.
2. Для набора формы договора нужно выполнить команду Открыть/ Договор, заполнить типовую форму или открыть нужный нам договор. Возможно сохранение документа в нужном нам формате и вывод его на печать.
3. Для просмотра списков нужно найти интересующий нас список в меню Списки. Откроется форма с выбранным списком. В зависимости от хранящейся в списках информации возможен либо только ее просмотр и печать либо добавление, удаление, редактирование и печать данных.
4. Для внесения информации о наличии материалов на складе и поставщиках нужно выполнить команду Открыть/Запас материалов и внести нужные данные.
5. Для расчета стоимости материалов нужно выполнить команду Открыть/Расчет ресурсов. В области для расчета стоимости материалов нажать кнопку «Добавить», в появившемся сообщении подтвердить намерение добавления новой записи нажатием кнопки «ОК». В таблице появится новая строка, очистятся текстовые поля. В текстовые поля заносятся данные о коде расчета. Слева от области для расчета стоимости материалов находится область с нормами расхода материалов. В ней находим нужный код материала и выполняемую работу, нажимаем кнопку «Вставить» либо дважды щелкаем в одном из текстовых полей для вставки данных в таблицу для расчета. Далее вводим размер изделия (в м2) либо количество (для букв) и стоимость материалов. Для расчета стоимости расходуемого материала нажимаем кнопку «Считать». В текстовом поле «Стоимость (руб.)» появится рассчитанная стоимость материала. Аналогично рассчитываем стоимость остальных материалов для одного заказа. Для расчета общей стоимости материалов по одному заказу вводим в текстовое поле «Введите код расчета» код расчета и нажимаем кнопку «Считать». В текстовом поле «Стоимость материалов (руб.)» появится рассчитанная стоимость материалов по интересующему нас заказу.
6. Для расчета расходов на оплату времени нужно выполнить команду Открыть/Расчет стоимости ресурсов и в соответствующей области выполнить действия, аналогичные тем, что описаны в п. 5 для расчета стоимости материалов.
7. Для расчета с заказчиками нужно выполнить команду Открыть/Расчет с заказчиками. Заполнить таблицу выполненных заказов, рассчитать сумму счета (по аналогии с расчетом стоимости материалов и расходов на оплату времени), заполнить таблицу «Счет» двойным щелчком в полях «Дата», «№ счета», «Общая сумма (руб.)» в области выполненных заказов и распечатать счет.
8. Для закрытия форм со списками и форм для расчета нужно нажать кнопку «Закрыть», имеющуюся в каждой форме.
9. Для выхода из приложения нужно выполнить команду Файл/Выход.
Для практического использования системы в агентстве цифровых, оформительных и рекламных услуг ее необходимо доработать и дополнить. Данная система является скорее познавательным примером в области проектирования.
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
- ГОСТ 19.701-90 ЕСПД. Схемы алгоритмов, программ, данных и систем. Условные обозначения и правила оформления.
- ГОСТ 19.103-77 ЕСПД. Обозначение программ и программных документов.
- ГОСТ 19.402-78 ЕСПД. Описание программы.
- ГОСТ 19.505-79 ЕСПД. Руководство оператора. Требования к содержанию и оформлению.
- ГОСТ 34.201-89. Информационная технология. Комплекс стандартов на автоматизированные системы. Виды, комплектность и обозначение документов при создании автоматизированных систем.
- ГОСТ 19.701-90 ЕСПД. Схемы алгоритмов, программ, данных и сис¬тем. Условные обозначения и правила выполнения.
- Шигина Н.А. Разработка БД в среде ACCESS/ Метод.разработка. – Пенза: изд. ПТИ, 2001.
- Карпова Т.С. Базы данных: модели, разработка, реализация. – СПб.: Питер, 2001 – 304с.
- Базы данных: Учебник для вузов / Под ред. Проф. А.Д.Хомоненко. Изд. 2-е. – МПб.: КОРОНА принт, 2002. – 672с.
- Дж.Вейскас. Эффективная работа с Microsoft Access 2000. – С.-Птб. : Питер, 2000. – 1040с. ACCESS 7.0 для Windows 95. - Киев: BHV, 1996. – 480с.
- Джонс Дж. ACCESS 97. Книга ответов. – С.ПТБ: изд. ПИТЕР, 1998.
- Кэмпбелл М. ACCESS. Ответы. – М.: БИНОМ, 1996.
- Схемы алгоритмов, программ, данных и систем. Условные обозначения и правила выполнения. ГОСТ 19.701-90 (ИСО 5807-85) / Государственный комитет СССР по управлению качеством продукции и стандартам, 01.01.1992.
- Автоматизированные информационные системы, базы и банки данных. Вводный курс: Учебное пособие, М.: Гелиос АРВ, 2007. - 368 с., ил
- Баженова И. Ю. , Основы проектирования приложений баз данных, Издательства: Бином. Лаборатория знаний, Интернет-университет информационных технологий, 2008 г., , 328 стр.
- Вендров А.М., CASE-технологии. Современные методы и средства проектирования информационных систем - М.: Финансы и статистика, 2007 г, 456 стр.
- Гашков С. Б., Э. А. Применко, М. А. Черепнев Криптографические методы защиты информации, М, Издательство: Академия, 2010 г., 304 стр.
- Гвоздева Т. В., Б. А. Баллод, Проектирование информационных систем, М, Издательство: Феникс, 2009 г., 512 стр.
- Голицына О. Л., И. И. Попов, Н. В. Максимов, Т. Л. Партыка, Информационные технологии, М, Издательство Инфра-М, 2009 г., 608 стр.
- Дейв Крейн, Эрик Паскарелло, Даррен Джеймс. AJAX в действии: Учебник – М.: Вильямс, 2007. 450 – 490 с.
- Дэвид Флэнаган. JavaScript. Подробное руководство: Учебник – М.: Символ Плюс, 2008. 243 – 249 с.
- Емельянова Н. З., Партыка Т. Л., И. И. Попов, Проектирование информационных систем, М, Издательство: Форум, 2009 г., 432 стр.
- Емельянова Н. З., Т. Л. Партыка, И. И. Попов, М, Издательство Форум, 2007 г., , 416 стр.
- Илюшечкин В. М. , Основы использования и проектирования баз данных, М, Издательство Юрайт, 2010 г., 224 стр.
- Котляров В. П., Т. В. Коликова, Основы тестирования программного обеспечения, Издательства: Интернет-университет информационных технологий, Бином. Лаборатория знаний, 2009 г., 288 стр.
- Кристиан Дари, Богдан Бринзаре, Филип Черчез-Тоза, Михай Бусика. AJAX и PHP. Разработка динамических веб-приложений: Учебник – М.: Символ Плюс, 2007, 289 стр.
- Кузин А. В., С. В. Левонисова, Базы данных, М, Издательство: Академия, 2008 г., 320 стр.
- Кузнецов С. Д., Основы баз данных, М, Издательства: Бином. Лаборатория знаний, Интернет-университет информационных технологий, 2007 г., 488 стр.
- Молчанов А. Ю., Системное программное обеспечение, М, Издательство: Питер, 2010 г., 400 стр.
ПРИЛОЖЕНИЕ А – ЛИСТИНГ ПО
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <Chart.hpp>
#include <DB.hpp>
#include <DbChart.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
#include <Series.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormDiagrammaOklad : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridManager;
TADODataSet *ADODataSetManager;
TDataSource *DataSourceManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
TDBChart *DBChartManager;
TPieSeries *Series1;
TStringField *ADODataSetManagerFIO2;
TButton *ButtonExit;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
void __fastcall FormShow(TObject *Sender);
void __fastcall ADODataSetManagerCalcFields(TDataSet *DataSet);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormDiagrammaOklad(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormDiagrammaOklad *FormDiagrammaOklad;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DMH
#define DMH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
//---------------------------------------------------------------------------
class TDM1 : public TDataModule
{
__published: // IDE-managed Components
TADOConnection *ADOConnection1;
private: // User declarations
public: // User declarations
__fastcall TDM1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TDM1 *DM1;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DolgnostH
#define DolgnostH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Mask.hpp>
//---------------------------------------------------------------------------
class TFormDolgnost : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridDolgnost;
TADODataSet *ADODataSetDolgnost;
TDataSource *DataSourceDolgnost;
TAutoIncField *ADODataSetDolgnostCod;
TWideStringField *ADODataSetDolgnostName;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetManager;
TGroupBox *GroupBox1;
TDBEdit *DBEditName;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall DBEditNameKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormDolgnost(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormDolgnost *FormDolgnost;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef MainAISH
#define MainAISH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include <ExtCtrls.hpp>
#include <jpeg.hpp>
//---------------------------------------------------------------------------
class TFormMainAIS : public TForm
{
__published: // IDE-managed Components
TMainMenu *MainMenu1;
TMenuItem *N1;
TMenuItem *N2;
TMenuItem *N3;
TMenuItem *N4;
TMenuItem *N5;
TMenuItem *N6;
TMenuItem *N7;
TMenuItem *N8;
TPopupMenu *PopupMenu1;
TMenuItem *N9;
TMenuItem *N10;
TMenuItem *N12;
TMenuItem *N13;
TMenuItem *N14;
TMenuItem *N11;
TMenuItem *N15;
TImage *Image1;
void __fastcall N8Click(TObject *Sender);
void __fastcall N4Click(TObject *Sender);
void __fastcall N5Click(TObject *Sender);
void __fastcall N3Click(TObject *Sender);
void __fastcall N6Click(TObject *Sender);
void __fastcall N9Click(TObject *Sender);
void __fastcall N10Click(TObject *Sender);
void __fastcall N12Click(TObject *Sender);
void __fastcall N13Click(TObject *Sender);
void __fastcall N14Click(TObject *Sender);
void __fastcall N11Click(TObject *Sender);
void __fastcall N15Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormMainAIS(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormMainAIS *FormMainAIS;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef MainComputerH
#define MainComputerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <Buttons.hpp>
//---------------------------------------------------------------------------
class TFormVxod : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TComboBox *ComboBoxManager;
TLabel *Label2;
TEdit *EditPassword;
TBitBtn *BitBtnExit;
TButton *ButtonVxod;
TADODataSet *ADODataSetManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
void __fastcall FormShow(TObject *Sender);
void __fastcall BitBtnExitClick(TObject *Sender);
void __fastcall ButtonVxodClick(TObject *Sender);
void __fastcall EditPasswordKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormVxod(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVxod *FormVxod;
extern int TekManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ManagerH
#define ManagerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <ComCtrls.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <Mask.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormManager : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridFormManager;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
TADODataSet *ADODataSetDolgnost;
TAutoIncField *ADODataSetDolgnostCod;
TWideStringField *ADODataSetDolgnostName;
TStringField *ADODataSetManagerNameDolgnost;
TGroupBox *GroupBox1;
TLabel *Label1;
TDBEdit *DBEditFIO;
TLabel *Label2;
TDBLookupComboBox *DBLookupComboBoxDolgnost;
TDataSource *DataSourceDolgnost;
TLabel *Label3;
TDBEdit *DBEditOklad;
TLabel *Label4;
TDBEdit *DBEditPasport;
TLabel *Label5;
TDBEdit *DBEditPassword;
TLabel *Label6;
TDateTimePicker *DateTimePicker1;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormManager(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormManager *FormManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef OtchetManagerH
#define OtchetManagerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormOtchetManager : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridManager;
TADODataSet *ADODataSetManager;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetDolgnost;
TDataSource *DataSourceDolgnost;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TADODataSet *ADODataSetHistory;
TDataSource *DataSourceHistory;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TButton *ButtonExit;
void __fastcall FormShow(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormOtchetManager(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormOtchetManager *FormOtchetManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ProdanoH
#define ProdanoH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormProdano : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDBImage *DBImageFoto;
TDBMemo *DBMemoOpisanie;
TButton *ButtonExit;
TButton *ButtonPrint;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
TDataSource *DataSourceHistory;
TADODataSet *ADODataSetHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TDateField *ADODataSetComputerTehnikaDataProdazhi;
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonPrintClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormProdano(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormProdano *FormProdano;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ProdazhaH
#define ProdazhaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormProdazha : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TDateTimePicker *DateTimePickerDataProdazhi;
TGroupBox *GroupBox1;
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TButton *ButtonProdat;
TGroupBox *GroupBoxOpisanie;
TDBMemo *DBMemoOpisanie;
TDBImage *DBImageFoto;
TButton *ButtonExit;
TADODataSet *ADODataSetHistory;
TDataSource *DataSourceHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall FormShow(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall ButtonProdatClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormProdazha(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormProdazha *FormProdazha;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef SpravkaH
#define SpravkaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TFormSpravka : public TForm
{
__published: // IDE-managed Components
TMemo *MemoSpravka;
TMemo *Memo1;
TButton *ButtonExit;
void __fastcall ButtonExitClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormSpravka(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormSpravka *FormSpravka;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef UnitReportH
#define UnitReportH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//---------------------------------------------------------------------------
class TFormReport : public TForm
{
__published: // IDE-managed Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
void __fastcall QuickRep1AfterPreview(TObject *Sender);
void __fastcall FormActivate(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormReport *FormReport;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef UnitReport2H
#define UnitReport2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//---------------------------------------------------------------------------
class TFormReport2 : public TForm
{
__published: // IDE-managed Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDataSource *DataSourceHistory;
TADODataSet *ADODataSetHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TDateField *ADODataSetComputerTehnikaDataProdazhi;
void __fastcall QuickRep1AfterPreview(TObject *Sender);
void __fastcall FormActivate(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport2(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormReport2 *FormReport2;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef VidTehnikiH
#define VidTehnikiH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Mask.hpp>
//---------------------------------------------------------------------------
class TFormVidTehniki : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetComputerTehnika;
TGroupBox *GroupBox1;
TDBEdit *DBEditName;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TBooleanField *ADODataSetComputerTehnikaProdan;
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall DBEditNameKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormVidTehniki(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVidTehniki *FormVidTehniki;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef VnalichiiH
#define VnalichiiH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormVnalichii : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDBImage *DBImageFoto;
TDBMemo *DBMemoOpisanie;
TButton *ButtonExit;
TButton *ButtonPrint;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonPrintClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormVnalichii(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVnalichii *FormVnalichii;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ComputerTehnika.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormComputerTehnika *FormComputerTehnika;
//---------------------------------------------------------------------------
__fastcall TFormComputerTehnika::TFormComputerTehnika(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormComputerTehnika::ButtonFotoClick(TObject *Sender)
{ char *s;
OpenDialogFoto->InitialDir= ExtractFileDir(Application->ExeName);
if(OpenDialogFoto->Execute()==true) //вызовдиалогавыборафайла
{DBImageFoto->Visible=true;
s= OpenDialogFoto->FileName.c_str(); //получитьнаименованиевыбранногофайласполнымпутем
DBImageFoto->Picture->LoadFromFile(s);
}
else
{if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TFormComputerTehnika::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormComputerTehnika::ButtonAddClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->State==dsBrowse)
{ADODataSetComputerTehnika->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DateTimePickerDataPostup->Date= Date();
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormComputerTehnika::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->RecordCount==0) //естьлиданныевБД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выходизформы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
if(Application->MessageBoxA("Подтвердитеудалениезаписи
!","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
ADODataSetComputerTehnika->Delete();//удалитьзаписьизтаблицыБД
}
//---------------------------------------------------------------------------
//ВыполняетсяпринажатиикнопкиИзменить
void __fastcall TFormComputerTehnika::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выходизформы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
ADODataSetComputerTehnika->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DateTimePickerDataPostup->Date= ADODataSetComputerTehnikaDataPostup->Value;
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormComputerTehnika::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormComputerTehnika::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditName->Text=="" )//проверка введенных данных
{ShowMessage("Введите название !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditCena->Text=="" )//проверка введенных данных
{ShowMessage("Введите цену !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBMemoOpisanie->Text=="" )//проверка введенных данных
{ShowMessage("Введите описание !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(ADODataSetComputerTehnikaCodVidTehniki->Value==0 )//проверка введенных данных
{ShowMessage("Введите вид товара!");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetComputerTehnikaDataPostup->Value= DateTimePickerDataPostup->Date;
ADODataSetComputerTehnika->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormComputerTehnika::ButtonOtmenClick(TObject *Sender)
{
ADODataSetComputerTehnika->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DiagrammaOklad.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormDiagrammaOklad *FormDiagrammaOklad;
//---------------------------------------------------------------------------
__fastcall TFormDiagrammaOklad::TFormDiagrammaOklad(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::FormShow(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::ADODataSetManagerCalcFields(
TDataSet *DataSet)
{
ADODataSetManagerFIO2->Value= ADODataSetManagerFIO->Value;
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDM1 *DM1;
//---------------------------------------------------------------------------
__fastcall TDM1::TDM1(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Dolgnost.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormDolgnost *FormDolgnost;
//---------------------------------------------------------------------------
__fastcall TFormDolgnost::TFormDolgnost(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormDolgnost::ButtonAddClick(TObject *Sender)
{
if(ADODataSetDolgnost->State==dsBrowse)
{ADODataSetDolgnost->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//ВыполняетсяпринажатиикнопкиУдалить
void __fastcall TFormDolgnost::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetDolgnost->RecordCount==0) //естьлиданныевБД
{ButtonChange->Enabled=false;//сделатькнопкуИзменитьнедоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выходизформы
}
if(ADODataSetDolgnost->State==dsBrowse)
if(Application->MessageBoxA("Подтвердитеудалениезаписи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{ADODataSetManager->Close();
ADODataSetManager->CommandText= "select * from TablManager where CodDolgnost="+IntToStr(ADODataSetDolgnostCod->Value);
ADODataSetManager->Open();
if(ADODataSetManager->RecordCount>0)
{ShowMessage("Ошибка при удалении! В таблице 'TablManager' имеются связанные записи!"); //вывести сообщение в виде окошка
return;//выход из процедуры
}
ADODataSetDolgnost->Delete();//удалить запись из таблицы БД
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormDolgnost::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetDolgnost->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выходизформы
}
if(ADODataSetDolgnost->State==dsBrowse)
ADODataSetDolgnost->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormDolgnost::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormDolgnost::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditName->Text=="" )//проверка введенных данных
{ShowMessage("Введите название!");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetDolgnost->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormDolgnost::ButtonOtmenClick(TObject *Sender)
{
ADODataSetDolgnost->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
void __fastcall TFormDolgnost::FormShow(TObject *Sender)
{
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
ADODataSetManager->Close();
ADODataSetManager->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormDolgnost::DBEditNameKeyPress(TObject *Sender,
char &Key)
{
if(Key==13)
ButtonPostClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MainAIS.h"
#include "Dolgnost.h"
#include "VidTehniki.h"
#include "Manager.h"
#include "ComputerTehnika.h"
#include "Prodazha.h"
#include "Vnalichii.h"
#include "Prodano.h"
#include "OtchetManager.h"
#include "DiagrammaOklad.h"
#include "Spravka.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMainAIS *FormMainAIS;
//---------------------------------------------------------------------------
__fastcall TFormMainAIS::TFormMainAIS(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N8Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N4Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormDolgnost), &FormDolgnost);
FormDolgnost->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N5Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormVidTehniki), &FormVidTehniki);
FormVidTehniki->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N3Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormManager), &FormManager);
FormManager->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N6Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormComputerTehnika), &FormComputerTehnika);
FormComputerTehnika->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N9Click(TObject *Sender)
{
N8Click(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N10Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormProdazha), &FormProdazha);
FormProdazha->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N12Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormVnalichii), &FormVnalichii);
FormVnalichii->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N13Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormProdano), &FormProdano);
FormProdano->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N14Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormOtchetManager), &FormOtchetManager);
FormOtchetManager->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N11Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormDiagrammaOklad), &FormDiagrammaOklad);
FormDiagrammaOklad->ShowModal();
}
//---------------------------------------------------------------------------
//Вызовсправки
void __fastcall TFormMainAIS::N15Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormSpravka), &FormSpravka);
FormSpravka->ShowModal();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MainComputer.h"
#include "DM.h"
#include "MainAIS.h"
#include "string.h"
#include "stdio.h"
#include <algorithm>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormVxod *FormVxod;
int TekManager;
//---------------------------------------------------------------------------
__fastcall TFormVxod::TFormVxod(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::FormShow(TObject *Sender)
{
ComboBoxManager->Clear();
ADODataSetManager->Close();
ADODataSetManager->Open();
ADODataSetManager->First();
while(!ADODataSetManager->Eof)
{ComboBoxManager->Items->Add(ADODataSetManagerFIO->Value);
ADODataSetManager->Next();
}
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::BitBtnExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::ButtonVxodClick(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->CommandText= "select * from TablManager where FIO="+QuotedStr(ComboBoxManager->Text);
ADODataSetManager->Open();
if(ADODataSetManagerPassword->Value==EditPassword->Text)
{TekManager= ADODataSetManagerCod->Value;
Application->CreateForm(__classid(TFormMainAIS), &FormMainAIS);
FormMainAIS->ShowModal();
Close();
}
else ShowMessage("Неверныйпароль!");
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::EditPasswordKeyPress(TObject *Sender, char &Key)
{
if(Key==13)
ButtonVxodClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Manager.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormManager *FormManager;
//---------------------------------------------------------------------------
__fastcall TFormManager::TFormManager(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormManager::FormShow(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->Open();
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormManager::ButtonAddClick(TObject *Sender)
{
if(ADODataSetManager->State==dsBrowse)
{ADODataSetManager->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DateTimePicker1->Date= Date();
DBEditFIO->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormManager::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetManager->RecordCount==0) //естьлиданныевБД
{ButtonChange->Enabled=false;//сделатькнопкуИзменитьнедоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выходизформы
}
if(ADODataSetManager->State==dsBrowse)
if(Application->MessageBoxA("Подтвердитеудалениезаписи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
ADODataSetManager->Delete();//удалить запись из таблицы БД
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormManager::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetManager->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выходизформы
}
if(ADODataSetManager->State==dsBrowse)
ADODataSetManager->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DateTimePicker1->Date= ADODataSetManagerDataRozhd->Value;
DBEditFIO->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormManager::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormManager::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditFIO->Text=="" )//проверка введенных данных
{ShowMessage("Введите Ф.И.О. !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditPasport->Text=="" )//проверка введенных данных
{ShowMessage("Введите паспорт !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditOklad->Text=="" )//проверка введенных данных
{ShowMessage("Введите оклад !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditPassword->Text=="" )//проверка введенных данных
{ShowMessage("Введите пароль !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(ADODataSetManagerCodDolgnost->Value==0 )//проверка введенных данных
{ShowMessage("Введите должность !");//вывод диалогового окна с сообщением
return;//выходизпроцедуры
}
//-----------
ADODataSetManagerDataRozhd->Value= DateTimePicker1->Date;
ADODataSetManager->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormManager::ButtonOtmenClick(TObject *Sender)
{
ADODataSetManager->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
void __fastcall TFormManager::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "OtchetManager.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormOtchetManager *FormOtchetManager;
//---------------------------------------------------------------------------
__fastcall TFormOtchetManager::TFormOtchetManager(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::FormShow(TObject *Sender)
{ char *s;
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
ADODataSetManager->Close();
ADODataSetManager->CommandText= "select TablManager.FIO as 'ФИОменеджера',TablDolgnost.name as 'Должность',TablHistory.cena as 'Цена',TablComputerTehnika.name as 'Названиетовара' from TablManager,TablHistory,TablDolgnost,TablComputerTehnika where (TablManager.Cod=TablHistory.CodManager)and(TablDolgnost.Cod=TablManager.CodDolgnost)and(TablHistory.CodComputerTehnika=TablComputerTehnika.Cod)";
ADODataSetManager->Open();
DBGridManager->Columns->Items[0]->Width=290;
DBGridManager->Columns->Items[1]->Width=160;
DBGridManager->Columns->Items[2]->Width=60;
DBGridManager->Columns->Items[3]->Width=410;
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Prodano.h"
#include "DM.h"
#include "UnitReport2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormProdano *FormProdano;
//---------------------------------------------------------------------------
__fastcall TFormProdano::TFormProdano(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::DBGridComputerTehnikaCellClick(
TColumn *Column)
{
if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
else DBImageFoto->Visible=true;
if(ADODataSetComputerTehnika->RecordCount==0)
{DBImageFoto->Visible=false;
DBMemoOpisanie->Visible=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::FormShow(TObject *Sender)
{ TColumn *Column;
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
DBGridComputerTehnikaCellClick(Column);
}
//---------------------------------------------------------------------------
//ВыполняетсяпринажатиикнопкиПечать
void __fastcall TFormProdano::ButtonPrintClick(TObject *Sender)
{
Application->CreateForm(__classid(TFormReport2), &FormReport2);
FormReport2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::N1Click(TObject *Sender)
{
ButtonPrintClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::N2Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Prodazha.h"
#include "DM.h"
#include "MainComputer.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormProdazha *FormProdazha;
//---------------------------------------------------------------------------
__fastcall TFormProdazha::TFormProdazha(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при отображении формы
void __fastcall TFormProdazha::FormShow(TObject *Sender)
{ TColumn *Column;
DateTimePickerDataProdazhi->Date= Date();
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
DBGridComputerTehnikaCellClick(Column);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::DBGridComputerTehnikaCellClick(
TColumn *Column)
{
if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
else DBImageFoto->Visible=true;
if(ADODataSetComputerTehnika->RecordCount==0)
{DBImageFoto->Visible=false;
GroupBoxOpisanie->Visible= false;
}
else
GroupBoxOpisanie->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::ButtonProdatClick(TObject *Sender)
{TColumn *Column;
if(Application->MessageBoxA("Подтвердитепродажутовара !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{if(ADODataSetComputerTehnika->RecordCount==0)
{ShowMessage("Товаротсутствуетвпродаже!");
return;
}
ADODataSetComputerTehnika->Edit();
ADODataSetComputerTehnikaProdan->Value=1;
ADODataSetComputerTehnika->Post();
ADODataSetComputerTehnika->Refresh();
ADODataSetHistory->Insert();
ADODataSetHistoryCodComputerTehnika->Value= ADODataSetComputerTehnikaCod->Value;
ADODataSetHistoryCodManager->Value= TekManager;
ADODataSetHistoryDataProdazhi->Value= DateTimePickerDataProdazhi->Date;
ADODataSetHistoryCena->Value= ADODataSetComputerTehnikaCena->Value;
ADODataSetHistory->Post();
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
DBGridComputerTehnikaCellClick(Column);
}
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::N1Click(TObject *Sender)
{
ButtonProdatClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::N2Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("MainComputer.cpp", FormVxod);
USEFORM("DM.cpp", DM1); /* TDataModule: File Type */
USEFORM("Dolgnost.cpp", FormDolgnost);
USEFORM("MainAIS.cpp", FormMainAIS);
USEFORM("VidTehniki.cpp", FormVidTehniki);
USEFORM("Manager.cpp", FormManager);
USEFORM("ComputerTehnika.cpp", FormComputerTehnika);
USEFORM("Prodazha.cpp", FormProdazha);
USEFORM("Vnalichii.cpp", FormVnalichii);
USEFORM("UnitReport.cpp", FormReport);
USEFORM("Prodano.cpp", FormProdano);
USEFORM("UnitReport2.cpp", FormReport2);
USEFORM("OtchetManager.cpp", FormOtchetManager);
USEFORM("DiagrammaOklad.cpp", FormDiagrammaOklad);
USEFORM("Spravka.cpp", FormSpravka);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TFormVxod), &FormVxod);
Application->CreateForm(__classid(TDM1), &DM1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Spravka.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormSpravka *FormSpravka;
//---------------------------------------------------------------------------
__fastcall TFormSpravka::TFormSpravka(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormSpravka::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UnitReport.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormReport *FormReport;
bool Pr;
//---------------------------------------------------------------------------
__fastcall TFormReport::TFormReport(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//выполняется после закрытия окна просмотра отчета
void __fastcall TFormReport::QuickRep1AfterPreview(TObject *Sender)
{
FormReport->Close(); //закрыть форму
}
//---------------------------------------------------------------------------
//выполняется при активации формы
void __fastcall TFormReport::FormActivate(TObject *Sender)
{
if(Pr==false)
Pr=true;
else
{Pr=false;
FormReport->Close();
return;
}
QuickRep1->Visible=false;
QuickRep1->Preview();//показатьокнопредварительногопросмотраотчета
}
//---------------------------------------------------------------------------
//выполняетсяприотображенииформы
void __fastcall TFormReport::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UnitReport2.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormReport2 *FormReport2;
bool Pr;
//---------------------------------------------------------------------------
__fastcall TFormReport2::TFormReport2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//выполняется после закрытия окна просмотра отчета
void __fastcall TFormReport2::QuickRep1AfterPreview(TObject *Sender)
{
FormReport2->Close(); //закрыть форму
}
//---------------------------------------------------------------------------
//выполняется при активации формы
void __fastcall TFormReport2::FormActivate(TObject *Sender)
{
if(Pr==false)
Pr=true;
else
{Pr=false;
FormReport2->Close();
return;
}
QuickRep1->Visible=false;
QuickRep1->Preview();//показатьокнопредварительногопросмотраотчета
}
//---------------------------------------------------------------------------
//выполняетсяприотображенииформы
void __fastcall TFormReport2::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "VidTehniki.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormVidTehniki *FormVidTehniki;
//---------------------------------------------------------------------------
__fastcall TFormVidTehniki::TFormVidTehniki(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormVidTehniki::ButtonAddClick(TObject *Sender)
{
if(ADODataSetVidTehniki->State==dsBrowse)
{ADODataSetVidTehniki->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//ВыполняетсяпринажатиикнопкиУдалить
void __fastcall TFormVidTehniki::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetVidTehniki->RecordCount==0) //естьлиданныевБД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetVidTehniki->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->CommandText= "select * from TablComputerTehnika where CodVidTehniki="+ADODataSetVidTehnikiCod->AsString;
ADODataSetComputerTehnika->Open();
if(ADODataSetComputerTehnika->RecordCount>0)
{ShowMessage("Ошибка при удалении! В таблице 'TablComputerTehnika' имеются связанные записи!"); //вывести сообщение в виде окошка
return;//выход из процедуры
}
ADODataSetVidTehniki->Delete();//удалить запись из таблицы БД
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormVidTehniki::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetVidTehniki->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetVidTehniki->State==dsBrowse)
ADODataSetVidTehniki->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormVidTehniki::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcallTFormVidTehniki::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditName->Text=="" )//проверка введенных данных
{ShowMessage("Введите название!");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetVidTehniki->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormVidTehniki::ButtonOtmenClick(TObject *Sender)
{
ADODataSetVidTehniki->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
void __fastcall TFormVidTehniki::FormShow(TObject *Sender)
{
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormVidTehniki::DBEditNameKeyPress(TObject *Sender,
char &Key)
{
if(Key==13)
ButtonPostClick(Sender);
}
//--------------------------------------------------------------------------- class TFormComputerTehnika : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TBooleanField *ADODataSetComputerTehnikaProdan;
TGroupBox *GroupBox1;
TLabel *Label1;
TDBEdit *DBEditName;
TLabel *Label2;
TDBEdit *DBEditCena;
TLabel *Label3;
TDateTimePicker *DateTimePickerDataPostup;
TLabel *Label4;
TDBMemo *DBMemoOpisanie;
TLabel *Label5;
TDBLookupComboBox *DBLookupComboBoxVidTehniki;
TButton *ButtonFoto;
TDBImage *DBImageFoto;
TOpenDialog *OpenDialogFoto;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
void __fastcall ButtonFotoClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormComputerTehnika(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormComputerTehnika *FormComputerTehnika;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DiagrammaOkladH
#define DiagrammaOkladH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <Chart.hpp>
#include <DB.hpp>
#include <DbChart.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
#include <Series.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormDiagrammaOklad : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridManager;
TADODataSet *ADODataSetManager;
TDataSource *DataSourceManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
TDBChart *DBChartManager;
TPieSeries *Series1;
TStringField *ADODataSetManagerFIO2;
TButton *ButtonExit;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
void __fastcall FormShow(TObject *Sender);
void __fastcall ADODataSetManagerCalcFields(TDataSet *DataSet);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormDiagrammaOklad(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormDiagrammaOklad *FormDiagrammaOklad;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DMH
#define DMH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
//---------------------------------------------------------------------------
class TDM1 : public TDataModule
{
__published: // IDE-managed Components
TADOConnection *ADOConnection1;
private: // User declarations
public: // User declarations
__fastcall TDM1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TDM1 *DM1;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DolgnostH
#define DolgnostH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Mask.hpp>
//---------------------------------------------------------------------------
class TFormDolgnost : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridDolgnost;
TADODataSet *ADODataSetDolgnost;
TDataSource *DataSourceDolgnost;
TAutoIncField *ADODataSetDolgnostCod;
TWideStringField *ADODataSetDolgnostName;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetManager;
TGroupBox *GroupBox1;
TDBEdit *DBEditName;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall DBEditNameKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormDolgnost(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormDolgnost *FormDolgnost;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef MainAISH
#define MainAISH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include <ExtCtrls.hpp>
#include <jpeg.hpp>
//---------------------------------------------------------------------------
class TFormMainAIS : public TForm
{
__published: // IDE-managed Components
TMainMenu *MainMenu1;
TMenuItem *N1;
TMenuItem *N2;
TMenuItem *N3;
TMenuItem *N4;
TMenuItem *N5;
TMenuItem *N6;
TMenuItem *N7;
TMenuItem *N8;
TPopupMenu *PopupMenu1;
TMenuItem *N9;
TMenuItem *N10;
TMenuItem *N12;
TMenuItem *N13;
TMenuItem *N14;
TMenuItem *N11;
TMenuItem *N15;
TImage *Image1;
void __fastcall N8Click(TObject *Sender);
void __fastcall N4Click(TObject *Sender);
void __fastcall N5Click(TObject *Sender);
void __fastcall N3Click(TObject *Sender);
void __fastcall N6Click(TObject *Sender);
void __fastcall N9Click(TObject *Sender);
void __fastcall N10Click(TObject *Sender);
void __fastcall N12Click(TObject *Sender);
void __fastcall N13Click(TObject *Sender);
void __fastcall N14Click(TObject *Sender);
void __fastcall N11Click(TObject *Sender);
void __fastcall N15Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormMainAIS(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormMainAIS *FormMainAIS;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef MainComputerH
#define MainComputerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <Buttons.hpp>
//---------------------------------------------------------------------------
class TFormVxod : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TComboBox *ComboBoxManager;
TLabel *Label2;
TEdit *EditPassword;
TBitBtn *BitBtnExit;
TButton *ButtonVxod;
TADODataSet *ADODataSetManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
void __fastcall FormShow(TObject *Sender);
void __fastcall BitBtnExitClick(TObject *Sender);
void __fastcall ButtonVxodClick(TObject *Sender);
void __fastcall EditPasswordKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormVxod(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVxod *FormVxod;
extern int TekManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ManagerH
#define ManagerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <ComCtrls.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <Mask.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormManager : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridFormManager;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
TADODataSet *ADODataSetDolgnost;
TAutoIncField *ADODataSetDolgnostCod;
TWideStringField *ADODataSetDolgnostName;
TStringField *ADODataSetManagerNameDolgnost;
TGroupBox *GroupBox1;
TLabel *Label1;
TDBEdit *DBEditFIO;
TLabel *Label2;
TDBLookupComboBox *DBLookupComboBoxDolgnost;
TDataSource *DataSourceDolgnost;
TLabel *Label3;
TDBEdit *DBEditOklad;
TLabel *Label4;
TDBEdit *DBEditPasport;
TLabel *Label5;
TDBEdit *DBEditPassword;
TLabel *Label6;
TDateTimePicker *DateTimePicker1;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormManager(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormManager *FormManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef OtchetManagerH
#define OtchetManagerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormOtchetManager : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridManager;
TADODataSet *ADODataSetManager;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetDolgnost;
TDataSource *DataSourceDolgnost;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TADODataSet *ADODataSetHistory;
TDataSource *DataSourceHistory;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TButton *ButtonExit;
void __fastcall FormShow(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormOtchetManager(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormOtchetManager *FormOtchetManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ProdanoH
#define ProdanoH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormProdano : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDBImage *DBImageFoto;
TDBMemo *DBMemoOpisanie;
TButton *ButtonExit;
TButton *ButtonPrint;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
TDataSource *DataSourceHistory;
TADODataSet *ADODataSetHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TDateField *ADODataSetComputerTehnikaDataProdazhi;
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonPrintClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormProdano(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormProdano *FormProdano;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ProdazhaH
#define ProdazhaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormProdazha : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TDateTimePicker *DateTimePickerDataProdazhi;
TGroupBox *GroupBox1;
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TButton *ButtonProdat;
TGroupBox *GroupBoxOpisanie;
TDBMemo *DBMemoOpisanie;
TDBImage *DBImageFoto;
TButton *ButtonExit;
TADODataSet *ADODataSetHistory;
TDataSource *DataSourceHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall FormShow(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall ButtonProdatClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormProdazha(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormProdazha *FormProdazha;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef SpravkaH
#define SpravkaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TFormSpravka : public TForm
{
__published: // IDE-managed Components
TMemo *MemoSpravka;
TMemo *Memo1;
TButton *ButtonExit;
void __fastcall ButtonExitClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormSpravka(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormSpravka *FormSpravka;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef UnitReportH
#define UnitReportH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//---------------------------------------------------------------------------
class TFormReport : public TForm
{
__published: // IDE-managed Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
void __fastcall QuickRep1AfterPreview(TObject *Sender);
void __fastcall FormActivate(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormReport *FormReport;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef UnitReport2H
#define UnitReport2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//---------------------------------------------------------------------------
class TFormReport2 : public TForm
{
__published: // IDE-managed Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDataSource *DataSourceHistory;
TADODataSet *ADODataSetHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TDateField *ADODataSetComputerTehnikaDataProdazhi;
void __fastcall QuickRep1AfterPreview(TObject *Sender);
void __fastcall FormActivate(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport2(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormReport2 *FormReport2;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef VidTehnikiH
#define VidTehnikiH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Mask.hpp>
//---------------------------------------------------------------------------
class TFormVidTehniki : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetComputerTehnika;
TGroupBox *GroupBox1;
TDBEdit *DBEditName;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TBooleanField *ADODataSetComputerTehnikaProdan;
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall DBEditNameKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormVidTehniki(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVidTehniki *FormVidTehniki;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef VnalichiiH
#define VnalichiiH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormVnalichii : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDBImage *DBImageFoto;
TDBMemo *DBMemoOpisanie;
TButton *ButtonExit;
TButton *ButtonPrint;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonPrintClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormVnalichii(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVnalichii *FormVnalichii;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ComputerTehnika.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormComputerTehnika *FormComputerTehnika;
//---------------------------------------------------------------------------
__fastcall TFormComputerTehnika::TFormComputerTehnika(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormComputerTehnika::ButtonFotoClick(TObject *Sender)
{ char *s;
OpenDialogFoto->InitialDir= ExtractFileDir(Application->ExeName);
if(OpenDialogFoto->Execute()==true) //вызовдиалогавыборафайла
{DBImageFoto->Visible=true;
s= OpenDialogFoto->FileName.c_str(); //получитьнаименованиевыбранногофайласполнымпутем
DBImageFoto->Picture->LoadFromFile(s);
}
else
{if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TFormComputerTehnika::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormComputerTehnika::ButtonAddClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->State==dsBrowse)
{ADODataSetComputerTehnika->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DateTimePickerDataPostup->Date= Date();
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormComputerTehnika::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->RecordCount==0) //естьлиданныевБД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выходизформы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
if(Application->MessageBoxA("Подтвердитеудалениезаписи
!","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
ADODataSetComputerTehnika->Delete();//удалитьзаписьизтаблицыБД
}
//---------------------------------------------------------------------------
//ВыполняетсяпринажатиикнопкиИзменить
void __fastcall TFormComputerTehnika::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выходизформы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
ADODataSetComputerTehnika->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DateTimePickerDataPostup->Date= ADODataSetComputerTehnikaDataPostup->Value;
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormComputerTehnika::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormComputerTehnika::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditName->Text=="" )//проверка введенных данных
{ShowMessage("Введите название !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditCena->Text=="" )//проверка введенных данных
{ShowMessage("Введите цену !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBMemoOpisanie->Text=="" )//проверка введенных данных
{ShowMessage("Введите описание !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(ADODataSetComputerTehnikaCodVidTehniki->Value==0 )//проверка введенных данных
{ShowMessage("Введите вид товара!");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetComputerTehnikaDataPostup->Value= DateTimePickerDataPostup->Date;
ADODataSetComputerTehnika->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormComputerTehnika::ButtonOtmenClick(TObject *Sender)
{
ADODataSetComputerTehnika->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DiagrammaOklad.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormDiagrammaOklad *FormDiagrammaOklad;
//---------------------------------------------------------------------------
__fastcall TFormDiagrammaOklad::TFormDiagrammaOklad(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::FormShow(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::ADODataSetManagerCalcFields(
TDataSet *DataSet)
{
ADODataSetManagerFIO2->Value= ADODataSetManagerFIO->Value;
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDM1 *DM1;
//---------------------------------------------------------------------------
__fastcall TDM1::TDM1(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Dolgnost.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormDolgnost *FormDolgnost;
//---------------------------------------------------------------------------
__fastcall TFormDolgnost::TFormDolgnost(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormDolgnost::ButtonAddClick(TObject *Sender)
{
if(ADODataSetDolgnost->State==dsBrowse)
{ADODataSetDolgnost->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//ВыполняетсяпринажатиикнопкиУдалить
void __fastcall TFormDolgnost::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetDolgnost->RecordCount==0) //естьлиданныевБД
{ButtonChange->Enabled=false;//сделатькнопкуИзменитьнедоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выходизформы
}
if(ADODataSetDolgnost->State==dsBrowse)
if(Application->MessageBoxA("Подтвердитеудалениезаписи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{ADODataSetManager->Close();
ADODataSetManager->CommandText= "select * from TablManager where CodDolgnost="+IntToStr(ADODataSetDolgnostCod->Value);
ADODataSetManager->Open();
if(ADODataSetManager->RecordCount>0)
{ShowMessage("Ошибка при удалении! В таблице 'TablManager' имеются связанные записи!"); //вывести сообщение в виде окошка
return;//выход из процедуры
}
ADODataSetDolgnost->Delete();//удалить запись из таблицы БД
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormDolgnost::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetDolgnost->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выходизформы
}
if(ADODataSetDolgnost->State==dsBrowse)
ADODataSetDolgnost->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormDolgnost::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormDolgnost::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditName->Text=="" )//проверка введенных данных
{ShowMessage("Введите название!");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetDolgnost->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormDolgnost::ButtonOtmenClick(TObject *Sender)
{
ADODataSetDolgnost->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
void __fastcall TFormDolgnost::FormShow(TObject *Sender)
{
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
ADODataSetManager->Close();
ADODataSetManager->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormDolgnost::DBEditNameKeyPress(TObject *Sender,
char &Key)
{
if(Key==13)
ButtonPostClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MainAIS.h"
#include "Dolgnost.h"
#include "VidTehniki.h"
#include "Manager.h"
#include "ComputerTehnika.h"
#include "Prodazha.h"
#include "Vnalichii.h"
#include "Prodano.h"
#include "OtchetManager.h"
#include "DiagrammaOklad.h"
#include "Spravka.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMainAIS *FormMainAIS;
//---------------------------------------------------------------------------
__fastcall TFormMainAIS::TFormMainAIS(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N8Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N4Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormDolgnost), &FormDolgnost);
FormDolgnost->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N5Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormVidTehniki), &FormVidTehniki);
FormVidTehniki->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N3Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormManager), &FormManager);
FormManager->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N6Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormComputerTehnika), &FormComputerTehnika);
FormComputerTehnika->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N9Click(TObject *Sender)
{
N8Click(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N10Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormProdazha), &FormProdazha);
FormProdazha->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N12Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormVnalichii), &FormVnalichii);
FormVnalichii->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N13Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormProdano), &FormProdano);
FormProdano->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N14Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormOtchetManager), &FormOtchetManager);
FormOtchetManager->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N11Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormDiagrammaOklad), &FormDiagrammaOklad);
FormDiagrammaOklad->ShowModal();
}
//---------------------------------------------------------------------------
//Вызовсправки
void __fastcall TFormMainAIS::N15Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormSpravka), &FormSpravka);
FormSpravka->ShowModal();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MainComputer.h"
#include "DM.h"
#include "MainAIS.h"
#include "string.h"
#include "stdio.h"
#include <algorithm>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormVxod *FormVxod;
int TekManager;
//---------------------------------------------------------------------------
__fastcall TFormVxod::TFormVxod(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::FormShow(TObject *Sender)
{
ComboBoxManager->Clear();
ADODataSetManager->Close();
ADODataSetManager->Open();
ADODataSetManager->First();
while(!ADODataSetManager->Eof)
{ComboBoxManager->Items->Add(ADODataSetManagerFIO->Value);
ADODataSetManager->Next();
}
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::BitBtnExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::ButtonVxodClick(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->CommandText= "select * from TablManager where FIO="+QuotedStr(ComboBoxManager->Text);
ADODataSetManager->Open();
if(ADODataSetManagerPassword->Value==EditPassword->Text)
{TekManager= ADODataSetManagerCod->Value;
Application->CreateForm(__classid(TFormMainAIS), &FormMainAIS);
FormMainAIS->ShowModal();
Close();
}
else ShowMessage("Неверныйпароль!");
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::EditPasswordKeyPress(TObject *Sender, char &Key)
{
if(Key==13)
ButtonVxodClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Manager.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormManager *FormManager;
//---------------------------------------------------------------------------
__fastcall TFormManager::TFormManager(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormManager::FormShow(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->Open();
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormManager::ButtonAddClick(TObject *Sender)
{
if(ADODataSetManager->State==dsBrowse)
{ADODataSetManager->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DateTimePicker1->Date= Date();
DBEditFIO->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormManager::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetManager->RecordCount==0) //естьлиданныевБД
{ButtonChange->Enabled=false;//сделатькнопкуИзменитьнедоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выходизформы
}
if(ADODataSetManager->State==dsBrowse)
if(Application->MessageBoxA("Подтвердитеудалениезаписи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
ADODataSetManager->Delete();//удалить запись из таблицы БД
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormManager::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetManager->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выходизформы
}
if(ADODataSetManager->State==dsBrowse)
ADODataSetManager->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DateTimePicker1->Date= ADODataSetManagerDataRozhd->Value;
DBEditFIO->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormManager::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormManager::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditFIO->Text=="" )//проверка введенных данных
{ShowMessage("Введите Ф.И.О. !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditPasport->Text=="" )//проверка введенных данных
{ShowMessage("Введите паспорт !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditOklad->Text=="" )//проверка введенных данных
{ShowMessage("Введите оклад !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditPassword->Text=="" )//проверка введенных данных
{ShowMessage("Введите пароль !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(ADODataSetManagerCodDolgnost->Value==0 )//проверка введенных данных
{ShowMessage("Введите должность !");//вывод диалогового окна с сообщением
return;//выходизпроцедуры
}
//-----------
ADODataSetManagerDataRozhd->Value= DateTimePicker1->Date;
ADODataSetManager->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormManager::ButtonOtmenClick(TObject *Sender)
{
ADODataSetManager->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
void __fastcall TFormManager::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "OtchetManager.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormOtchetManager *FormOtchetManager;
//---------------------------------------------------------------------------
__fastcall TFormOtchetManager::TFormOtchetManager(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::FormShow(TObject *Sender)
{ char *s;
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
ADODataSetManager->Close();
ADODataSetManager->CommandText= "select TablManager.FIO as 'ФИОменеджера',TablDolgnost.name as 'Должность',TablHistory.cena as 'Цена',TablComputerTehnika.name as 'Названиетовара' from TablManager,TablHistory,TablDolgnost,TablComputerTehnika where (TablManager.Cod=TablHistory.CodManager)and(TablDolgnost.Cod=TablManager.CodDolgnost)and(TablHistory.CodComputerTehnika=TablComputerTehnika.Cod)";
ADODataSetManager->Open();
DBGridManager->Columns->Items[0]->Width=290;
DBGridManager->Columns->Items[1]->Width=160;
DBGridManager->Columns->Items[2]->Width=60;
DBGridManager->Columns->Items[3]->Width=410;
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Prodano.h"
#include "DM.h"
#include "UnitReport2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormProdano *FormProdano;
//---------------------------------------------------------------------------
__fastcall TFormProdano::TFormProdano(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::DBGridComputerTehnikaCellClick(
TColumn *Column)
{
if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
else DBImageFoto->Visible=true;
if(ADODataSetComputerTehnika->RecordCount==0)
{DBImageFoto->Visible=false;
DBMemoOpisanie->Visible=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::FormShow(TObject *Sender)
{ TColumn *Column;
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
DBGridComputerTehnikaCellClick(Column);
}
//---------------------------------------------------------------------------
//ВыполняетсяпринажатиикнопкиПечать
void __fastcall TFormProdano::ButtonPrintClick(TObject *Sender)
{
Application->CreateForm(__classid(TFormReport2), &FormReport2);
FormReport2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::N1Click(TObject *Sender)
{
ButtonPrintClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::N2Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Prodazha.h"
#include "DM.h"
#include "MainComputer.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormProdazha *FormProdazha;
//---------------------------------------------------------------------------
__fastcall TFormProdazha::TFormProdazha(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при отображении формы
void __fastcall TFormProdazha::FormShow(TObject *Sender)
{ TColumn *Column;
DateTimePickerDataProdazhi->Date= Date();
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
DBGridComputerTehnikaCellClick(Column);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::DBGridComputerTehnikaCellClick(
TColumn *Column)
{
if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
else DBImageFoto->Visible=true;
if(ADODataSetComputerTehnika->RecordCount==0)
{DBImageFoto->Visible=false;
GroupBoxOpisanie->Visible= false;
}
else
GroupBoxOpisanie->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::ButtonProdatClick(TObject *Sender)
{TColumn *Column;
if(Application->MessageBoxA("Подтвердитепродажутовара !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{if(ADODataSetComputerTehnika->RecordCount==0)
{ShowMessage("Товаротсутствуетвпродаже!");
return;
}
ADODataSetComputerTehnika->Edit();
ADODataSetComputerTehnikaProdan->Value=1;
ADODataSetComputerTehnika->Post();
ADODataSetComputerTehnika->Refresh();
ADODataSetHistory->Insert();
ADODataSetHistoryCodComputerTehnika->Value= ADODataSetComputerTehnikaCod->Value;
ADODataSetHistoryCodManager->Value= TekManager;
ADODataSetHistoryDataProdazhi->Value= DateTimePickerDataProdazhi->Date;
ADODataSetHistoryCena->Value= ADODataSetComputerTehnikaCena->Value;
ADODataSetHistory->Post();
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
DBGridComputerTehnikaCellClick(Column);
}
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::N1Click(TObject *Sender)
{
ButtonProdatClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::N2Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("MainComputer.cpp", FormVxod);
USEFORM("DM.cpp", DM1); /* TDataModule: File Type */
USEFORM("Dolgnost.cpp", FormDolgnost);
USEFORM("MainAIS.cpp", FormMainAIS);
USEFORM("VidTehniki.cpp", FormVidTehniki);
USEFORM("Manager.cpp", FormManager);
USEFORM("ComputerTehnika.cpp", FormComputerTehnika);
USEFORM("Prodazha.cpp", FormProdazha);
USEFORM("Vnalichii.cpp", FormVnalichii);
USEFORM("UnitReport.cpp", FormReport);
USEFORM("Prodano.cpp", FormProdano);
USEFORM("UnitReport2.cpp", FormReport2);
USEFORM("OtchetManager.cpp", FormOtchetManager);
USEFORM("DiagrammaOklad.cpp", FormDiagrammaOklad);
USEFORM("Spravka.cpp", FormSpravka);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TFormVxod), &FormVxod);
Application->CreateForm(__classid(TDM1), &DM1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Spravka.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormSpravka *FormSpravka;
//---------------------------------------------------------------------------
__fastcall TFormSpravka::TFormSpravka(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormSpravka::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UnitReport.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormReport *FormReport;
bool Pr;
//---------------------------------------------------------------------------
__fastcall TFormReport::TFormReport(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//выполняется после закрытия окна просмотра отчета
void __fastcall TFormReport::QuickRep1AfterPreview(TObject *Sender)
{
FormReport->Close(); //закрыть форму
}
//---------------------------------------------------------------------------
//выполняется при активации формы
void __fastcall TFormReport::FormActivate(TObject *Sender)
{
if(Pr==false)
Pr=true;
else
{Pr=false;
FormReport->Close();
return;
}
QuickRep1->Visible=false;
QuickRep1->Preview();//показатьокнопредварительногопросмотраотчета
}
//---------------------------------------------------------------------------
//выполняетсяприотображенииформы
void __fastcall TFormReport::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UnitReport2.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormReport2 *FormReport2;
bool Pr;
//---------------------------------------------------------------------------
__fastcall TFormReport2::TFormReport2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//выполняется после закрытия окна просмотра отчета
void __fastcall TFormReport2::QuickRep1AfterPreview(TObject *Sender)
{
FormReport2->Close(); //закрыть форму
}
//---------------------------------------------------------------------------
//выполняется при активации формы
void __fastcall TFormReport2::FormActivate(TObject *Sender)
{
if(Pr==false)
Pr=true;
else
{Pr=false;
FormReport2->Close();
return;
}
QuickRep1->Visible=false;
QuickRep1->Preview();//показатьокнопредварительногопросмотраотчета
}
//---------------------------------------------------------------------------
//выполняетсяприотображенииформы
void __fastcall TFormReport2::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "VidTehniki.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormVidTehniki *FormVidTehniki;
//---------------------------------------------------------------------------
__fastcall TFormVidTehniki::TFormVidTehniki(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormVidTehniki::ButtonAddClick(TObject *Sender)
{
if(ADODataSetVidTehniki->State==dsBrowse)
{ADODataSetVidTehniki->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//ВыполняетсяпринажатиикнопкиУдалить
void __fastcall TFormVidTehniki::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetVidTehniki->RecordCount==0) //естьлиданныевБД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetVidTehniki->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->CommandText= "select * from TablComputerTehnika where CodVidTehniki="+ADODataSetVidTehnikiCod->AsString;
ADODataSetComputerTehnika->Open();
if(ADODataSetComputerTehnika->RecordCount>0)
{ShowMessage("Ошибка при удалении! В таблице 'TablComputerTehnika' имеются связанные записи!"); //вывести сообщение в виде окошка
return;//выход из процедуры
}
ADODataSetVidTehniki->Delete();//удалить запись из таблицы БД
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormVidTehniki::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetVidTehniki->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetVidTehniki->State==dsBrowse)
ADODataSetVidTehniki->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormVidTehniki::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcallTFormVidTehniki::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditName->Text=="" )//проверка введенных данных
{ShowMessage("Введите название!");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetVidTehniki->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormVidTehniki::ButtonOtmenClick(TObject *Sender)
{
ADODataSetVidTehniki->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
void __fastcall TFormVidTehniki::FormShow(TObject *Sender)
{
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormVidTehniki::DBEditNameKeyPress(TObject *Sender,
char &Key)
{
if(Key==13)
ButtonPostClick(Sender);
}
//---------------------------------------------------------------------------
- Назначение и структура системы защиты информации коммерческого предприятия (Классификация сетевых атак и основные методы защиты от них)
- Оборотные активы предприятия (на примере ООО «Фогус»)
- Бухгалтерская отчетность организации: порядок ее составления и анализ
- Учет труда и заработной платы на примере ООО «Фортуна».
- Бухгалтерская отчетность организации: порядок ее составления и анализ АО «Хлеб»
- Понятие и виды источников права (Понятие и особенности форм (источников) права)
- Управление поведением в конфликтных ситуациях:
- Комплексный анализ понятия и видов сделок
- Понятие и виды ценных бумаг( подробно)
- Выбор стиля руководства в организации (ООО «Солярис»)
- Показатели(Оценка) эффективности организационных структур
- Понятие и виды наследования (раскрытие понятия)