Размещено на http://www.allbest.ru/

Содержание

Введение

1. Анализ деятельности предприятия

1.1 Описание предметной области

1.2 Анализ структуры компании

1.3 Анализ выходных, внутренних документов

1.4 Задачи

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

3. Логическое проектирование

3.1 Анализ запросов

3.2 Установка дополнительных логических связей

3.3 Нормализация

4. Физическое проектирование

Результат проектирования

Заключение

Список используемых источников

Приложение

Введение

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

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

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

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

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

1. Анализ деятельности предприятия

1.1 Описание предметной области

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

1.2 Анализ структуры компании

Общее руководство деятельностью осуществляет директор компании непосредственно из головного офиса (Head Office - HO). В функции головного офиса входит:

? принятие запросов от магазинов;

? контроль над деятельностью магазинов посредством отчетов за определенный период;

? перенаправление запросов (заказ) непосредственно поставщику;

? оформление ордера на поступившую продукцию;

? осуществление центрального (официального) документооборота.

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

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

Рисунок 1. Внутренняя структура предприятия

1.3 Анализ выходных, внутренних документов

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

Таблица 1. Таблица регистрации товара.

Товар Id_gds	Номер ордера Norder	Поставщик Id_marker	Дата принятия Date	Количество товара amt	Стоимость товара cost	Цена товара price

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

Рисунок 2. Диаграмма потоков данных

1.4 Задачи

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

Сбор информации о товаре (цене, стоимости, количестве и прочее);

? Получение информации о поставщике;

? Информация о наличии товара в магазине;

? Информация о магазинах;

Требования заказчика к проектируемой базе данных отражены в таблице 2.

Таблица 2. Требования заказчика к проектируемой базе данных.

№	Суть требования	Источники	Приоритет выполнения
1	Сбор информации о товаре	Продавец	1
2	Получение информации о поставщике	Помощник	5
3	Информация о наличии товара в магазине	Продавец\специалист отдела закупок	4
4	Информация о магазинах	Помощник	3
5	Информация о прибыли	Специалисты отдела бухгалтерии	2

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

1) Информацию о приходящем товаре;

2) Информацию о виде товара;

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

Программный продукт должен быть написан на языке СУБД InterBase и для дальнейшей его эксплуатации требуется IBM PC совместимый компьютер с установленной операционной системой MS Windows 2000 или выше, а так же установленный пакет InterBase, XP.

Минимальные требования к аппаратной подсистеме компьютера:

1) процессор: Intel Pentium at 166 MHz;

2) ОЗУ: 32 Mb - Windows 98;

3) HDD: 200 Mb -Windows 98;

4) мышь;

5) SVGA 800x600 монитор.

Рекомендуемые требования к аппаратной подсистеме компьютера:

6) процессор: Intel Pentium II - 450 MHz;

7) ОЗУ: 64 Mb - Windows 2000;

8) HDD: 400 Mb;

9) мышь;

10) SVGA 800x600 монитор.



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

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

1.	Товар (Gds)	-	общая информация о товаре, имеющемся в наличии;
2.	Главная (HO)	-	таблица, отражающая головной офис предприятия, и содержащая информацию о поступлении товара;
3.	Поставщик (Marker)	-	информация о поставщиках, т.е. информация о том, откуда поступает товар;
4.	Магазин (Shop)	-	информация о торговых точках в сети магазинов.

Уже на основе данных сущностей проведем перечень атрибутов.

Таблица 3. Атрибуты сущностей.

Товар (Gds)	Id_товара название количество цена стоимость
Главная (HO)	№_ордера дата ордера
Поставщик (Marker)	Id_поставщика ФИО фирма страна производитель
Магазин (Shop)	Id_магазина адрес тип

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

1. «Товар» - «Главная». Одной единицы товара будет соответствовать только один выписанный ордер. Но в свою очередь одному ордеру может соответствовать несколько разных товаров, так как ордер является внутренним документом, выписываемым на всю поставленную продукцию от одного поставщика.

