Сеть компьютерных магазинов '21 век'

Сеть компьютерных магазинов '21 век'

Федеральное агентство по образованию РФ

РГРТУ

Кафедра ВПМ

Пояснительная записка

к курсовому проекту

по дисциплине

«Клиент-серверные технологии баз данных»

по теме:

Сеть компьютерных магазинов “21 век”

Выполнили студенты группы 547:

Хрусталев К.Д.

Бехтин А.А.

Рязань, 2008

Введение

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

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

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

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

• проектирование БД;

• создание файла проекта БД;

• создание БД (формирование и связывание таблиц, ввод данных);

• создание меню приложения;

• создание запросов;

• создание экранных форм, отчетов;

• генерация приложения как исполняемой программы.

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

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

1. Анализ задачи

1.1 Исследование информационных потребностей пользователя ИС

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

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

2.      Просмотр информации о магазинах, продавцах, поставщиках, продажах, покупателях, заказах, комплектующих, каталоге.

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

.        Просмотр и печать информации о комплектующих требуемого компьютера.

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

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

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

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

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

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

.        Возможность просмотра информации из таблиц в режиме реального времени.

.2 Разработка общей структуры ИС

При разработке информационной системы была использована архитектура «Клиент-сервер».

Рис.1. Архитектура «Клиент-сервер»

В архитектуре «клиент-сервер» БД размещается на компьютере-сервере сети. Приложение, осуществляющее работу с этой БД, находится на компьютере пользователя. Приложение пользователя является клиентом. Клиент и сервер взаимодействуют следующим образом: клиент формирует и отсылает запрос (SQL-запрос) серверу, на котором размещена БД. Сервер выполняет запрос и выдает клиенту в качестве результатов требуемые данные. К достоинствам такой архитектуры относятся:

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

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

в приложении отсутствует код, связанный с управлением БД, поэтому приложения упрощаются.

Структура информационной системы представляет собой клиентское приложение, написанное на языке программирования высокого уровня Borland Delphi7, взаимодействующее с базой данных «Kursovaya» с помощью технологии ADO. База данных разработана на языке Transact-SQL в системе управления базами данных Microsoft SQL Server 2000.

2. Разработка серверной части информационной системы

.1 Инфологическое проектирование БД

.1.1 Выявление сущностей и связей

Инфологическая модель позволяет представить структуру данных в наиболее общем виде. Инфологическая модель строится по результатам анализа предметной области. Она позволяет отобразить все выявленные объекты и связи между ними. В рамках данной модели не отображаются списки выявленных свойств объектов, хотя при анализе предметной области объекта такие свойства выявляются. В инфологической модели объекты называют сущностями. Этап разработки данной модели является наиболее сложным. Ошибки в составлении модели, выявленные на последующих этапах разработки могут привести к необходимости полной переработки базы данных. Наиболее распространенным способом разработки инфологической модели является метод ER-диаграмм (метод “сущность-связь”). Суть метода заключается в том, что в предметной области выявляются сущности соответствующие всем присутствующим в предметной области классам объектов. Далее между сущностями выявляются связи. Полученные сущности и связи изображают с помощью ER-диаграмм.

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

-        Магазин - сущность, содержащая информацию о магазинах;

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

-       Покупатели - сущность для описания покупателей магазина;

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

-       Каталог - сущность, содержащая информацию о предоставляемом товаре;

-       Поставщики - сущность для описания поставщиков;

-       Комплектующие - сущность, содержащая информацию о комплектующих компьютера;

-       Заказы - сущность, позволяющая вести учет о заказах;

Рассмотрим связи между сущностями.

Сущность Покупатели связана с сущностью Заказы. Одна фирма может сделать несколько заказов. Степень связи - «один-ко-многим».

Рис. 2.

Сущность Покупатели связана с сущностью Продажа. Одна фирма может участвовать в нескольких продажах. Степень связи - «один-ко-многим».

Рис. 3.

Сущность Продавцы связана с сущностью Продажа.Один продавец может оформить несколько продаж. Степень связи - «один-ко-многим».

Рис. 4.

Сущность Продавцы связана с сущностью Заказы. Один продавец может оформить несколько заказов. Степень связи - «один-ко-многим».

Рис. 5.

Сущность Каталог связана с сущностью Продажа. Из каталога выбираются товары для продажи. Степень связи - «один-ко-многим».

Рис. 6.

Сущность Каталог связана с сущностью Заказы. Из каталога выбираются товары для оформления заказов. Степень связи - «один-ко-многим».

Рис. 7.

Сущность Магазин связана с сущностью Продавцы. В магазине может работать несколько продавцов. Степень связи - «один-ко-многим».

Рис. 8.

Сущность Магазин связана с сущностью Продажа. В одном магазине может осуществляться несколько операций продажи. Степень связи - «один-ко-многим».

1 N

Рис. 9.

Сущность Магазин связана с сущностью Заказы. В одном магазине может оформляться несколько заказов. Степень связи - «один-ко-многим».

Рис. 10.

Сущность Каталог связана с сущностью Комплектующие. Каждому товару из каталога соответствует совокупность комплектующих. Степень связи - «один-к-одному».

Рис. 11.

Сущность Поставщики связана с сущностью Каталог. Поставщики поставляют товары, которые вносятся в каталог. Степень связи - «один-ко-многим».

Рис. 12.

2.1.2 Выявление атрибутов сущностей. Назначение первичных ключей

Рассмотрим атрибуты каждой сущности:

·        Покупатели (Номер покупателя, Название фирмы, ФИО, Адрес, Телефон);

·        Продавцы (Номер магазина, Личный номер, ФИО);

·        Поставщики (Номер поставщика, Название фирмы, Адрес, Телефон);

·        Магазин (Номер магазина, Название, ФИО директора, Адрес);

·        Каталог (Артикул, Наименование товара, Количество товара в наличии, Описание, Наличие, Цена, Номер поставщика);

·        Комплектующие (Артикул, Наименование товара, Материнская плата,Процессор, Кулер, Видеокарта, Оперативная память, Винчестер, Клавиатура, Монипулятор, DVD_CD, Корпус, Floopy);

·        Заказы (Личный номер, Номер покупателя, Номер магазина, Дата, Количество, Артикул);

·        Продажа (Артикул, Номер покупателя, Номер магазина, Дата, Количество, Личный номер).

2.1.3 Построение Er-диаграммы

В результате получаем ER-диаграмму (рис.13):

Рис. 13. ER-диаграмма, полученная с помощью программы ER-Win

2.2 Даталогическое проектирование БД

.2.1 Переход от ЕR-диаграммы к предварительным отношениям

При преобразовании модели ЕR-типов в реляционную модель данных использовались следующие правила:

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

2)      Если имеет место связь 1:1 и класс принадлежности одной из сущности обязательный, другой - необязательный, то для каждой сущности формируется по одному предварительному отношению. Первичными ключами отношений будут первичные ключи сущностей. В отношении для сущности с обязательным классом принадлежности добавляется внешний ключ в виде атрибута, значения которого должны соответствовать значениям первичного ключа другой сущности;

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

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

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

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

2.2.2 Проверка предварительных отношений на соответсвие нормальным формам

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

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

1.      Данное отношение находится в 1НФ, так как в нем каждое значение, содержащееся на пересечении строки и колонки, не расчленяемо на несколько значений.

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

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

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

Аналогичным образом проверяются все остальные таблицы.

2.2.3 Построение схемы данных

Рис. 15. Схема данных

2.2.4 Задание частных ограничений целостности

При разработке данного клиент-серверного приложения был обеспечен контроль целостности данных по 3-уровневой схеме:

. Контроль целостности связи.

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

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

Фрагмент приложения, который является примером обеспечения целостности третьего уровня:

val(edit1.Text,x,z1);edit11.Text<>''val(edit11.Text,x,z2)

else z2:=0;(z1=0) and (z2=0)

and (edit1.Text<>'') and (edit3.Text<>'')begin. Parameters.ParamValues['@nazv']:= Edit2.Text;. Parameters.ParamValues['@fio']:= Edit3.Text;.Parameters.ParamValues['@adr']:= Edit4.Text;edit11.Text<>''.Parameters.ParamValues['@tel']:= Edit11.Text;.Parameters.ParamValues['@nom']:=Edit1.Text;.ExecProc;.Close;.Open;showmessage('Неправильный ввод');

…

Данный фрагмент содержит обработчик исключений, который предотвращает ошибку SQL Server при некорректно введенном номере покупателя в параметр процедуры добавления записи путем ввода либо пустой строки, либо переменной сторокового типа (тип данных параметра @nom integer).

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

2.3    Разработка хранимых процедур и функций

Основные процедуры, используемые в приложении, представлены в табл. 2.

Табл. 2. Процедуры

Рассмотрим детально работу одной из процедур каждого раздела:

1)      Добавление

Пример: процедура Proc2

CREATE PROCEDURE proc2 (

@nom int,

@nazv varchar(50),

@fio varchar(50),

@adr varchar(70),

@tel int

)

INSERT INTO Pokupateli (Nomer_pokupatelya, Nazvanie_firmi, FIO, Adres, Telefon)

VALUES (@nom, @nazv, @fio, @adr, @tel)

В данной процедуре происходит добавление записи о покупателе, входными параметрами для которой являются: Nomer_pokupatelya(@nom), Nazvanie_firmi(@nazv),FIO(@fio),Adres(@adr),Telefon(@tel).

2)      Редактирование

Пример: процедура procupdate2

PROCEDURE procupdate2 (

@nom int,

@nazv varchar(50),

@fio varchar(70),

@adr varchar(70),

@tel int

)PokupateliNazvanie_firmi=@nazv,=@fio,=@adr,= @telNomer_pokupatelya=@nom

Процедура выполняет редактирование записи о покупателе с номером @nom. Входными параметрами являются: Nomer_pokupatelya(@nom), Nazvanie_firmi(@nazv),FIO(@fio),Adres(@adr),Telefon(@tel).

3)      Удаление

Пример: процедура procdel221

PROCEDURE procdel221 (

@N1 varchar(20)) AS

@err int@N1 not in (select Nomer_pokupatelya from Pokupateli)2(@N1 in (select Nomer_pokupatelya from Pokupateli )) and

(@N1 in (select Nomer_pokupatelya from Zakazi))and

(@N1 in (select Nomer_pokupatelya from Prodazha))1Nomer_pokupatelya=@N1 @err

GO

Процедура выполняет удаление записи о покупателе с номером @n1 из таблицы Покупатели.

4)      Отчет

Пример: процедура procdel221

CREATE PROCEDURE procreportkomplekt2 (@n int)Artikul as art, Naimenovanie_tovara as tovar, Materinskaya_plata as plata,as proce, Kuler as kul, Videokarta as vid, Operativnaya_pamyat as pam,as vint, Klaviatura as kla, Monipulyator as man, DVD_CD as dvd, Korpus as kor, Floopy as flKomplektuyuschie Artikul=@n

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

