Проектирование реализации операций бизнес-процесса «Продажи» (Выбор комплекса задач)
Содержание:
Введение
В условиях рыночной экономики основой успешной деятельности ООО "Евросеть-Ретейл" является обеспечение эффективности его управления. Для компании характерна сложная структура, связанная с многопрофильностью подразделений и различием выполняемых функций. Как правило, это такие проблемы, как:
1. Отсутствие организационного единства среди подразделений компаний, в частности, одинакового понимания сущности бизнес-процессов, единой методологии процесса управления продажами, расчета сумм поставок и унификации нормативно-справочной информации.
2. Трудности планирования деятельности по всем горизонтам (долгосрочного, текущего, оперативного) на всех уровнях управления, доведения до каждого из подразделений конкретных задач, контроля над текущим исполнением и анализа выполнения этих задач.
3. Недостаточная оперативность обработки данных о деятельности подразделений.
4. Отсутствие актуальной информации о реальном сотрудничестве с покупателями.
При этом одно из важных задач является управление продажами. Автоматизировать процесс управления продажами – это значит упростить процесс ввода и обработки данных и, при этом, сэкономить большое количество времени. В настоящее время данная задача трудоемка и требует постоянной взаимосвязи менеджеров и специалистов по планированию, учету и анализу, с целью принятия управленческих решений по обеспечению соответствующего уровня продаж.
Использование автоматизированной информационной системы делает любую компанию более конкурентоспособной за счет повышения ее управляемости и адаптируемости к изменениям рыночной конъюнктуры.
Подобная автоматизация позволяет:
• повысить эффективность управления компанией за счет обеспечения руководителей и специалистов максимально полной, оперативной и достоверной информацией на основе единого банка данных;
• улучшить управление при помощи автоматизации наиболее трудоемких его процедур;
• снизить расходы на ведение дел за счет автоматизации процессов обработки информации, регламентации и упрощения доступа сотрудников компании к нужной информации. Изменить характер труда сотрудников, избавляя их от выполнения рутинной работы;
• обеспечить надежный учет и контроль за продажей продукции;
• руководителям анализировать деятельность своего подразделения и оперативно получать сводные и аналитические отчеты.
Объект: объектом является деятельность ООО «Евросеть-Ретейл», вид деятельности – продажа сотовых телефонов и аксессуаров.
Предмет: предметной областью дипломного проекта яв автоматизированная информационная система управления продажами.
Цель целью дипломного проекта является проектирование реализации операций бизнес-процесса «Продажи».
Аналитическая часть
Выбор комплекса задач
В сегодняшнем бизнесе смогли выжить только те компании, которые провели серьезные реформы в системе управления, сделав ее современной и эффективной. Недостатки и упущения в системе управления нынешнего предприятия — малого, среднего или большого — оборачиваются моментальным уменьшением его доли на рынке, неизбежным отставанием в конкурентной борьбе.
Процесс обеспечения продаж товаров в компании (рис. 1.1)
Рисунок 1.1 - Бизнес процесс продажи товаров.
Управление продажами ведется директором и продавцами салона, оперативный и количественно-суммовой расчет производится в отделе продаж, взаимосвязь этих подсистем представлена на рис. 1.2.
Рисунок 1.2 – Обобщенная модель управления продажами на предприятии
В ООО «Евросеть-Ретейл» автоматизирован учет поступления и продажи товаров, учет расчетов с поставщиками и покупателями, учет заработной платы, операций по расчетному счету, количественно-суммовой учет. В общем объеме учетных работ эти задачи имеют значительный удельный вес. Их автоматизация позволяет сократить ручные операции, ускорить обработку информации, повысить точность учета.
Исходной информацией для управления являются учетные первичные документы. При ручном учете, а также частичной автоматизации обработки информации каждое подразделение предприятия (бухгалтерия, отдел закупок и продаж и др.) для выполнения возложенных на них функций вводит в ЭВМ по существу одни и те же данные из первичных документов, на основе которых составляются отчетные и другие выходные документы бухгалтерского, оперативного и статистического учета. Создание в каждом подразделении своей собственной информационной базы приводит к многократному дублированию информации, увеличению времени и стоимости ее обработки.
Недостатком существующей технологии является то, что бухгалтерия имеет свою базу данных, а отдел закупок и сбыта, отдел выписки и касса – свою. Это приводит к частичному дублированию информации.
Избежать данного недостатка позволило бы объединение компьютеров в локальную вычислительную сеть и обмен данными между бухгалтерией и отделом продаж. Создание такой интегрированной системы обработки учетных данных почти полностью исключает дублирование информации. Такая система предполагает однократный ввод в ЭВМ первичных данных и комплексное использование для автоматизации бухгалтерского, оперативного, статистического учета и решения других задач АСУ предприятием.
Автоматизация управления торговыми процессами в ООО "Евросеть-Ретейл» повышает его оперативность и эффективность, улучшает товароснабжение розничной торговой сети.
Управление торговыми процессами в ООО "Евросеть-Ретейл» филиал основывается на информации, отражающей объем, структуру и динамику поступления, продажи и запасов товара. Движение информации между ООО "Евросеть-Ретейл» филиал и внешней средой (поставщиками, покупателями) осуществляется в форме потоков информации. По отношению к оптовому предприятию различают входные, внутренние и выходные потоки информации (входную, внутреннюю и выходную информацию). От рациональной организации потоков информации оптового предприятия, способов сбора, регистрации, передачи, хранения и обработки информации, ее состава и своевременного получения зависят оперативность и эффективность управления торговыми процессами.
Основной единицей информации в системе является документ. Существует несколько видов документов: накладная, приходный ордер, счет, акт на списание, платеж и др. Вся остальная информация (например, состояние склада на текущий момент, состояние расчетных счетов, баланс с контрагентами) может быть вычислена на основе этих основных файлов базы данных, изменить ее можно только путем ввода или редактирования необходимого документа.
Все документы хранятся в базе данных системы. Кроме того, в базу данных «1С: Предприятие 8. Управление торговлей» входят справочники, содержащие вспомогательную информацию об объектах, с которыми работает система: справочники товаров, поставщиков и покупателей, складов, расчетных счетов и валют.
Структура системы и варианты поставки.
Система реализуется только в однопользовательском варианте и состоит из следующих модулей:
• Анализ товародвижения.
• Анализ работы с покупателями.
• Финансовый калькулятор директора.
• Загрузка данных из файлов.
Основные возможности системы по анализу и построению прогнозов.
Анализ основных показателей хозяйственной деятельности
Система представляет в графическом виде следующие параметры хозяйственной деятельности:
• выручка от продажи на каждый день учетного периода;
Система также может представлять их в разрезе товара, товарной группы, покупателя, точки продажи.
• остаток товара на складе на каждый день учетного периода;
• диаграммы распределения выручки и прибыли по отдельным магазинам за учетный период.
Графическая оценка ситуации
Синхронизация работы подразделений
Упрощение работы менеджеров
Новый уровень контроля над работой менеджеров со стороны руководства
Организация быстрого анализа процесса обслуживания продаж
Снижение рисков связанных с недопоставками продукции
Рисунок 1.3 - Преимущества АИС управление продажами
Узконаправленность разрабатываемой системы является ее характерным преимуществом, так как соединяет в себе понятный и простой интерфейс и функциональную наполненность. Все это позволяет значительно облегчить работу менеджеров предприятия.
Информационно система предназначена для автоматизации деятельности управления продаж службы коммерческого предприятия ООО «Евросеть-Ретейл».
Система позволяет организовывать сбор текстовой информации из открытых источников (электронные СМИ, аналитические отчеты экспертов), осуществлять их автоматизированную обработку, эффективное хранение, проведение анализа и генерацию отчетов.
Информационно-аналитическая система представляет собой программный комплекс, включающий в себя программные компоненты, работающие на сервере и клиентских рабочих местах.
Задачи решаемые в процессе разработки информационно аналитической системы обслуживания Интернет - заказов:
1)Создание документального архива с функциями поиска информации, обеспечивающей повышение качества и скорости работы аналитика;
2)Предоставление актуальной информации для повышения эффективности деятельности аналитика при решении аналитических задач;
3)Автоматизация процесса подготовки отчетов и аналитических записок для руководства.
4)Осуществление графической оценки ситуации;
5)Обновление промежуточной информации в процессе работы системы.
Характеристика существующих бизнес –процессов
Рисунок 1.4 - Диаграмма взаимодействия
Рисунок 1.5 - Декомпозиция процесса загрузки системы
Рисунок 1.6 - Комплекс задач системы
Рисунок 1.7 - Процесс формирования отчётов
Определение, характеристика документооборота, возникающего при решении задачи
В настоящее время ИС и остальные связанные с ним действия производятся менеджером без использования каких-либо средств автоматизации, то есть отчет заполняется вручную, что влечет за собой частое возникновение ошибок [2].
В связи с обнаруженными недостатками в работе, в частности при учете, руководством принято решение об автоматизации процессов риэлтэрского агенства.
Как ожидается, в этом случае затрачиваемое работником время на подготовку отчетов значительно снизится за счет того, что он будет формироваться автоматически.
Сравнение основных операций при приеме заказа без применения средств автоматизации и в предлагаемом варианте по трудовым и стоимостным затратам приведено в таблице 1.1 и таблице 1.2.(с учетом средней заработной платы менеджера 25000 в месяц).
Таблица 1.1
Временные и стоимостные затраты при существующем варианте
|
Наименование операции |
Количество, в рабочий день |
Затрачиваемое время на одну, мин |
Итого в рабочий день, минут |
Стоимостная оценка, рублей |
|
Сбор данных |
4 |
10 |
40 |
99,2 |
|
Проверка данных |
4 |
30 |
120 |
297,6 |
|
Формирование отчетов |
8 |
40 |
320 |
793,6 |
|
Учет отчета |
4 |
15 |
60 |
148,8 |
|
Итого: |
540 |
1339,2 |
Таблица 1.2
Временные и стоимостные затрат при планируемом варианте
|
Наименование операции |
Количество, в рабочий день |
Затрачиваемое время на одну, мин |
Итого в рабочий день, минут |
Стоимостная оценка, рублей |
|
Сбор данных |
4 |
1 |
4 |
9,92 |
|
Проверка данных |
4 |
1 |
4 |
9,92 |
|
Формирование отчетов |
4 |
10 |
40 |
99,2 |
|
Учет отчета |
4 |
10 |
40 |
99,2 |
|
Итого: |
88 |
218,24 |
Как видно из приведенных выше таблиц, временные затраты должны сократиться на 540-88=452 минуты=7, 5 часов и 1339-218=1121 рубль в сутки. Следовательно, внедрение такой системы является однозначно выгодным с точки зрения оптимизации расхода трудовых и стоимостных ресурсов.
Обоснование проектных решений по информационному обеспечению
В проектируемой задаче использовались следующие общероссийские классификаторы:
ОКУД - Общероссийский классификатор управленческой документации;
ОКОПФ - Общероссийский классификатор организационно-правовых форм [4].
При разработке системы должна использоваться реляционная модель базы данных. Реляционная модель данных некоторой предметной области представляет собой набор отношений изменяющихся во времени. При создании информационной системы совокупность отношений позволяет хранить данные об объектах предметной области, моделировать связи между ними. При этом сами данные хранятся в таблицах [6]. Для удобства идентификации каждая таблица созданной базы данных обладает уникальным кодом.
В разрабатываемой информационной системе должно быть реализовано ведение классификаторов и справочников.
Обоснование проектных решений по программному обеспечению
Для разработки данной системы были выбраны те инструментальные средства, которые обеспечивают решение задач с помощью определённых алгоритмов, выполняемых на основе языка программирования Object Pascal. Средством создания программной оболочки системы была выбрана среда визуального программирования Delphi.
Delphi – это среда разработки программ, ориентированных на работу в Windows. В основе идеологии Delphi лежат технология визуального проектирования и методология объектно-ориентированного программирования. Для реализации программ в Delphi используется разработанный компанией Borland язык Object Pascal, поддерживающий концепцию объектно-ориентированного программирования, в основе которого лежит ставший классическим язык Turbo Pascal.
Выбор такого инструментального средства как Delphi не носит случайного характера, так как Delphi - это комбинация нескольких важнейших технологий:
- Высокопроизводительный компилятор в машинный код;
- Объектно-ориентированная модель компонент;
- Визуальное (следовательно, и скоростное) построение приложений из программных прототипов;
- Масштабируемые средства для построения баз данных.
Для обеспечения корректной работе системы необходимо наличие на компьютере пользователя установленного программного продукта Borland – Database Engine. Borland Database Engine обеспечивает корректную работу системы с базами данных: выполняет обработку и запись данных в БД, позволяет осуществлять запросы по определённым критериям. C++ Builder – «превосходный инструмент, с помощью которого и начинающий пользователь, и программист-профессионал могут создавать одинаково профессионально выглядящий интерфейс пользователя к прикладным программам самых различных классов. Кроме того, C++Builder позволяет работать с любыми базами данных, создавать прикладные программы для Интернет и многое-многое другое. Так что недаром эта система пользуется широкой популярностью. Язык программирования С++ является универсальным языком программирования, в поддержку ему служит большое количество подключаемых библиотек, которые делают решаемой почти любую задачу. Не смотря на это C++ Builder уступает по популярности Delphi, выпущенной той же компанией Borland. Однако популярность С++ растет с каждым годом.
C++ Builder может быть использован везде, где требуется дополнить существующие приложения расширенным стандартом языка C++, повысить быстродействие и придать пользовательскому интерфейсу качества профессионального уровня. Язык программирования С++ является универсальным языком программирования, в дополнение к которому разработан набор разнообразных библиотек. Поэтому, строго говоря, он позволяет решить практически любую задачу программирования. Поскольку системное программное обеспечение часто бывает написано на языке Си или С++, то и программные интерфейсы к подсистемам ОС тоже часто пишут на С++. Обработка сложных структур данных – текста, бизнес-информации, Internet-страниц и тому подобное – одна из наиболее распространенных возможностей применения языка. В настоящее время язык С++ очень широко используется во всём мире.
Опыт применения ЭВМ для построения прикладных систем обработки данных показывает, что самым эффективным инструментом здесь являются не универсальные алгоритмические языки высокого уровня, а специализированные языки для создания систем управления данными. Такие средства обычно включаются в состав СУБД, но они могут существовать и отдельно. СУБД дают возможность пользователям осуществлять непосредственное управление данными, а программистам быстро разрабатывать более совершенные программные средства их обработки. Характеристики готовых прикладных пакетов определяются прежде всего принятой в СУБД организацией данных и типом используемого транслятора.
По способу установления связей между данными различают: - реляционную - иерархическую - сетевую модели.
Реляционная модель является простейшей и наиболее привычной формой представления данных в виде таблицы. В теории множеств таблице соответствует термин отношение (relation), который и дал название модели.
Достоинством реляционной модели является сравнительная простота инструментальных средств ее поддержки, недостатком - жесткость структуры данных (невозможность, например, задания строк таблицы произвольной длины) и зависимость скорости ее работы от размера базы данных. Для многих операций, определенных в такой модели, может оказаться необходимым просмотр всей базы.
Иерархическая и сетевая модели предполагают наличие связей между данными, имеющими какой-либо общий признак. В иерархической модели такие связи могут быть отражены в виде дерева-графа, где возможны только односторонние связи от старших вершин к младшим. Это облегчает доступ к необходимой информации, но только если все возможные запросы отражены в структуре дерева. Никакие иные запросы удовлетворены быть не могут.
Указанный недостаток снят в сетевой модели, где, по крайней мере теоретически, возможны связи "всех со всеми". Поскольку на практике это, естественно, невозможно, приходится прибегать к некоторым ограничениям. Использование иерархической и сетевой моделей ускоряет доступ к информации в базе данных. Но поскольку каждый элемент данных должен содержать ссылки на некоторые другие элементы, требуются значительные ресурсы как дисковой, так и основной памяти ЭВМ. Недостаток основной памяти, конечно, снижает скорость обработки данных. Кроме того, для таких моделей характерна сложность реализации СУБД.
Хотя известны попытки создания СУБД, поддерживающих сетевую модель для персональных компьютеров, в настоящее время реляционные системы лучше соответствуют их техническим возможностям и вполне удовлетворяют большинство пользователей. Скоростные характеристики этих СУБД поддерживаются специальными средствами ускоренного доступа к информации индексированием баз данных.
В наиболее полном варианте СУБД должна содержать следующие составные части:
-Среда пользователя, дающая возможность непосредственного управления данными с клавиатуры.
- Алгоритмический язык для программирования прикладных систем обработки данных, реализованный как интерпретатор. Последнее позволяет быстро создавать и отлаживать программы.
- Компилятор для придания завершенной программе вида готового коммерческого продукта в форме независимого ЕХЕ-файла.
- Программы-утилиты быстрого программирования рутинных операций (генераторы отчетов, экранов, меню и других приложений).
Собственно СУБД - это оболочка пользователя. Ввиду того, что такая среда ориентирована на немедленное удовлетворение его запросов, это всегда система-интерпретатор.
Наличие в СУБД языка программирования позволяет создавать сложные системы обработки данных, ориентированные под конкретные задачи и даже под конкретного пользователя. Есть также СУБД, которые имеют только язык и не имеют оболочки пользователя. Они предназначены исключительно для программистов, и это системы компилирующего типа. Такие пакеты лишь с оговорками могут быть названы СУБД. Обычно их называют просто компиляторами.
Предложено использовать «Microsoft ACCESS» для разработки АИС риэлтэрского агенства– это функционально полная реляционная СУБД. Система управления базами данных Microsoft ACCESS является одним из самых популярных приложений в семействе настольных СУБД. Все версии ACCESS имеют в своем арсенале средства, значительно упрощающие ввод и обработку данных, поиск данных и предоставление информации в виде таблиц, графиков и отчетов. Встроенная функция SQL позволяет легко и быстро создавать запросы. Именно благодаря этим преимуществам наш выбор остановился на данной базе данных.
Проектная часть
Информационная модель и её описание
Графическое представление информационной модели отражено на рис. 2.1.
Рисунок 2.1 - Информационная модель системы учета продаж
Характеристика нормативно-справочной, входной и оперативной информации
Таблица 2.1
Сотрудники
|
Сотрудники |
|||
|
Код |
Ф.И.О. |
Адрес |
Телефон |
|
1 |
Белый В.И |
6 мкр д2 кв83 |
89125753580 |
|
2 |
Иванов И.В |
5 мкр д22 |
89511235442 |
Таблица 2.2
Клиенты
|
Клиенты |
||||
|
Код |
Ф.И.О. |
Адрес |
Телефон |
Паспортные данные |
|
2 |
Макаров С.А |
5 мкр |
8365131318 |
323221 |
Таблица 2.3
Журнал
|
Журнал |
||||
|
Код |
Ф.И.О. |
Клиент |
Телефон |
Цена |
|
1 |
Белый В.И |
Иванов И.И |
Asus s50 |
7300 |
Таблица 2.4
Телефоны
|
№п/п |
Название |
Описание |
Цена |
|
1 |
Alcatel OneTouch 918D |
3600 |
|
|
2 |
Apple iPhone 5 16Gb |
23000 |
|
|
3 |
ASUS PadFone 2 64Gb |
41100 |
|
|
4 |
BlackBerry Bold 9900 |
41100 |
|
|
5 |
Explay |
625 |
|
|
6 |
Fly GF5000 |
2500 |
|
|
7 |
HTC 5544 |
5560 |
Характеристика результатной информации
В ходе деятельности разработанной системы следующие выходные документы:
- отчеты
Характеристика базы данных
Автоматизированную информационную систему можно представить в виде ER-диаграммы (Рисунок 2.2) и схемы данных (Рисунок 2.3).
Рисунок 2.2
Рисунок 2.3 - Схема данных
Связи для того чтобы связать нужные поля таблиц, чтобы в последующим создать поиск, автоматизацию, если нужно создать отчеты по нужным критериям.
Общие положения (дерево функций и сценарий диалога)
Основным действующим лицом в разработанной системе является сотрудник отдела продаж и заукпок. Дерево функций для пользователя представлено на рисунке 2.4.
Рисунок 2.4 - Дерево функций системы сотрудника
Сценарии диалога, формирующийся на основе дерева функций, приведен на рисунке 2.5.
Рисунок 2.5 - Сценарий диалога для пользователя
Структурная схема пакета (дерево вызова программных модулей)
Рисунок 2.6 - Структурная схема пакета
Работа с программой начинается с выбора пользователя и вывода информационного окна и активизации системы меню.
Работа программы осуществляется по диалоговому и событийному режиму, при этом по диалогом понимается предоставление пользователю нескольких альтернатив и обработка его выбора. В диалоговую систему входят главное меню с соответствующими всплывающими подменю а также диалоговые окна. Под событиями понимаются процессы активизируемые пользователем (например – нажатие функциональных клавиш), а также программные события – получение определенным полем фокуса редактирование или потеря фокуса ввода. На основании данных событий активизируются процедуры контроля допустимости данных.
Программа состоит из следующих основных модулей.
Глобальный модуль - конфигурация среды окружения, формирование основного экрана программы, создание системы главного меню и соответствующих подменю, активизация меню.
Процедуры формирования отчетов – обеспечение выдачи установленных форм документов на основании критериев, определяемых пользователем и информационной базы.
Модуль справочников и модуль документов - обеспечение ввода информации с первичных документов в базы данных, контроль за допустимостью значений, обеспечение ввода данных путем выбора из списка.
Все модули в программе связаны между собой по данным, которые анализируются на входе и вырабатываются на выходе. Данные в модули поступают через диалог с пользователем, параметры и документы информационной базы.
Для ведения информационной базы могут быть выполнены операции просмотра и печати документов, их редактирование, ведение нормативно-справочных документов, а также создание архивов и восстановление документов БД. Операции осуществляются путем выбора соответствующих пунктов в главном и подчиненных меню.
Данные через диалог могут быть получены прямым и косвенным способом. Прямой способ реализуется путем их ввода по шаблону или по запросу конкретных значений. Косвенный способ – путем меню.
Параметры (входные документы ) – входные данные, полученные в виде конкретных значений, переданных в оперативной памяти смежным модулям (функциям ).
Контрольный пример реализации проекта и его описание
Данный программный продукт предназначен для автоматизации информации, формирования выходных документов. Система предназначена для непрерывного функционирования в течение всего рабочего дня.
При запуске программы появляется диалоговое окно, в котором расположено окно ввода пароля (Рисунок 2.7).
Рисунок 2.7 – Окно ввода пароля
После того как ввели пароль, можно будет увидеть главную форму. На главной форме помещены все необходимые вкладки, как для внесения данных, так и для формирования подсчётов и отчётов (Рисунок 2.8).
Рисунок 2.8 - Главная форма
Рисунок 2.9 - Журнал продаж
Рисунок 2.10 - Чек
Рисунок 2.11 - Клиенты
Рисунок 2.12 - Телефоны
Рисунок 2.13 - Сотрудники
Заключение
В начале проекта была поставлена цель: разработка АИС «Продажа сотовых телефонов» и задачи, которые были полностью реализованы:
– выработана структура базы данных;
– автоматизирован процесс;
– отредактированы данные;
– реализован поиск;
– разработана печатная форма.
В данном курсовом проекте для автоматизации выбрана предметная область «Продажа сотовых телефонов».
Разрабатываемая информационная система предназначена для продажи сотовых телефонов. Исходя из собственного представления системы, составим ряд приблизительных требований к ней:
– система предназначена для ввода, хранения и обработки информации о транспорте газа;
– необходим журнал учета;
– необходим справочник содержащий информацию о сотрудниках, содержащий Ф.И.О. сотрудника, должность.
Список использованной литературы
- ГОСТ Р ИСО/МЭК 12207/99. Государственный стандарт РФ. Информационная технология. Процессы жизненного цикла информационных систем. Издание официальное. - М., 1999
- Схемы алгоритмов, программ, данных и систем. Условные обозначения и правила выполнения. ГОСТ 19.701-90 (ИСО 5807-85) / Государственный комитет СССР по управлению качеством продукции и стандартам, 01.01.1992.
- Автоматизированные информационные системы, базы и банки данных. Вводный курс: Учебное пособие, М.: Гелиос АРВ, 2007. - 368 с., ил
- Астелс, Дэвид; Миллер Гранвилл; Новак, Мирослав, Практическое руководство по экстремальному программированию, Пер. с англ. - М.: Издательский дом "Вильямс", 2008. - 320 с.: ил. - Парал. тит. англ
- Баженова И. Ю. , Основы проектирования приложений баз данных, Издательства: Бином. Лаборатория знаний, Интернет-университет информационных технологий, 2008 г., , 328 стр.
- Вендров А.М., CASE-технологии. Современные методы и средства проектирования информационных систем - М.: Финансы и статистика, 2007 г, 456 стр.
- Вигерс Карл, Разработка требований к программному обеспечению, Пер, с англ. - М.:Издательско-торговый дом "Русская Редакция", 2008. -576с.: ил
- Гашков С. Б., Э. А. Применко, М. А. Черепнев Криптографические методы защиты информации, М, Издательство: Академия, 2010 г., 304 стр.
- Гвоздева Т. В., Б. А. Баллод, Проектирование информационных систем, М, Издательство: Феникс, 2009 г., 512 стр.
- Голицына О. Л., И. И. Попов, Н. В. Максимов, Т. Л. Партыка, Информационные технологии, М, Издательство Инфра-М, 2009 г., 608 стр.
- Дейв Крейн, Эрик Паскарелло, Даррен Джеймс. AJAX в действии: Учебник – М.: Вильямс, 2007. 450 – 490 с.
- Дэвид Флэнаган. JavaScript. Подробное руководство: Учебник – М.: Символ Плюс, 2008. 243 – 249 с.
- Емельянова Н. З., Партыка Т. Л., И. И. Попов, Проектирование информационных систем, М, Издательство: Форум, 2009 г., 432 стр.
- Емельянова Н. З., Т. Л. Партыка, И. И. Попов, М, Издательство Форум, 2007 г., , 416 стр.
- Илюшечкин В. М. , Основы использования и проектирования баз данных, М, Издательство Юрайт, 2010 г., 224 стр.
- Котляров В. П., Т. В. Коликова, Основы тестирования программного обеспечения, Издательства: Интернет-университет информационных технологий, Бином. Лаборатория знаний, 2009 г., 288 стр.
- Кристиан Дари, Богдан Бринзаре, Филип Черчез-Тоза, Михай Бусика. AJAX и PHP. Разработка динамических веб-приложений: Учебник – М.: Символ Плюс, 2007, 289 стр.
- Кузин А. В., С. В. Левонисова, Базы данных, М, Издательство: Академия, 2008 г., 320 стр.
- Кузнецов С. Д., Основы баз данных, М, Издательства: Бином. Лаборатория знаний, Интернет-университет информационных технологий, 2007 г., 488 стр.
- Молчанов А. Ю., Системное программное обеспечение, М, Издательство: Питер, 2010 г., 400 стр.
- Незнанов А. А., Программирование и алгоритмизация, М, Издательство: Академия, 2010 г., 304 стр.
- Пирогов В. Ю., Информационные системы и базы данных. М, Организация и проектирование, Издательство: БХВ-Петербург, 2009 г.528 стр.
- Предметно-ориентированные экономические информационные системы, М, Издательство: Финансы и статистика, 2007 г., 224 стр.
- Реляционные базы данных: практические приемы оптимальных решений. – СПб.: БХВ-Петербург, 2009 – 400с.:ил;
- Симионов Ю.Ф., Боромотов В.В. Информационный менеджмент. — Ростов н.Д: Феникс, 2008, 250с., ил.;
- Чипига А. Ф., Информационная безопасность автоматизированных систем, М, Издательство: Гелиос АРВ, 2010 г., 336 стр.
Приложение А – Листинг программы
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <ComCtrls.hpp>
#include <DBCtrls.hpp>
#include <Dialogs.hpp>
#include <Mask.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TFormComputerTehnika : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TBooleanField *ADODataSetComputerTehnikaProdan;
TGroupBox *GroupBox1;
TLabel *Label1;
TDBEdit *DBEditName;
TLabel *Label2;
TDBEdit *DBEditCena;
TLabel *Label3;
TDateTimePicker *DateTimePickerDataPostup;
TLabel *Label4;
TDBMemo *DBMemoOpisanie;
TLabel *Label5;
TDBLookupComboBox *DBLookupComboBoxVidTehniki;
TButton *ButtonFoto;
TDBImage *DBImageFoto;
TOpenDialog *OpenDialogFoto;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
void __fastcall ButtonFotoClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormComputerTehnika(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormComputerTehnika *FormComputerTehnika;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DiagrammaOkladH
#define DiagrammaOkladH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <Chart.hpp>
#include <DB.hpp>
#include <DbChart.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
#include <Series.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormDiagrammaOklad : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridManager;
TADODataSet *ADODataSetManager;
TDataSource *DataSourceManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
TDBChart *DBChartManager;
TPieSeries *Series1;
TStringField *ADODataSetManagerFIO2;
TButton *ButtonExit;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
void __fastcall FormShow(TObject *Sender);
void __fastcall ADODataSetManagerCalcFields(TDataSet *DataSet);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormDiagrammaOklad(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormDiagrammaOklad *FormDiagrammaOklad;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DMH
#define DMH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
//---------------------------------------------------------------------------
class TDM1 : public TDataModule
{
__published: // IDE-managed Components
TADOConnection *ADOConnection1;
private: // User declarations
public: // User declarations
__fastcall TDM1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TDM1 *DM1;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DolgnostH
#define DolgnostH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Mask.hpp>
//---------------------------------------------------------------------------
class TFormDolgnost : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridDolgnost;
TADODataSet *ADODataSetDolgnost;
TDataSource *DataSourceDolgnost;
TAutoIncField *ADODataSetDolgnostCod;
TWideStringField *ADODataSetDolgnostName;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetManager;
TGroupBox *GroupBox1;
TDBEdit *DBEditName;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall DBEditNameKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormDolgnost(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormDolgnost *FormDolgnost;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef MainAISH
#define MainAISH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include <ExtCtrls.hpp>
#include <jpeg.hpp>
//---------------------------------------------------------------------------
class TFormMainAIS : public TForm
{
__published: // IDE-managed Components
TMainMenu *MainMenu1;
TMenuItem *N1;
TMenuItem *N2;
TMenuItem *N3;
TMenuItem *N4;
TMenuItem *N5;
TMenuItem *N6;
TMenuItem *N7;
TMenuItem *N8;
TPopupMenu *PopupMenu1;
TMenuItem *N9;
TMenuItem *N10;
TMenuItem *N12;
TMenuItem *N13;
TMenuItem *N14;
TMenuItem *N11;
TMenuItem *N15;
TImage *Image1;
void __fastcall N8Click(TObject *Sender);
void __fastcall N4Click(TObject *Sender);
void __fastcall N5Click(TObject *Sender);
void __fastcall N3Click(TObject *Sender);
void __fastcall N6Click(TObject *Sender);
void __fastcall N9Click(TObject *Sender);
void __fastcall N10Click(TObject *Sender);
void __fastcall N12Click(TObject *Sender);
void __fastcall N13Click(TObject *Sender);
void __fastcall N14Click(TObject *Sender);
void __fastcall N11Click(TObject *Sender);
void __fastcall N15Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormMainAIS(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormMainAIS *FormMainAIS;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef MainComputerH
#define MainComputerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <Buttons.hpp>
//---------------------------------------------------------------------------
class TFormVxod : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TComboBox *ComboBoxManager;
TLabel *Label2;
TEdit *EditPassword;
TBitBtn *BitBtnExit;
TButton *ButtonVxod;
TADODataSet *ADODataSetManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
void __fastcall FormShow(TObject *Sender);
void __fastcall BitBtnExitClick(TObject *Sender);
void __fastcall ButtonVxodClick(TObject *Sender);
void __fastcall EditPasswordKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormVxod(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVxod *FormVxod;
extern int TekManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ManagerH
#define ManagerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <ComCtrls.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <Mask.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormManager : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridFormManager;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
TADODataSet *ADODataSetDolgnost;
TAutoIncField *ADODataSetDolgnostCod;
TWideStringField *ADODataSetDolgnostName;
TStringField *ADODataSetManagerNameDolgnost;
TGroupBox *GroupBox1;
TLabel *Label1;
TDBEdit *DBEditFIO;
TLabel *Label2;
TDBLookupComboBox *DBLookupComboBoxDolgnost;
TDataSource *DataSourceDolgnost;
TLabel *Label3;
TDBEdit *DBEditOklad;
TLabel *Label4;
TDBEdit *DBEditPasport;
TLabel *Label5;
TDBEdit *DBEditPassword;
TLabel *Label6;
TDateTimePicker *DateTimePicker1;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormManager(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormManager *FormManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef OtchetManagerH
#define OtchetManagerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormOtchetManager : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridManager;
TADODataSet *ADODataSetManager;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetDolgnost;
TDataSource *DataSourceDolgnost;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TADODataSet *ADODataSetHistory;
TDataSource *DataSourceHistory;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TButton *ButtonExit;
void __fastcall FormShow(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormOtchetManager(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormOtchetManager *FormOtchetManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ProdanoH
#define ProdanoH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormProdano : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDBImage *DBImageFoto;
TDBMemo *DBMemoOpisanie;
TButton *ButtonExit;
TButton *ButtonPrint;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
TDataSource *DataSourceHistory;
TADODataSet *ADODataSetHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TDateField *ADODataSetComputerTehnikaDataProdazhi;
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonPrintClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormProdano(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormProdano *FormProdano;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ProdazhaH
#define ProdazhaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormProdazha : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TDateTimePicker *DateTimePickerDataProdazhi;
TGroupBox *GroupBox1;
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TButton *ButtonProdat;
TGroupBox *GroupBoxOpisanie;
TDBMemo *DBMemoOpisanie;
TDBImage *DBImageFoto;
TButton *ButtonExit;
TADODataSet *ADODataSetHistory;
TDataSource *DataSourceHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall FormShow(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall ButtonProdatClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormProdazha(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormProdazha *FormProdazha;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef SpravkaH
#define SpravkaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TFormSpravka : public TForm
{
__published: // IDE-managed Components
TMemo *MemoSpravka;
TMemo *Memo1;
TButton *ButtonExit;
void __fastcall ButtonExitClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormSpravka(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormSpravka *FormSpravka;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef UnitReportH
#define UnitReportH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//---------------------------------------------------------------------------
class TFormReport : public TForm
{
__published: // IDE-managed Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
void __fastcall QuickRep1AfterPreview(TObject *Sender);
void __fastcall FormActivate(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormReport *FormReport;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef UnitReport2H
#define UnitReport2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//---------------------------------------------------------------------------
class TFormReport2 : public TForm
{
__published: // IDE-managed Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDataSource *DataSourceHistory;
TADODataSet *ADODataSetHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TDateField *ADODataSetComputerTehnikaDataProdazhi;
void __fastcall QuickRep1AfterPreview(TObject *Sender);
void __fastcall FormActivate(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport2(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormReport2 *FormReport2;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef VidTehnikiH
#define VidTehnikiH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Mask.hpp>
//---------------------------------------------------------------------------
class TFormVidTehniki : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetComputerTehnika;
TGroupBox *GroupBox1;
TDBEdit *DBEditName;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TBooleanField *ADODataSetComputerTehnikaProdan;
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall DBEditNameKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormVidTehniki(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVidTehniki *FormVidTehniki;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef VnalichiiH
#define VnalichiiH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormVnalichii : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDBImage *DBImageFoto;
TDBMemo *DBMemoOpisanie;
TButton *ButtonExit;
TButton *ButtonPrint;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonPrintClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormVnalichii(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVnalichii *FormVnalichii;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ComputerTehnika.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormComputerTehnika *FormComputerTehnika;
//---------------------------------------------------------------------------
__fastcall TFormComputerTehnika::TFormComputerTehnika(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormComputerTehnika::ButtonFotoClick(TObject *Sender)
{ char *s;
OpenDialogFoto->InitialDir= ExtractFileDir(Application->ExeName);
if(OpenDialogFoto->Execute()==true) //вызов диалога выбора файла
{DBImageFoto->Visible=true;
s= OpenDialogFoto->FileName.c_str(); //получить наименование выбранного файла с полным путем
DBImageFoto->Picture->LoadFromFile(s);
}
else
{if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TFormComputerTehnika::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormComputerTehnika::ButtonAddClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->State==dsBrowse)
{ADODataSetComputerTehnika->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DateTimePickerDataPostup->Date= Date();
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormComputerTehnika::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->RecordCount==0) //есть ли данные в БД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи
!","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
ADODataSetComputerTehnika->Delete();//удалить запись из таблицы БД
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormComputerTehnika::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
ADODataSetComputerTehnika->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DateTimePickerDataPostup->Date= ADODataSetComputerTehnikaDataPostup->Value;
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormComputerTehnika::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormComputerTehnika::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditName->Text=="" )//проверка введенных данных
{ShowMessage("Введите название !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditCena->Text=="" )//проверка введенных данных
{ShowMessage("Введите цену !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBMemoOpisanie->Text=="" )//проверка введенных данных
{ShowMessage("Введите описание !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(ADODataSetComputerTehnikaCodVidTehniki->Value==0 )//проверка введенных данных
{ShowMessage("Введите вид товара!");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetComputerTehnikaDataPostup->Value= DateTimePickerDataPostup->Date;
ADODataSetComputerTehnika->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormComputerTehnika::ButtonOtmenClick(TObject *Sender)
{
ADODataSetComputerTehnika->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DiagrammaOklad.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormDiagrammaOklad *FormDiagrammaOklad;
//---------------------------------------------------------------------------
__fastcall TFormDiagrammaOklad::TFormDiagrammaOklad(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::FormShow(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::ADODataSetManagerCalcFields(
TDataSet *DataSet)
{
ADODataSetManagerFIO2->Value= ADODataSetManagerFIO->Value;
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDM1 *DM1;
//---------------------------------------------------------------------------
__fastcall TDM1::TDM1(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Dolgnost.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormDolgnost *FormDolgnost;
//---------------------------------------------------------------------------
__fastcall TFormDolgnost::TFormDolgnost(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormDolgnost::ButtonAddClick(TObject *Sender)
{
if(ADODataSetDolgnost->State==dsBrowse)
{ADODataSetDolgnost->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormDolgnost::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetDolgnost->RecordCount==0) //есть ли данные в БД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetDolgnost->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{ADODataSetManager->Close();
ADODataSetManager->CommandText= "select * from TablManager where CodDolgnost="+IntToStr(ADODataSetDolgnostCod->Value);
ADODataSetManager->Open();
if(ADODataSetManager->RecordCount>0)
{ShowMessage("Ошибка при удалении! В таблице 'TablManager' имеются связанные записи!"); //вывести сообщение в виде окошка
return;//выход из процедуры
}
ADODataSetDolgnost->Delete();//удалить запись из таблицы БД
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormDolgnost::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetDolgnost->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetDolgnost->State==dsBrowse)
ADODataSetDolgnost->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormDolgnost::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormDolgnost::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditName->Text=="" )//проверка введенных данных
{ShowMessage("Введите название!");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetDolgnost->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormDolgnost::ButtonOtmenClick(TObject *Sender)
{
ADODataSetDolgnost->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
void __fastcall TFormDolgnost::FormShow(TObject *Sender)
{
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
ADODataSetManager->Close();
ADODataSetManager->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormDolgnost::DBEditNameKeyPress(TObject *Sender,
char &Key)
{
if(Key==13)
ButtonPostClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MainAIS.h"
#include "Dolgnost.h"
#include "VidTehniki.h"
#include "Manager.h"
#include "ComputerTehnika.h"
#include "Prodazha.h"
#include "Vnalichii.h"
#include "Prodano.h"
#include "OtchetManager.h"
#include "DiagrammaOklad.h"
#include "Spravka.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMainAIS *FormMainAIS;
//---------------------------------------------------------------------------
__fastcall TFormMainAIS::TFormMainAIS(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N8Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N4Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormDolgnost), &FormDolgnost);
FormDolgnost->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N5Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormVidTehniki), &FormVidTehniki);
FormVidTehniki->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N3Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormManager), &FormManager);
FormManager->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N6Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormComputerTehnika), &FormComputerTehnika);
FormComputerTehnika->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N9Click(TObject *Sender)
{
N8Click(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N10Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormProdazha), &FormProdazha);
FormProdazha->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N12Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormVnalichii), &FormVnalichii);
FormVnalichii->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N13Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormProdano), &FormProdano);
FormProdano->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N14Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormOtchetManager), &FormOtchetManager);
FormOtchetManager->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N11Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormDiagrammaOklad), &FormDiagrammaOklad);
FormDiagrammaOklad->ShowModal();
}
//---------------------------------------------------------------------------
//Вызов справки
void __fastcall TFormMainAIS::N15Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormSpravka), &FormSpravka);
FormSpravka->ShowModal();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MainComputer.h"
#include "DM.h"
#include "MainAIS.h"
#include "string.h"
#include "stdio.h"
#include <algorithm>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormVxod *FormVxod;
int TekManager;
//---------------------------------------------------------------------------
__fastcall TFormVxod::TFormVxod(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::FormShow(TObject *Sender)
{
ComboBoxManager->Clear();
ADODataSetManager->Close();
ADODataSetManager->Open();
ADODataSetManager->First();
while(!ADODataSetManager->Eof)
{ComboBoxManager->Items->Add(ADODataSetManagerFIO->Value);
ADODataSetManager->Next();
}
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::BitBtnExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::ButtonVxodClick(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->CommandText= "select * from TablManager where FIO="+QuotedStr(ComboBoxManager->Text);
ADODataSetManager->Open();
if(ADODataSetManagerPassword->Value==EditPassword->Text)
{TekManager= ADODataSetManagerCod->Value;
Application->CreateForm(__classid(TFormMainAIS), &FormMainAIS);
FormMainAIS->ShowModal();
Close();
}
else ShowMessage("Неверный пароль!");
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::EditPasswordKeyPress(TObject *Sender, char &Key)
{
if(Key==13)
ButtonVxodClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Manager.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormManager *FormManager;
//---------------------------------------------------------------------------
__fastcall TFormManager::TFormManager(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormManager::FormShow(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->Open();
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormManager::ButtonAddClick(TObject *Sender)
{
if(ADODataSetManager->State==dsBrowse)
{ADODataSetManager->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DateTimePicker1->Date= Date();
DBEditFIO->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormManager::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetManager->RecordCount==0) //есть ли данные в БД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetManager->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
ADODataSetManager->Delete();//удалить запись из таблицы БД
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormManager::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetManager->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetManager->State==dsBrowse)
ADODataSetManager->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DateTimePicker1->Date= ADODataSetManagerDataRozhd->Value;
DBEditFIO->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormManager::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormManager::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditFIO->Text=="" )//проверка введенных данных
{ShowMessage("Введите Ф.И.О. !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditPasport->Text=="" )//проверка введенных данных
{ShowMessage("Введите паспорт !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditOklad->Text=="" )//проверка введенных данных
{ShowMessage("Введите оклад !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditPassword->Text=="" )//проверка введенных данных
{ShowMessage("Введите пароль !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(ADODataSetManagerCodDolgnost->Value==0 )//проверка введенных данных
{ShowMessage("Введите должность !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetManagerDataRozhd->Value= DateTimePicker1->Date;
ADODataSetManager->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormManager::ButtonOtmenClick(TObject *Sender)
{
ADODataSetManager->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
void __fastcall TFormManager::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "OtchetManager.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormOtchetManager *FormOtchetManager;
//---------------------------------------------------------------------------
__fastcall TFormOtchetManager::TFormOtchetManager(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::FormShow(TObject *Sender)
{ char *s;
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
ADODataSetManager->Close();
ADODataSetManager->CommandText= "select TablManager.FIO as 'ФИО менеджера',TablDolgnost.name as 'Должность',TablHistory.cena as 'Цена',TablComputerTehnika.name as 'Название товара' from TablManager,TablHistory,TablDolgnost,TablComputerTehnika where (TablManager.Cod=TablHistory.CodManager)and(TablDolgnost.Cod=TablManager.CodDolgnost)and(TablHistory.CodComputerTehnika=TablComputerTehnika.Cod)";
ADODataSetManager->Open();
DBGridManager->Columns->Items[0]->Width=290;
DBGridManager->Columns->Items[1]->Width=160;
DBGridManager->Columns->Items[2]->Width=60;
DBGridManager->Columns->Items[3]->Width=410;
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Prodano.h"
#include "DM.h"
#include "UnitReport2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormProdano *FormProdano;
//---------------------------------------------------------------------------
__fastcall TFormProdano::TFormProdano(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::DBGridComputerTehnikaCellClick(
TColumn *Column)
{
if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
else DBImageFoto->Visible=true;
if(ADODataSetComputerTehnika->RecordCount==0)
{DBImageFoto->Visible=false;
DBMemoOpisanie->Visible=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::FormShow(TObject *Sender)
{ TColumn *Column;
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
DBGridComputerTehnikaCellClick(Column);
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Печать
void __fastcall TFormProdano::ButtonPrintClick(TObject *Sender)
{
Application->CreateForm(__classid(TFormReport2), &FormReport2);
FormReport2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::N1Click(TObject *Sender)
{
ButtonPrintClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::N2Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Prodazha.h"
#include "DM.h"
#include "MainComputer.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormProdazha *FormProdazha;
//---------------------------------------------------------------------------
__fastcall TFormProdazha::TFormProdazha(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при отображении формы
void __fastcall TFormProdazha::FormShow(TObject *Sender)
{ TColumn *Column;
DateTimePickerDataProdazhi->Date= Date();
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
DBGridComputerTehnikaCellClick(Column);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::DBGridComputerTehnikaCellClick(
TColumn *Column)
{
if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
else DBImageFoto->Visible=true;
if(ADODataSetComputerTehnika->RecordCount==0)
{DBImageFoto->Visible=false;
GroupBoxOpisanie->Visible= false;
}
else
GroupBoxOpisanie->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::ButtonProdatClick(TObject *Sender)
{TColumn *Column;
if(Application->MessageBoxA("Подтвердите продажу товара !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{if(ADODataSetComputerTehnika->RecordCount==0)
{ShowMessage("Товар отсутствует в продаже!");
return;
}
ADODataSetComputerTehnika->Edit();
ADODataSetComputerTehnikaProdan->Value=1;
ADODataSetComputerTehnika->Post();
ADODataSetComputerTehnika->Refresh();
ADODataSetHistory->Insert();
ADODataSetHistoryCodComputerTehnika->Value= ADODataSetComputerTehnikaCod->Value;
ADODataSetHistoryCodManager->Value= TekManager;
ADODataSetHistoryDataProdazhi->Value= DateTimePickerDataProdazhi->Date;
ADODataSetHistoryCena->Value= ADODataSetComputerTehnikaCena->Value;
ADODataSetHistory->Post();
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
DBGridComputerTehnikaCellClick(Column);
}
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::N1Click(TObject *Sender)
{
ButtonProdatClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::N2Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("MainComputer.cpp", FormVxod);
USEFORM("DM.cpp", DM1); /* TDataModule: File Type */
USEFORM("Dolgnost.cpp", FormDolgnost);
USEFORM("MainAIS.cpp", FormMainAIS);
USEFORM("VidTehniki.cpp", FormVidTehniki);
USEFORM("Manager.cpp", FormManager);
USEFORM("ComputerTehnika.cpp", FormComputerTehnika);
USEFORM("Prodazha.cpp", FormProdazha);
USEFORM("Vnalichii.cpp", FormVnalichii);
USEFORM("UnitReport.cpp", FormReport);
USEFORM("Prodano.cpp", FormProdano);
USEFORM("UnitReport2.cpp", FormReport2);
USEFORM("OtchetManager.cpp", FormOtchetManager);
USEFORM("DiagrammaOklad.cpp", FormDiagrammaOklad);
USEFORM("Spravka.cpp", FormSpravka);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TFormVxod), &FormVxod);
Application->CreateForm(__classid(TDM1), &DM1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Spravka.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormSpravka *FormSpravka;
//---------------------------------------------------------------------------
__fastcall TFormSpravka::TFormSpravka(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormSpravka::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UnitReport.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormReport *FormReport;
bool Pr;
//---------------------------------------------------------------------------
__fastcall TFormReport::TFormReport(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//выполняется после закрытия окна просмотра отчета
void __fastcall TFormReport::QuickRep1AfterPreview(TObject *Sender)
{
FormReport->Close(); //закрыть форму
}
//---------------------------------------------------------------------------
//выполняется при активации формы
void __fastcall TFormReport::FormActivate(TObject *Sender)
{
if(Pr==false)
Pr=true;
else
{Pr=false;
FormReport->Close();
return;
}
QuickRep1->Visible=false;
QuickRep1->Preview();//показать окно предварительного просмотра отчета
}
//---------------------------------------------------------------------------
//выполняется при отображении формы
void __fastcall TFormReport::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UnitReport2.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormReport2 *FormReport2;
bool Pr;
//---------------------------------------------------------------------------
__fastcall TFormReport2::TFormReport2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//выполняется после закрытия окна просмотра отчета
void __fastcall TFormReport2::QuickRep1AfterPreview(TObject *Sender)
{
FormReport2->Close(); //закрыть форму
}
//---------------------------------------------------------------------------
//выполняется при активации формы
void __fastcall TFormReport2::FormActivate(TObject *Sender)
{
if(Pr==false)
Pr=true;
else
{Pr=false;
FormReport2->Close();
return;
}
QuickRep1->Visible=false;
QuickRep1->Preview();//показать окно предварительного просмотра отчета
}
//---------------------------------------------------------------------------
//выполняется при отображении формы
void __fastcall TFormReport2::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "VidTehniki.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormVidTehniki *FormVidTehniki;
//---------------------------------------------------------------------------
__fastcall TFormVidTehniki::TFormVidTehniki(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormVidTehniki::ButtonAddClick(TObject *Sender)
{
if(ADODataSetVidTehniki->State==dsBrowse)
{ADODataSetVidTehniki->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormVidTehniki::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetVidTehniki->RecordCount==0) //есть ли данные в БД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetVidTehniki->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->CommandText= "select * from TablComputerTehnika where CodVidTehniki="+ADODataSetVidTehnikiCod->AsString;
ADODataSetComputerTehnika->Open();
if(ADODataSetComputerTehnika->RecordCount>0)
{ShowMessage("Ошибка при удалении! В таблице 'TablComputerTehnika' имеются связанные записи!"); //вывести сообщение в виде окошка
return;//выход из процедуры
}
ADODataSetVidTehniki->Delete();//удалить запись из таблицы БД
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormVidTehniki::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetVidTehniki->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetVidTehniki->State==dsBrowse)
ADODataSetVidTehniki->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormVidTehniki::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormVidTehniki::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);
#ifndef ComputerTehnikaH
#define ComputerTehnikaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <ComCtrls.hpp>
#include <DBCtrls.hpp>
#include <Dialogs.hpp>
#include <Mask.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TFormComputerTehnika : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TBooleanField *ADODataSetComputerTehnikaProdan;
TGroupBox *GroupBox1;
TLabel *Label1;
TDBEdit *DBEditName;
TLabel *Label2;
TDBEdit *DBEditCena;
TLabel *Label3;
TDateTimePicker *DateTimePickerDataPostup;
TLabel *Label4;
TDBMemo *DBMemoOpisanie;
TLabel *Label5;
TDBLookupComboBox *DBLookupComboBoxVidTehniki;
TButton *ButtonFoto;
TDBImage *DBImageFoto;
TOpenDialog *OpenDialogFoto;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
void __fastcall ButtonFotoClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormComputerTehnika(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormComputerTehnika *FormComputerTehnika;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DiagrammaOkladH
#define DiagrammaOkladH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <Chart.hpp>
#include <DB.hpp>
#include <DbChart.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
#include <Series.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormDiagrammaOklad : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridManager;
TADODataSet *ADODataSetManager;
TDataSource *DataSourceManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
TDBChart *DBChartManager;
TPieSeries *Series1;
TStringField *ADODataSetManagerFIO2;
TButton *ButtonExit;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
void __fastcall FormShow(TObject *Sender);
void __fastcall ADODataSetManagerCalcFields(TDataSet *DataSet);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormDiagrammaOklad(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormDiagrammaOklad *FormDiagrammaOklad;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DMH
#define DMH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
//---------------------------------------------------------------------------
class TDM1 : public TDataModule
{
__published: // IDE-managed Components
TADOConnection *ADOConnection1;
private: // User declarations
public: // User declarations
__fastcall TDM1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TDM1 *DM1;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DolgnostH
#define DolgnostH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Mask.hpp>
//---------------------------------------------------------------------------
class TFormDolgnost : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridDolgnost;
TADODataSet *ADODataSetDolgnost;
TDataSource *DataSourceDolgnost;
TAutoIncField *ADODataSetDolgnostCod;
TWideStringField *ADODataSetDolgnostName;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetManager;
TGroupBox *GroupBox1;
TDBEdit *DBEditName;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall DBEditNameKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormDolgnost(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormDolgnost *FormDolgnost;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef MainAISH
#define MainAISH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include <ExtCtrls.hpp>
#include <jpeg.hpp>
//---------------------------------------------------------------------------
class TFormMainAIS : public TForm
{
__published: // IDE-managed Components
TMainMenu *MainMenu1;
TMenuItem *N1;
TMenuItem *N2;
TMenuItem *N3;
TMenuItem *N4;
TMenuItem *N5;
TMenuItem *N6;
TMenuItem *N7;
TMenuItem *N8;
TPopupMenu *PopupMenu1;
TMenuItem *N9;
TMenuItem *N10;
TMenuItem *N12;
TMenuItem *N13;
TMenuItem *N14;
TMenuItem *N11;
TMenuItem *N15;
TImage *Image1;
void __fastcall N8Click(TObject *Sender);
void __fastcall N4Click(TObject *Sender);
void __fastcall N5Click(TObject *Sender);
void __fastcall N3Click(TObject *Sender);
void __fastcall N6Click(TObject *Sender);
void __fastcall N9Click(TObject *Sender);
void __fastcall N10Click(TObject *Sender);
void __fastcall N12Click(TObject *Sender);
void __fastcall N13Click(TObject *Sender);
void __fastcall N14Click(TObject *Sender);
void __fastcall N11Click(TObject *Sender);
void __fastcall N15Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormMainAIS(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormMainAIS *FormMainAIS;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef MainComputerH
#define MainComputerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <Buttons.hpp>
//---------------------------------------------------------------------------
class TFormVxod : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TComboBox *ComboBoxManager;
TLabel *Label2;
TEdit *EditPassword;
TBitBtn *BitBtnExit;
TButton *ButtonVxod;
TADODataSet *ADODataSetManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
void __fastcall FormShow(TObject *Sender);
void __fastcall BitBtnExitClick(TObject *Sender);
void __fastcall ButtonVxodClick(TObject *Sender);
void __fastcall EditPasswordKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormVxod(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVxod *FormVxod;
extern int TekManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ManagerH
#define ManagerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <ComCtrls.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <Mask.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormManager : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridFormManager;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
TADODataSet *ADODataSetDolgnost;
TAutoIncField *ADODataSetDolgnostCod;
TWideStringField *ADODataSetDolgnostName;
TStringField *ADODataSetManagerNameDolgnost;
TGroupBox *GroupBox1;
TLabel *Label1;
TDBEdit *DBEditFIO;
TLabel *Label2;
TDBLookupComboBox *DBLookupComboBoxDolgnost;
TDataSource *DataSourceDolgnost;
TLabel *Label3;
TDBEdit *DBEditOklad;
TLabel *Label4;
TDBEdit *DBEditPasport;
TLabel *Label5;
TDBEdit *DBEditPassword;
TLabel *Label6;
TDateTimePicker *DateTimePicker1;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormManager(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormManager *FormManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef OtchetManagerH
#define OtchetManagerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormOtchetManager : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridManager;
TADODataSet *ADODataSetManager;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetDolgnost;
TDataSource *DataSourceDolgnost;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TADODataSet *ADODataSetHistory;
TDataSource *DataSourceHistory;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TButton *ButtonExit;
void __fastcall FormShow(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormOtchetManager(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormOtchetManager *FormOtchetManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ProdanoH
#define ProdanoH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormProdano : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDBImage *DBImageFoto;
TDBMemo *DBMemoOpisanie;
TButton *ButtonExit;
TButton *ButtonPrint;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
TDataSource *DataSourceHistory;
TADODataSet *ADODataSetHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TDateField *ADODataSetComputerTehnikaDataProdazhi;
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonPrintClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormProdano(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormProdano *FormProdano;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ProdazhaH
#define ProdazhaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormProdazha : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TDateTimePicker *DateTimePickerDataProdazhi;
TGroupBox *GroupBox1;
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TButton *ButtonProdat;
TGroupBox *GroupBoxOpisanie;
TDBMemo *DBMemoOpisanie;
TDBImage *DBImageFoto;
TButton *ButtonExit;
TADODataSet *ADODataSetHistory;
TDataSource *DataSourceHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall FormShow(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall ButtonProdatClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormProdazha(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormProdazha *FormProdazha;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef SpravkaH
#define SpravkaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TFormSpravka : public TForm
{
__published: // IDE-managed Components
TMemo *MemoSpravka;
TMemo *Memo1;
TButton *ButtonExit;
void __fastcall ButtonExitClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormSpravka(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormSpravka *FormSpravka;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef UnitReportH
#define UnitReportH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//---------------------------------------------------------------------------
class TFormReport : public TForm
{
__published: // IDE-managed Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
void __fastcall QuickRep1AfterPreview(TObject *Sender);
void __fastcall FormActivate(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormReport *FormReport;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef UnitReport2H
#define UnitReport2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//---------------------------------------------------------------------------
class TFormReport2 : public TForm
{
__published: // IDE-managed Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDataSource *DataSourceHistory;
TADODataSet *ADODataSetHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TDateField *ADODataSetComputerTehnikaDataProdazhi;
void __fastcall QuickRep1AfterPreview(TObject *Sender);
void __fastcall FormActivate(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport2(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormReport2 *FormReport2;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef VidTehnikiH
#define VidTehnikiH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Mask.hpp>
//---------------------------------------------------------------------------
class TFormVidTehniki : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetComputerTehnika;
TGroupBox *GroupBox1;
TDBEdit *DBEditName;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TBooleanField *ADODataSetComputerTehnikaProdan;
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall DBEditNameKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormVidTehniki(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVidTehniki *FormVidTehniki;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef VnalichiiH
#define VnalichiiH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormVnalichii : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDBImage *DBImageFoto;
TDBMemo *DBMemoOpisanie;
TButton *ButtonExit;
TButton *ButtonPrint;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonPrintClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormVnalichii(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVnalichii *FormVnalichii;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ComputerTehnika.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormComputerTehnika *FormComputerTehnika;
//---------------------------------------------------------------------------
__fastcall TFormComputerTehnika::TFormComputerTehnika(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormComputerTehnika::ButtonFotoClick(TObject *Sender)
{ char *s;
OpenDialogFoto->InitialDir= ExtractFileDir(Application->ExeName);
if(OpenDialogFoto->Execute()==true) //вызов диалога выбора файла
{DBImageFoto->Visible=true;
s= OpenDialogFoto->FileName.c_str(); //получить наименование выбранного файла с полным путем
DBImageFoto->Picture->LoadFromFile(s);
}
else
{if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TFormComputerTehnika::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormComputerTehnika::ButtonAddClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->State==dsBrowse)
{ADODataSetComputerTehnika->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DateTimePickerDataPostup->Date= Date();
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormComputerTehnika::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->RecordCount==0) //есть ли данные в БД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи
!","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
ADODataSetComputerTehnika->Delete();//удалить запись из таблицы БД
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormComputerTehnika::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
ADODataSetComputerTehnika->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DateTimePickerDataPostup->Date= ADODataSetComputerTehnikaDataPostup->Value;
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormComputerTehnika::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormComputerTehnika::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditName->Text=="" )//проверка введенных данных
{ShowMessage("Введите название !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditCena->Text=="" )//проверка введенных данных
{ShowMessage("Введите цену !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBMemoOpisanie->Text=="" )//проверка введенных данных
{ShowMessage("Введите описание !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(ADODataSetComputerTehnikaCodVidTehniki->Value==0 )//проверка введенных данных
{ShowMessage("Введите вид товара!");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetComputerTehnikaDataPostup->Value= DateTimePickerDataPostup->Date;
ADODataSetComputerTehnika->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormComputerTehnika::ButtonOtmenClick(TObject *Sender)
{
ADODataSetComputerTehnika->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DiagrammaOklad.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormDiagrammaOklad *FormDiagrammaOklad;
//---------------------------------------------------------------------------
__fastcall TFormDiagrammaOklad::TFormDiagrammaOklad(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::FormShow(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::ADODataSetManagerCalcFields(
TDataSet *DataSet)
{
ADODataSetManagerFIO2->Value= ADODataSetManagerFIO->Value;
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDM1 *DM1;
//---------------------------------------------------------------------------
__fastcall TDM1::TDM1(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Dolgnost.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormDolgnost *FormDolgnost;
//---------------------------------------------------------------------------
__fastcall TFormDolgnost::TFormDolgnost(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormDolgnost::ButtonAddClick(TObject *Sender)
{
if(ADODataSetDolgnost->State==dsBrowse)
{ADODataSetDolgnost->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormDolgnost::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetDolgnost->RecordCount==0) //есть ли данные в БД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetDolgnost->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{ADODataSetManager->Close();
ADODataSetManager->CommandText= "select * from TablManager where CodDolgnost="+IntToStr(ADODataSetDolgnostCod->Value);
ADODataSetManager->Open();
if(ADODataSetManager->RecordCount>0)
{ShowMessage("Ошибка при удалении! В таблице 'TablManager' имеются связанные записи!"); //вывести сообщение в виде окошка
return;//выход из процедуры
}
ADODataSetDolgnost->Delete();//удалить запись из таблицы БД
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormDolgnost::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetDolgnost->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetDolgnost->State==dsBrowse)
ADODataSetDolgnost->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormDolgnost::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormDolgnost::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditName->Text=="" )//проверка введенных данных
{ShowMessage("Введите название!");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetDolgnost->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormDolgnost::ButtonOtmenClick(TObject *Sender)
{
ADODataSetDolgnost->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
void __fastcall TFormDolgnost::FormShow(TObject *Sender)
{
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
ADODataSetManager->Close();
ADODataSetManager->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormDolgnost::DBEditNameKeyPress(TObject *Sender,
char &Key)
{
if(Key==13)
ButtonPostClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MainAIS.h"
#include "Dolgnost.h"
#include "VidTehniki.h"
#include "Manager.h"
#include "ComputerTehnika.h"
#include "Prodazha.h"
#include "Vnalichii.h"
#include "Prodano.h"
#include "OtchetManager.h"
#include "DiagrammaOklad.h"
#include "Spravka.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMainAIS *FormMainAIS;
//---------------------------------------------------------------------------
__fastcall TFormMainAIS::TFormMainAIS(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N8Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N4Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormDolgnost), &FormDolgnost);
FormDolgnost->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N5Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormVidTehniki), &FormVidTehniki);
FormVidTehniki->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N3Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormManager), &FormManager);
FormManager->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N6Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormComputerTehnika), &FormComputerTehnika);
FormComputerTehnika->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N9Click(TObject *Sender)
{
N8Click(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N10Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormProdazha), &FormProdazha);
FormProdazha->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N12Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormVnalichii), &FormVnalichii);
FormVnalichii->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N13Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormProdano), &FormProdano);
FormProdano->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N14Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormOtchetManager), &FormOtchetManager);
FormOtchetManager->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N11Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormDiagrammaOklad), &FormDiagrammaOklad);
FormDiagrammaOklad->ShowModal();
}
//---------------------------------------------------------------------------
//Вызов справки
void __fastcall TFormMainAIS::N15Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormSpravka), &FormSpravka);
FormSpravka->ShowModal();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MainComputer.h"
#include "DM.h"
#include "MainAIS.h"
#include "string.h"
#include "stdio.h"
#include <algorithm>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormVxod *FormVxod;
int TekManager;
//---------------------------------------------------------------------------
__fastcall TFormVxod::TFormVxod(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::FormShow(TObject *Sender)
{
ComboBoxManager->Clear();
ADODataSetManager->Close();
ADODataSetManager->Open();
ADODataSetManager->First();
while(!ADODataSetManager->Eof)
{ComboBoxManager->Items->Add(ADODataSetManagerFIO->Value);
ADODataSetManager->Next();
}
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::BitBtnExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::ButtonVxodClick(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->CommandText= "select * from TablManager where FIO="+QuotedStr(ComboBoxManager->Text);
ADODataSetManager->Open();
if(ADODataSetManagerPassword->Value==EditPassword->Text)
{TekManager= ADODataSetManagerCod->Value;
Application->CreateForm(__classid(TFormMainAIS), &FormMainAIS);
FormMainAIS->ShowModal();
Close();
}
else ShowMessage("Неверный пароль!");
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::EditPasswordKeyPress(TObject *Sender, char &Key)
{
if(Key==13)
ButtonVxodClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Manager.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormManager *FormManager;
//---------------------------------------------------------------------------
__fastcall TFormManager::TFormManager(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormManager::FormShow(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->Open();
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormManager::ButtonAddClick(TObject *Sender)
{
if(ADODataSetManager->State==dsBrowse)
{ADODataSetManager->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DateTimePicker1->Date= Date();
DBEditFIO->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormManager::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetManager->RecordCount==0) //есть ли данные в БД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetManager->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
ADODataSetManager->Delete();//удалить запись из таблицы БД
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormManager::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetManager->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetManager->State==dsBrowse)
ADODataSetManager->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DateTimePicker1->Date= ADODataSetManagerDataRozhd->Value;
DBEditFIO->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormManager::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormManager::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditFIO->Text=="" )//проверка введенных данных
{ShowMessage("Введите Ф.И.О. !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditPasport->Text=="" )//проверка введенных данных
{ShowMessage("Введите паспорт !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditOklad->Text=="" )//проверка введенных данных
{ShowMessage("Введите оклад !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditPassword->Text=="" )//проверка введенных данных
{ShowMessage("Введите пароль !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(ADODataSetManagerCodDolgnost->Value==0 )//проверка введенных данных
{ShowMessage("Введите должность !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetManagerDataRozhd->Value= DateTimePicker1->Date;
ADODataSetManager->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormManager::ButtonOtmenClick(TObject *Sender)
{
ADODataSetManager->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
void __fastcall TFormManager::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "OtchetManager.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormOtchetManager *FormOtchetManager;
//---------------------------------------------------------------------------
__fastcall TFormOtchetManager::TFormOtchetManager(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::FormShow(TObject *Sender)
{ char *s;
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
ADODataSetManager->Close();
ADODataSetManager->CommandText= "select TablManager.FIO as 'ФИО менеджера',TablDolgnost.name as 'Должность',TablHistory.cena as 'Цена',TablComputerTehnika.name as 'Название товара' from TablManager,TablHistory,TablDolgnost,TablComputerTehnika where (TablManager.Cod=TablHistory.CodManager)and(TablDolgnost.Cod=TablManager.CodDolgnost)and(TablHistory.CodComputerTehnika=TablComputerTehnika.Cod)";
ADODataSetManager->Open();
DBGridManager->Columns->Items[0]->Width=290;
DBGridManager->Columns->Items[1]->Width=160;
DBGridManager->Columns->Items[2]->Width=60;
DBGridManager->Columns->Items[3]->Width=410;
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Prodano.h"
#include "DM.h"
#include "UnitReport2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormProdano *FormProdano;
//---------------------------------------------------------------------------
__fastcall TFormProdano::TFormProdano(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::DBGridComputerTehnikaCellClick(
TColumn *Column)
{
if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
else DBImageFoto->Visible=true;
if(ADODataSetComputerTehnika->RecordCount==0)
{DBImageFoto->Visible=false;
DBMemoOpisanie->Visible=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::FormShow(TObject *Sender)
{ TColumn *Column;
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
DBGridComputerTehnikaCellClick(Column);
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Печать
void __fastcall TFormProdano::ButtonPrintClick(TObject *Sender)
{
Application->CreateForm(__classid(TFormReport2), &FormReport2);
FormReport2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::N1Click(TObject *Sender)
{
ButtonPrintClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::N2Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Prodazha.h"
#include "DM.h"
#include "MainComputer.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormProdazha *FormProdazha;
//---------------------------------------------------------------------------
__fastcall TFormProdazha::TFormProdazha(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при отображении формы
void __fastcall TFormProdazha::FormShow(TObject *Sender)
{ TColumn *Column;
DateTimePickerDataProdazhi->Date= Date();
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
DBGridComputerTehnikaCellClick(Column);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::DBGridComputerTehnikaCellClick(
TColumn *Column)
{
if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
else DBImageFoto->Visible=true;
if(ADODataSetComputerTehnika->RecordCount==0)
{DBImageFoto->Visible=false;
GroupBoxOpisanie->Visible= false;
}
else
GroupBoxOpisanie->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::ButtonProdatClick(TObject *Sender)
{TColumn *Column;
if(Application->MessageBoxA("Подтвердите продажу товара !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{if(ADODataSetComputerTehnika->RecordCount==0)
{ShowMessage("Товар отсутствует в продаже!");
return;
}
ADODataSetComputerTehnika->Edit();
ADODataSetComputerTehnikaProdan->Value=1;
ADODataSetComputerTehnika->Post();
ADODataSetComputerTehnika->Refresh();
ADODataSetHistory->Insert();
ADODataSetHistoryCodComputerTehnika->Value= ADODataSetComputerTehnikaCod->Value;
ADODataSetHistoryCodManager->Value= TekManager;
ADODataSetHistoryDataProdazhi->Value= DateTimePickerDataProdazhi->Date;
ADODataSetHistoryCena->Value= ADODataSetComputerTehnikaCena->Value;
ADODataSetHistory->Post();
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
DBGridComputerTehnikaCellClick(Column);
}
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::N1Click(TObject *Sender)
{
ButtonProdatClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::N2Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("MainComputer.cpp", FormVxod);
USEFORM("DM.cpp", DM1); /* TDataModule: File Type */
USEFORM("Dolgnost.cpp", FormDolgnost);
USEFORM("MainAIS.cpp", FormMainAIS);
USEFORM("VidTehniki.cpp", FormVidTehniki);
USEFORM("Manager.cpp", FormManager);
USEFORM("ComputerTehnika.cpp", FormComputerTehnika);
USEFORM("Prodazha.cpp", FormProdazha);
USEFORM("Vnalichii.cpp", FormVnalichii);
USEFORM("UnitReport.cpp", FormReport);
USEFORM("Prodano.cpp", FormProdano);
USEFORM("UnitReport2.cpp", FormReport2);
USEFORM("OtchetManager.cpp", FormOtchetManager);
USEFORM("DiagrammaOklad.cpp", FormDiagrammaOklad);
USEFORM("Spravka.cpp", FormSpravka);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TFormVxod), &FormVxod);
Application->CreateForm(__classid(TDM1), &DM1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Spravka.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormSpravka *FormSpravka;
//---------------------------------------------------------------------------
__fastcall TFormSpravka::TFormSpravka(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormSpravka::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UnitReport.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormReport *FormReport;
bool Pr;
//---------------------------------------------------------------------------
__fastcall TFormReport::TFormReport(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//выполняется после закрытия окна просмотра отчета
void __fastcall TFormReport::QuickRep1AfterPreview(TObject *Sender)
{
FormReport->Close(); //закрыть форму
}
//---------------------------------------------------------------------------
//выполняется при активации формы
void __fastcall TFormReport::FormActivate(TObject *Sender)
{
if(Pr==false)
Pr=true;
else
{Pr=false;
FormReport->Close();
return;
}
QuickRep1->Visible=false;
QuickRep1->Preview();//показать окно предварительного просмотра отчета
}
//---------------------------------------------------------------------------
//выполняется при отображении формы
void __fastcall TFormReport::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UnitReport2.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormReport2 *FormReport2;
bool Pr;
//---------------------------------------------------------------------------
__fastcall TFormReport2::TFormReport2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//выполняется после закрытия окна просмотра отчета
void __fastcall TFormReport2::QuickRep1AfterPreview(TObject *Sender)
{
FormReport2->Close(); //закрыть форму
}
//---------------------------------------------------------------------------
//выполняется при активации формы
void __fastcall TFormReport2::FormActivate(TObject *Sender)
{
if(Pr==false)
Pr=true;
else
{Pr=false;
FormReport2->Close();
return;
}
QuickRep1->Visible=false;
QuickRep1->Preview();//показать окно предварительного просмотра отчета
}
//---------------------------------------------------------------------------
//выполняется при отображении формы
void __fastcall TFormReport2::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "VidTehniki.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormVidTehniki *FormVidTehniki;
//---------------------------------------------------------------------------
__fastcall TFormVidTehniki::TFormVidTehniki(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormVidTehniki::ButtonAddClick(TObject *Sender)
{
if(ADODataSetVidTehniki->State==dsBrowse)
{ADODataSetVidTehniki->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormVidTehniki::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetVidTehniki->RecordCount==0) //есть ли данные в БД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetVidTehniki->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->CommandText= "select * from TablComputerTehnika where CodVidTehniki="+ADODataSetVidTehnikiCod->AsString;
ADODataSetComputerTehnika->Open();
if(ADODataSetComputerTehnika->RecordCount>0)
{ShowMessage("Ошибка при удалении! В таблице 'TablComputerTehnika' имеются связанные записи!"); //вывести сообщение в виде окошка
return;//выход из процедуры
}
ADODataSetVidTehniki->Delete();//удалить запись из таблицы БД
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormVidTehniki::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetVidTehniki->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetVidTehniki->State==dsBrowse)
ADODataSetVidTehniki->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormVidTehniki::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormVidTehniki::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);
#ifndef ComputerTehnikaH
#define ComputerTehnikaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <ComCtrls.hpp>
#include <DBCtrls.hpp>
#include <Dialogs.hpp>
#include <Mask.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TFormComputerTehnika : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TBooleanField *ADODataSetComputerTehnikaProdan;
TGroupBox *GroupBox1;
TLabel *Label1;
TDBEdit *DBEditName;
TLabel *Label2;
TDBEdit *DBEditCena;
TLabel *Label3;
TDateTimePicker *DateTimePickerDataPostup;
TLabel *Label4;
TDBMemo *DBMemoOpisanie;
TLabel *Label5;
TDBLookupComboBox *DBLookupComboBoxVidTehniki;
TButton *ButtonFoto;
TDBImage *DBImageFoto;
TOpenDialog *OpenDialogFoto;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
void __fastcall ButtonFotoClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormComputerTehnika(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormComputerTehnika *FormComputerTehnika;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DiagrammaOkladH
#define DiagrammaOkladH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <Chart.hpp>
#include <DB.hpp>
#include <DbChart.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
#include <Series.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormDiagrammaOklad : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridManager;
TADODataSet *ADODataSetManager;
TDataSource *DataSourceManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
TDBChart *DBChartManager;
TPieSeries *Series1;
TStringField *ADODataSetManagerFIO2;
TButton *ButtonExit;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
void __fastcall FormShow(TObject *Sender);
void __fastcall ADODataSetManagerCalcFields(TDataSet *DataSet);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormDiagrammaOklad(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormDiagrammaOklad *FormDiagrammaOklad;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DMH
#define DMH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
//---------------------------------------------------------------------------
class TDM1 : public TDataModule
{
__published: // IDE-managed Components
TADOConnection *ADOConnection1;
private: // User declarations
public: // User declarations
__fastcall TDM1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TDM1 *DM1;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DolgnostH
#define DolgnostH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Mask.hpp>
//---------------------------------------------------------------------------
class TFormDolgnost : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridDolgnost;
TADODataSet *ADODataSetDolgnost;
TDataSource *DataSourceDolgnost;
TAutoIncField *ADODataSetDolgnostCod;
TWideStringField *ADODataSetDolgnostName;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetManager;
TGroupBox *GroupBox1;
TDBEdit *DBEditName;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall DBEditNameKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormDolgnost(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormDolgnost *FormDolgnost;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef MainAISH
#define MainAISH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include <ExtCtrls.hpp>
#include <jpeg.hpp>
//---------------------------------------------------------------------------
class TFormMainAIS : public TForm
{
__published: // IDE-managed Components
TMainMenu *MainMenu1;
TMenuItem *N1;
TMenuItem *N2;
TMenuItem *N3;
TMenuItem *N4;
TMenuItem *N5;
TMenuItem *N6;
TMenuItem *N7;
TMenuItem *N8;
TPopupMenu *PopupMenu1;
TMenuItem *N9;
TMenuItem *N10;
TMenuItem *N12;
TMenuItem *N13;
TMenuItem *N14;
TMenuItem *N11;
TMenuItem *N15;
TImage *Image1;
void __fastcall N8Click(TObject *Sender);
void __fastcall N4Click(TObject *Sender);
void __fastcall N5Click(TObject *Sender);
void __fastcall N3Click(TObject *Sender);
void __fastcall N6Click(TObject *Sender);
void __fastcall N9Click(TObject *Sender);
void __fastcall N10Click(TObject *Sender);
void __fastcall N12Click(TObject *Sender);
void __fastcall N13Click(TObject *Sender);
void __fastcall N14Click(TObject *Sender);
void __fastcall N11Click(TObject *Sender);
void __fastcall N15Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormMainAIS(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormMainAIS *FormMainAIS;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef MainComputerH
#define MainComputerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <Buttons.hpp>
//---------------------------------------------------------------------------
class TFormVxod : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TComboBox *ComboBoxManager;
TLabel *Label2;
TEdit *EditPassword;
TBitBtn *BitBtnExit;
TButton *ButtonVxod;
TADODataSet *ADODataSetManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
void __fastcall FormShow(TObject *Sender);
void __fastcall BitBtnExitClick(TObject *Sender);
void __fastcall ButtonVxodClick(TObject *Sender);
void __fastcall EditPasswordKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormVxod(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVxod *FormVxod;
extern int TekManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ManagerH
#define ManagerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <ComCtrls.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <Mask.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormManager : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridFormManager;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
TADODataSet *ADODataSetDolgnost;
TAutoIncField *ADODataSetDolgnostCod;
TWideStringField *ADODataSetDolgnostName;
TStringField *ADODataSetManagerNameDolgnost;
TGroupBox *GroupBox1;
TLabel *Label1;
TDBEdit *DBEditFIO;
TLabel *Label2;
TDBLookupComboBox *DBLookupComboBoxDolgnost;
TDataSource *DataSourceDolgnost;
TLabel *Label3;
TDBEdit *DBEditOklad;
TLabel *Label4;
TDBEdit *DBEditPasport;
TLabel *Label5;
TDBEdit *DBEditPassword;
TLabel *Label6;
TDateTimePicker *DateTimePicker1;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormManager(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormManager *FormManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef OtchetManagerH
#define OtchetManagerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormOtchetManager : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridManager;
TADODataSet *ADODataSetManager;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetDolgnost;
TDataSource *DataSourceDolgnost;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TADODataSet *ADODataSetHistory;
TDataSource *DataSourceHistory;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TButton *ButtonExit;
void __fastcall FormShow(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormOtchetManager(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormOtchetManager *FormOtchetManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ProdanoH
#define ProdanoH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormProdano : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDBImage *DBImageFoto;
TDBMemo *DBMemoOpisanie;
TButton *ButtonExit;
TButton *ButtonPrint;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
TDataSource *DataSourceHistory;
TADODataSet *ADODataSetHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TDateField *ADODataSetComputerTehnikaDataProdazhi;
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonPrintClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormProdano(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormProdano *FormProdano;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ProdazhaH
#define ProdazhaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormProdazha : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TDateTimePicker *DateTimePickerDataProdazhi;
TGroupBox *GroupBox1;
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TButton *ButtonProdat;
TGroupBox *GroupBoxOpisanie;
TDBMemo *DBMemoOpisanie;
TDBImage *DBImageFoto;
TButton *ButtonExit;
TADODataSet *ADODataSetHistory;
TDataSource *DataSourceHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall FormShow(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall ButtonProdatClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormProdazha(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormProdazha *FormProdazha;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef SpravkaH
#define SpravkaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TFormSpravka : public TForm
{
__published: // IDE-managed Components
TMemo *MemoSpravka;
TMemo *Memo1;
TButton *ButtonExit;
void __fastcall ButtonExitClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormSpravka(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormSpravka *FormSpravka;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef UnitReportH
#define UnitReportH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//---------------------------------------------------------------------------
class TFormReport : public TForm
{
__published: // IDE-managed Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
void __fastcall QuickRep1AfterPreview(TObject *Sender);
void __fastcall FormActivate(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormReport *FormReport;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef UnitReport2H
#define UnitReport2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//---------------------------------------------------------------------------
class TFormReport2 : public TForm
{
__published: // IDE-managed Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDataSource *DataSourceHistory;
TADODataSet *ADODataSetHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TDateField *ADODataSetComputerTehnikaDataProdazhi;
void __fastcall QuickRep1AfterPreview(TObject *Sender);
void __fastcall FormActivate(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport2(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormReport2 *FormReport2;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef VidTehnikiH
#define VidTehnikiH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Mask.hpp>
//---------------------------------------------------------------------------
class TFormVidTehniki : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetComputerTehnika;
TGroupBox *GroupBox1;
TDBEdit *DBEditName;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TBooleanField *ADODataSetComputerTehnikaProdan;
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall DBEditNameKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormVidTehniki(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVidTehniki *FormVidTehniki;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef VnalichiiH
#define VnalichiiH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormVnalichii : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDBImage *DBImageFoto;
TDBMemo *DBMemoOpisanie;
TButton *ButtonExit;
TButton *ButtonPrint;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonPrintClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormVnalichii(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVnalichii *FormVnalichii;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ComputerTehnika.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormComputerTehnika *FormComputerTehnika;
//---------------------------------------------------------------------------
__fastcall TFormComputerTehnika::TFormComputerTehnika(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormComputerTehnika::ButtonFotoClick(TObject *Sender)
{ char *s;
OpenDialogFoto->InitialDir= ExtractFileDir(Application->ExeName);
if(OpenDialogFoto->Execute()==true) //вызов диалога выбора файла
{DBImageFoto->Visible=true;
s= OpenDialogFoto->FileName.c_str(); //получить наименование выбранного файла с полным путем
DBImageFoto->Picture->LoadFromFile(s);
}
else
{if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TFormComputerTehnika::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormComputerTehnika::ButtonAddClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->State==dsBrowse)
{ADODataSetComputerTehnika->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DateTimePickerDataPostup->Date= Date();
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormComputerTehnika::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->RecordCount==0) //есть ли данные в БД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи
!","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
ADODataSetComputerTehnika->Delete();//удалить запись из таблицы БД
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormComputerTehnika::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
ADODataSetComputerTehnika->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DateTimePickerDataPostup->Date= ADODataSetComputerTehnikaDataPostup->Value;
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormComputerTehnika::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormComputerTehnika::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditName->Text=="" )//проверка введенных данных
{ShowMessage("Введите название !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditCena->Text=="" )//проверка введенных данных
{ShowMessage("Введите цену !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBMemoOpisanie->Text=="" )//проверка введенных данных
{ShowMessage("Введите описание !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(ADODataSetComputerTehnikaCodVidTehniki->Value==0 )//проверка введенных данных
{ShowMessage("Введите вид товара!");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetComputerTehnikaDataPostup->Value= DateTimePickerDataPostup->Date;
ADODataSetComputerTehnika->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormComputerTehnika::ButtonOtmenClick(TObject *Sender)
{
ADODataSetComputerTehnika->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DiagrammaOklad.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormDiagrammaOklad *FormDiagrammaOklad;
//---------------------------------------------------------------------------
__fastcall TFormDiagrammaOklad::TFormDiagrammaOklad(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::FormShow(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::ADODataSetManagerCalcFields(
TDataSet *DataSet)
{
ADODataSetManagerFIO2->Value= ADODataSetManagerFIO->Value;
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDM1 *DM1;
//---------------------------------------------------------------------------
__fastcall TDM1::TDM1(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Dolgnost.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormDolgnost *FormDolgnost;
//---------------------------------------------------------------------------
__fastcall TFormDolgnost::TFormDolgnost(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormDolgnost::ButtonAddClick(TObject *Sender)
{
if(ADODataSetDolgnost->State==dsBrowse)
{ADODataSetDolgnost->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormDolgnost::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetDolgnost->RecordCount==0) //есть ли данные в БД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetDolgnost->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{ADODataSetManager->Close();
ADODataSetManager->CommandText= "select * from TablManager where CodDolgnost="+IntToStr(ADODataSetDolgnostCod->Value);
ADODataSetManager->Open();
if(ADODataSetManager->RecordCount>0)
{ShowMessage("Ошибка при удалении! В таблице 'TablManager' имеются связанные записи!"); //вывести сообщение в виде окошка
return;//выход из процедуры
}
ADODataSetDolgnost->Delete();//удалить запись из таблицы БД
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormDolgnost::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetDolgnost->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetDolgnost->State==dsBrowse)
ADODataSetDolgnost->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormDolgnost::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormDolgnost::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditName->Text=="" )//проверка введенных данных
{ShowMessage("Введите название!");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetDolgnost->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormDolgnost::ButtonOtmenClick(TObject *Sender)
{
ADODataSetDolgnost->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
void __fastcall TFormDolgnost::FormShow(TObject *Sender)
{
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
ADODataSetManager->Close();
ADODataSetManager->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormDolgnost::DBEditNameKeyPress(TObject *Sender,
char &Key)
{
if(Key==13)
ButtonPostClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MainAIS.h"
#include "Dolgnost.h"
#include "VidTehniki.h"
#include "Manager.h"
#include "ComputerTehnika.h"
#include "Prodazha.h"
#include "Vnalichii.h"
#include "Prodano.h"
#include "OtchetManager.h"
#include "DiagrammaOklad.h"
#include "Spravka.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMainAIS *FormMainAIS;
//---------------------------------------------------------------------------
__fastcall TFormMainAIS::TFormMainAIS(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N8Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N4Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormDolgnost), &FormDolgnost);
FormDolgnost->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N5Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormVidTehniki), &FormVidTehniki);
FormVidTehniki->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N3Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormManager), &FormManager);
FormManager->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N6Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormComputerTehnika), &FormComputerTehnika);
FormComputerTehnika->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N9Click(TObject *Sender)
{
N8Click(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N10Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormProdazha), &FormProdazha);
FormProdazha->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N12Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormVnalichii), &FormVnalichii);
FormVnalichii->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N13Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormProdano), &FormProdano);
FormProdano->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N14Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormOtchetManager), &FormOtchetManager);
FormOtchetManager->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N11Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormDiagrammaOklad), &FormDiagrammaOklad);
FormDiagrammaOklad->ShowModal();
}
//---------------------------------------------------------------------------
//Вызов справки
void __fastcall TFormMainAIS::N15Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormSpravka), &FormSpravka);
FormSpravka->ShowModal();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MainComputer.h"
#include "DM.h"
#include "MainAIS.h"
#include "string.h"
#include "stdio.h"
#include <algorithm>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormVxod *FormVxod;
int TekManager;
//---------------------------------------------------------------------------
__fastcall TFormVxod::TFormVxod(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::FormShow(TObject *Sender)
{
ComboBoxManager->Clear();
ADODataSetManager->Close();
ADODataSetManager->Open();
ADODataSetManager->First();
while(!ADODataSetManager->Eof)
{ComboBoxManager->Items->Add(ADODataSetManagerFIO->Value);
ADODataSetManager->Next();
}
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::BitBtnExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::ButtonVxodClick(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->CommandText= "select * from TablManager where FIO="+QuotedStr(ComboBoxManager->Text);
ADODataSetManager->Open();
if(ADODataSetManagerPassword->Value==EditPassword->Text)
{TekManager= ADODataSetManagerCod->Value;
Application->CreateForm(__classid(TFormMainAIS), &FormMainAIS);
FormMainAIS->ShowModal();
Close();
}
else ShowMessage("Неверный пароль!");
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::EditPasswordKeyPress(TObject *Sender, char &Key)
{
if(Key==13)
ButtonVxodClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Manager.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormManager *FormManager;
//---------------------------------------------------------------------------
__fastcall TFormManager::TFormManager(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormManager::FormShow(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->Open();
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormManager::ButtonAddClick(TObject *Sender)
{
if(ADODataSetManager->State==dsBrowse)
{ADODataSetManager->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DateTimePicker1->Date= Date();
DBEditFIO->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormManager::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetManager->RecordCount==0) //есть ли данные в БД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetManager->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
ADODataSetManager->Delete();//удалить запись из таблицы БД
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormManager::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetManager->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetManager->State==dsBrowse)
ADODataSetManager->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DateTimePicker1->Date= ADODataSetManagerDataRozhd->Value;
DBEditFIO->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormManager::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormManager::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditFIO->Text=="" )//проверка введенных данных
{ShowMessage("Введите Ф.И.О. !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditPasport->Text=="" )//проверка введенных данных
{ShowMessage("Введите паспорт !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditOklad->Text=="" )//проверка введенных данных
{ShowMessage("Введите оклад !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditPassword->Text=="" )//проверка введенных данных
{ShowMessage("Введите пароль !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(ADODataSetManagerCodDolgnost->Value==0 )//проверка введенных данных
{ShowMessage("Введите должность !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetManagerDataRozhd->Value= DateTimePicker1->Date;
ADODataSetManager->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormManager::ButtonOtmenClick(TObject *Sender)
{
ADODataSetManager->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
void __fastcall TFormManager::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "OtchetManager.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormOtchetManager *FormOtchetManager;
//---------------------------------------------------------------------------
__fastcall TFormOtchetManager::TFormOtchetManager(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::FormShow(TObject *Sender)
{ char *s;
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
ADODataSetManager->Close();
ADODataSetManager->CommandText= "select TablManager.FIO as 'ФИО менеджера',TablDolgnost.name as 'Должность',TablHistory.cena as 'Цена',TablComputerTehnika.name as 'Название товара' from TablManager,TablHistory,TablDolgnost,TablComputerTehnika where (TablManager.Cod=TablHistory.CodManager)and(TablDolgnost.Cod=TablManager.CodDolgnost)and(TablHistory.CodComputerTehnika=TablComputerTehnika.Cod)";
ADODataSetManager->Open();
DBGridManager->Columns->Items[0]->Width=290;
DBGridManager->Columns->Items[1]->Width=160;
DBGridManager->Columns->Items[2]->Width=60;
DBGridManager->Columns->Items[3]->Width=410;
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Prodano.h"
#include "DM.h"
#include "UnitReport2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormProdano *FormProdano;
//---------------------------------------------------------------------------
__fastcall TFormProdano::TFormProdano(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::DBGridComputerTehnikaCellClick(
TColumn *Column)
{
if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
else DBImageFoto->Visible=true;
if(ADODataSetComputerTehnika->RecordCount==0)
{DBImageFoto->Visible=false;
DBMemoOpisanie->Visible=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::FormShow(TObject *Sender)
{ TColumn *Column;
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
DBGridComputerTehnikaCellClick(Column);
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Печать
void __fastcall TFormProdano::ButtonPrintClick(TObject *Sender)
{
Application->CreateForm(__classid(TFormReport2), &FormReport2);
FormReport2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::N1Click(TObject *Sender)
{
ButtonPrintClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::N2Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Prodazha.h"
#include "DM.h"
#include "MainComputer.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormProdazha *FormProdazha;
//---------------------------------------------------------------------------
__fastcall TFormProdazha::TFormProdazha(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при отображении формы
void __fastcall TFormProdazha::FormShow(TObject *Sender)
{ TColumn *Column;
DateTimePickerDataProdazhi->Date= Date();
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
DBGridComputerTehnikaCellClick(Column);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::DBGridComputerTehnikaCellClick(
TColumn *Column)
{
if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
else DBImageFoto->Visible=true;
if(ADODataSetComputerTehnika->RecordCount==0)
{DBImageFoto->Visible=false;
GroupBoxOpisanie->Visible= false;
}
else
GroupBoxOpisanie->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::ButtonProdatClick(TObject *Sender)
{TColumn *Column;
if(Application->MessageBoxA("Подтвердите продажу товара !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{if(ADODataSetComputerTehnika->RecordCount==0)
{ShowMessage("Товар отсутствует в продаже!");
return;
}
ADODataSetComputerTehnika->Edit();
ADODataSetComputerTehnikaProdan->Value=1;
ADODataSetComputerTehnika->Post();
ADODataSetComputerTehnika->Refresh();
ADODataSetHistory->Insert();
ADODataSetHistoryCodComputerTehnika->Value= ADODataSetComputerTehnikaCod->Value;
ADODataSetHistoryCodManager->Value= TekManager;
ADODataSetHistoryDataProdazhi->Value= DateTimePickerDataProdazhi->Date;
ADODataSetHistoryCena->Value= ADODataSetComputerTehnikaCena->Value;
ADODataSetHistory->Post();
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
DBGridComputerTehnikaCellClick(Column);
}
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::N1Click(TObject *Sender)
{
ButtonProdatClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::N2Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("MainComputer.cpp", FormVxod);
USEFORM("DM.cpp", DM1); /* TDataModule: File Type */
USEFORM("Dolgnost.cpp", FormDolgnost);
USEFORM("MainAIS.cpp", FormMainAIS);
USEFORM("VidTehniki.cpp", FormVidTehniki);
USEFORM("Manager.cpp", FormManager);
USEFORM("ComputerTehnika.cpp", FormComputerTehnika);
USEFORM("Prodazha.cpp", FormProdazha);
USEFORM("Vnalichii.cpp", FormVnalichii);
USEFORM("UnitReport.cpp", FormReport);
USEFORM("Prodano.cpp", FormProdano);
USEFORM("UnitReport2.cpp", FormReport2);
USEFORM("OtchetManager.cpp", FormOtchetManager);
USEFORM("DiagrammaOklad.cpp", FormDiagrammaOklad);
USEFORM("Spravka.cpp", FormSpravka);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TFormVxod), &FormVxod);
Application->CreateForm(__classid(TDM1), &DM1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Spravka.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormSpravka *FormSpravka;
//---------------------------------------------------------------------------
__fastcall TFormSpravka::TFormSpravka(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormSpravka::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UnitReport.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormReport *FormReport;
bool Pr;
//---------------------------------------------------------------------------
__fastcall TFormReport::TFormReport(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//выполняется после закрытия окна просмотра отчета
void __fastcall TFormReport::QuickRep1AfterPreview(TObject *Sender)
{
FormReport->Close(); //закрыть форму
}
//---------------------------------------------------------------------------
//выполняется при активации формы
void __fastcall TFormReport::FormActivate(TObject *Sender)
{
if(Pr==false)
Pr=true;
else
{Pr=false;
FormReport->Close();
return;
}
QuickRep1->Visible=false;
QuickRep1->Preview();//показать окно предварительного просмотра отчета
}
//---------------------------------------------------------------------------
//выполняется при отображении формы
void __fastcall TFormReport::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UnitReport2.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormReport2 *FormReport2;
bool Pr;
//---------------------------------------------------------------------------
__fastcall TFormReport2::TFormReport2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//выполняется после закрытия окна просмотра отчета
void __fastcall TFormReport2::QuickRep1AfterPreview(TObject *Sender)
{
FormReport2->Close(); //закрыть форму
}
//---------------------------------------------------------------------------
//выполняется при активации формы
void __fastcall TFormReport2::FormActivate(TObject *Sender)
{
if(Pr==false)
Pr=true;
else
{Pr=false;
FormReport2->Close();
return;
}
QuickRep1->Visible=false;
QuickRep1->Preview();//показать окно предварительного просмотра отчета
}
//---------------------------------------------------------------------------
//выполняется при отображении формы
void __fastcall TFormReport2::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "VidTehniki.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormVidTehniki *FormVidTehniki;
//---------------------------------------------------------------------------
__fastcall TFormVidTehniki::TFormVidTehniki(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormVidTehniki::ButtonAddClick(TObject *Sender)
{
if(ADODataSetVidTehniki->State==dsBrowse)
{ADODataSetVidTehniki->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormVidTehniki::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetVidTehniki->RecordCount==0) //есть ли данные в БД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetVidTehniki->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->CommandText= "select * from TablComputerTehnika where CodVidTehniki="+ADODataSetVidTehnikiCod->AsString;
ADODataSetComputerTehnika->Open();
if(ADODataSetComputerTehnika->RecordCount>0)
{ShowMessage("Ошибка при удалении! В таблице 'TablComputerTehnika' имеются связанные записи!"); //вывести сообщение в виде окошка
return;//выход из процедуры
}
ADODataSetVidTehniki->Delete();//удалить запись из таблицы БД
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormVidTehniki::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetVidTehniki->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetVidTehniki->State==dsBrowse)
ADODataSetVidTehniki->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormVidTehniki::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormVidTehniki::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);
#ifndef ComputerTehnikaH
#define ComputerTehnikaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <ComCtrls.hpp>
#include <DBCtrls.hpp>
#include <Dialogs.hpp>
#include <Mask.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TFormComputerTehnika : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TBooleanField *ADODataSetComputerTehnikaProdan;
TGroupBox *GroupBox1;
TLabel *Label1;
TDBEdit *DBEditName;
TLabel *Label2;
TDBEdit *DBEditCena;
TLabel *Label3;
TDateTimePicker *DateTimePickerDataPostup;
TLabel *Label4;
TDBMemo *DBMemoOpisanie;
TLabel *Label5;
TDBLookupComboBox *DBLookupComboBoxVidTehniki;
TButton *ButtonFoto;
TDBImage *DBImageFoto;
TOpenDialog *OpenDialogFoto;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
void __fastcall ButtonFotoClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormComputerTehnika(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormComputerTehnika *FormComputerTehnika;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DiagrammaOkladH
#define DiagrammaOkladH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <Chart.hpp>
#include <DB.hpp>
#include <DbChart.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <TeEngine.hpp>
#include <TeeProcs.hpp>
#include <Series.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormDiagrammaOklad : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridManager;
TADODataSet *ADODataSetManager;
TDataSource *DataSourceManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
TDBChart *DBChartManager;
TPieSeries *Series1;
TStringField *ADODataSetManagerFIO2;
TButton *ButtonExit;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
void __fastcall FormShow(TObject *Sender);
void __fastcall ADODataSetManagerCalcFields(TDataSet *DataSet);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormDiagrammaOklad(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormDiagrammaOklad *FormDiagrammaOklad;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DMH
#define DMH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
//---------------------------------------------------------------------------
class TDM1 : public TDataModule
{
__published: // IDE-managed Components
TADOConnection *ADOConnection1;
private: // User declarations
public: // User declarations
__fastcall TDM1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TDM1 *DM1;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef DolgnostH
#define DolgnostH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Mask.hpp>
//---------------------------------------------------------------------------
class TFormDolgnost : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridDolgnost;
TADODataSet *ADODataSetDolgnost;
TDataSource *DataSourceDolgnost;
TAutoIncField *ADODataSetDolgnostCod;
TWideStringField *ADODataSetDolgnostName;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetManager;
TGroupBox *GroupBox1;
TDBEdit *DBEditName;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall DBEditNameKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormDolgnost(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormDolgnost *FormDolgnost;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef MainAISH
#define MainAISH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include <ExtCtrls.hpp>
#include <jpeg.hpp>
//---------------------------------------------------------------------------
class TFormMainAIS : public TForm
{
__published: // IDE-managed Components
TMainMenu *MainMenu1;
TMenuItem *N1;
TMenuItem *N2;
TMenuItem *N3;
TMenuItem *N4;
TMenuItem *N5;
TMenuItem *N6;
TMenuItem *N7;
TMenuItem *N8;
TPopupMenu *PopupMenu1;
TMenuItem *N9;
TMenuItem *N10;
TMenuItem *N12;
TMenuItem *N13;
TMenuItem *N14;
TMenuItem *N11;
TMenuItem *N15;
TImage *Image1;
void __fastcall N8Click(TObject *Sender);
void __fastcall N4Click(TObject *Sender);
void __fastcall N5Click(TObject *Sender);
void __fastcall N3Click(TObject *Sender);
void __fastcall N6Click(TObject *Sender);
void __fastcall N9Click(TObject *Sender);
void __fastcall N10Click(TObject *Sender);
void __fastcall N12Click(TObject *Sender);
void __fastcall N13Click(TObject *Sender);
void __fastcall N14Click(TObject *Sender);
void __fastcall N11Click(TObject *Sender);
void __fastcall N15Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormMainAIS(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormMainAIS *FormMainAIS;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef MainComputerH
#define MainComputerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <Buttons.hpp>
//---------------------------------------------------------------------------
class TFormVxod : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TComboBox *ComboBoxManager;
TLabel *Label2;
TEdit *EditPassword;
TBitBtn *BitBtnExit;
TButton *ButtonVxod;
TADODataSet *ADODataSetManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
void __fastcall FormShow(TObject *Sender);
void __fastcall BitBtnExitClick(TObject *Sender);
void __fastcall ButtonVxodClick(TObject *Sender);
void __fastcall EditPasswordKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormVxod(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVxod *FormVxod;
extern int TekManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ManagerH
#define ManagerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <ComCtrls.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <Mask.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormManager : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridFormManager;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetManager;
TAutoIncField *ADODataSetManagerCod;
TWideStringField *ADODataSetManagerFIO;
TBCDField *ADODataSetManagerOklad;
TDateTimeField *ADODataSetManagerDataRozhd;
TWideStringField *ADODataSetManagerPasport;
TWideStringField *ADODataSetManagerPassword;
TIntegerField *ADODataSetManagerCodDolgnost;
TADODataSet *ADODataSetDolgnost;
TAutoIncField *ADODataSetDolgnostCod;
TWideStringField *ADODataSetDolgnostName;
TStringField *ADODataSetManagerNameDolgnost;
TGroupBox *GroupBox1;
TLabel *Label1;
TDBEdit *DBEditFIO;
TLabel *Label2;
TDBLookupComboBox *DBLookupComboBoxDolgnost;
TDataSource *DataSourceDolgnost;
TLabel *Label3;
TDBEdit *DBEditOklad;
TLabel *Label4;
TDBEdit *DBEditPasport;
TLabel *Label5;
TDBEdit *DBEditPassword;
TLabel *Label6;
TDateTimePicker *DateTimePicker1;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormManager(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormManager *FormManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef OtchetManagerH
#define OtchetManagerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormOtchetManager : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridManager;
TADODataSet *ADODataSetManager;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetDolgnost;
TDataSource *DataSourceDolgnost;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TADODataSet *ADODataSetHistory;
TDataSource *DataSourceHistory;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TButton *ButtonExit;
void __fastcall FormShow(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormOtchetManager(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormOtchetManager *FormOtchetManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ProdanoH
#define ProdanoH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormProdano : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDBImage *DBImageFoto;
TDBMemo *DBMemoOpisanie;
TButton *ButtonExit;
TButton *ButtonPrint;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
TDataSource *DataSourceHistory;
TADODataSet *ADODataSetHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TDateField *ADODataSetComputerTehnikaDataProdazhi;
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonPrintClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormProdano(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormProdano *FormProdano;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ProdazhaH
#define ProdazhaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormProdazha : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TDateTimePicker *DateTimePickerDataProdazhi;
TGroupBox *GroupBox1;
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TButton *ButtonProdat;
TGroupBox *GroupBoxOpisanie;
TDBMemo *DBMemoOpisanie;
TDBImage *DBImageFoto;
TButton *ButtonExit;
TADODataSet *ADODataSetHistory;
TDataSource *DataSourceHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall FormShow(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall ButtonProdatClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormProdazha(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormProdazha *FormProdazha;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef SpravkaH
#define SpravkaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TFormSpravka : public TForm
{
__published: // IDE-managed Components
TMemo *MemoSpravka;
TMemo *Memo1;
TButton *ButtonExit;
void __fastcall ButtonExitClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormSpravka(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormSpravka *FormSpravka;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef UnitReportH
#define UnitReportH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//---------------------------------------------------------------------------
class TFormReport : public TForm
{
__published: // IDE-managed Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
void __fastcall QuickRep1AfterPreview(TObject *Sender);
void __fastcall FormActivate(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormReport *FormReport;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef UnitReport2H
#define UnitReport2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//---------------------------------------------------------------------------
class TFormReport2 : public TForm
{
__published: // IDE-managed Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet *ADODataSetComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDataSource *DataSourceHistory;
TADODataSet *ADODataSetHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TDateField *ADODataSetComputerTehnikaDataProdazhi;
void __fastcall QuickRep1AfterPreview(TObject *Sender);
void __fastcall FormActivate(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport2(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormReport2 *FormReport2;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef VidTehnikiH
#define VidTehnikiH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Mask.hpp>
//---------------------------------------------------------------------------
class TFormVidTehniki : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetComputerTehnika;
TGroupBox *GroupBox1;
TDBEdit *DBEditName;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TBooleanField *ADODataSetComputerTehnikaProdan;
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall DBEditNameKeyPress(TObject *Sender, char &Key);
private: // User declarations
public: // User declarations
__fastcall TFormVidTehniki(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVidTehniki *FormVidTehniki;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef VnalichiiH
#define VnalichiiH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFormVnalichii : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField *ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField *ADODataSetComputerTehnikaNameVidTehniki;
TDBImage *DBImageFoto;
TDBMemo *DBMemoOpisanie;
TButton *ButtonExit;
TButton *ButtonPrint;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn *Column);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonPrintClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormVnalichii(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormVnalichii *FormVnalichii;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ComputerTehnika.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormComputerTehnika *FormComputerTehnika;
//---------------------------------------------------------------------------
__fastcall TFormComputerTehnika::TFormComputerTehnika(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormComputerTehnika::ButtonFotoClick(TObject *Sender)
{ char *s;
OpenDialogFoto->InitialDir= ExtractFileDir(Application->ExeName);
if(OpenDialogFoto->Execute()==true) //вызов диалога выбора файла
{DBImageFoto->Visible=true;
s= OpenDialogFoto->FileName.c_str(); //получить наименование выбранного файла с полным путем
DBImageFoto->Picture->LoadFromFile(s);
}
else
{if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TFormComputerTehnika::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormComputerTehnika::ButtonAddClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->State==dsBrowse)
{ADODataSetComputerTehnika->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DateTimePickerDataPostup->Date= Date();
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormComputerTehnika::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->RecordCount==0) //есть ли данные в БД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи
!","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
ADODataSetComputerTehnika->Delete();//удалить запись из таблицы БД
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormComputerTehnika::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
ADODataSetComputerTehnika->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DateTimePickerDataPostup->Date= ADODataSetComputerTehnikaDataPostup->Value;
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormComputerTehnika::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormComputerTehnika::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditName->Text=="" )//проверка введенных данных
{ShowMessage("Введите название !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditCena->Text=="" )//проверка введенных данных
{ShowMessage("Введите цену !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBMemoOpisanie->Text=="" )//проверка введенных данных
{ShowMessage("Введите описание !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(ADODataSetComputerTehnikaCodVidTehniki->Value==0 )//проверка введенных данных
{ShowMessage("Введите вид товара!");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetComputerTehnikaDataPostup->Value= DateTimePickerDataPostup->Date;
ADODataSetComputerTehnika->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormComputerTehnika::ButtonOtmenClick(TObject *Sender)
{
ADODataSetComputerTehnika->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DiagrammaOklad.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormDiagrammaOklad *FormDiagrammaOklad;
//---------------------------------------------------------------------------
__fastcall TFormDiagrammaOklad::TFormDiagrammaOklad(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::FormShow(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::ADODataSetManagerCalcFields(
TDataSet *DataSet)
{
ADODataSetManagerFIO2->Value= ADODataSetManagerFIO->Value;
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormDiagrammaOklad::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDM1 *DM1;
//---------------------------------------------------------------------------
__fastcall TDM1::TDM1(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Dolgnost.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormDolgnost *FormDolgnost;
//---------------------------------------------------------------------------
__fastcall TFormDolgnost::TFormDolgnost(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormDolgnost::ButtonAddClick(TObject *Sender)
{
if(ADODataSetDolgnost->State==dsBrowse)
{ADODataSetDolgnost->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormDolgnost::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetDolgnost->RecordCount==0) //есть ли данные в БД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetDolgnost->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{ADODataSetManager->Close();
ADODataSetManager->CommandText= "select * from TablManager where CodDolgnost="+IntToStr(ADODataSetDolgnostCod->Value);
ADODataSetManager->Open();
if(ADODataSetManager->RecordCount>0)
{ShowMessage("Ошибка при удалении! В таблице 'TablManager' имеются связанные записи!"); //вывести сообщение в виде окошка
return;//выход из процедуры
}
ADODataSetDolgnost->Delete();//удалить запись из таблицы БД
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormDolgnost::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetDolgnost->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetDolgnost->State==dsBrowse)
ADODataSetDolgnost->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormDolgnost::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormDolgnost::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditName->Text=="" )//проверка введенных данных
{ShowMessage("Введите название!");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetDolgnost->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormDolgnost::ButtonOtmenClick(TObject *Sender)
{
ADODataSetDolgnost->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
void __fastcall TFormDolgnost::FormShow(TObject *Sender)
{
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
ADODataSetManager->Close();
ADODataSetManager->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormDolgnost::DBEditNameKeyPress(TObject *Sender,
char &Key)
{
if(Key==13)
ButtonPostClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MainAIS.h"
#include "Dolgnost.h"
#include "VidTehniki.h"
#include "Manager.h"
#include "ComputerTehnika.h"
#include "Prodazha.h"
#include "Vnalichii.h"
#include "Prodano.h"
#include "OtchetManager.h"
#include "DiagrammaOklad.h"
#include "Spravka.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMainAIS *FormMainAIS;
//---------------------------------------------------------------------------
__fastcall TFormMainAIS::TFormMainAIS(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N8Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N4Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormDolgnost), &FormDolgnost);
FormDolgnost->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N5Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormVidTehniki), &FormVidTehniki);
FormVidTehniki->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N3Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormManager), &FormManager);
FormManager->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N6Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormComputerTehnika), &FormComputerTehnika);
FormComputerTehnika->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N9Click(TObject *Sender)
{
N8Click(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N10Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormProdazha), &FormProdazha);
FormProdazha->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N12Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormVnalichii), &FormVnalichii);
FormVnalichii->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N13Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormProdano), &FormProdano);
FormProdano->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N14Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormOtchetManager), &FormOtchetManager);
FormOtchetManager->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormMainAIS::N11Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormDiagrammaOklad), &FormDiagrammaOklad);
FormDiagrammaOklad->ShowModal();
}
//---------------------------------------------------------------------------
//Вызов справки
void __fastcall TFormMainAIS::N15Click(TObject *Sender)
{
Application->CreateForm(__classid(TFormSpravka), &FormSpravka);
FormSpravka->ShowModal();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "MainComputer.h"
#include "DM.h"
#include "MainAIS.h"
#include "string.h"
#include "stdio.h"
#include <algorithm>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormVxod *FormVxod;
int TekManager;
//---------------------------------------------------------------------------
__fastcall TFormVxod::TFormVxod(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::FormShow(TObject *Sender)
{
ComboBoxManager->Clear();
ADODataSetManager->Close();
ADODataSetManager->Open();
ADODataSetManager->First();
while(!ADODataSetManager->Eof)
{ComboBoxManager->Items->Add(ADODataSetManagerFIO->Value);
ADODataSetManager->Next();
}
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::BitBtnExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::ButtonVxodClick(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->CommandText= "select * from TablManager where FIO="+QuotedStr(ComboBoxManager->Text);
ADODataSetManager->Open();
if(ADODataSetManagerPassword->Value==EditPassword->Text)
{TekManager= ADODataSetManagerCod->Value;
Application->CreateForm(__classid(TFormMainAIS), &FormMainAIS);
FormMainAIS->ShowModal();
Close();
}
else ShowMessage("Неверный пароль!");
}
//---------------------------------------------------------------------------
void __fastcall TFormVxod::EditPasswordKeyPress(TObject *Sender, char &Key)
{
if(Key==13)
ButtonVxodClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Manager.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormManager *FormManager;
//---------------------------------------------------------------------------
__fastcall TFormManager::TFormManager(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormManager::FormShow(TObject *Sender)
{
ADODataSetManager->Close();
ADODataSetManager->Open();
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormManager::ButtonAddClick(TObject *Sender)
{
if(ADODataSetManager->State==dsBrowse)
{ADODataSetManager->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DateTimePicker1->Date= Date();
DBEditFIO->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormManager::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetManager->RecordCount==0) //есть ли данные в БД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetManager->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
ADODataSetManager->Delete();//удалить запись из таблицы БД
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormManager::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetManager->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetManager->State==dsBrowse)
ADODataSetManager->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DateTimePicker1->Date= ADODataSetManagerDataRozhd->Value;
DBEditFIO->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormManager::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormManager::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditFIO->Text=="" )//проверка введенных данных
{ShowMessage("Введите Ф.И.О. !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditPasport->Text=="" )//проверка введенных данных
{ShowMessage("Введите паспорт !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditOklad->Text=="" )//проверка введенных данных
{ShowMessage("Введите оклад !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(DBEditPassword->Text=="" )//проверка введенных данных
{ShowMessage("Введите пароль !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
if(ADODataSetManagerCodDolgnost->Value==0 )//проверка введенных данных
{ShowMessage("Введите должность !");//вывод диалогового окна с сообщением
return;//выход из процедуры
}
//-----------
ADODataSetManagerDataRozhd->Value= DateTimePicker1->Date;
ADODataSetManager->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
ButtonChange->Enabled=true;//сделать кнопку Изменить доступной
ButtonDelete->Enabled=true;//сделать кнопку Удалить доступной
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Отменить
void __fastcall TFormManager::ButtonOtmenClick(TObject *Sender)
{
ADODataSetManager->Cancel();//отменить все изменения - данные в таблице БД не сохраняются
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}
//---------------------------------------------------------------------------
void __fastcall TFormManager::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "OtchetManager.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormOtchetManager *FormOtchetManager;
//---------------------------------------------------------------------------
__fastcall TFormOtchetManager::TFormOtchetManager(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::FormShow(TObject *Sender)
{ char *s;
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
ADODataSetDolgnost->Close();
ADODataSetDolgnost->Open();
ADODataSetManager->Close();
ADODataSetManager->CommandText= "select TablManager.FIO as 'ФИО менеджера',TablDolgnost.name as 'Должность',TablHistory.cena as 'Цена',TablComputerTehnika.name as 'Название товара' from TablManager,TablHistory,TablDolgnost,TablComputerTehnika where (TablManager.Cod=TablHistory.CodManager)and(TablDolgnost.Cod=TablManager.CodDolgnost)and(TablHistory.CodComputerTehnika=TablComputerTehnika.Cod)";
ADODataSetManager->Open();
DBGridManager->Columns->Items[0]->Width=290;
DBGridManager->Columns->Items[1]->Width=160;
DBGridManager->Columns->Items[2]->Width=60;
DBGridManager->Columns->Items[3]->Width=410;
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::N1Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormOtchetManager::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Prodano.h"
#include "DM.h"
#include "UnitReport2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormProdano *FormProdano;
//---------------------------------------------------------------------------
__fastcall TFormProdano::TFormProdano(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::DBGridComputerTehnikaCellClick(
TColumn *Column)
{
if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
else DBImageFoto->Visible=true;
if(ADODataSetComputerTehnika->RecordCount==0)
{DBImageFoto->Visible=false;
DBMemoOpisanie->Visible=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::FormShow(TObject *Sender)
{ TColumn *Column;
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
DBGridComputerTehnikaCellClick(Column);
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Печать
void __fastcall TFormProdano::ButtonPrintClick(TObject *Sender)
{
Application->CreateForm(__classid(TFormReport2), &FormReport2);
FormReport2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::N1Click(TObject *Sender)
{
ButtonPrintClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdano::N2Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Prodazha.h"
#include "DM.h"
#include "MainComputer.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormProdazha *FormProdazha;
//---------------------------------------------------------------------------
__fastcall TFormProdazha::TFormProdazha(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при отображении формы
void __fastcall TFormProdazha::FormShow(TObject *Sender)
{ TColumn *Column;
DateTimePickerDataProdazhi->Date= Date();
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
DBGridComputerTehnikaCellClick(Column);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::DBGridComputerTehnikaCellClick(
TColumn *Column)
{
if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
else DBImageFoto->Visible=true;
if(ADODataSetComputerTehnika->RecordCount==0)
{DBImageFoto->Visible=false;
GroupBoxOpisanie->Visible= false;
}
else
GroupBoxOpisanie->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::ButtonProdatClick(TObject *Sender)
{TColumn *Column;
if(Application->MessageBoxA("Подтвердите продажу товара !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{if(ADODataSetComputerTehnika->RecordCount==0)
{ShowMessage("Товар отсутствует в продаже!");
return;
}
ADODataSetComputerTehnika->Edit();
ADODataSetComputerTehnikaProdan->Value=1;
ADODataSetComputerTehnika->Post();
ADODataSetComputerTehnika->Refresh();
ADODataSetHistory->Insert();
ADODataSetHistoryCodComputerTehnika->Value= ADODataSetComputerTehnikaCod->Value;
ADODataSetHistoryCodManager->Value= TekManager;
ADODataSetHistoryDataProdazhi->Value= DateTimePickerDataProdazhi->Date;
ADODataSetHistoryCena->Value= ADODataSetComputerTehnikaCena->Value;
ADODataSetHistory->Post();
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
DBGridComputerTehnikaCellClick(Column);
}
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::N1Click(TObject *Sender)
{
ButtonProdatClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TFormProdazha::N2Click(TObject *Sender)
{
ButtonExitClick(Sender);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("MainComputer.cpp", FormVxod);
USEFORM("DM.cpp", DM1); /* TDataModule: File Type */
USEFORM("Dolgnost.cpp", FormDolgnost);
USEFORM("MainAIS.cpp", FormMainAIS);
USEFORM("VidTehniki.cpp", FormVidTehniki);
USEFORM("Manager.cpp", FormManager);
USEFORM("ComputerTehnika.cpp", FormComputerTehnika);
USEFORM("Prodazha.cpp", FormProdazha);
USEFORM("Vnalichii.cpp", FormVnalichii);
USEFORM("UnitReport.cpp", FormReport);
USEFORM("Prodano.cpp", FormProdano);
USEFORM("UnitReport2.cpp", FormReport2);
USEFORM("OtchetManager.cpp", FormOtchetManager);
USEFORM("DiagrammaOklad.cpp", FormDiagrammaOklad);
USEFORM("Spravka.cpp", FormSpravka);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TFormVxod), &FormVxod);
Application->CreateForm(__classid(TDM1), &DM1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Spravka.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormSpravka *FormSpravka;
//---------------------------------------------------------------------------
__fastcall TFormSpravka::TFormSpravka(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormSpravka::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UnitReport.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormReport *FormReport;
bool Pr;
//---------------------------------------------------------------------------
__fastcall TFormReport::TFormReport(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//выполняется после закрытия окна просмотра отчета
void __fastcall TFormReport::QuickRep1AfterPreview(TObject *Sender)
{
FormReport->Close(); //закрыть форму
}
//---------------------------------------------------------------------------
//выполняется при активации формы
void __fastcall TFormReport::FormActivate(TObject *Sender)
{
if(Pr==false)
Pr=true;
else
{Pr=false;
FormReport->Close();
return;
}
QuickRep1->Visible=false;
QuickRep1->Preview();//показать окно предварительного просмотра отчета
}
//---------------------------------------------------------------------------
//выполняется при отображении формы
void __fastcall TFormReport::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UnitReport2.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormReport2 *FormReport2;
bool Pr;
//---------------------------------------------------------------------------
__fastcall TFormReport2::TFormReport2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//выполняется после закрытия окна просмотра отчета
void __fastcall TFormReport2::QuickRep1AfterPreview(TObject *Sender)
{
FormReport2->Close(); //закрыть форму
}
//---------------------------------------------------------------------------
//выполняется при активации формы
void __fastcall TFormReport2::FormActivate(TObject *Sender)
{
if(Pr==false)
Pr=true;
else
{Pr=false;
FormReport2->Close();
return;
}
QuickRep1->Visible=false;
QuickRep1->Preview();//показать окно предварительного просмотра отчета
}
//---------------------------------------------------------------------------
//выполняется при отображении формы
void __fastcall TFormReport2::FormShow(TObject *Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
ADODataSetHistory->Close();
ADODataSetHistory->Open();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "VidTehniki.h"
#include "DM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormVidTehniki *FormVidTehniki;
//---------------------------------------------------------------------------
__fastcall TFormVidTehniki::TFormVidTehniki(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Добавить
void __fastcall TFormVidTehniki::ButtonAddClick(TObject *Sender)
{
if(ADODataSetVidTehniki->State==dsBrowse)
{ADODataSetVidTehniki->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DBEditName->SetFocus();
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Удалить
void __fastcall TFormVidTehniki::ButtonDeleteClick(TObject *Sender)
{
if(ADODataSetVidTehniki->RecordCount==0) //есть ли данные в БД
{ButtonChange->Enabled=false;//сделать кнопку Изменить недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetVidTehniki->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление записи !","Внимание",MB_ICONWARNING+MB_YESNO)==IDYES)
{ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->CommandText= "select * from TablComputerTehnika where CodVidTehniki="+ADODataSetVidTehnikiCod->AsString;
ADODataSetComputerTehnika->Open();
if(ADODataSetComputerTehnika->RecordCount>0)
{ShowMessage("Ошибка при удалении! В таблице 'TablComputerTehnika' имеются связанные записи!"); //вывести сообщение в виде окошка
return;//выход из процедуры
}
ADODataSetVidTehniki->Delete();//удалить запись из таблицы БД
}
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void __fastcall TFormVidTehniki::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetVidTehniki->RecordCount==0) //есть ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetVidTehniki->State==dsBrowse)
ADODataSetVidTehniki->Edit();//перевести таблицу БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void __fastcall TFormVidTehniki::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
//------Выполняется при нажатии кнопки Запомнить
void __fastcall TFormVidTehniki::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);
- Повышение конкуренции организации в современных условиях
- Виды и состав угроз информационной безопасности
- Исковая давность и ее гражданско-правовое значение (История становления и развития института исковой давности)
- Процесс разработки бизнес-плана предприятия питания1.1 Цель разработки бизнес-плана
- Классификация групп и их значение
- Понятие аутсорсинга. ИТ-аутсорсинг
- Основные элементы налога на добавленную стоимость
- Понятие и классификация функций государства (Характеристика внутренних функций государства)
- Анализ применяемых технологий для моделирования бизнес-процессов бюджетирования в компании ОАО «АК ЛМЗ»
- .Нотариальные действия.
- Биография основателя шрифта Times New Roman.
- Понятие государства как конституционно-правового института