2. «Поставщик» - «Главная». Одному поставщику может соответствовать несколько ордеров, так как ордер выписывается на поставку товара в конкретный день. Поставщик же остается неизменным в течении длительного периода времени и осуществляет поставку с некоторой периодичностью и каждый раз на поставляемый товар будет выписываться новый ордер.

3. «Магазин» - «Главная». Для данных сущностей имеет место связь многие ко многим, так как один товар в разном количестве может определиться в разные магазины. И в свою очередь в одном магазине могут находиться разные виды товаров. В результате такой связи появляется новая сущность, через которую и будет производиться связь между сущностями «Магазины» и «Главная».

На основании имеющихся сведений можно построить концептуальную модель.



Рисунок 3. Концептуальная модель.

3. Логическое проектирование

3.1 Анализ запросов

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

? Получить полную информацию о конкретном товаре;

? Получить полную информацию о группе товаров;

? Получить полную информацию о поставщике;

? Получить информацию о поставляемом товаре от конкретного поставщика;

? Получить информацию о распределении конкретного товара (или группе) по магазинам;

? Получить информацию о выручке.

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

Таблица 4. Добавление атрибутов.

Товар (Gds)	Id_группы Группа
Контроль (Check)	цена в магазине количество оставшееся количество проданное

3.2 Установка дополнительных логических связей

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

Таблица 5. Частота совместного использования сущностей

Сущность	Индекс сущности
	1	2	3	4	5	6
1	Товар	0	365	104	12	52	156
2	Группы	365	0	0	0	0	0
3	Поставщик	104	0	0	104	26	26
4	Главная	12	0	104	0	52	52
5	Магазин	52	0	26	52	0	0
6	Контроль	156	0	26	52	0	0

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

R = (365+0) / 2 = 183

Теперь по среднему значению R определим пары сущностей со значением большим R и без установленной между ними связи и выясним необходимость установления дополнительных связей.

Такими сущностями будут: «Товар» и «Группы» - эти две сущности связаны между собой через ключевой атрибут «id_группы сущности «Группы», то есть сущности связаны напрямую и нет необходимости в дополнительной связи.

3.3 Нормализация

Проверим концептуальную модель с помощью правил нормализации.

Первая нормальная форма заключается в атомарности атрибутов. Этому условию соответствуют все атрибуты кроме атрибута «ФИО» сущности «Поставщик». Для нормализации данный атрибут следует, разбит на три составляющие «Имя», «Фамилия» и «Отчество».

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

Рисунок 4. 2НФ «Товар»

база данные документ запрос

Рисунок 5. 2НФ «Главная»

Рисунок 6. 2НФ «Контроль»

Остальные сущности уже находятся во второй нормальной форме.

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

Рисунок 7. 3НФ «Товар»

Рисунок 8. 3НФ «Главная»

Рисунок 9. 3НФ «Контроль»

Рисунок 10. 3НФ «Поставщик»

Приведение сущностей к третьей нормальной форме является достаточным в условиях проектируемой базы данных. Из всех сущностей привести к третьей нормальной форме в логической модели есть смысл только сущность «Товар», выделив из данной сущности новую с именем «Группы». Если по приведенной схеме нормализовать остальные сущности - то в результате получится большое количество сущностей с минимальной информацией и большой избыточностью.

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

Рисунок 11. Логическая модель

4. Физическое проектирование

На основании итоговой логической модели, опишем таблицы, которые будут реализованы в InterBase.

Таблица 6. Товар

Название	Тип данных	Размер	Индексирование
Id_товара (id_gds)	Числовой (Integer)	4	Да
Id_группы (id_group)	Числовой (Integer)	4	Да
Имя (name)	Текстовый (Char)	20	Нет
Id_поставщика (id_marker)	Числовой (Integer)	4	Да
Количество (amt)	Числовой (Integer)	4	Нет
Цена (price)	Числовой (Integer)	4	Нет
Стоимость (cost)	Числовой (Integer)	4	Нет

Таблица 7. Группы

Название	Тип данных	Размер	Индексирование
Id_группы (id_group)	Числовой (Integer)	4	Да
Вид (title)	Текстовый (Char)	20	Нет