3.     
Разработка клиентской части информационной системы

3.1    Организация взаимодействия клиентской программы с БД

Приложение разрабатывалось в среде Borland Delphi 7.0. Взаимодействие с БД осуществляется с помощью следующих компонентов, входящих в стандартный набор этой системы:

1)    ADOConnection;

2)      DataSource;

3)      ADOTable;

4)      DBGrid;

)        ADOStoredProc;

6)      DBlookupcombobox:

7)      DBNavigator.

Компонент ADOConnection (соединение с базой данных) имеет ряд свойств для настройки подключения к БД.

Доступ к ресурсам осуществляется с помощью хранимых процедур - компонентов ADOStoredProc. Данный компонент применяется для выполнения процедур, хранимых на сервере. Основными свойствами StoredProc являются StoredProcName, в котором задается имя хранимой процедуры, хранящейся непосредственно на сервере БД, и свойство Params, в которое мы передаем необходимые для запуска хранимой процедуры параметры.

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

Компонент DataSource является промежуточным звеном между компонентами ADOTable или StoredProc и визуальными компонентами (например, DBGrid). Чтобы связать компонент ADOTable и компонент DataSource, указывают название первого в свойстве DataSet последнего.

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

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

.2 Разработка интерфейса пользователя

.2.1 Разработка форм

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

Приведем список форм, из которых состоит приложение, с указанием визуальных компонентов, расположенных на них.

1.      Form1 (модуль Unit1) - форма главного окна программы (рис. 16).

Рис. 16. Форма главного окна программы

Список компонентов, расположенных на форме Form1:

1)  MainMenu1 - основное меню;

2)      PageControl1 - набор вкладок;

3)      DBGrid1 - таблица для вывода информации о магазинах;

4)      DBGrid2 - таблица для вывода информации о покупателях;

5)      DBGrid3 - таблица для вывода информации о поставщиках;

6)      DBGrid4 - таблица для вывода информации о продавцах;

7)      DBGrid5 - таблица для вывода информации о каталоге;

8)      DBGrid6 - таблица для вывода информации о продажах;

9)      DBGrid7 - таблица для вывода информации о заказах;

10)    DBGrid8 - таблицы для вывода информации о комплектующих;

11)    Label - набор надписей;

12)    Edit- набор полей данных;

13)    Button - набор кнопок.

. Form2 (модуль Unit2) - форма для выбора пользователя приложения и ввода пароля (рис. 17).

Рис. 17. Форма для выбора пользователя приложения

. Form4 (модуль Unit4) - форма для изменения пользователя приложения (рис. 19).

Рис. 19. Форма для изменения пользователя приложения

5. Form5 (модуль Unit5) - форма для изменения пароля пользователя (рис. 20).

Рис. 20. Форма для изменения пароля пользователя

.2.2 Разработка отчетов

Для создания отчетов в данном проекте использовалась технология Rave Reports. Использовались следующие компоненты:

·        TRvProject - компонент отчета. Обеспечивает загрузку ранее созданного в визуальной среде Rave Reports отчета из файла с расширением rav.

·        TRvSystem - компонент управления отчетом. Обеспечивает работу приложения с отчетом. Взаимодействуя с компонентом отчета, с одной стороны, и сервером отчета Rave Reports, с другой, этот компонент обеспечивает просмотр и печать отчетов.

·        TRvDataSetConnection - компонент соединения с источниками данных, предназначенные для подключения отчетов к различным источникам данных.

Основой отчета является файл отчета с расширением rav, который создается в визуальной среде разработки Rave Reports и называется проектом отчета. Созданный проект отчета необходимо связать с приложением Delphi. Для этого используется компонент TRvProject, который обеспечивает представление отчета в приложении. Для просмотра и печати отчета используется компонент TRvSystem, который взаимодействует непосредственно с ядром Rave Reports. При компоновке приложения ядро Rave Reports автоматически включается в его состав.

В проекте были созданы следующие отчеты:

. Отчет «Гарантийный талон»

. Отчет «Комплектующие»

.3 Разработка сценария инсталляции клиентской программы

Процесс установки приложения описывается с помощью так называемого сценария установки, представляющего собой текстовый файл с расширением *.iss. Рассмотрим процесс создания простого сценария для установки приложения project1.exe.

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

Секция [Setup] содержит основные настройки процесса установки. К наиболее часто используемым настройкам относится следующее:

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

= Центр продажи компьютерной техники

. Краткое название приложения и версия. Позволяет задать сокращенное название приложения, которое будет использоваться при создании ярлыков и пунктов главного меню. Также позволяет указать версию приложения. Например:

= 21 век 1.0

3. Автор приложения. Позволяет задать имя автора, создавшего приложение. Например:

= Хрусталев

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

={pf}\ BD

Ключевое слово {pf} означает ссылку на стандартный каталог Program Files.

. Имя группы. Позволяет задать имя папки в главном меню, где будут созданы ярлыки для приложения. Например:

= 21 век

. Запрет приглашения. Позволяет запретить показ приглашения перед началом установки. Например:

=yes

Секция [Languages] позволяет задать язык, на котором будут выводиться сообщения. Чтобы использовать русский язык следует указать:

[Languages]

Name: "ru"; MessagesFile: "compiler:russian.isl"

Секция [Types] позволяет указать различные типы установки приложения: полную, стандартную, выборочную, минимальную и т.п. Например:

[Types] : "custom"; Description: "Выборочная установка"; : iscustom : "full"; Description: "Полная установка"

В данном примере используются два типа установки: выборочная и полная. Каждому типу установки ставится в соответствие имя, задаваемое с помощью параметра Name. С помощью параметра Description задается название типа установки, которое будет выводиться в процессе установки. Параметр Flags со значением iscustom позволяет указать, что данный тип установки является выборочным, т.е. пользователь может выбирать компоненты приложения, который требуется установить.

Секция [Components] позволяет перечислить те компоненты, из которых состоит приложение. Под компонентом понимают группу логически взаимосвязанных файлов, которые должны устанавливаться совместно. Каждому компоненту задается имя с помощью параметра Name. С помощью параметра Description задается название компонента, которое будет выводиться в процессе установки. Параметр Types позволяет перечислить имена типов установки, для которых разрешено использование данного компонента.

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

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

         •DestDir - полный или относительный путь, куда будет устанавливаться файл,. Путь относительно к каталогу установки, выбранного пользователем может быть задан с помощью ключевого слова {app}. Ссылка на каталог временных файлов осуществляется с помощью ключевого слова {tmp}.

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

         • Components - имя компонента, к которому относится файл.

Например:

[Files]

;Приложение

Source: "project1.exe"; DestDir: "{app}";

CopyMode: alwaysoverwrite; Components: program

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

Секция [Icons] позволяет создать ярлыки для приложения, расположенные в главном меню или на рабочем столе. Для определения каждого ярлыка требуется задать следующие параметры: - имя ярлыка и его местоположение ({group} - папка в главном меню; {userdesktop} - на рабочем столе)

; Filename - путь и имя файла, для которого создается ярлык

; WorkingDir - рабочий каталог программы

; Components - компонент, к которому относится данный ярлык

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

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

.4 Руководство пользователя

3.4.1 Общие сведения о программе

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

Возможности программы реализованы в соответствии с задачами, поставленными в п. 1.1.

.4.2 Условия применения программы

Технические требования:

1)  ПК типа IBM PC на базе процессора i486 или выше;

2)      5 МБ свободного пространства на жестком диске;

)        VGA-совместимый адаптер;

)        Клавиатура;

)        манипулятор.

Программные требования:

o   Windows 95/98/ME/2000/XP;

o   MS SQL Server 2000.

3.4.3 Сведения о входных и выходных данных

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

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

3.4.4 Проверка программы

Администратор может вносить изменения в БД, а пользователь может только просматривать информацию. Затем требуется ввести пароль и нажать кнопку "Вход", Если введен пароль правильно, то появится окно основной программы (рис.24.).

Рис. 24. Основное окно программы

Для обновления информации о магазине на вкладке Магазины требуется нажать кнопку "Обновить информацию о магазине". После чего появятся поля данных для обновления (рис.25). Для подтверждения обновления требуется нажать кнопку "Выполнить обновление". Для завершения обновления записей требуется нажать кнопку "Завершить обновление".

Рис. 25. Вкладка Магазины

На вкладке Покупатели для добавления, обновления или удаления покупателя требуется нажать на соответствующую кнопку: "Добавить нового покупателя","Обновить информацию о покупателе", "Удалить покупателя" (рис.26).

Рис. 26. Вкладка Покупатели

Например, для добавления нового покупателя требуется нажать кнопку "Добавить нового покупателя". После чего появятся поля данных для обновления (рис.27). Для подтверждения добавления требуется нажать на кнопку "Выполнить добавление". Для завершения добавления записей требуется нажать кнопку "Завершить добавление".

Рис. 27. Вкладка Покупатели

На вкладке Поставщики для добавления, обновления или удаления поставщика требуется нажать на соответствующую кнопку: "Добавить нового поставщика","Обновить информацию о поставщике", "Удалить поставщика" (рис.28).

Рис. 28. Вкладка Поставщики

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

Рис. 29. Вкладка Поставщики

На вкладке Продавцы для добавления, обновления или удаления записи о продавце требуется нажать на соответствующую кнопку: "Принять на работу нового продавца","Обновить информацию о продавце", "Уволить продавца" (рис.30).

Рис. 30. Вкладка Продавцы

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

Рис. 31. Вкладка Продавцы

На вкладке Каталог для добавления, обновления или удаления записи о товаре требуется нажать на соответствующую кнопку: "Добавить новый товар","Обновить информацию о товаре", "Удалить товар" (рис.32).

Рис. 32. Вкладка Каталог

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

Рис. 32. Вкладка Каталог

На вкладке Комплектующие для добавления, обновления или удаления записи о товаре, а также для вывода отчета требуется нажать на соответствующую кнопку: "Добавить новый товар","Обновить информацию о товаре", "Удалить товар", "Комплектующие" (рис.33).

Рис. 33. Вкладка Комплектующие

Например, для вывода отчета о товаре требуется нажать кнопку "Комплектующие". После чего появится список товаров, с помощью которого выбирается товар, информацию о котором требуется вывести (рис.34). Для подтверждения вывода отчета требуется нажать на кнопку "Распечатать комплектующие".

Рис. 34. Вкладка Комплектующие

На вкладке Заказы для добавления, обновления или удаления записи о заказанном товаре требуется нажать на соответствующую кнопку: "Оформить заказ","Изменить условия заказа", "Отменить заказ" (рис.35).

Рис. 35. Вкладка Заказы

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

На вкладке Продажи для добавления записи о проданном товаре требуется нажать на соответствующую кнопку: "Оформить продажу"

Например, для вывода отчета требуется нажать кнопку "Гарантийный талон". После чего появится список покупателей, с помощью которого выбирается покупатель

