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

«Проектирование реализации операций бизнес-процесса «Движение библиотечного фонда»(Выбор комплекса задач автоматизации)

Содержание:

ВВЕДЕНИЕ

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

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

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

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

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

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

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

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

Проектирование реализации операций бизнес-процесса «Движение библиотечного фонда»предназначено для упрощения работы сотрудников библиотеки.

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

Предметом исследования является библиотека.

При выполнении курсового проекта я пользовалась программами: Microsoft Access и Borland Delphi 7.

ГЛАВА 1. АНАЛИТИЧЕСКАЯ ЧАСТЬ

1.1 Выбор комплекса задач автоматизации

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

Модель предметной области. Модель предметной области - это наши знания о предметной области. Знания могут быть как в виде неформальных знаний в мозгу эксперта, так и выражены формально при помощи каких-либо средств. В качестве таких средств могут выступать текстовые описания предметной области, наборы должностных инструкций, правила ведения дел в компании и т.п. Опыт показывает, что текстовый способ представления модели предметной области крайне неэффективен. Гораздо более информативными и полезными при разработке баз данных являются описания предметной области, выполненные при помощи специализированных графических нотаций. Имеется большое количество методик описания предметной области. Из наиболее известных можно назвать методику структурного анализа SADT и основанную на нем IDEF0, диаграммы потоков данных Гейна-Сарсона, методику объектно-ориентированного анализа UML, и др. Модель предметной области описывает скорее процессы, происходящие в предметной области и данные, используемые этими процессами. От того, насколько правильно смоделирована предметная область, зависит успех дальнейшей разработки приложений.

Предметной областью моей базы является библиотека.

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

Характеристика документооборота, возникающего при решении задачи

Характеристика существующих бизнес –процессов

Исследуемым объектом является информационная система библиотеки, взаимодействие с внешней средой указано на рис.1.1.

Рисунок 1.1 - Контекстная диаграмма информационной системы

На вход информационной системы поступают:

Книги;
Люди;
Запросы.

На выходе информационной системы получаются:

Книги;
Отказы клиентов;
Читатель/покупатель.

Процессами управления являются:

Нормативные акты;
Особенности СУБД.

Для полноценной работы системы необходим:

Персонал.

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

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

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

За обеспечением работы всей системы следят люди (персонал). Обязанности работников регламентируются (нормативные акты).

2. Диаграммы декомпозиций

Вся библиотечная система состоит из трёх основных частей, а именно:

Ведение каталога;
Поисковой системы;
Системы формирования заказов.

Взаимодействие этих блоков (подсистем) показано на рис. 1.2.

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

Рисунок 1.2 -Взаимодействие основных компонентов системы

Поисковая подсистема занимается непосредственной обработкой запросов от системы или запросов из вне, а так же предоставлением информации по этим запросам.

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

2.1 Ведение каталога

Подсистема ведения каталогов состоит из двух основных элементов:

Ведение каталога книг;
Ведение каталога читателей.

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

Рисунок 1.3 - Подсистема ведения каталогов

2.1.1 Ведение каталога книг

Как и любой другой каталог, каталог ведения книг имеет такие основные компоненты:

Формирование сведений о книге;
Пополнение БД;
Определение книг на склад.

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

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

Рисунок 1.4 - Ведение каталога книг

Каждый компонент модуля ведения каталога книг рис. 1.4., распадается на составные части, которые наглядно показаны на рис. 1.5, рис. 1.6, рис. 1.7.

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

Рисунок 1.5 - Формирование сведений о книге

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

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

Рисунок 1.6 - Пополнение БД

Рисунок 1.7 - Определение книг на склад

2.1.2 Ведение каталога читателей

Устройство этого элемента системы очень схоже с «ведением каталога книг» рис. 1.4, за одним исключением у него отсутствует блок «определения книг на склад», он здесь и не нужен. Так же блок «Пополнения БД читателей» видоизменён, если сравнивать его с «Пополнением БД» рис. 1.10. Элемент «Сбор сведений» представлен на рис. 1.9. Основные блоки «модуля ведения каталога читателей» представлены на рис.1.8.