Таблица 8. Главная

Название	Тип данных	Размер	Индексирование
Id_товара (id_gds)	Числовой (Integer)	4	Да
Id_поставщика (id_marker)	Числовой (Integer)	4	Да
Номер ордера (№order)	Числовой (Integer)	4	Нет
Дата (data)	Числовой (Date)	4	Нет

Таблица 9. Поставщик

Название	Тип данных	Размер	Индексирование
Id_поставщика (id_marker)	Числовой (Integer)	4	Да
Имя (name)	Текстовый (Char)	20	Нет
Фирма (firm)	Текстовый (Char)	20	Нет
Страна (country)	Текстовый (Char)	20	Нет

Таблица 10. Магазин

Название	Тип данных	Размер	Индексирование
Id_магазина (id_shop)	Числовой (Integer)	4	Да
Адрес (adds)	Текстовый (Char)	20	Нет
Тип (type)	Текстовый (Char)	20	Нет

Таблица 11. Контроль

Название	Тип данных	Размер	Индексирование
Id_товара (id_gds)	Числовой (Integer)	4	Да
Id_поставщика (id_marker)	Числовой (Integer)	4	Да
Id_магазина (id_chop)	Числовой (Integer)	4	Да
Цена в магазине (price_shop)	Числовой (Integer)	4	Нет
Количество оставшееся (amt_have)	Числовой (Integer)	4	Нет
Количество проданное (amt_sold)	Числовой (Integer)	4	Нет

Итоговая физическая модель представлена на рисунке ниже.

Рисунок 12. Физическая модель данных

Результат проектирования

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

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

Рисунок 13. Главное меню

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

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

Рисунок 14. Окно «Просмотр БД»

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

Рисунок 15. Окно «Редактирование.

На окне главного меню осталась кнопка «Запросы». По нажатию на нее пользователю предоставляется возможность осуществить запросы, оговоренные в пункте логическое проектирование. Следует из раскрывающегося списка выбрать запрос, ввести необходимые параметры запроса и нажать кнопку «Выполнить».

Рисунок 16. Окно «Запросы»

Заключение

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

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

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

Список используемых источников

1. Архангельский А. Я. Программирование в C++ Builder 6. - М.: Бином, 2012.

2. Бобышев В. В. Методические указания к курсовому проектированию по дисциплине «Корпоративные информационные системы». - Хабаровск: ТОГУ.

3. Козявин А. Мир InterBase / А. Ковязин, С. Востриков. - М.: Кудиц-образ, 2012.

4. Хомоненко А. Д. Ададуров С. Е. Работа с базами данных в C++ Builder. - СПб.: БХВ-Петербург, 2010.

5. Шкарина Л. Язык SQL. Учебный курс. - СПб.: Питер, 2011.

Приложение

void __fastcall TForm2::Button2Click(TObject *Sender)

{

IBTable1->Active=false;

AnsiString SCode;

switch(CB1->ItemIndex)

{

case 0: SCode = "Gds"; break;

case 1: SCode = "Group"; break;

case 2: SCode = "HO"; break;

case 3: SCode = "Marker"; break;

case 4: SCode = "Check"; break;

case 5: SCode = "Shop"; break;

case 6: SCode = "TOVAR"; break;

case -1: ShowMessage("Выбор");

return;

};

IBTable1->TableName = SCode;

IBTable1->Active = true;

}

void __fastcall TForm4::Button2Click(TObject *Sender)

{

IBQuery1->SQL->Clear();

AnsiString SCode;

switch(CB1->ItemIndex)

{

case 0: SCode = "select * from \"Gds\" where \"id_gds\"=:a";

break;

case 1: SCode = "select * from \"Gds\" where \"id_group\"=:a";

break;

case 2: SCode = "select * from \"Marker\" where \"id_marker\"=:a";

break;

case 3: SCode = "select * from \"Gds\" where \"id_marker\"=:a";

break;

case 4: SCode = "select \"id_gds\", \"id_shop\" from \"Check\" where \"id_gds\"=:a";

break;

case 5: SCode = "";

IBQuery1->SQL->LoadFromFile("qwe.txt"); break;

case -1: ShowMessage("Выбрать");

return;

};

IBQuery1->SQL->Add(SCode);

if (CB1->ItemIndex!=5)

IBQuery1->ParamByName("a")->AsInteger=StrToInt(Edit1->Text);

IBQuery1->Open();

}