Для подтверждения вывода отчета требуется нажать на кнопку "Распечатать гарантийный талон".

Для изменения пользователя приложения требуется нажать соответствующий пункт меню "Сменить пользователя". После чего появится окно, в котором требуется ввести пароль и нажать кнопку "Смена пользователя"

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

информационный магазин клиентский данные

Заключение

В ходе курсового проекта были решены следующие задачи:

·      Проектирование БД;

·        Разработка клиентского приложения.

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

Список используемой литературы

1.       Архангельский А.Я. Приемы программирования в Delphi на основе VCL. - М.: ООО «Бином-Пресс», 2006 г. - 944 с.: ил.

2.      Благодаров А.В., Гринченко Н.Н., Овечкин Г.В. Клиент-серверные технологии баз данных. Методические указания к лабораторным работам. РГРТУ, Рязань, 2007.

3.      http://delphiworld.narod.ru - 5000 статей

Приложение 1

Исходный текст хранимых процедур

CREATE PROCEDURE proc2 (

@nom int,

@nazv varchar(50),

@fio varchar(50),

@adr varchar(70),

@tel int

)

INSERT INTO Pokupateli (Nomer_pokupatelya, Nazvanie_firmi, FIO, Adres, Telefon)

VALUES (@nom, @nazv, @fio, @adr, @tel)

GO

CREATE PROCEDURE proc3 (

@nom int,

@nazv varchar(50),

@adr varchar(70),

@tel int

)INTO Postavschiki (Nomer_postavschika, Nazvanie_firmi, Adres, Telefon)

VALUES (@nom, @nazv, @adr, @tel)

CREATE PROCEDURE proc4 (

@nom int,

@lnom int,

@fio varchar(70)

)INTO Prodavci (Nomer_magazina, Lichniy_nomer, FIO)(@nom, @lnom, @fio)

CREATE PROCEDURE proc5 (

@art int,

@naim varchar(50),

@kol int,

@opis varchar(50),

@nal varchar(10),

@n int,

@cena int

)INTO Katalog (Artikul, Naimenovanie_tovara, Kolichestvo_tovara_v_nalichii, Opisanie, Nalichie,Nomer_postavschika,cena)(@art, @naim, @kol, @opis, @nal,@n,@cena)

CREATE PROCEDURE proc6 (

@art int,

@nomp int,

@nomm int,

@data datetime,

@kol int,

@l int)@f int@f=Kolichestvo_tovara_v_nalichiikatalogArtikul=@art@f>=@kolINTO Prodazha (Artikul, Nomer_pokupatelya, Nomer_magazina, Data, Kolichestvo,Lichniy_nomer)(@art, @nomp, @nomm, @data, @kol,@l)katalogKolichestvo_tovara_v_nalichii=Kolichestvo_tovara_v_nalichii-@kolArtikul=@artreturn 1

CREATE PROCEDURE proc7 (

@lnom int,

@nompo int,

@nomm int,

@data datetime,

@kol int,

@art int

)INTO Zakazi (Lichniy_nomer, Nomer_pokupatelya, Nomer_magazina, Data, Kolichestvo, Artikul)(@lnom, @nompo, @nomm, @data, @kol, @art)

CREATE PROCEDURE proc81 (

@naim varchar(150),

@mp varchar(150),

@proc varchar(150),

@kuler varchar(150),

@vid varchar(150),

@op varchar(150),

@vin varchar(150),

@klav varchar(150),

@manip varchar(150),

@DC varchar(150),

@Kor varchar(150),

@Floopy varchar(150),

@arti int

)INTO Komplektuyuschie ( Naimenovanie_tovara, Materinskaya_plata, Processor, Kuler, Videokarta, Operativnaya_pamyat, Vinchester, Klaviatura, Monipulyator, DVD_CD, Korpus, Floopy, Artikul)(@naim, @mp, @proc, @kuler, @vid, @op, @vin, @klav, @manip, @DC, @Kor, @Floopy, @arti)

CREATE PROCEDURE procupdate1 (

@nom int,

@nazv varchar(50),

@fio varchar(50),

@adr varchar(70))magazin=@nazv,_directora=@fio,=@adrNomer_magazina=@nom

CREATE PROCEDURE procupdate2 (

@nom int,

@nazv varchar(50),

@fio varchar(70),

@adr varchar(70),

@tel int

)PokupateliNazvanie_firmi=@nazv,=@fio,=@adr,= @telNomer_pokupatelya=@nom

CREATE PROCEDURE procupdate3 (

@nom int,

@nazv varchar(50),

@adr varchar(70),

@tel int

)Postavschiki Nazvanie_firmi=@nazv, Adres=@adr, Telefon=@tel

where Nomer_postavschika=@nom

CREATE PROCEDURE procupdate4 (

@nom int,

@lnom int,

@fio varchar(70)

)ProdavciNomer_magazina=@nom,FIO=@fio

where Lichniy_nomer=@lnom

CREATE PROCEDURE procupdate5 (

@art int,

@naim varchar(50),

@kol int,

@opis varchar(100),

@nal varchar(10),

@n int,@cena int

)Katalog_tovara=@naim,Kolichestvo_tovara_v_nalichii=@kol, =@opis,Nalichie=@nal,Nomer_postavschika=@n,cena=@cena

where Artikul=@art

CREATE PROCEDURE procupdate7 (

@lnom int,

@nompo int,

@nomm int,

@data datetime,

@kol int,

@art int

)ZakaziLichniy_nomer=@lnom,Nomer_magazina=@nomm,Data=@data,=@kol,Artikul=@artNomer_pokupatelya=@nompo

GO

create procedure procup8

(

@art int,

@naim varchar(150),

@mp varchar(150),

@proc varchar(150),

@kuler varchar(150),

@vid varchar(150),

@op varchar(150),

@vin varchar(150),

@klav varchar(150),

@manip varchar(150),

@DC varchar(150),

@Kor varchar(150),

@Floopy varchar(150)

)Komplektuyuschie

set Naimenovanie_tovara=@naim,Materinskaya_plata=@mp,Processor=@proc,Kuler= @kuler,=@vid,Operativnaya_pamyat=@op,Vinchester=@vin,Klaviatura=@klav,Monipulyator=@manip,_CD=@DC, Korpus=@Kor,Floopy=@Floopy

where=@art

CREATE PROCEDURE procdel221 (

@N1 varchar(20)) AS

@err int@N1 not in (select Nomer_pokupatelya from Pokupateli)2(@N1 in (select Nomer_pokupatelya from Pokupateli )) and

(@N1 in (select Nomer_pokupatelya from Zakazi))and

(@N1 in (select Nomer_pokupatelya from Prodazha))1Nomer_pokupatelya=@N1

return @err

CREATE PROCEDURE procdel3 (

@N1 int) AS

@err int@N1 not in (select Nomer_postavschika from Postavschiki)2(@N1 in (select Nomer_postavschika from Postavschiki )) (@N1 in (select Nomer_postavschika from Katalog )) 1Nomer_postavschika=@N1

return @err

CREATE PROCEDURE procdel4 (

@N1 int) AS

@err int@N1 not in (select Lichniy_nomer from Prodavci)2(@N1 in (select Lichniy_nomer from Prodavci ))

(@N1 in (select Lichniy_nomer from Zakazi))

(@N1 in (select Lichniy_nomer from Prodazha))1Lichniy_nomer=@N1

return @err

CREATE PROCEDURE procdel5 (

@N1 int) AS

@err int@N1 not in (select Artikul from Katalog)2(@N1 in (select Artikul from Katalog ))

(@N1 in (select Artikul from Zakazi))

(@N1 in (select Artikul from Prodazha))

(@N1 in (select Artikul from Komplektuyuschie))1Artikul=@N1

return @err

CREATE PROCEDURE procdel7 (

@N1 int) AS

@err int@N1 not in (select Nomer_pokupatelya from Zakazi)2Nomer_pokupatelya=@N1

return @err

CREATE PROCEDURE procdel8 (

@N1 int) AS

@err int@N1 not in (select Artikul from Komplektuyuschie)2@N1 in (select Artikul from Komplektuyuschie)@N1 in (select Artikul from Prodazha) @N1 in (select Artikul from Zakazi) 1Artikul=@N1

return @err

CREATE PROCEDURE procreportkomplekt2 (@n int)Artikul as art, Naimenovanie_tovara as tovar, Materinskaya_plata as plata,as proce, Kuler as kul, Videokarta as vid, Operativnaya_pamyat as pam,as vint, Klaviatura as kla, Monipulyator as man, DVD_CD as dvd, Korpus as kor, Floopy as flKomplektuyuschie Artikul=@nPROCEDURE reportprodazha (@n int

)Prodavci.FIO as fioprod,

Nazvanie_firmi as firma,as nazv,

Data as data1,.Cena as cena1,as kol,magazin.adres as adres1,Naimenovanie_tovara as tovar,.Artikul as art,katalog.Cena*Kolichestvo as summa1Prodazha inner join Pokupateli on Prodazha.Nomer_pokupatelya=Pokupateli.Nomer_pokupatelyajoin magazin on Prodazha.Nomer_magazina=magazin.Nomer_magazinajoin katalog on Prodazha.Artikul=katalog.Artikuljoin prodavci on Prodazha.Lichniy_nomer=prodavci.Lichniy_nomerProdazha.Nomer_pokupatelya=@n

Приложение 2

Исходный текст клиентской программы

Текст программы основного модуля

unit unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, DB, ADODB, StdCtrls, Grids, DBGrids, DBTables

,unit3, RpCon, RpConDS, RpBase, RpSystem, RpDefine, RpRave,,unit4,unit5,unit6, Menus, ExtCtrls, DBCtrls, MXGRID, MXPIVSRC,, Mxstore, TeeProcs, TeEngine, Chart, MXGRAPH, Series, XPMan;= class(TForm): TDataSource;: TADOConnection;: TADOTable;: TADOStoredProc;: TDataSource;: TADOStoredProc;: TADOTable;: TADOTable;: TADOStoredProc;: TDataSource;: TDataSource;: TADOStoredProc;: TADOTable;: TDataSource;: TADOStoredProc;: TADOTable;: TDataSource;: TADOStoredProc;: TADOTable;: TDataSource;: TADOStoredProc;: TADOTable;: TDataSource;: TADOTable;: TADOStoredProc;

ADOStoredProc9: TADOStoredProc;: TADOStoredProc;: TADOStoredProc;: TADOStoredProc;: TADOStoredProc;: TADOStoredProc;

RvProject1: TRvProject;: TRvSystem;: TRvDataSetConnection;: TRvDataSetConnection;: TADOStoredProc;: TADOStoredProc;: TRvProject;: TRvSystem;: TRvDataSetConnection;: TRvDataSetConnection;

ADOStoredProc17: TADOStoredProc;: TADOStoredProc;: TADOQuery;: TADOQuery;: TADOStoredProc;: TADOStoredProc;: TADOStoredProc;: TADOStoredProc;: TADOStoredProc;