Рисунок 1.8 - Ведение каталога читателей

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

Рисунок 1.9 - Формирование сведений о читателе

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

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

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

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

Рисунок 1.10 - Пополнение БД читателей

Рисунок 1.11 - Работа с клиентом

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

2.2 Поисковая системный библиотека каталог книга

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

Принятие запроса рис. 1.13;
Использование СУБД (по обработке запроса) рис. 1.14;
Формирование удобного вида отчёта рис.1.15.

Рисунок 1.12 - Компоненты поисковой системы

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

Рисунок 1.13 - Принятие запроса

Рисунок 1.14 - Использование СУБД (по обработке запроса)

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

Рисунок 1.15 - Формирование удобного вида отчёта

Необходимые виды отчётов формируются на этапе создания ИС (формирование шаблонов документа).

2.3 Система формирования заказов

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

Сам процесс формирования рис. 1.16 заказа имеет в себе такие важные компоненты:

Регистрация заказа рис.1.17;
Формирование заказа рис.1.18;
Оформление заказа рис.1.19;
Выдача товара рис.1.20.

Рисунок 1.16 - Декомпозиция системы формирования заказов

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

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

Рисунок 1.17 - Регистрация заказа

Рисунок 1.18 - Формирование заказа

Рисунок 1.19 - Оформление заказа

Оформление заказа рис.1.19, трёх этапный процесс, подразумевающий в себе получение документа к оплате клиентом, уплата по этому документу с последующим занесением этих данных с базу данных. На рис.1.19. существует опечатка, на выходе из «Занесение информации в БД» идет «Пополненная БД», а не «Unnamed Arrow48» как показано на рисунке.

Процесс выдачи товара, достаточно прост и схематически рассмотрен на рис. 1.20, оставим его без комментариев.

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

Рисунок 1.20 - Выдача товара

3. Диаграммы дерева узлов

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

Рисунок 1.21 - Диаграмма дерева узлов библиотечной ИС глубины 4

3.1 Обоснование проектных решений по информационному обеспечению

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

ИО отдела представляет собой информационную модель данного объекта.

ИО автоматизированных информационных систем состоит из внемашинного (информация, которая воспринимается человеком без каких-либо технических средств) – это классификаторы технико-экономической информации и документы; и внутримашинного ИО (совокупность всех данных, записанных на машинных носителях, сгруппированных по определенным признакам) – это макеты / экранные формы для ввода первичных данных в ЭВМ или ввода результатной информации.

При организации БД целесообразно использовать следующие типы баз данных.

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

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

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

Организация связей между базами данных требует определенных правил обращения с записями:

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

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

3.2 Обоснование проектных решений по программному обеспечению

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

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

В Access в полной мере реализовано управление реляционными базами данных. Система поддерживает первичные и внешние ключи и обеспечивает целостность данных на уровне ядра (что предотвращает несовместимые операции обновления или удаления данных). Кроме того, таблицы в Access снабжены средствами проверки допустимости данных, предотвращающими некорректный ввод вне зависимости от того, как он осуществляется, а каждое поле таблицы имеет свой формат и стандартные описания, что существенно облегчает ввод данных. Access поддерживает все необходимые типы полей, в том числе текстовый, числовой, счетчик, денежный, дата/время, MEMO, логический, гиперссылка и поля объектов OLE. Если в процессе специальной обработки в полях не оказывается никаких значений, система обеспечивает полную поддержку пустых значений.

ГЛАВА 2. ПРОЕКТНАЯ ЧАСТЬ

Информационная модель и её описание

Графическое представление информационной модели отражено на рис. 2.1.

Рисунок 2.1 – Информационная модель системы

Характеристика нормативно-справочной, входной и оперативной информации

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

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

- информация о книгах;