void __fastcall TForm3::Button2Click(TObject *Sender)

{

IBQuery1->SQL->Clear();

IBQuery1->SQL->Add("Insert into \"Gds\" ");

IBQuery1->SQL->Strings[0]=IBQuery1->SQL->Strings[0]+"(\"id_gds\", \"id_group\", \"name\", \"id_marker\", \"amt\", \"price\", \"cost\") ";

IBQuery1->SQL->Strings[0]=IBQuery1->SQL->Strings[0]+"values (:a, :b, :c, :d, :e, :f, :g)";

IBQuery1->ParamByName("a")->AsInteger=StrToInt(Edit1->Text);

IBQuery1->ParamByName("b")->AsInteger=StrToInt(Edit2->Text);

IBQuery1->ParamByName("c")->AsString=Edit3->Text;

IBQuery1->ParamByName("d")->AsInteger=StrToInt(Edit4->Text);

IBQuery1->ParamByName("e")->AsInteger=StrToInt(Edit5->Text);

IBQuery1->ParamByName("f")->AsInteger=StrToInt(Edit6->Text);

IBQuery1->ParamByName("g")->AsInteger=StrToInt(Edit7->Text);

IBQuery1->Open();

}

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

void __fastcall TForm3::Button3Click(TObject *Sender)

{

IBQuery1->SQL->Clear();

IBQuery1->SQL->Add("Insert into \"Group\" (\"id_group\", \"group\") values (:a, :b)");

IBQuery1->ParamByName("a")->Value=StrToInt(Edit8->Text);

IBQuery1->ParamByName("b")->AsString=Edit9->Text;

IBQuery1->Open();

}

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

void __fastcall TForm3::Button4Click(TObject *Sender)

{

IBQuery1->SQL->Clear();

IBQuery1->SQL->Add("delete from \"Group\" where \"id_group\" = :a");

IBQuery1->ParamByName("a")->Value=StrToInt(Edit8->Text);

IBQuery1->Open();

}

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

void __fastcall TForm3::Button5Click(TObject *Sender)

{

IBQuery1->SQL->Clear();

IBQuery1->SQL->Add("delete from \"Gds\" where \"id_gds\" = :a");

IBQuery1->ParamByName("a")->Value=StrToInt(Edit1->Text);

IBQuery1->Open();

}

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

void __fastcall TForm3::Button6Click(TObject *Sender)

{

IBQuery1->SQL->Clear();

IBQuery1->SQL->Add("Insert into \"Marker\" ");

IBQuery1->SQL->Strings[0]=IBQuery1->SQL->Strings[0]+"(\"id_marker\", \"name\", \"firm\", \"country\") ";

IBQuery1->SQL->Strings[0]=IBQuery1->SQL->Strings[0]+"values (:a, :b, :c, :d)";

IBQuery1->ParamByName("a")->Value=StrToInt(Edit10->Text);

IBQuery1->ParamByName("b")->AsString=Edit11->Text;

IBQuery1->ParamByName("c")->AsString=Edit12->Text;

IBQuery1->ParamByName("d")->AsString=Edit13->Text;

IBQuery1->Open();

}

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

void __fastcall TForm3::Button7Click(TObject *Sender)

{

IBQuery1->SQL->Clear();

IBQuery1->SQL->Add("delete from \"Marker\" where \"id_marker\" = :a");

IBQuery1->ParamByName("a")->Value=StrToInt(Edit10->Text);

IBQuery1->Open();

}

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

void __fastcall TForm3::Button8Click(TObject *Sender)