ADOStoredProc24: TADOStoredProc;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;

PageControl1: TPageControl;: TTabSheet;: TLabel;: TLabel;: TLabel;: TLabel;

Button1: TButton;: TDBGrid;: TButton;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TButton;

TabSheet2: TTabSheet;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;

DBGrid2: TDBGrid;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TButton;: TButton;

TabSheet3: TTabSheet;: TLabel;: TLabel;

Label19: TLabel;: TLabel;: TButton;: TDBGrid;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TTabSheet;

Label11: TLabel;: TLabel;: TLabel;

Button4: TButton;: TEdit;: TDBGrid;: TEdit;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;

TabSheet5: TTabSheet;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;

DBGrid5: TDBGrid;: TEdit;: TEdit;: TButton;: TEdit;: TEdit;: TEdit;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;

TabSheet6: TTabSheet;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;

Label55: TLabel;: TButton;: TDBGrid;: TEdit;: TButton;: TButton;: TButton;: TButton;: TTabSheet;

Label37: TLabel;: TLabel;: TDBGrid;

Button8: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TRvProject;: TRvSystem;: TRvDataSetConnection;: TRvDataSetConnection;: TADOStoredProc;: TADOStoredProc;: TADOQuery;: TADOQuery;: TButton;: TButton;: TMenuItem;: TDBNavigator;: TDBNavigator;: TDBNavigator;: TDBNavigator;: TDBNavigator;: TDBNavigator;: TDataSource;: TADOTable;: TLabel;: TDBLookupComboBox;: TDBLookupComboBox;: TLabel;: TLabel;: TDBLookupComboBox;: TLabel;: TDBLookupComboBox;: TLabel;: TDBLookupComboBox;: TLabel;: TDBLookupComboBox;: TLabel;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TLabel;: TLabel;

Label67: TLabel;: TLabel;: TLabel;: TLabel;: TDBLookupComboBox;: TLabel;: TDBLookupComboBox;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;

DateTimePicker1: TDateTimePicker;: TTabSheet;: TLabel;

Label31: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;

Label30: TLabel;: TDBGrid;: TEdit;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TDBNavigator;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TDateTimePicker;: TDBLookupComboBox;: TDBLookupComboBox;: TLabel;Lichniy_nomer: TIntegerField;Nomer_pokupatelya: TIntegerField;Nomer_magazina: TIntegerField;Data: TDateTimeField;Kolichestvo: TIntegerField;Artikul: TIntegerField;Artikul: TIntegerField;Naimenovanie_tovara: TStringField;Kolichestvo_tovara_v_nalichii: TIntegerField;Opisanie: TStringField;Nalichie: TStringField;Cena: TBCDField;Nomer_postavschika: TIntegerField;firma: TStringField;tovar: TStringField;: TDBLookupComboBox;: TLabel;: TLabel;: TDBLookupComboBox;: TDBLookupComboBox;: TLabel;: TDBLookupComboBox;: TLabel;: TLabel;Artikul: TIntegerField;Nomer_pokupatelya: TIntegerField;Nomer_magazina: TIntegerField;Data: TDateTimeField;Kolichestvo: TIntegerField;Lichniy_nomer: TIntegerField;Field: TStringField;: TLabel;: TDBLookupComboBox;: TDBLookupComboBox;firma: TStringField;cena: TIntegerField;: TADOStoredProc;: TADOStoredProc;: TRvDataSetConnection;: TRvDataSetConnection;: TRvSystem;: TRvProject;: TRvProject;: TRvSystem;: TRvDataSetConnection;: TADOStoredProc;: TLabel;: TDBLookupComboBox;: TButton;: TButton;: TRvProject;: TRvSystem;: TRvDataSetConnection;: TADOStoredProc;: TRvDataSetConnection;: TADOStoredProc;: TEdit;: TLabel;: TADOStoredProc;: TMenuItem;: TLabel;: TLabel;: TButton;: TLabel;: TEdit;: TButton;: TEdit;: TLabel;: TButton;: TButton;: TButton;: TLabel;: TEdit;: TButton;: TButton;: TLabel;: TEdit;: TButton;: TButton;: TEdit;: TButton;: TButton;: TLabel;: TDBLookupComboBox;: TButton;: TButton;: TADOStoredProc;: TButton;: TButton;: TButton;: TADOStoredProc;nomer: TIntegerField;: TEdit;: TLabel;: TButton;: TButton;: TButton;: TDBLookupComboBox;: TLabel;: TADOStoredProc;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TDBLookupComboBox;: TLabel;: TImage;: TLabel;: TADOStoredProc;: TRvDataSetConnection;: TDecisionCube;: TDecisionSource;: TDecisionPivot;: TDecisionGrid;: TADOQuery;: TDataSource;: TADOQuery;: TADOTable;: TDecisionSource;: TDecisionCube;: TDecisionGraph;: TDecisionPivot;Artikul: TIntegerField;Naimenovanie_tovara: TStringField;Materinskaya_plata: TStringField;Processor: TStringField;Kuler: TStringField;Videokarta: TStringField;Operativnaya_pamyat: TStringField;Vinchester: TStringField;Klaviatura: TStringField;Monipulyator: TStringField;DVD_CD: TStringField;Korpus: TStringField;Floopy: TStringField;: TADOStoredProc;

ADOStoredProc38: TADOStoredProc;: TADOStoredProc;: TADOStoredProc;: TADOStoredProc;: TADOStoredProc;: TADOStoredProc;: TADOStoredProc;: TADOStoredProc;: TADOStoredProc;

ADOStoredProc47: TADOStoredProc;: TRvDataSetConnection;: TRvDataSetConnection;: TRvDataSetConnection;: TRvDataSetConnection;: TRvDataSetConnection;: TRvDataSetConnection;: TRvDataSetConnection;: TRvDataSetConnection;: TRvDataSetConnection;: TRvDataSetConnection;: TRvDataSetConnection;: TMenuItem;: TXPManifest;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button4Click(Sender: TObject);Button5Click(Sender: TObject);Button6Click(Sender: TObject);Button7Click(Sender: TObject);Button8Click(Sender: TObject);FormCreate(Sender: TObject);Button9Click(Sender: TObject);Button10Click(Sender: TObject);Button11Click(Sender: TObject);Button12Click(Sender: TObject);Button13Click(Sender: TObject);Button14Click(Sender: TObject);Button15Click(Sender: TObject);Button17Click(Sender: TObject);Button18Click(Sender: TObject);Button19Click(Sender: TObject);Button20Click(Sender: TObject);Button21Click(Sender: TObject);Button22Click(Sender: TObject);Button24Click(Sender: TObject);Button23Click(Sender: TObject);Button25Click(Sender: TObject);Button26Click(Sender: TObject);Button27Click(Sender: TObject);N4Click(Sender: TObject);N1Click(Sender: TObject);N2Click(Sender: TObject);Button28Click(Sender: TObject);Button31Click(Sender: TObject);Button29Click(Sender: TObject);Button32Click(Sender: TObject);Button30Click(Sender: TObject);Button33Click(Sender: TObject);Button34Click(Sender: TObject);Button35Click(Sender: TObject);Button36Click(Sender: TObject);Button37Click(Sender: TObject);Button38Click(Sender: TObject);Button39Click(Sender: TObject);Button43Click(Sender: TObject);Button44Click(Sender: TObject);Button45Click(Sender: TObject);Button40Click(Sender: TObject);Button41Click(Sender: TObject);Button42Click(Sender: TObject);Button47Click(Sender: TObject);Button16Click(Sender: TObject);Button46Click(Sender: TObject);Button54Click(Sender: TObject);Button53Click(Sender: TObject);Button50Click(Sender: TObject);Button51Click(Sender: TObject);Button52Click(Sender: TObject);Button49Click(Sender: TObject);Button57Click(Sender: TObject);Button58Click(Sender: TObject);Button59Click(Sender: TObject);Button48Click(Sender: TObject);Button55Click(Sender: TObject);Button56Click(Sender: TObject);Button63Click(Sender: TObject);Button64Click(Sender: TObject);Button65Click(Sender: TObject);Button60Click(Sender: TObject);Button61Click(Sender: TObject);Button62Click(Sender: TObject);Button66Click(Sender: TObject);Button67Click(Sender: TObject);N3Click(Sender: TObject);DBLookupComboBox2Click(Sender: TObject);DBLookupComboBox4Click(Sender: TObject);DBLookupComboBox6Click(Sender: TObject);DBLookupComboBox8Click(Sender: TObject);DBLookupComboBox10Click(Sender: TObject);DBLookupComboBox13Click(Sender: TObject);DBLookupComboBox3Click(Sender: TObject);DBLookupComboBox5Click(Sender: TObject);DBLookupComboBox7Click(Sender: TObject);DBLookupComboBox14Click(Sender: TObject);DBLookupComboBox16Click(Sender: TObject);DBLookupComboBox19Click(Sender: TObject);DBLookupComboBox22Click(Sender: TObject);DBLookupComboBox24Click(Sender: TObject);DBLookupComboBox11Click(Sender: TObject);DBLookupComboBox26Click(Sender: TObject);Button68Click(Sender: TObject);Button69Click(Sender: TObject);DBLookupComboBox28Click(Sender: TObject);Button70Click(Sender: TObject);Edit22KeyUp(Sender: TObject; var Key: Word;: TShiftState);Edit22Enter(Sender: TObject);Edit22Exit(Sender: TObject);Edit22Change(Sender: TObject);hggfh1Click(Sender: TObject);Button71Click(Sender: TObject);Button72Click(Sender: TObject);Button73Click(Sender: TObject);Button74Click(Sender: TObject);Button75Click(Sender: TObject);Button76Click(Sender: TObject);Button77Click(Sender: TObject);Button78Click(Sender: TObject);Button79Click(Sender: TObject);Button80Click(Sender: TObject);Button82Click(Sender: TObject);DBLookupComboBox29Click(Sender: TObject);Button81Click(Sender: TObject);Button83Click(Sender: TObject);Button85Click(Sender: TObject);Button84Click(Sender: TObject);Button87Click(Sender: TObject);Button86Click(Sender: TObject);DBLookupComboBox30Click(Sender: TObject);Button88Click(Sender: TObject);DBLookupComboBox42Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm1;,nomer:integer;

z1,z2,z3,z4,z5,z6,z7:integer;

bool:boolean;: TDateTime;:string;

{$R *.dfm}TForm1.Button1Click(Sender: TObject);

//ADOStoredProc1.ExecProc;

//ADOTable1.Refresh;parol then begin

//val(edit53.Text,x,z1);//(z1=0) and (edit53.Text<>'') and

(edit54.Text<>'')(edit55.Text<>'') and (edit56.Text<>'')begin.Parameters.ParamValues['@nom']:=dblookupcombobox2.KeyValue;. Parameters.ParamValues['@nazv']:= Edit54.Text;. Parameters.ParamValues['@fio']:= Edit55.Text;.Parameters.ParamValues['@adr']:= Edit56.Text;.ExecProc;.Close;.Open;