- информация о зарезервированных книгах;

- информация о выданных книгах.

1. Характеристика результатной информации

Отчeты, зaпpocы и фopмы являются выxoдными дaнными. В oтчетax и нa фopмax вывoдятcя инфopмaция, yпpoщающих работу с записями таблиц базы данных. Чтo пoзвoляeт пoльзoвaтeлю знaчитeльнo ycкopить пpoцecc oбрaбoтки и выбopки дaнных из бaзы дaнныx.

1.1 Общие положения (дерево функций и сценарий диалога)

Основным действующим лицом в разработанной системе является сотрудник отдела. Дерево функций для пользователя представлено на рисунке 2.2.

Рисунок 2.2 - Дерево функций системы сотрудника

Сценарии диалога, формирующийся на основе дерева функций, приведен на рисунке 2.3.

Рисунок 2.3 - Сценарий диалога для пользователя

1.2 Характеристика базы данных

Схема данных представлена на рис. 2.4..

Рисунок 2.4 – Схема структуры БД

1.3 Структурная схема пакета (дерево вызова программных модулей)

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

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

1.4 Описание программных модулей

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

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

Программа состоит из следующих основных модулей.

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

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

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

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

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

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

Параметры (входные документы ) – входные данные, полученные в виде конкретных значений, переданных в оперативной памяти смежным модулям (функциям ).

1. Контрольный пример реализации проекта и его описание

В программе MS Access создали таблицу «Книги». В режиме конструктора эта таблица имеет вид как на (Рис. 2.5).

Рисунок 2.5 - Таблица «Книги» в режиме конструктор

Далее я внесла в таблицу данные (Рис. 2.6)

Рисунок 2.6 - Таблица «Книги» с внесёнными данными

Проект программы был разработан средствами Delphi 7 и MS Access 2003. Delphi, в свою очередь, является универсальной системой программирования, с помощью которой производится управление базой данных, a MS Access 2003 - хранилищем базы данных. Управление базой производится такими компонентами Delphi как ADOConnection, ADOTable и DataSource.

Доступ к данным производится через технологию ADO. Cоединение интерфейса с БД, осуществляется с помощью компонента ADOConnection. ADOConnection - это элемент, инкапсулирующий все настройки соединения с сервером БД, используемый для передачи этих настроек компонентам доступа к данным. Через компонент ADOTable производятся подключение к нужной таблице БД. DataSource является связующим звеном между компонентами ADO с компонентами отображения данных (для этого необходимо установить его свойство DataSet).

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

Главная форма (Forml) - представлена на (Рис.2.7).

Рисунок 2.7 - Главная форма БД Библиотека

После создания таблицы в MS Access, необходимо вывести ее в форму. Для этого надо установить компонент ADOConnection с вкладки ADO, дважды кликаем по свойству ConnectionString появляется окно 'Form1.ADOConnection1 ConnectionString', выбираем второй вариант (Use Connection String) и нажимаем кнопку Build. (Рис. 2.8)

Рисунок 2.8 - Окно подключения компонента ADO

Далее выбираем из появившегося списка 'Microsoft Jet 4.0 OLE DB Provider' и переходим на вкладку Подключение. Там вводим путь к нашей базе данных, пользователя и пароль не трогаем и нажимаем Проверить подключение.

Вторым действием мы ставим на нашу форму компонент ADOTable с той же вкладки, в свойстве Connection указываем наш ADOConnection1.

Теперь устанавливаем на форму компонент DataSource со вкладки Data Access. Свойство DataSet этого компонента меняем на ADOTable1 (опять выпадающий список). Ну и наконец, ставим DBGrid с вкладки Data Controls и свойству DataSource присваиваем значение DataSource1.
Стоит теперь у компонента ADOTable1 поменять значение свойства Active на True и в DBGrid отобразится таблица из нашей базы данных. Даже писать ничего не надо.

Главная форма проекта содержит 4 вкладки : Открыть, Редактировать, Поиск, О программе.