{

IBQuery1->SQL->Clear();

IBQuery1->SQL->Add("Insert into \"HO\" ");

IBQuery1->SQL->Strings[0]=IBQuery1->SQL->Strings[0]+"(\"id_gds\", \"id_marker\", \"Norder\", \"date\") ";

IBQuery1->SQL->Strings[0]=IBQuery1->SQL->Strings[0]+"values (:a, :b, :c, :d)";

IBQuery1->ParamByName("a")->AsInteger=StrToInt(Edit14->Text);

IBQuery1->ParamByName("b")->AsInteger=StrToInt(Edit15->Text);

IBQuery1->ParamByName("c")->AsInteger=StrToInt(Edit16->Text);

IBQuery1->ParamByName("d")->AsDate=Edit17->Text;

IBQuery1->Open();

}

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

void __fastcall TForm3::Button9Click(TObject *Sender)

{

IBQuery1->SQL->Clear();

IBQuery1->SQL->Add("delete from \"HO\" where \"id_gds\" = :a");

IBQuery1->ParamByName("a")->Value=StrToInt(Edit14->Text);

IBQuery1->Open();

}

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

void __fastcall TForm3::Edit6Change(TObject *Sender)

{

int a,b;

a=StrToInt(Edit5->Text); b=StrToInt(Edit6->Text);

Edit7->Text=IntToStr(a*b);

}

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

void __fastcall TForm3::Button10Click(TObject *Sender)

{

IBQuery1->SQL->Clear();

IBQuery1->SQL->Add("Insert into \"Shop\" ");

IBQuery1->SQL->Strings[0]=IBQuery1->SQL->Strings[0]+"(\"id_shop\", \"adds\", \"type\") ";

IBQuery1->SQL->Strings[0]=IBQuery1->SQL->Strings[0]+"values (:a, :b, :c)";

IBQuery1->ParamByName("a")->AsInteger=StrToInt(Edit21->Text);

IBQuery1->ParamByName("b")->AsString=Edit22->Text;

IBQuery1->ParamByName("c")->AsString=Edit23->Text;

IBQuery1->Open();

}

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

void __fastcall TForm3::Button11Click(TObject *Sender)

{

IBQuery1->SQL->Clear();

IBQuery1->SQL->Add("delete from \"Shop\" where \"id_shop\" = :a");

IBQuery1->ParamByName("a")->Value=StrToInt(Edit21->Text);

IBQuery1->Open();

}

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

void __fastcall TForm3::Button12Click(TObject *Sender)

{

IBQuery1->SQL->Clear();

IBQuery1->SQL->Add("Insert into \"Check\" ");

IBQuery1->SQL->Strings[0]=IBQuery1->SQL->Strings[0]+"(\"id_gds\", \"id_marker\", \"id_shop\", \"price_shop\", \"amt_have\", \"amt_sold\") ";

IBQuery1->SQL->Strings[0]=IBQuery1->SQL->Strings[0]+"values (:a, :b, :c, :d, :e, :f)";

IBQuery1->ParamByName("a")->AsInteger=StrToInt(Edit18->Text);

IBQuery1->ParamByName("b")->AsInteger=StrToInt(Edit19->Text);

IBQuery1->ParamByName("c")->AsInteger=StrToInt(Edit20->Text);

IBQuery1->ParamByName("d")->AsInteger=StrToInt(Edit24->Text);

IBQuery1->ParamByName("e")->AsInteger=StrToInt(Edit25->Text);

IBQuery1->ParamByName("f")->AsInteger=StrToInt(Edit26->Text);

IBQuery1->Open();

}

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

void __fastcall TForm3::Button13Click(TObject *Sender)

{

IBQuery1->SQL->Clear();

IBQuery1->SQL->Add("delete from \"Check\" where \"id_gds\" = :a");

IBQuery1->ParamByName("a")->Value=StrToInt(Edit18->Text);

IBQuery1->Open();

}

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

void __fastcall TForm3::Button14Click(TObject *Sender)

{

IBQuery1->SQL->Clear();

IBQuery1->SQL->Add("select * from \"Tovar\" ");

IBQuery1->Open();

}

Размещено на Allbest.ru