{label51.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false; }showmessage('Неправильный ввод');

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button2Click(Sender: TObject);

//addpokup.Form2.Visible:=true;(adotable2.Locate('Nomer_pokupatelya',edit1.Text,[])=false) then begin(edit1.Text,x,z1);edit11.Text<>''val(edit11.Text,x,z2)

else z2:=0;(z1=0) and (z2=0)

and (edit1.Text<>'') and (edit3.Text<>'')begin

//ADOStoredProc2. Parameters.ParamValues['@nom1']:= Edit45.Text;. Parameters.ParamValues['@nazv']:= Edit2.Text;. Parameters.ParamValues['@fio']:= Edit3.Text;.Parameters.ParamValues['@adr']:= Edit4.Text;edit11.Text<>''.Parameters.ParamValues['@tel']:= Edit11.Text;.Parameters.ParamValues['@nom']:=Edit1.Text;.ExecProc;.Close;.Open;showmessage('Неправильный ввод');

else showmessage('Запись уже существует');

//ADOTable2.Refresh;;TForm1.Button3Click(Sender: TObject);(adotable3.Locate('Nomer_postavschika',edit5.Text,[])=false) then begin(edit5.Text,x,z1);edit14.Text<>''val(edit14.Text,x,z2)

else z2:=0;(z1=0) and (z2=0)

and (edit5.Text<>'') and (edit6.Text<>'') and (edit13.Text<>'')begin. Parameters.ParamValues['@nom']:= Edit5.Text;.Parameters.ParamValues['@nazv']:= Edit6.Text;. Parameters.ParamValues['@adr']:= Edit13.Text;edit14.Text<>'' then. Parameters.ParamValues['@tel']:= Edit14.Text;.ExecProc;.Close;.Open;showmessage('Неправильный ввод');

else showmessage('Запись уже существует');

//ADOTable3.Refresh;;TForm1.Button4Click(Sender: TObject);(adotable4.Locate('Lichniy_nomer',edit8.Text,[])=false) then begin

//val(edit7.Text,x,z1);(edit8.Text,x,z2);//(z1=0) and

(z2=0)

//and (edit7.Text<>'')(edit8.Text<>'') and (edit15.Text<>'')begin. Parameters.ParamValues['@nom']:= nomer;. Parameters.ParamValues['@lnom']:= Edit8.Text;. Parameters.ParamValues['@fio']:= Edit15.Text;.ExecProc;.Close;.Open;showmessage('Неправильный ввод');

else showmessage('Запись уже существует');

//ADOTable4.Refresh;

//Edit8.Text:=

//ADOStoredProc4.Parameters.ParamValues['@RETURN_VALUE'];

end;TForm1.Button5Click(Sender: TObject);(adotable5.Locate('artikul',edit9.Text,[])=false) then begin(edit9.Text,x,z1);(edit16.Text,x,z2);(edit7.Text,x,z4);edit38.Text=''z3:=0if (edit38.Text='+') or (edit38.Text='-')

then z3:=0z3:=1;(z1=0) and (z3=0)and (z2=0) and (z4=0)

and (edit9.Text<>'') and (edit10.Text<>'') and (edit7.Text<>'')(edit16.Text<>'') and (dblookupcombobox12.Text<>'')begin. Parameters.ParamValues['@arti']:= Edit9.Text;. Parameters.ParamValues['@naim']:= Edit10.Text;edit16.Text<>'' then. Parameters.ParamValues['@kol']:= Edit16.Text;. Parameters.ParamValues['@opis']:= Edit17.Text;. Parameters.ParamValues['@nal']:= Edit38.Text;. Parameters.ParamValues['@cena']:= Edit7.Text;. Parameters.ParamValues['@n']:= dblookupcombobox12.KeyValue;.ExecProc;.Close;.Open;if z3=0 then showmessage('Неправильный ввод') showmessage('Неправильный ввод: Наличие +/-')

end

else showmessage('Запись уже существует');

// Считать значение выходного параметра

//Edit10.Text:= ADOStoredProc5.Parameters.ParamValues['@s'];

end;TForm1.Button6Click(Sender: TObject);parol then begin(edit22.Text,x,z5);(z5=0)(dblookupcombobox15.Text<>'') and

(dblookupcombobox16.Text<>'')(dblookupcombobox18.Text<>'')(edit22.Text<>'')begin. Parameters.ParamValues['@art']:= dblookupcombobox15.KeyValue;. Parameters.ParamValues['@nomp']:= dblookupcombobox16.KeyValue;

ADOStoredProc6. Parameters.ParamValues['@nomm']:= nomer;

ADOStoredProc6. Parameters.ParamValues['@data']:= datetimepicker1.Date;

//ADOStoredProc6. Parameters.ParamValues['@cena']:= Edit21.Text;. Parameters.ParamValues['@kol']:= Edit22.Text;. Parameters.ParamValues['@l']:= dblookupcombobox18.KeyValue;.ExecProc;:= ADOStoredProc6.Parameters.ParamValues['@RETURN_VALUE'];x of

0: showmessage('Продажа осуществлена');

: showmessage('Нет товара в наличии');

end;.Close;.Open;.Close;.Open;showmessage('Неправильный ввод');

else showmessage('У вас нет прав для изменения данных в БД');

//ADOStoredProc6.Close;

//ADOStoredProc6. Parameters.ParamValues['@n']:= Edit12.Text;

//ADOStoredProc6.Open;;TForm1.Button7Click(Sender: TObject);

//val(edit23.Text,x,z1);

//val(edit24.Text,x,z2);

//val(edit25.Text,x,z3);

//val(edit26.Text,x,z4);(edit23.Text,x,z5);(edit29.Text,x,z6);

//val(edit30.Text,x,z7);(z6=0) and (z5=0)(dblookupcombobox1.Text<>'')(dblookupcombobox21.Text<>'') and (dblookupcombobox19.Text<>'')

//and (edit28.Text<>'')

(edit29.Text<>'') and

(edit23.Text<>'')

//and (edit30.Text<>'') and (edit27.Text<>'')begin. Parameters.ParamValues['@n']:= Edit23.Text;. Parameters.ParamValues['@lnom']:= dblookupcombobox1.KeyValue;

//ADOStoredProc7. Parameters.ParamValues['@nomp']:= Edit24.Text;

ADOStoredProc7. Parameters.ParamValues['@nompo']:=dblookupcombobox19.KeyValue;. Parameters.ParamValues['@nomm']:= nomer;

ADOStoredProc7. Parameters.ParamValues['@data']:= datetimepicker2.Date;

//ADOStoredProc7. Parameters.ParamValues['@cena']:= Edit28.Text;. Parameters.ParamValues['@kol']:= Edit29.Text;. Parameters.ParamValues['@art']:= dblookupcombobox21.KeyValue;.ExecProc;.Close;.Open;showmessage('Неправильный ввод');;TForm1.Button8Click(Sender: TObject);(adotable8.Locate('artikul',dblookupcombobox42.KeyValue,[])=false)(adotable5.Locate('artikul',dblookupcombobox42.KeyValue,[])=true)begin

// val(dblookupcombobox42.k,x,z1);//(z1=0)

//dblookupcombobox42.Text<>'') and

(dblookupcombobox42.Text<>'')']:= dblookupcombobox42.KeyValue;.ExecProc;.Close;.Open;showmessage('Неправильный ввод');

else showmessage('Запись уже существует/данный товар отсутствует в каталоге');

end;TForm1.FormCreate(Sender: TObject);.Caption:=Unit2.Form2.DBLookupComboBox1.Text;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//label92.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//form1.Caption:='ООО ' + unit2.Form2.DBLookupComboBox1.Text;

// nomer:= unit2.Form2.DBLookupComboBox1.KeyValue;ADOtable6 dolocate('nomer_magazina',nomer,[])begin:= False;:= 'nomer_magazina = ' + Quotedstr(inttostr(nomer));:= True;

end

else begin showmessage('В данном магазине не осуществлялась ни одна продажа');

end ;ADOtable7 dolocate('nomer_magazina',nomer,[])begin:= False;:= 'nomer_magazina = ' + Quotedstr(inttostr(nomer));:= True;

end

else begin showmessage('В данном магазине не осуществлялся ни один заказ');end

end;ADOtable4 do('nomer_magazina',nomer,[])begin:= False;:= 'nomer_magazina = ' + Quotedstr(inttostr(nomer));:= True;

end

else begin showmessage('В данном магазине нет ни одного продавца');end

end;

//datetimepicker3.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//dblookupcombobox24.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//dbgrid1.Visible:=false;

//unit3.Form3.Visible:=true;

//addpokup.Form2.Visible:=true;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//1.Form2.Visible:=true;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//3.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//4.Visible:=false;.Visible:=false;.Visible:=false;

//edit7.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//5.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//6.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//label27.Visible:=false;.Visible:=false;.Visible:=false;

//edit12.Visible:=false;

//edit18.Visible:=false;

//edit19.Visible:=false;

//edit20.Visible:=false;

//edit21.Visible:=false;.Visible:=false;

//edit48.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//7.Visible:=false;

//label30.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//label34.Visible:=false;.Visible:=false;.Visible:=false;

//edit23.Visible:=false;

//edit24.Visible:=false;

//edit25.Visible:=false;

//edit26.Visible:=false;

//edit27.Visible:=false;

//edit28.Visible:=false;.Visible:=false;

//edit30.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//8.Visible:=false;.Visible:=false;

//label39.Visible:=false;

//label40.Visible:=false;

//label41.Visible:=false;

//label42.Visible:=false;

//label43.Visible:=false;.Visible:=false;

//label46.Visible:=false;

//label47.Visible:=false;

//abel48.Visible:=false;

//label49.Visible:=false;

//label50.Visible:=false;

//edit31.Visible:=false;

//edit32.Visible:=false;

//edit33.Visible:=false;

//edit34.Visible:=false;

//edit35.Visible:=false;

//edit36.Visible:=false;

//edit37.Visible:=false;.Visible:=false;

//edit39.Visible:=false;

//edit40.Visible:=false;

//edit41.Visible:=false;

//edit42.Visible:=false;

//edit43.Visible:=false;

//edit44.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//2.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button9Click(Sender: TObject);dbgrid1.Visible=falsedbgrid1.Visible:=truedbgrid1.Visible:=false;;TForm1.Button10Click(Sender: TObject);parol then begin.Visible:=true;.Visible:=true;

//val(edit1.Text,x,z1);

//if (z1=0)

//and (edit1.Text<>'')

//then begin. Parameters.ParamValues['@N1']:=dblookupcombobox3.KeyValue;.ExecProc;.Close;.Open;

//ADOTable4.Refresh;:=.Parameters.ParamValues['@RETURN_VALUE'];x of