Форма «Открыть» позволяет посмотреть каталог книг. На форме расположена таблица с книгами, содержащая в себе названия книг. Так же можно осуществить поиск по названию и отсортировать по жанру, автору и коду книги. (Рис. 2.9)

Рисунок 2.9 - Форма просмотра каталога книг

Форма «Редактировать» позволяет редактировать данные о книгах, а также добавлять новые книги и удалять не нужные экземпляры. На форме также имеется иллюстрация обложки книги. Добавление данных в форму происходит нажатием на кнопку «+» компонента DBNavigator. На нем так же присутствуют кнопки прокрутки всех записей содержащихся в таблице базы данных, удаление и редактирование этих записей, что существенно облегчает работу пользователю. (Рис. 2.10)

Рисунок 2.10 - Форма редактирования данных о книгах

Форма «Поиск» предназначена для поиска необходимой книги. Книгу можно найти по ее названию, автору или коду. (Рис. 2.11)

Рисунок 2.11 Форма для поиска нужной книги

Форма «О программе» содержит информацию о авторе программы. (Рис. 2.12)

Рисунок 2.12 - Форма для просмотра информации о программе

ЗАКЛЮЧЕНИЕ

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

1) просмотр и редактирование данных;

2) поиск по коду;

3) группировка данных;

4) поиск по автору;

5) сортировка данных;

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

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

ГОСТ 19.701-90 ЕСПД. Схемы алгоритмов, программ, данных и систем. Условные обозначения и правила оформления.
ГОСТ 19.103-77 ЕСПД. Обозначение программ и программных документов.
ГОСТ 19.402-78 ЕСПД. Описание программы.
ГОСТ 19.505-79 ЕСПД. Руководство оператора. Требования к содержанию и оформлению.
ГОСТ 34.201-89. Информационная технология. Комплекс стандартов на автоматизированные системы. Виды, комплектность и обозначение документов при создании автоматизированных систем.
ГОСТ 19.701-90 ЕСПД. Схемы алгоритмов, программ, данных и сис¬тем. Условные обозначения и правила выполнения.
Шигина Н.А. Разработка БД в среде ACCESS/ Метод.разработка. – Пенза: изд. ПТИ, 2001.
Марков А.С. Базы данных. Введение в теорию и методологию / Лисовский К. Ю., Москва, 2004
Когаловский М.Р. Технология баз данных на персональных ЭВМ. / М.: Финансы и статистика, 1992
Ревунков Г.И., Самохвалов Э.Н., Чистов В.В. Базы и банки данных и знаний: Учеб. для вузов / Под ред. Четверикова В.Н. - М.: Высш. шк., 1992.
Тиори Т., Фрай Дж. Проектирование структур баз данных : В 2-х кн. Пер. с англ. / М.: Мир, 1985
Голицина О. Л. Базы данных / Голицина О. Л., Максимов Н. В., Попов И. И. – М.: Форум, 2003
Карпова Т.С. Базы данных: модели, разработка, реализация / Питер, 2002
Бемер С., Фратер Г. Microsoft Access для пользователя / Микап, Москва 1994
Коннолли Т., Бегг К. Базы данных. Проектирование, реализация и сопровождение / Москва, Питер, Киев, 2003

ПРИЛОЖЕНИЕ А – ЛИСТИНГ ПО

program Project20;

uses

Forms,

Unit21 in 'Unit21.pas' {Form21}, // Главная форма

Unit22 in 'Unit22.pas' {Form22}, // Форма просмотра каталога

Unit23 in 'Unit23.pas' {DataModule23: TDataModule}, //Подключение БД

Unit1 in 'Unit1.pas' {Form1}, // Форма редактирования

Unit2 in 'Unit2.pas' {Form2}, // Форма поиска книг

Unit3 in 'Unit3.pas' {Form3}; // Форма информации о программе

{$R *.res}

begin