: showmessage('Запись удалена');

1: showmessage('Невозможно удаление записи из-за связи с другими таблицами');

: showmessage('Данная запись не существует')

end;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button11Click(Sender: TObject);

//val(edit5.Text,x,z1);

//if //(z1=0)

//and

//(edit5.Text<>'') and

// (edit6.Text<>'') and (edit13.Text<>'')

//then

//begin.Visible:=true;.Visible:=true;. Parameters.ParamValues['@N1']:=dblookupcombobox5.KeyValue;.ExecProc;.Close;.Open;

//ADOTable4.Refresh;:=.Parameters.ParamValues['@RETURN_VALUE'];x of

: showmessage('Запись удалена');

1: showmessage('Невозможно удаление записи из-за связи с другими таблицами');

: showmessage('Данная запись не существует')

end;

//end

//else showmessage('Неправильный ввод');;TForm1.Button12Click(Sender: TObject);

//val(edit8.Text,x,z1);

//if (z1=0)

//and (edit8.Text<>'')

//then begin

ADOStoredProc11. Parameters.ParamValues['@N1']:=dblookupcombobox10.KeyValue;

ADOStoredProc11.ExecProc;.Close;.Open;

//ADOTable4.Refresh;:=.Parameters.ParamValues['@RETURN_VALUE'];x of

: showmessage('Запись удалена');

1: showmessage('Невозможно удаление записи из-за связи с другими таблицами');

: showmessage('Данная запись не существует')

end;

//end

//else showmessage('Неправильный ввод');;TForm1.Button13Click(Sender: TObject);

//val(edit9.Text,x,z1);

//if //(z1=0)

//and

//(edit9.Text<>'')

//then begin

ADOStoredProc12. Parameters.ParamValues['@N1']:=dblookupcombobox13.KeyValue;

ADOStoredProc12.ExecProc;.Close;.Open;

//ADOTable4.Refresh;:=.Parameters.ParamValues['@RETURN_VALUE'];x of

: showmessage('Запись удалена');

1: showmessage('Невозможно удаление записи из-за связи с другими таблицами');

: showmessage('Данная запись не существует')

end;

//end

//else showmessage('Неправильный ввод');;TForm1.Button14Click(Sender: TObject);

//val(edit25.Text,x,z1);(dblookupcombobox22.Text<>'')

//and (edit25.Text<>'')begin

ADOStoredProc13. Parameters.ParamValues['@N1']:=dblookupcombobox22.KeyValue;

ADOStoredProc13.ExecProc;.Close;.Open;

//ADOTable4.Refresh;:=.Parameters.ParamValues['@RETURN_VALUE'];x of

: showmessage('Запись удалена');

1: showmessage('Невозможно удаление записи из-за связи с другими таблицами');

: showmessage('Данная запись не существует')

end;showmessage('Неправильный ввод');;TForm1.Button15Click(Sender: TObject);

//val(edit31.Text,x,z1);

//if

//(z1=0)

//and

//(edit31.Text<>'') and

// (edit31.Text<>'')

//then begin. Parameters.ParamValues['@N1']:=dblookupcombobox7.KeyValue;.ExecProc;.Close;.Open;

//ADOTable4.Refresh;:=.Parameters.ParamValues['@RETURN_VALUE'];x of

: showmessage('Запись удалена');

1: showmessage('Невозможно удаление записи из-за связи с другими таблицами');

: showmessage('Данная запись не существует')

end;

//end

//else showmessage('Неправильный ввод');;TForm1.Button17Click(Sender: TObject);

//val(edit25.Text,x,z1);(z1=0)

//and (edit25.Text<>'')begin

// ADOStoredProc15.Parameters.ParamValues['@n']:=edit25.Text;

//ADOStoredProc16.Parameters.ParamValues['@n']:=edit25.Text;.Execute;.Visible:=false;

//edit25.Visible:=false;.Visible:=false;showmessage('Неправильный ввод');;TForm1.Button18Click(Sender: TObject);

//val(edit18.Text,x,z1);(z1=0)

//and (edit18.Text<>'')begin

// ADOStoredProc17.Parameters.ParamValues['@n']:=edit18.Text;

//ADOStoredProc18.Parameters.ParamValues['@n']:=edit18.Text;.Execute;.Visible:=false;

//edit18.Visible:=false;.Visible:=false;showmessage('Неправильный ввод');;TForm1.Button19Click(Sender: TObject);parol then begin

//val(edit31.Text,x,z1);

//if //(z1=0)

//and

//(dblookupcombobox42.Text<>'')

// then. Parameters.ParamValues['@art']:= dblookupcombobox8.KeyValue;. Parameters.ParamValues['@naim']:= dblookupcombobox8.Text;. Parameters.ParamValues['@mp']:= dblookupcombobox31.Text;. Parameters.ParamValues['@proc']:= dblookupcombobox32.Text;. Parameters.ParamValues['@kuler']:= dblookupcombobox33.Text;. Parameters.ParamValues['@vid']:= dblookupcombobox34.Text;. Parameters.ParamValues['@op']:= dblookupcombobox35.Text;. Parameters.ParamValues['@vin']:= dblookupcombobox36.Text;. Parameters.ParamValues['@klav']:= dblookupcombobox37.Text;. Parameters.ParamValues['@manip']:= dblookupcombobox38.Text;. Parameters.ParamValues['@DC']:= dblookupcombobox39.Text;. Parameters.ParamValues['@kor']:= dblookupcombobox40.Text;. Parameters.ParamValues['@floopy']:= dblookupcombobox41.Text;.ExecProc;.Close;.Open;

//else showmessage('Неправильный ввод');

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button20Click(Sender: TObject);parol then begin

//val(edit1.Text,x,z1);edit11.Text<>''val(edit11.Text,x,z2)

else z2:=0;//(z1=0) and

(z2=0)

//and (edit1.Text<>'')(edit3.Text<>'')begin.Parameters.ParamValues['@nom']:=dblookupcombobox4.KeyValue;. Parameters.ParamValues['@nazv']:= dblookupcombobox4.Text;. Parameters.ParamValues['@fio']:= Edit3.Text;.Parameters.ParamValues['@adr']:= Edit4.Text;edit11.Text<>''.Parameters.ParamValues['@tel']:= Edit11.Text;

//adostoredproc20.Parameters.ParamValues['@nom']:=Edit1.Text;.ExecProc;.Close;.Open;showmessage('Неправильный ввод');

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button21Click(Sender: TObject);parol then begin

//val(edit5.Text,x,z1);edit14.Text<>''val(edit14.Text,x,z2)

else z2:=0;//(z1=0) and

(z2=0)

//and (edit5.Text<>'') and (edit6.Text<>'')(edit13.Text<>'')begin. Parameters.ParamValues['@nom']:= dblookupcombobox6.KeyValue;;.Parameters.ParamValues['@nazv']:= dblookupcombobox6.Text;. Parameters.ParamValues['@adr']:= Edit13.Text;edit14.Text<>''. Parameters.ParamValues['@tel']:= Edit14.Text;.ExecProc;.Close;.Open;showmessage('Неправильный ввод');

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button22Click(Sender: TObject);parol then begin

//val(edit7.Text,x,z1);

//val(edit8.Text,x,z2);//(z1=0)

//and (z2=0)

//and (edit7.Text<>'')

//and (edit8.Text<>'') and

(edit15.Text<>'')

//(dblookupcombobox9.Text<>'')begin. Parameters.ParamValues['@nom']:= nomer;. .ParamValues['@lnom']:= dblookupcombobox11.KeyValue;. Parameters.ParamValues['@fio']:= Edit15.Text;.ExecProc;.Close;.Open;showmessage('Неправильный ввод');

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button24Click(Sender: TObject);parolbegin.Visible:=true;

//edit18.Visible:=true;.Visible:=true;

else showmessage('У вас нет прав для изменения данных в БД');

{ADOStoredProc23. Parameters.ParamValues['@art']:= Edit12.Text;. Parameters.ParamValues['@nomp']:= Edit18.Text;. Parameters.ParamValues['@nomm']:= Edit19.Text;. Parameters.ParamValues['@data']:= Edit20.Text;. Parameters.ParamValues['@cena']:= Edit21.Text;. Parameters.ParamValues['@kol']:= Edit22.Text;. Parameters.ParamValues['@l']:= Edit48.Text;.ExecProc;.Close;.Open; };TForm1.Button23Click(Sender: TObject);parol then begin

//val(edit9.Text,x,z1);

//if edit16.Text<>'' then(edit16.Text,x,z2);(edit7.Text,x,z1);

//else z2:=0;edit38.Text=''z3:=0if (edit38.Text='+') or (edit38.Text='-')z3:=0z3:=1;

(z1=0) and

(z2=0) and (z3=0) and (edit7.Text<>'')(edit16.Text<>'') and (edit10.Text<>'')(dblookupcombobox12.Text<>'')begin. Parameters.ParamValues['@art']:= dblookupcombobox14.KeyValue;. Parameters.ParamValues['@naim']:= Edit10.Text;. Parameters.ParamValues['@kol']:= Edit16.Text;. Parameters.ParamValues['@opis']:= Edit17.Text;. Parameters.ParamValues['@nal']:= Edit38.Text;. Parameters.ParamValues['@n']:= dblookupcombobox12.KeyValue;. Parameters.ParamValues['@cena']:= Edit7.Text;.ExecProc;.Close;.Open;if z3=0 then showmessage('Неправильный ввод') showmessage('Неправильный ввод: Наличие +/-')

end

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button25Click(Sender: TObject);

//val(edit23.Text,x,z1);

//val(edit24.Text,x,z2);

//val(edit25.Text,x,z3);

//val(edit26.Text,x,z4);

//val(edit28.Text,x,z5);(edit29.Text,x,z6);

//val(edit30.Text,x,z7);(dblookupcombobox1.Text<>'') and

//and

(z6=0)

//and (edit23.Text<>'') and (edit24.Text<>'')

//and (edit25.Text<>'') and (edit26.Text<>'')

//and (edit28.Text<>'')

(edit29.Text<>'')

//and (edit30.Text<>'') and (edit27.Text<>'')begin. Parameters.ParamValues['@lnom']:= dblookupcombobox1.KeyValue;

//ADOStoredProc24. Parameters.ParamValues['@nomp']:= Edit24.Text;. Parameters.ParamValues['@nompo']:= dblookupcombobox24.KeyValue;

ADOStoredProc24. Parameters.ParamValues['@nomm']:= nomer;

ADOStoredProc24. Parameters.ParamValues['@data']:= datetimepicker2.Date;

//ADOStoredProc24. Parameters.ParamValues['@cena']:= Edit28.Text;. Parameters.ParamValues['@kol']:= Edit29.Text;. Parameters.ParamValues['@art']:= dblookupcombobox21.KeyValue;.ExecProc;.Close;.Open;showmessage('Неправильный ввод');;TForm1.Button26Click(Sender: TObject);parolbegin.Visible:=true;.Visible:=true;

//label51.Visible:=true;

//label52.Visible:=true;

//label53.Visible:=true;

//label54.Visible:=true;

//edit53.Visible:=true;

//edit54.Visible:=true;

//edit55.Visible:=true;

//edit56.Visible:=true;

//button1.Visible:=true;

//button27.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button27Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.N4Click(Sender: TObject);.Terminate;;TForm1.N1Click(Sender: TObject);.Form4.Visible:=true;:=true;;TForm1.N2Click(Sender: TObject);.Form4.Visible:=true;:=false;;TForm1.Button28Click(Sender: TObject);parolbegin.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;31.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button31Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button29Click(Sender: TObject);parolbegin

//label1.Visible:=true;

//edit5.Visible:=true;.Visible:=true;5.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button32Click(Sender: TObject);

//label1.Visible:=false;

//edit5.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button30Click(Sender: TObject);parol then begin

//label1.Visible:=true;

//label2.Visible:=true;

//label19.Visible:=true;

//label20.Visible:=true;

//edit5.Visible:=true;

//edit6.Visible:=true;

//edit13.Visible:=true;

//edit14.Visible:=true;

//button21.Visible:=true;

//button33.Visible:=true;.Visible:=true;6.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button33Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button34Click(Sender: TObject);parol then begin

//label11.Visible:=true;.Visible:=true;.Visible:=true;

//dblookupcombobox9.Visible:=true;

//edit7.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button35Click(Sender: TObject);parol then begin.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;

//label12.Visible:=true;

//edit8.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button36Click(Sender: TObject);parol then begin.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;

//label11.Visible:=true;

//label12.Visible:=true;

//label21.Visible:=true;

//edit7.Visible:=true;

//edit8.Visible:=true;

//edit15.Visible:=true;

//button22.Visible:=true;

//button39.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button37Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;

//edit7.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button38Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//label12.Visible:=false;

//edit8.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button39Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//edit7.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button43Click(Sender: TObject);parol then begin.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;12.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button44Click(Sender: TObject);parol then begin

//label14.Visible:=true;

//edit9.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;13.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button45Click(Sender: TObject);parol then begin

{label14.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;}.Visible:=true;.Visible:=true;.Visible:=true;14.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button40Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button41Click(Sender: TObject);

//label14.Visible:=false;

///edit9.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button42Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button47Click(Sender: TObject);parol then begin.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;

//edit12.Visible:=true;

//edit18.Visible:=true;

//edit19.Visible:=true;

//edit20.Visible:=true;

//edit21.Visible:=true;.Visible:=true;

//edit48.Visible:=true;

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button16Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//label27.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//edit12.Visible:=false;

//edit18.Visible:=false;

//edit19.Visible:=false;

//edit20.Visible:=false;

//edit21.Visible:=false;.Visible:=false;

//edit48.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button46Click(Sender: TObject);parolbegin.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;

//dblookupcombobox20.Visible:=true;.Visible:=true;.Visible:=true;

//label30.Visible:=true;.Visible:=true;

//label32.Visible:=true;.Visible:=true;

//label34.Visible:=true;.Visible:=true;.Visible:=true;

//edit23.Visible:=true;

//edit24.Visible:=true;

//edit25.Visible:=true;

//edit26.Visible:=true;

//edit27.Visible:=true;

//edit28.Visible:=true;.Visible:=true;

//edit30.Visible:=true;

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button54Click(Sender: TObject);parolbegin.Visible:=true;

//dblookupcombobox23.Visible:=true;.Visible:=true;.Visible:=true;

//edit25.Visible:=true;

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button50Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;

//label30.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//label34.Visible:=false;.Visible:=false;.Visible:=false;

//edit23.Visible:=false;

//edit24.Visible:=false;

//edit25.Visible:=false;

//edit26.Visible:=false;

//edit27.Visible:=false;

//edit28.Visible:=false;.Visible:=false;

//edit30.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button51Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//edit25.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button52Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//label30.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//label34.Visible:=false;.Visible:=false;.Visible:=false;

//edit23.Visible:=false;

//edit24.Visible:=false;

//edit25.Visible:=false;

//edit26.Visible:=false;

//edit27.Visible:=false;

//edit28.Visible:=false;.Visible:=false;

//edit30.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button49Click(Sender: TObject);parolbegin.Visible:=true;.Visible:=true;.Visible:=true;

//dblookupcombobox25.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button53Click(Sender: TObject);parolbegin.Visible:=true;

//edit25.Visible:=true;.Visible:=true;

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button57Click(Sender: TObject);parolbegin.Visible:=false;.Visible:=true;

//label39.Visible:=true;

//label40.Visible:=true;

//label41.Visible:=true;

//label42.Visible:=true;

//label43.Visible:=true;.Visible:=true;

//label45.Visible:=true;

//label46.Visible:=true;

//label47.Visible:=true;

//label48.Visible:=true;

//label49.Visible:=true;

//label50.Visible:=true;.Visible:=false;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;48.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button58Click(Sender: TObject);parolbegin

//label37.Visible:=true;

//edit31.Visible:=true;.Visible:=true;7.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;