Application.Initialize;

Application.Title := 'Библиотека';

Application.CreateForm(TForm21, Form21);

Application.CreateForm(TForm22, Form22);

Application.CreateForm(TDataModule23, DataModule23);

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm3, Form3);

Application.Run;

End

Unit 1

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtDlgs, DBCtrls, Mask, ExtCtrls;

type

TForm1 = class(TForm)

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

DBImage1: TDBImage;

OpenPictureDialog1: TOpenPictureDialog;

Button1: TButton;

Label9: TLabel;

DBMemo1: TDBMemo;

procedure Button1Click(Sender: TObject);

procedure DBEdit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit23;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if openpicturedialog1.Execute then

dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName);

end;

Unit 2

unit Unit2;

interface

uses

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

Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;

type

TForm2 = class(TForm)

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

ADOTable1: TADOTable;

ADOTable1_: TIntegerField;

ADOTable1DSDesigner: TWideStringField;

ADOTable1DSDesigner2: TWideStringField;

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

ADOTable1DSDesigner3: TWideStringField;

procedure Edit1Change(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure Edit3Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit23;

{$R *.dfm}

procedure TForm2.Edit1Change(Sender: TObject);

begin

if length(edit1.text)>0 then ADOTable1.Filtered:=true else

ADOTable1.Filtered:=false;

ADOTable1.Filter:='Наименование='''+edit1.Text+'''';

end;

procedure TForm2.Edit2Change(Sender: TObject);

begin

if length(edit2.text)>0 then ADOTable1.Filtered:=true else

ADOTable1.Filtered:=false;

ADOTable1.Filter:='Автор='''+edit2.Text+'''';

end;

procedure TForm2.Edit3Change(Sender: TObject);

begin

if length(edit3.text)>0 then ADOTable1.Filtered:=true else

ADOTable1.Filtered:=false;

ADOTable1.Filter:='Жанр='''+edit3.Text+'''';

end;

Unit 3

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm3 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

Unit 21

unit Unit21;

interface

uses

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

Dialogs, Menus, jpeg, ExtCtrls;

type

TForm21 = class(TForm)

MainMenu1: TMainMenu;

Image1: TImage;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form21: TForm21;

implementation

uses Unit22, Unit1, Unit2, Unit3;

{$R *.dfm}

procedure TForm21.N1Click(Sender: TObject);

begin

form22.show;

end;

procedure TForm21.N2Click(Sender: TObject);

begin

form1.show;

end;

procedure TForm21.N3Click(Sender: TObject);

begin

form2. show;

end;

procedure TForm21.N4Click(Sender: TObject);

begin

form3.show

end;

Unit 22

unit Unit22;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

TForm22 = class(TForm)

DBGrid1: TDBGrid;

RadioGroup1: TRadioGroup;

RadioButton1: TRadioButton;

RadioButton3: TRadioButton;

RadioButton2: TRadioButton;

Label1: TLabel;

Edit1: TEdit;

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form22: TForm22;

implementation

uses Unit23;

{$R *.dfm}

procedure TForm22.RadioButton1Click(Sender: TObject);

begin

DataModule23.ADOTable1.IndexFieldNames:='Автор';

end;

procedure TForm22.RadioButton3Click(Sender: TObject);

begin

DataModule23.ADOTable1.IndexFieldNames:='Жанр';

end;

procedure TForm22.RadioButton2Click(Sender: TObject);

begin

DataModule23.ADOTable1.IndexFieldNames:='Код_книги';

end;

procedure TForm22.Edit1Change(Sender: TObject);

begin

if length(edit1.text)>0 then datamodule23.ADOTable1.Filtered:=true else

datamodule23.ADOTable1.Filtered:=false;

datamodule23.ADOTable1.Filter:='Наименование='''+edit1.Text+'''';

#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->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)

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);

}

//---------------------------------------------------------------------------

#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->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)

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->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)

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);

}

//---------------------------------------------------------------------------