{procedure TForm1.Button59Click(Sender: TObject);parolbegin.Visible:=true;.Visible:=true;

{label37.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;56.Visible:=true; }

{end

else showmessage('У вас нет прав для изменения данных в БД');

end; }TForm1.Button48Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;

//label39.Visible:=false;

//label40.Visible:=false;

//.Visible:=false;

//label42.Visible:=false;

//label43.Visible:=false;.Visible:=false;

//label45.Visible:=false;

//label46.Visible:=false;

//label47.Visible:=false;

//label48.Visible:=false;

//label49.Visible:=false;

//label50.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button55Click(Sender: TObject);.Visible:=false;.Visible:=false;

{label37.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false; }.Visible:=false;.Visible:=false;;TForm1.Button56Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//.Visible:=false;

//label40.Visible:=false;

//label41.Visible:=false;

//label42.Visible:=false;

//label43.Visible:=false;.Visible:=false;

//label45.Visible:=false;

//label46.Visible:=false;

//label47.Visible:=false;

//label48.Visible:=false;

//label49.Visible:=false;

//label50.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button63Click(Sender: TObject);parolbegin.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;60.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button64Click(Sender: TObject);parolbegin

//label5.Visible:=true;

//edit1.Visible:=true;.Visible:=true;3.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

//label5.Visible:=true;

//label6.Visible:=true;

//label7.Visible:=true;

//label8.Visible:=true;

//label18.Visible:=true;

//edit1.Visible:=true;

//edit2.Visible:=true;

//edit3.Visible:=true;

//edit4.Visible:=true;

//edit11.Visible:=true;

//button20.Visible:=true;

//button62.Visible:=true;

end

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.Button60Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button61Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button62Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:= false;.Visible:= false;.Visible:= false;.Visible:=false;.Visible:=false;;TForm1.Button66Click(Sender: TObject);

// val(edit18.Text,x,z1);

//if (z1=0)

//and (edit18.Text<>'')

//then begin

//edit12.Text:=datetostr(datetimepicker3.Date);.Parameters.ParamValues['@n']:=dblookupcombobox26.KeyValue;.Parameters.ParamValues['@d']:=dblookupcombobox44.Text;

// ADOStoredProc28.Parameters.ParamValues['@n']:=dblookupcombobox26.KeyValue;

//rvproject3.SetParam('nomer_pokupatelya',inttostr(datam.nakl.FieldValues['№накладной']));

//ADOStoredProc27.ExecProc;

//ADOStoredProc28.ExecProc;

// ADOStoredProc28.Active:=false;

// ADOStoredProc28.Active:=true;

// ADOStoredProc27.Active:=false;

// ADOStoredProc27.Active:=true;.Execute;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//edit18.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;

//end

//else showmessage('Неправильный ввод');;TForm1.Button67Click(Sender: TObject);parolbegin

//dblookupcombobox26.Visible:=false;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;

//label24.Visible:=true;

//edit18.Visible:=true;

else showmessage('У вас нет прав для изменения данных в БД');

end;TForm1.N3Click(Sender: TObject);.Form5.Visible:=true;;TForm1.DBLookupComboBox2Click(Sender: TObject);

//label51.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;

//edit53.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;;TForm1.DBLookupComboBox4Click(Sender: TObject);

//label5.Visible:=true;

//label6.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;

//edit1.Visible:=true;

//edit2.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;;TForm1.DBLookupComboBox6Click(Sender: TObject);

//label1.Visible:=true;

//label2.Visible:=true;.Visible:=true;.Visible:=true;

//edit5.Visible:=true;

//edit6.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;;TForm1.DBLookupComboBox8Click(Sender: TObject);

//label37.Visible:=true;

//label38.Visible:=true;

//label39.Visible:=true;

//label40.Visible:=true;

//label41.Visible:=true;

//label42.Visible:=true;

//label43.Visible:=true;.Visible:=true;

//label45.Visible:=true;

//label46.Visible:=true;

//label47.Visible:=true;

//label48.Visible:=true;

//label49.Visible:=true;

//label50.Visible:=true;:=dblookupcombobox8.text;

//dblookupcombobox43.Visible:=true;

//dblookupcombobox42.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;

//edit31.Visible:=true;

//edit32.Visible:=true;

//edit33.Visible:=true;

//edit34.Visible:=true;

//edit35.Visible:=true;

//edit36.Visible:=true;

//edit37.Visible:=true;.Visible:=true;

//edit39.Visible:=true;

//edit40.Visible:=true;

//edit41.Visible:=true;

//edit42.Visible:=true;

//edit43.Visible:=true;

//edit44.Visible:=true;.Visible:=true;.Visible:=true;;TForm1.Button59Click(Sender: TObject);parolbegin.Visible:=true;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=true;

{label37.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;}

{dblookupcombobox43.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true; };;TForm1.DBLookupComboBox10Click(Sender: TObject);.Caption:=DBLookupComboBox10.KeyValue;

//label21.Visible:=true;

//label11.Visible:=true;

//edit15.Visible:=true;

//dblookupcombobox9.Visible:=true;.Visible:=true;.Visible:=true;;TForm1.DBLookupComboBox13Click(Sender: TObject);.Visible:=true;.Visible:=true;.Caption:=dblookupcombobox13.KeyValue;TForm1.DBLookupComboBox3Click(Sender: TObject);.Visible:=true;.Visible:=true;;TForm1.DBLookupComboBox5Click(Sender: TObject);.Visible:=true;.Visible:=true;;TForm1.DBLookupComboBox7Click(Sender: TObject);.Visible:=true;.Visible:=true;;TForm1.DBLookupComboBox14Click(Sender: TObject);.Caption:=dblookupcombobox14.KeyValue;

//label14.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;

//edit9.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true; label85.Visible:=true;.Visible:=true;;TForm1.DBLookupComboBox16Click(Sender: TObject);.Visible:=true;.Visible:=true;;TForm1.DBLookupComboBox19Click(Sender: TObject);.Visible:=true;.Visible:=true;;TForm1.DBLookupComboBox22Click(Sender: TObject);.Visible:=true;.Visible:=true;.KeyValue:= dblookupcombobox22.KeyValue;

//dblookupcombobox24.KeyValue:= dblookupcombobox23.KeyValue;.Visible:=true;.Caption:=dblookupcombobox23.Text;TForm1.DBLookupComboBox24Click(Sender: TObject);.Visible:=true;

//dblookupcombobox19.Visible:=true;

//dblookupcombobox20.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;

//label30.Visible:=true;

//label31.Visible:=true;

//label32.Visible:=true;.Visible:=true;

//label34.Visible:=true;.Visible:=true;.Visible:=true;

//edit23.Visible:=true;

//edit24.Visible:=true;

//edit25.Visible:=true;

//edit26.Visible:=true;

//edit27.Visible:=true;

//edit28.Visible:=true;.Visible:=true;

//edit30.Visible:=true;.Visible:=true;.Visible:=true;.KeyValue:= dblookupcombobox24.KeyValue;

//dblookupcombobox24.KeyValue:= dblookupcombobox23.KeyValue;.Visible:=true;.Caption:=dblookupcombobox25.Text;TForm1.DBLookupComboBox11Click(Sender: TObject);.Caption:=DBLookupComboBox11.KeyValue;.Visible:=true;

//label11.Visible:=true;.Visible:=true;

//dblookupcombobox9.Visible:=true;.Visible:=true;.Visible:=true;;TForm1.DBLookupComboBox26Click(Sender: TObject);.Visible:=true;.KeyValue:=dblookupcombobox26.KeyValue;.Caption:=dblookupcombobox27.Text;;TForm1.Button68Click(Sender: TObject);

//AdoTable5.Locate('Naimenovanie_tovara',AdoTable8.IndexName[2],[]);.Parameters.ParamValues['@n']:=dblookupcombobox28.KeyValue;.Parameters.ParamValues['@n']:=1;.Parameters.ParamValues['@n']:=3;.Parameters.ParamValues['@n']:=1;.Parameters.ParamValues['@n']:=2;.Parameters.ParamValues['@n']:=1;.Parameters.ParamValues['@n']:=2;.Parameters.ParamValues['@n']:=1;.Parameters.ParamValues['@n']:=2;.Parameters.ParamValues['@n']:=1;.Parameters.ParamValues['@n']:=2;.Parameters.ParamValues['@n']:=1;.Execute;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button69Click(Sender: TObject);.Visible:=true;.Visible:=true;;TForm1.DBLookupComboBox28Click(Sender: TObject);.Visible:=true;;TForm1.Button70Click(Sender: TObject);

//adostoredproc32.Parameters.ParamValues['@nom']:=unit2.Form2.DBLookupComboBox1.KeyValue;.Visible:=true;.Visible:=true;.Visible:=true;

//ADOStoredProc32.ExecProc;

//ADOStoredProc32.close;

//dbgrid9.Refresh;

//adotable1.Close;

//adotable1.Open;;TForm1.Edit22KeyUp(Sender: TObject; var Key: Word;: TShiftState);(edit22.Text,x,z5);(z5=0)(dblookupcombobox15.Text<>'')and (edit22.Text<>'').Parameters.ParamValues['@art']:=DBLookupComboBox15.KeyValue;.Parameters.ParamValues['@kol']:=edit22.Text;.ExecProc;:= ADOStoredProc6.Parameters.ParamValues['@RETURN_VALUE'];x of

0: showmessage('Продажа осуществлена');

: showmessage('Нет товара в наличии');

end;showmessage('Введите количество');TForm1.Edit22Enter(Sender: TObject);(edit22.Text,x,z5);(z5=0)(dblookupcombobox15.Text<>'')and (edit22.Text<>'').Parameters.ParamValues['@art']:=DBLookupComboBox15.KeyValue;.Parameters.ParamValues['@kol']:=edit22.Text;.ExecProc;:= ADOStoredProc33.Parameters.ParamValues['@RETURN_VALUE'];x of

: begin.Visible:=true;.Visible:=true;.Visible:=true;

//label27.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;;

: showmessage('Нет товара в наличии');;

end

else showmessage('Введите наименование товара/количество')

end;TForm1.Edit22Exit(Sender: TObject);(edit22.Text,x,z5);(z5=0)(dblookupcombobox15.Text<>'')and (edit22.Text<>'').Parameters.ParamValues['@art']:=DBLookupComboBox15.KeyValue;.Parameters.ParamValues['@kol']:=edit22.Text;.ExecProc;:= ADOStoredProc33.Parameters.ParamValues['@RETURN_VALUE'];x of

: begin.Visible:=true;.Visible:=true;.Visible:=true;

//label27.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;;

: showmessage('Нет товара в наличии');;

end

else showmessage('Введите наименование товара/количество')

end;TForm1.Edit22Change(Sender: TObject);(edit22.Text,x,z5);(z5=0)(dblookupcombobox15.Text<>'')and (edit22.Text<>'').Parameters.ParamValues['@art']:=DBLookupComboBox15.KeyValue;.Parameters.ParamValues['@kol']:=edit22.Text;.ExecProc;:= ADOStoredProc33.Parameters.ParamValues['@RETURN_VALUE'];x of

: begin.Visible:=true;

//label25.Visible:=true;.Visible:=true;

//label27.Visible:=true;.Visible:=true;

//dblookupcombobox17.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;;

: showmessage('Нет товара в наличии');;

end

else showmessage('Введите наименование товара/количество')

end;TForm1.hggfh1Click(Sender: TObject);.Form6.Visible:=true;;TForm1.Button71Click(Sender: TObject);Adotable2.locate('nazvanie_firmi',edit12.Text,[])begin showmessage('Фирма '+ edit12.Text+' является покупателем') showmessage('Фирма '+ edit12.Text+' не является покупателем');

label88.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button72Click(Sender: TObject);.Visible:=true;.Visible:=true;.Visible:=true;;TForm1.Button73Click(Sender: TObject);Adotable3.locate('nazvanie_firmi',edit18.Text,[])begin showmessage('Фирма '+ edit18.Text+' является поставщиком')showmessage('Фирма '+ edit18.Text+' не является поставщиком');.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button74Click(Sender: TObject);.Visible:=true;.Visible:=true;.Visible:=true;;TForm1.Button75Click(Sender: TObject);Adotable4.locate('FIO',edit19.Text,[])begin showmessage(edit19.Text+' является продавцом')showmessage( edit19.Text+' не является продавцом');.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button76Click(Sender: TObject);.Visible:=true;.Visible:=true;.Visible:=true;;TForm1.Button77Click(Sender: TObject);Adotable5.locate('Naimenovanie_tovara',edit20.Text,[])begin showmessage(edit20.Text+' присутствует в каталоге ')showmessage( edit20.Text+' не присутствует в каталоге');.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button78Click(Sender: TObject);

//label92.Visible:=true;.Visible:=true;.Visible:=true;;TForm1.Button79Click(Sender: TObject);Adotable8.locate('Naimenovanie_tovara',edit21.Text,[])begin showmessage(edit21.Text+' присутствует в каталоге ')showmessage( edit21.Text+' не присутствует в каталоге');

//label92.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button80Click(Sender: TObject);.Visible:=true;.Visible:=true;;TForm1.Button82Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.DBLookupComboBox29Click(Sender: TObject);.Visible:=true;.Visible:=true;;TForm1.Button81Click(Sender: TObject);. Parameters.ParamValues['@N']:=dblookupcombobox29.KeyValue;.ExecProc;.Close;.Open;

//ADOTable4.Refresh;:=.Parameters.ParamValues['@RETURN_VALUE'];x of

: showmessage('Запись удалена');

1: showmessage('Невозможно удаление записи из-за связи с другими таблицами');

: showmessage('Данная запись не существует')

end;;TForm1.Button83Click(Sender: TObject);.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=true;;TForm1.Button85Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.Button84Click(Sender: TObject);(edit53.Text,x,z1);(z1=0)begin(adotable1.Locate('Nomer_magazina',edit53.Text,[])=false) then begin(edit53.Text,x,z1);(z1=0)(edit53.Text<>'') and (edit54.Text<>'')(edit55.Text<>'') and (edit56.Text<>'')begin.Parameters.ParamValues['@n']:=Edit53.Text;

//ADOStoredProc2. Parameters.ParamValues['@nom1']:= Edit45.Text;. Parameters.ParamValues['@nazv']:= Edit54.Text;. Parameters.ParamValues['@fio']:= Edit55.Text;.Parameters.ParamValues['@adr']:= Edit56.Text;.ExecProc;.Close;.Open;showmessage('Неправильный ввод');

else showmessage('Запись уже существует');

//ADOTable2.Refresh;

end

else showmessage('Неправильно введен номер магазина');

end;TForm1.Button87Click(Sender: TObject);.Visible:=true;

//button88.Visible:=false;

// button86.Visible:=false;.Visible:=true;

// dblookupcombobox15.Visible:=true;

//button16.Visible:=true;

//label17.Visible:=true;

//label28.Visible:=true;

//edit12.Visible:=true;

//edit18.Visible:=true;

//edit19.Visible:=true;

//edit20.Visible:=true;

//edit21.Visible:=true;

//edit22.Visible:=true;

//edit48.Visible:=true;;TForm1.Button86Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TForm1.DBLookupComboBox30Click(Sender: TObject);.Visible:=true;.Visible:=true;;

procedure TForm1.Button88Click(Sender: TObject);dblookupcombobox30.Text<>''begin. Parameters.ParamValues['@n']:= dblookupcombobox30.KeyValue;.ExecProc;.Close;.Open;.Close;.Open;showmessage('Заказов нет ');TForm1.DBLookupComboBox42Click(Sender: TObject);.Caption:=dblookupcombobox42.KeyValue;.Visible:=true;.Visible:=true;;

end.

Приложение 3

Сценарий инсталяции программы

[setup]= Клиентское приложение БД

AppVerName=21 век 1.0

AppPublisher= DefaultDirName={pf}\BD

DefaultGroupName=Клиент БД

[Languages]: "ru"; MessagesFile: "compiler:Languages\russian.isl"

[Types]: "custom"; Description: "Выборочная установка";Flags: iscustom;: "full"; Description: "Полная установка"

[Components]: "program"; Description: "Приложение";Types: custom full;

[Files]

;Приложение: "project1.exe"; DestDir: "{app}";CopyMode: alwaysoverwrite; Components: program

[Icons]

;Ярлык приложения в главном меню

Name: "{group}\Пример"; Filename: "{app}\project1.exe";WorkingDir: "{app}"; Components: program

;Ярлык приложения на рабочем столе: "{userdesktop}\Пример"; Filename: "{app}\project1.exe";WorkingDir: "{app}"; Components: program: "{group}\Удалить программу";Filename:"{uninstallexe}"