Информационно-справочная система мебельного магазина

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

5

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

1

Информационно-справочная система мебельного магазина

СОДЕРЖАНИЕ

ВВЕДЕНИЕ

1 ПОСТАНОВКА ЗАДАЧИ

2 СИСТЕМНОЕ И ТЕХНИЧЕСКОЕ ОБЕСПЕЧЕНИЕ

3 СТРУКТУРА ПРОГРАММНОГО КОМПЛЕКСА

4 ОПИСАНИЕ ПРИМЕНЕНИЯ

5 ПРОГРАММА И МЕТОДИКА ИСПЫТАНИЙ

6 ИНСТРУКЦИЯ ДЛЯ ПОЛЬЗОВАТЕЛЯ

7 РУКОВОДСТВО ПРОГРАММИСТА

ЗАКЛЮЧЕНИЕ

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

ПРИЛОЖЕНИЕ A

ПРИЛОЖЕНИЕ Б

ВВЕДЕНИЕ

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

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

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

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

Программа «Информационно-справочная система для мебельного магазина» очень проста в использовании. Она позволит вам значительно облегчить и упростить учёт данных.

Для автоматизации системы "Информационно-справочная ситема для мебельного магазина" была выбрана система управления базами данных MS Access, которая является общепризнанным лидером среди инструментов для создания приложений и систем, функционирующих на платформе Windows. Передовая объектно-ориентированная технология визуального проектирования позволяет отдельным программистам и коллективам разработчиков почувствовать уверенность в возможности полного удовлетворения запросов самых требовательных пользователей и устойчивость своего положения на рынке высоких технологий.

Объектом данного исследования - языки и системы программирования.

Предметом разработки приложения в среде Delphi - является информационно-справочная система для мебельного магазина.

Данная система позволила решать следующие задачи:

1. Поиск данных;

2. Сортировка данных по данному критерию;

3. Навигация по таблице;

4. Фильтрация записей;

5. Добавление записей;

6. Редактирование записей;

7. Удаление записей;

8. Просмотр информации;

9. Создание отчёта.

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

delphi интерфейс справочная система магазин

1 ПОСТАНОВКА ЗАДАЧИ

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

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

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

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

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

1. разработка структуры таблиц базы данных

2. проектирование таблиц

3. связь программы с разработанной ранее базой данных

4. разработка графического интерфейса программы

5. комплексное тестирование и отладка программы

6. обеспечение работоспособности программного продукта на любом компьютере, который будет подходить по техническим характеристикам.

2 СИСТЕМНОЕ И ТЕХНИЧЕСКОЕ ОБЕСПЕЧЕНИЕ

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

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

Минимальные системные требования:

- Процессор Intel Pentium II (266Mhz) или аналог от корпорации AMD

- Объем оперативной памяти 64Mb

- Объем места на жестком диске 100Mb

- Видеоадаптер 2Mb (встроенный в процессор, либо внешний)

- Монитор с подключением VGA, HDMI, Display Port

- DVD-ROM

- DirectX-9

- Периферийные устройства ввода: клавиатура, мышь (тачпад)

- Установленная операционная система: OC Windows 9x/ NT/ 2000/ XP/ 7/ 8/ 10

Рекомендованные системные требования:

- Установленная операционная система: OC Windows 2000/ XP/ 7/ 8/ 10

- Intel(R) Core(TM) i3-3217U CPU and 1.80 GHz

- DVD-ROM

- Клавиатура

- Мышь(тачпад)

-100Mb свободного места на диске

- 512Mb оперативной памяти

- Наличие устройств вывода звуковой информации - не обязательно

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

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

3 СТРУКТУРА ПРОГРАММНОГО КОМПЛЕКСА

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

1. Переход к вкладке «Гостиная» procedure TForm1.Button1Click(Sender: TObject).

2. Переход к вкладке «Детская» procedure TForm1.Button2Click(Sender: TObject).

3. Переход к вкладке «Мягкая мебель» procedure TForm1.Button3Click(Sender: TObject).

4. Переход к вкладке «Столы и стулья» procedure TForm1.Button4Click(Sender: TObject).

5. Поиск по таблице «Гостиная» procedure TForm1.Edit1Change(Sender: TObject).

6. Поиск по таблице «Детская» procedure TForm1.Edit3Change(Sender: TObject).

7. Поиск по таблице «Мягкая мебель» procedure TForm1.Edit5Change(Sender: TObject).

8. Поиск по таблице «Столы и стулья» procedure TForm1.Edit7Change(Sender: TObject).

9. Фильтрация по таблице «Гостиная» procedure TForm1.Edit2Change(Sender: TObject).

10. Фильтрация по таблице «Детская» procedure TForm1.Edit4Change(Sender: TObject).

11. Фильтрация по таблице «Мягкая мебель» procedure TForm1.Edit6Change(Sender: TObject).

12. Фильтрация по таблице «Столы и стулья» procedure TForm1.Edit8Change(Sender: TObject).

13. Сортировка таблицы «Гостиная»

procedure TForm1.RadioButton1Click(Sender: TObject);

procedure TForm1.RadioButton2Click(Sender: TObject);

procedure TForm1.RadioButton3Click(Sender: TObject);

procedure TForm1.RadioButton4Click(Sender: TObject);

procedure TForm1.RadioButton5Click(Sender: TObject);

procedure TForm1.RadioButton6Click(Sender: TObject);

procedure TForm1.RadioButton7Click(Sender: TObject);

procedure TForm1.RadioButton8Click(Sender: TObject).

14. Сортировка таблицы «Детская»

procedure TForm1.RadioButton9Click(Sender: TObject);

procedure TForm1.RadioButton10Click(Sender: TObject);

procedure TForm1.RadioButton11Click(Sender: TObject);

procedure TForm1.RadioButton12Click(Sender: TObject);

procedure TForm1.RadioButton13Click(Sender: TObject);

procedure TForm1.RadioButton14Click(Sender: TObject);

procedure TForm1.RadioButton15Click(Sender: TObject);

procedure TForm1.RadioButton16Click(Sender: TObject).

15. Сортировка таблицы «Мягкая мебель»

procedure TForm1.RadioButton17Click(Sender: TObject);

procedure TForm1.RadioButton18Click(Sender: TObject);

procedure TForm1.RadioButton19Click(Sender: TObject);

procedure TForm1.RadioButton20Click(Sender: TObject);

procedure TForm1.RadioButton21Click(Sender: TObject);

procedure TForm1.RadioButton22Click(Sender: TObject);

procedure TForm1.RadioButton23Click(Sender: TObject);

procedure TForm1.RadioButton24Click(Sender: TObject);

procedure TForm1.RadioButton25Click(Sender: TObject).

16. Сортировка таблицы «Столы и стулья»

procedure TForm1.RadioButton26Click(Sender: TObject);

procedure TForm1.RadioButton27Click(Sender: TObject);

procedure TForm1.RadioButton28Click(Sender: TObject);

procedure TForm1.RadioButton29Click(Sender: TObject);

procedure TForm1.RadioButton30Click(Sender: TObject);

procedure TForm1.RadioButton31Click(Sender: TObject);

procedure TForm1.RadioButton32Click(Sender: TObject);

procedure TForm1.RadioButton33Click(Sender: TObject).

17. Добавление данных

procedure TForm1.Button9Click(Sender: TObject);

procedure TForm1.Button12Click(Sender: TObject);

procedure TForm1.Button15Click(Sender: TObject);

procedure TForm1.Button18Click(Sender: TObject).

18. Редактирование данных

procedure TForm1.Button10Click(Sender: TObject);

procedure TForm1.Button13Click(Sender: TObject);

procedure TForm1.Button16Click(Sender: TObject);

procedure TForm1.Button19Click(Sender: TObject).

19. Удаление данных

procedure TForm1.Button11Click(Sender: TObject);

procedure TForm1.Button14Click(Sender: TObject);

procedure TForm1.Button17Click(Sender: TObject);

procedure TForm1.Button20Click(Sender: TObject).

20. «О программе»

procedure TForm1.N6Click(Sender: TObject).

21. «Справка»

procedure TForm1.N3Click(Sender: TObject).

22. Отчёт в Excel

procedure TForm1.N7Click(Sender: TObject);

procedure TForm1.N8Click(Sender: TObject);

procedure TForm1.N9Click(Sender: TObject);

procedure TForm1.N10Click(Sender: TObject).

23. Выход из программы

procedure TForm1.N5Click(Sender: TObject).

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

Также можно создать отчет по выполненным операциям и экспортировать его в Microsoft Excel. Схему взаимодействия пользователя с программой можно увидеть на рисунке 3.1



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

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

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

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

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

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

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

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

4 ОПИСАНИЕ ПРИМЕНЕНИЯ

Для запуска программы необходимо запустить «Project1.exe». После данной операции откроется главное окно, на котором расположено главное меню программы». (рис. 4.1).

Рисунок 4.1 - Главное окно программы

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

При нажатии на пункт меню «Гостиная» откроется окно, в котором размещена вся информация. (рис. 4.2).

Рисунок 4.2 - Гостиная

В данном окне мы видим основные кнопки: "Добавить", "Редактировать ", "Удалить", "Отчёт", " Закрыть", "Поиск", "Фильтрация". (рис. 4.3 - 4.9).

Рисунок 4.3 - Поиск

Рисунок 4.4 - Сортировка

Рисунок 4.5 - Фильтрация

При нажатии на кнопку «Добавить запись» откроется окно добавления записи (рис. 4.6).

Рисунок 4.6 - Добавление новой записи

При нажатии на кнопку «Редактировать» откроется окно для изменения записи (рис. 4.7).

Рисунок 4.7 - Редактировать

При нажатии на кнопку «Удалить» откроется диалоговое окно с подтверждением удаления записи (рис. 4.8).

Рисунок 4.8 - Форма подтверждения удаления записи

При нажатии на кнопку «Отчёт» откроется документ Excel c отчётом по данной таблице (рис. 4.9).



Рисунок 4.9 - Отчёт по таблице

5 ПРОГРАММА И МЕТОДИКА ИСПЫТАНИЙ

В данном случае предметом испытаний будет являться программа «Информационно-справочная система для мебельного магазина». Данная программа обеспечивает добавление новой записи в базу данных (рисунок 4.6), редактирование ранее созданной записи в базе данных (рисунок 4.7), сортировку записей в базе данных по необходимому полю (рисунок 4.4), фильтрацию необходимых данных (рисунок 4.5), поиск по выбранному полю (рисунок 4.3), создание отчета по проделанным операциям (рисунок 4.9).

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

Рисунок 5.1 - Заполнение таблицы «Гостиная»



Рисунок 5.1 - Добавление новой записи

Вывод:

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

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

На данный момент программа функционирует без ошибок.

6 ИНСТРУКЦИЯ ДЛЯ ПОЛЬЗОВАТЕЛЯ

Программный комплекс «Информационно-справочная система для мебельного магазина» предназначен для оптимизации работы справочной системы мебельного магазина.

Пользователь данной программы должен иметь опыт работы с ОС MS Windows (95/98/NT/2000/XP).

Данная программа разрабатывалась в ходе выполнения курсового проекта по предмету «ОАиП», поэтому для тестирования программы в нее были занесены некоторые данные в таблицу. При работе пользователя с программой их следует удалить.

Диск, который прилагается к курсовой работе содержит следующие файлы:

1. Папка с файлами «Программа курсового проекта»;

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

При подготовке к созданию программы курсового проекта, для

разработки базы данных «Информационно-справочная система для мебельного магазина» была выбрана среда разработки БД Microsoft Access.

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

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

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

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

После запуска программы перед пользователем откроется главное окно программы (рисунок 4.1). Главное окно программы содержит следующие кнопки: «Гостиная», «Детская», «Мягкая мебель», «Столы и стулья», также кнопки «Меню», «О программе», «Отчёт».

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

Из главного окна, при необходимости, нажав на кнопку «Справка», можно открыть окно справки (рисунок 6.1), в котором можно детально ознакомиться с инструкцией по пользованию программой. Окно справки откроется в новом окне, которое имеет удобный и понятный интерфейс для простого пользователя.

Рисунок 6.1 - Окно справки

7 РУКОВОДСТВО ПРОГРАММИСТА

Список процедур и функций:

1. Открытие окна «Главная»

procedure Button1Click(Sender: TObject).

2. Открытие окна «Детская»

procedure Button2Click(Sender: TObject).

3. Открытие окна «Мягкая мебель»

procedure Button3Click(Sender: TObject).

4. Открытие окна «Столы и стулья»

procedure Button4Click(Sender: TObject).

5. Кнопка «Назад»

procedure Button5Click(Sender: TObject).

6. Кнопка «Меню > Выход»

procedure N5Click(Sender: TObject).

7. При запуске программы открывается главное окно

procedure FormCreate(Sender: TObject).

8. Открытие вкладки «Добавить»

procedure Button9Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure Button18Click(Sender: TObject).

9. Открытие вкладки «Редактировать»

procedure Button10Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure Button16Click(Sender: TObject);

procedure Button19Click(Sender: TObject).

10. Открытие вкладки «Удалить»

procedure Button11Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

procedure Button17Click(Sender: TObject);

procedure Button20Click(Sender: TObject).

11. Кнопка «Сохранить»

procedure Button21Click(Sender: TObject);

procedure Button23Click(Sender: TObject);

procedure Button27Click(Sender: TObject);

procedure Button29Click(Sender: TObject);

procedure Button33Click(Sender: TObject);

procedure Button35Click(Sender: TObject);

procedure Button39Click(Sender: TObject);

procedure Button41Click(Sender: TObject).

12. Кнопка «Отмена»

procedure Button22Click(Sender: TObject);

procedure Button24Click(Sender: TObject);

procedure Button26Click(Sender: TObject);

procedure Button28Click(Sender: TObject);

procedure Button30Click(Sender: TObject);

procedure Button32Click(Sender: TObject);

procedure Button34Click(Sender: TObject);

procedure Button36Click(Sender: TObject);

procedure Button38Click(Sender: TObject);

procedure Button40Click(Sender: TObject);

procedure Button42Click(Sender: TObject);

procedure Button44Click(Sender: TObject).

13. Кнопка «Удалить»

procedure Button25Click(Sender: TObject);

procedure Button31Click(Sender: TObject);

procedure Button37Click(Sender: TObject);

procedure Button43Click(Sender: TObject).

14. Процедура поиска

procedure Edit1Change(Sender: TObject);

procedure Edit3Change(Sender: TObject);

procedure Edit5Change(Sender: TObject);

procedure Edit7Change(Sender: TObject).

15. Процедура фильтрации

procedure Edit2Change(Sender: TObject);

procedure Edit4Change(Sender: TObject);

procedure Edit6Change(Sender: TObject);

procedure Edit8Change(Sender: TObject).

16. Процедура сортировки

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure RadioButton4Click(Sender: TObject);

procedure RadioButton5Click(Sender: TObject);

procedure RadioButton6Click(Sender: TObject);

procedure RadioButton7Click(Sender: TObject);

procedure RadioButton8Click(Sender: TObject);

procedure RadioButton9Click(Sender: TObject);

procedure RadioButton10Click(Sender: TObject);

procedure RadioButton11Click(Sender: TObject);

procedure RadioButton12Click(Sender: TObject);

procedure RadioButton13Click(Sender: TObject);

procedure RadioButton14Click(Sender: TObject);

procedure RadioButton15Click(Sender: TObject);

procedure RadioButton16Click(Sender: TObject);

procedure RadioButton17Click(Sender: TObject);

procedure RadioButton18Click(Sender: TObject);

procedure RadioButton19Click(Sender: TObject);

procedure RadioButton20Click(Sender: TObject);

procedure RadioButton21Click(Sender: TObject);

procedure RadioButton22Click(Sender: TObject);

procedure RadioButton23Click(Sender: TObject);

procedure RadioButton24Click(Sender: TObject);

procedure RadioButton25Click(Sender: TObject);

procedure RadioButton26Click(Sender: TObject);

procedure RadioButton27Click(Sender: TObject);

procedure RadioButton28Click(Sender: TObject);

procedure RadioButton29Click(Sender: TObject);

procedure RadioButton30Click(Sender: TObject);

procedure RadioButton31Click(Sender: TObject);

procedure RadioButton32Click(Sender: TObject);

procedure RadioButton33Click(Sender: TObject).

17. Кнопка «О программе > О программе»

procedure N6Click(Sender: TObject).

18. Кнопка «О программе > Справка»

procedure N3Click(Sender: TObject).

19. Кнопка «Отчёт»

19.1. Гостиная

procedure N7Click(Sender: TObject).

19.2. Детская

procedure N8Click(Sender: TObject).

19.3. Мягкая мебель

procedure N9Click(Sender: TObject).

19.4. Столы и стулья

procedure N10Click(Sender: TObject).

Информация по установке программы:

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

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

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

После запуска приложения появится окно приветствия (рис. 7.1). Для продолжения следует нажать кнопку «Далее».

Рисунок 7.1 - Окно приветствия установки

В следующем окне необходимо указать папку для установки программы (рис. 7.2). По умолчанию программа устанавливается в папку «Program Files (x86)». После выбора каталога нажать кнопку «Далее».

Рисунок 7.2 - Выбор каталога для установки

В следующем окне инсталлятор выведет информацию об установке (рис. 7.3). Для установки программы нажать кнопку «Установить».

Рисунок 7.3 - Информация об установке

После завершения установки нажать кнопку «Готово». (рис. 7.4).

Рисунок 7.4 - Программа установлена

ЗАКЛЮЧЕНИЕ

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

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

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

Подходящей средой проектирования подобного приложения является Borland Delphi, оптимальным средой для хранения данных - СУБД Access.

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

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

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

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1.Информатика: Учебник / Под ред. проф. Макаровой Н. В. - М.: Финансы и статистика, 2000. -768 с.

2.Хомоненко А. Д., Цыганков В. М., Мальцев М.Г. Базы данных. Учебник для ВУЗов / Под ред. проф. А. Д. Хомоненко. - СПб.: КОРОНА-принт, 2000. - 416 с.

3.Черемных С.В. и др. Моделирование и анализ систем. IDEF-технологии: практикум / С.В. Черемных, И.О. Семенов, В.С. Ручкин. - М.: Финансы и статистика, 2005. - 192 с.

4.Карпова Т. С. Базы данных. Модели, разработка, реализация. - СПб.: Питер, 2002. 304 с.

5.Малыхина М.П. Базы данных: основы, проектирование, использование. - СПб.: БХВ - Петербург, 2004. - 512 с.

6.Практикум по информатике / А.А. Землянский, Г.А. Кретова, Ю.Р. Стратонович, Е.А. Яшкова; Под ред. А.А. Землянского. - М.: Колос, 2003. - 384 с.

7.Модели, разработка, реализация. Землянского. - М.: Колос, 2003. - 384 с.

8.Моделирование и анализ систем. IDEF-технологии: практикум / С.В. Черемных, Финансы и статистика, 2005. - 192 с.

9.Информатика: Учебник / Под ред. проф. Издательский дом «Вильямс», 2001. - 1026 с.

ПРИЛОЖЕНИЕ A

ЛИСТИНГ ПРОГРАММЫ «Мебельный магазин»

Листинг 1 - Модуль Unit1.pas

{===========================================================================}

{ Модуль Unit1.раs}

{ гр. П-10 };

{ Разработчик: Уроднич-Якимович И.Ю.}

{ Модифицирован: 07 июня 2017 }

{------------------------------------------------------------------------------------}

{ модуль главного окна программы.}

{в этом модуле содержится: добавление, редактирование, удаление данных, также сортировка, фильтрация, поиск, просмотр данных, создание отчёта в Excel, в данном модуле подключена база данных.}

{***********************************************************************************************}

unit Unit1;

interface

uses

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

Dialogs, Menus, StdCtrls, ComCtrls, Grids, DBGrids, DB, ADODB, ExtCtrls,

Mask, DBCtrls, jpeg, ShellAPI, ComObj;

type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

N5: TMenuItem;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

ADOTable2: TADOTable;

ADOTable3: TADOTable;

ADOTable4: TADOTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

DataSource4: TDataSource;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBGrid3: TDBGrid;

DBGrid4: TDBGrid;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

PageControl2: TPageControl;

TabSheet6: TTabSheet;

TabSheet7: TTabSheet;

TabSheet8: TTabSheet;

TabSheet9: TTabSheet;

Button9: TButton;

Button10: TButton;

Button11: TButton;

PageControl3: TPageControl;

TabSheet10: TTabSheet;

Button12: TButton;

Button13: TButton;

Button14: TButton;

TabSheet11: TTabSheet;

TabSheet12: TTabSheet;

TabSheet13: TTabSheet;

PageControl4: TPageControl;

TabSheet14: TTabSheet;

Button15: TButton;

Button16: TButton;

Button17: TButton;

TabSheet15: TTabSheet;

TabSheet16: TTabSheet;

TabSheet17: TTabSheet;

PageControl5: TPageControl;

TabSheet18: TTabSheet;

Button18: TButton;

Button19: TButton;

Button20: TButton;

TabSheet19: TTabSheet;

TabSheet20: TTabSheet;

TabSheet21: TTabSheet;

Button21: TButton;

Button22: TButton;

Button23: TButton;

Button24: TButton;

Button25: TButton;

Button26: TButton;

Button27: TButton;

Button28: TButton;

Button29: TButton;

Button30: TButton;

Button31: TButton;

Button32: TButton;

Button33: TButton;

Button34: TButton;

Button35: TButton;

Button36: TButton;

Button37: TButton;

Button38: TButton;

Button39: TButton;

Button40: TButton;

Button41: TButton;

Button42: TButton;

Button43: TButton;

Button44: TButton;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

DBEdit15: TDBEdit;

DBEdit16: TDBEdit;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

DBEdit17: TDBEdit;

DBEdit18: TDBEdit;

DBEdit19: TDBEdit;

DBEdit20: TDBEdit;

DBEdit21: TDBEdit;

DBEdit22: TDBEdit;

DBEdit23: TDBEdit;

DBEdit24: TDBEdit;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

DBEdit25: TDBEdit;

DBEdit26: TDBEdit;

DBEdit27: TDBEdit;

DBEdit28: TDBEdit;

DBEdit29: TDBEdit;

DBEdit30: TDBEdit;

DBEdit31: TDBEdit;

DBEdit32: TDBEdit;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

DBEdit33: TDBEdit;

DBEdit34: TDBEdit;

DBEdit35: TDBEdit;

DBEdit36: TDBEdit;

DBEdit37: TDBEdit;

DBEdit38: TDBEdit;

DBEdit39: TDBEdit;

DBEdit40: TDBEdit;

Label34: TLabel;

Label35: TLabel;

Label36: TLabel;

Label37: TLabel;

Label38: TLabel;

Label39: TLabel;

Label40: TLabel;

Label41: TLabel;

DBEdit41: TDBEdit;

Label42: TLabel;

DBEdit42: TDBEdit;

DBEdit43: TDBEdit;

Label43: TLabel;

Label44: TLabel;

DBEdit44: TDBEdit;

Label45: TLabel;

Label46: TLabel;

Label47: TLabel;

Label48: TLabel;

Label49: TLabel;

Label50: TLabel;

DBEdit45: TDBEdit;

DBEdit46: TDBEdit;

DBEdit47: TDBEdit;

DBEdit48: TDBEdit;

DBEdit49: TDBEdit;

DBEdit50: TDBEdit;

Label51: TLabel;

DBEdit51: TDBEdit;

DBEdit52: TDBEdit;

Label52: TLabel;

Label53: TLabel;

Label54: TLabel;

Label55: TLabel;

Label56: TLabel;

Label57: TLabel;

Label58: TLabel;

DBEdit53: TDBEdit;

DBEdit54: TDBEdit;

DBEdit55: TDBEdit;

DBEdit56: TDBEdit;

DBEdit57: TDBEdit;

DBEdit58: TDBEdit;

Label59: TLabel;

Label60: TLabel;

Label61: TLabel;

Label62: TLabel;

Label63: TLabel;

Label64: TLabel;

Label65: TLabel;

Label66: TLabel;

DBEdit59: TDBEdit;

DBEdit60: TDBEdit;

DBEdit61: TDBEdit;

DBEdit62: TDBEdit;

DBEdit63: TDBEdit;

DBEdit64: TDBEdit;

DBEdit65: TDBEdit;

DBEdit66: TDBEdit;

Panel5: TPanel;

Panel6: TPanel;

Panel7: TPanel;

Panel8: TPanel;

Image1: TImage;

Edit1: TEdit;

Label67: TLabel;

Edit2: TEdit;

ComboBox1: TComboBox;

Label68: TLabel;

Label69: TLabel;

Label70: TLabel;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

RadioButton6: TRadioButton;

RadioButton7: TRadioButton;

RadioButton8: TRadioButton;

ComboBox2: TComboBox;

Label71: TLabel;

Label72: TLabel;

Label73: TLabel;

Label74: TLabel;

Edit3: TEdit;

ComboBox3: TComboBox;

ComboBox4: TComboBox;

Edit4: TEdit;

RadioButton9: TRadioButton;

RadioButton10: TRadioButton;

RadioButton11: TRadioButton;

RadioButton12: TRadioButton;

RadioButton13: TRadioButton;

RadioButton14: TRadioButton;

RadioButton15: TRadioButton;

RadioButton16: TRadioButton;

Label75: TLabel;

Label76: TLabel;

Label77: TLabel;

Label78: TLabel;

Edit5: TEdit;

Edit6: TEdit;

ComboBox5: TComboBox;

ComboBox6: TComboBox;

RadioButton17: TRadioButton;

RadioButton18: TRadioButton;

RadioButton19: TRadioButton;

RadioButton20: TRadioButton;

RadioButton21: TRadioButton;

RadioButton22: TRadioButton;

RadioButton23: TRadioButton;

RadioButton24: TRadioButton;

RadioButton25: TRadioButton;

Label79: TLabel;

Label80: TLabel;

Label81: TLabel;

Label82: TLabel;

ComboBox7: TComboBox;

ComboBox8: TComboBox;

Edit7: TEdit;

Edit8: TEdit;

RadioButton26: TRadioButton;

RadioButton27: TRadioButton;

RadioButton28: TRadioButton;

RadioButton29: TRadioButton;

RadioButton30: TRadioButton;

RadioButton31: TRadioButton;

RadioButton32: TRadioButton;

RadioButton33: TRadioButton;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

Panel9: TPanel;

Panel10: TPanel;

Panel11: TPanel;

Panel12: TPanel;

Panel13: TPanel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

procedure Button15Click(Sender: TObject);

procedure Button16Click(Sender: TObject);

procedure Button17Click(Sender: TObject);

procedure Button18Click(Sender: TObject);

procedure Button19Click(Sender: TObject);

procedure Button20Click(Sender: TObject);

procedure Button21Click(Sender: TObject);

procedure Button23Click(Sender: TObject);

procedure Button22Click(Sender: TObject);

procedure Button24Click(Sender: TObject);

procedure Button25Click(Sender: TObject);

procedure Button26Click(Sender: TObject);

procedure Button27Click(Sender: TObject);

procedure Button28Click(Sender: TObject);

procedure Button29Click(Sender: TObject);

procedure Button30Click(Sender: TObject);

procedure Button31Click(Sender: TObject);

procedure Button32Click(Sender: TObject);

procedure Button33Click(Sender: TObject);

procedure Button34Click(Sender: TObject);

procedure Button35Click(Sender: TObject);

procedure Button36Click(Sender: TObject);

procedure Button37Click(Sender: TObject);

procedure Button38Click(Sender: TObject);

procedure Button39Click(Sender: TObject);

procedure Button40Click(Sender: TObject);

procedure Button41Click(Sender: TObject);

procedure Button42Click(Sender: TObject);

procedure Button43Click(Sender: TObject);

procedure Button44Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure ADOTable1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure RadioButton4Click(Sender: TObject);

procedure RadioButton5Click(Sender: TObject);

procedure RadioButton6Click(Sender: TObject);

procedure RadioButton7Click(Sender: TObject);

procedure RadioButton8Click(Sender: TObject);

procedure RadioButton9Click(Sender: TObject);

procedure RadioButton10Click(Sender: TObject);

procedure RadioButton11Click(Sender: TObject);

procedure RadioButton12Click(Sender: TObject);

procedure RadioButton13Click(Sender: TObject);

procedure RadioButton14Click(Sender: TObject);

procedure RadioButton15Click(Sender: TObject);

procedure RadioButton16Click(Sender: TObject);

procedure Edit3Change(Sender: TObject);

procedure RadioButton17Click(Sender: TObject);

procedure RadioButton18Click(Sender: TObject);

procedure RadioButton19Click(Sender: TObject);

procedure RadioButton20Click(Sender: TObject);

procedure RadioButton21Click(Sender: TObject);

procedure RadioButton22Click(Sender: TObject);

procedure RadioButton23Click(Sender: TObject);

procedure RadioButton24Click(Sender: TObject);

procedure RadioButton25Click(Sender: TObject);

procedure Edit5Change(Sender: TObject);

procedure RadioButton27Click(Sender: TObject);

procedure RadioButton31Click(Sender: TObject);

procedure RadioButton26Click(Sender: TObject);

procedure RadioButton28Click(Sender: TObject);

procedure RadioButton29Click(Sender: TObject);

procedure RadioButton30Click(Sender: TObject);

procedure RadioButton32Click(Sender: TObject);

procedure RadioButton33Click(Sender: TObject);

procedure Edit7Change(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure Edit4Change(Sender: TObject);

procedure Edit6Change(Sender: TObject);

procedure Edit8Change(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1; ed:string;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

pagecontrol1.ActivePage:=tabsheet2;

pagecontrol2.ActivePage:=tabsheet6;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

pagecontrol1.ActivePage:=tabsheet3;

pagecontrol3.ActivePage:=tabsheet10;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

pagecontrol1.ActivePage:=tabsheet4;

pagecontrol4.ActivePage:=tabsheet14;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

pagecontrol1.ActivePage:=tabsheet5;

pagecontrol5.ActivePage:=tabsheet18;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

pagecontrol1.ActivePage:=tabsheet1;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

pagecontrol1.ActivePage:=tabsheet1;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet7;

adotable1.Append;

dbgrid1.Enabled:=false;

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet8;

adotable1.Edit;

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet9;

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet11;

adotable2.Append;

dbgrid2.Enabled:=false;

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet12;

adotable2.edit;

end;

procedure TForm1.Button14Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet13;

end;

procedure TForm1.Button15Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet15;

adotable3.Append;

dbgrid3.Enabled:=false;

end;

procedure TForm1.Button16Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet16;

adotable3.Edit;

end;

procedure TForm1.Button17Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet17;

end;

procedure TForm1.Button18Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet19;

adotable4.Append;

dbgrid4.Enabled:=false;

end;

procedure TForm1.Button19Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet20;

adotable4.Edit;

end;

procedure TForm1.Button20Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet21;

end;

procedure TForm1.Button21Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet6;

adotable1.Post;

adotable1.Cancel;

dbgrid1.Enabled:=true;

end;

procedure TForm1.Button23Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet6;

adotable1.Post;

adotable1.Cancel;

end;

procedure TForm1.Button22Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet6;

adotable1.Delete;

adotable1.Cancel;

dbgrid1.Enabled:=true;

end;

procedure TForm1.Button24Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet6;

adotable1.Cancel;

end;

procedure TForm1.Button25Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet6;

adotable1.Delete;

end;

procedure TForm1.Button26Click(Sender: TObject);

begin

pagecontrol2.ActivePage:=tabsheet6;

end;

procedure TForm1.Button27Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet10;

adotable2.Post;

adotable2.Cancel;

dbgrid2.Enabled:=true;

end;

procedure TForm1.Button28Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet10;

adotable2.Delete;

adotable2.Cancel;

dbgrid2.Enabled:=true;

end;

procedure TForm1.Button29Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet10;

adotable2.Post;

adotable2.Cancel;

end;

procedure TForm1.Button30Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet10;

adotable2.Cancel;

end;

procedure TForm1.Button31Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet10;

adotable2.Delete;

end;

procedure TForm1.Button32Click(Sender: TObject);

begin

pagecontrol3.ActivePage:=tabsheet10;

end;

procedure TForm1.Button33Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet14;

adotable3.Post;

adotable3.Cancel;

dbgrid3.Enabled:=true;

end;

procedure TForm1.Button34Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet14;

adotable3.Delete;

adotable3.Cancel;

dbgrid3.Enabled:=true;

end;

procedure TForm1.Button35Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet14;

adotable3.Post;

adotable3.Cancel;

end;

procedure TForm1.Button36Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet14;

adotable3.Cancel;

end;

procedure TForm1.Button37Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet14;

adotable3.Delete;

end;

procedure TForm1.Button38Click(Sender: TObject);

begin

pagecontrol4.ActivePage:=tabsheet14;

end;

procedure TForm1.Button39Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet18;

adotable4.Post;

adotable4.Cancel;

dbgrid4.Enabled:=true;

end;

procedure TForm1.Button40Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet18;

adotable4.Delete;

adotable4.Cancel;

dbgrid4.Enabled:=true;

end;

procedure TForm1.Button41Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet18;

adotable4.Post;

adotable4.Cancel;

end;

procedure TForm1.Button42Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet18;

adotable4.Cancel;

end;

procedure TForm1.Button43Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet18;

adotable4.Delete;

end;

procedure TForm1.Button44Click(Sender: TObject);

begin

pagecontrol5.ActivePage:=tabsheet18;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

if edit1.Text<>'' then begin

if( ComboBox1.Text='Наименование')then

ADOTable1.Locate('Наименование',edit1.text, [loPartialKey]);

if( ComboBox1.Text='Тип')then

ADOTable1.Locate('Тип',edit1.text, [loPartialKey]);

if( ComboBox1.Text='Цвет')then

ADOTable1.Locate('Цвет',edit1.text, [loPartialKey]);

if( ComboBox1.Text='Размер')then

ADOTable1.Locate('Размер',edit1.text, [loPartialKey]);

if( ComboBox1.Text='Производитель')then

ADOTable1.Locate('Производитель',edit1.text, [loPartialKey]);

if( ComboBox1.Text='Материал')then

ADOTable1.Locate('Материал',edit1.text, [loPartialKey]);

if( ComboBox1.Text='Цена')then

ADOTable1.Locate('Цена',edit1.text, [loPartialKey]);

if( ComboBox1.Text='Код')then

ADOTable1.Locate('Код',edit1.text, [loPartialKey]);

if( ComboBox1.Text='Количество')then

ADOTable1.Locate('Количество',edit1.text, [loPartialKey]);

end;

end;

procedure TForm1.Edit2Change(Sender: TObject);

begin

if edit2.Text<>'' then begin

ADOTable1.Filtered:=true;

if combobox2.Text='Тип' then

ADOTable1.Filter:='Тип' + ' LIKE ' + #39 + edit2.Text + '%' + #39;

if combobox2.Text='Наименование' then

ADOTable1.Filter:='Наименование' + ' LIKE ' + #39 + edit2.Text + '%' + #39;

if combobox2.Text='Цвет' then

ADOTable1.Filter:='Цвет' + ' LIKE ' + #39 + edit2.Text + '%' + #39;

if combobox2.Text='Размер' then

ADOTable1.Filter:='Размер' + ' LIKE ' + #39 + edit2.Text + '%' + #39;

if combobox2.Text='Производитель' then

ADOTable1.Filter:='Производитель' + ' LIKE ' + #39 + edit2.Text + '%' + #39;

if combobox2.Text='Материал' then

ADOTable1.Filter:='Материал' + ' LIKE ' + #39 + edit2.Text + '%' + #39;

if combobox2.Text='Цена' then

ADOTable1.Filter:='Цена' + ' LIKE ' + #39 + edit2.Text + '%' + #39;

if combobox2.Text='Количество' then

ADOTable1.Filter:='Количество' + ' LIKE ' + #39 + edit2.Text + '%' + #39;

end

else ADOTable1.Filtered:=false;

end;

procedure TForm1.ADOTable1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

//var s:string;

begin

// Фильтрация для числовых полей

//if form1.ComboBox2.Text='Размер' then begin

// s:=copy(dataset['Размер'],1,Length(edit2.text));

// Accept:= s=edit2.text; end;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='Тип';

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='Наименование';

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='Цвет';

end;

procedure TForm1.RadioButton4Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='Размер';

end;

procedure TForm1.RadioButton5Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='Производитель';

end;

procedure TForm1.RadioButton6Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='Материал';

end;

procedure TForm1.RadioButton7Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='Цена';

end;

procedure TForm1.RadioButton8Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='Количество';

end;

procedure TForm1.RadioButton9Click(Sender: TObject);

begin

ADOTable2.IndexFieldNames:='Тип';

end;

procedure TForm1.RadioButton10Click(Sender: TObject);

begin

ADOTable2.IndexFieldNames:='Наименование';

end;

procedure TForm1.RadioButton11Click(Sender: TObject);

begin

ADOTable2.IndexFieldNames:='Цвет';

end;

procedure TForm1.RadioButton12Click(Sender: TObject);

begin

ADOTable2.IndexFieldNames:='Материал';

end;

procedure TForm1.RadioButton13Click(Sender: TObject);

begin

ADOTable2.IndexFieldNames:='Размер';

end;

procedure TForm1.RadioButton14Click(Sender: TObject);

begin

ADOTable2.IndexFieldNames:='Производитель';

end;

procedure TForm1.RadioButton15Click(Sender: TObject);

begin

ADOTable2.IndexFieldNames:='Цена';

end;

procedure TForm1.RadioButton16Click(Sender: TObject);

begin

ADOTable2.IndexFieldNames:='Количество';

end;

procedure TForm1.Edit3Change(Sender: TObject);

begin

if edit3.Text<>'' then begin

if( ComboBox3.Text='Тип')then

ADOTable2.Locate('Тип',edit3.text, [loPartialKey]);

if( ComboBox3.Text='Наименование')then

ADOTable2.Locate('Наименование',edit3.text, [loPartialKey]);

if( ComboBox3.Text='Цвет')then

ADOTable2.Locate('Цвет',edit3.text, [loPartialKey]);

if( ComboBox3.Text='Материал')then

ADOTable2.Locate('Материал',edit3.text, [loPartialKey]);

if( ComboBox3.Text='Размер')then

ADOTable2.Locate('Размер',edit3.text, [loPartialKey]);

if( ComboBox3.Text='Производитель')then

ADOTable2.Locate('Производитель',edit3.text, [loPartialKey]);

if( ComboBox3.Text='Цена')then

ADOTable2.Locate('Цена',edit3.text, [loPartialKey]);

if( ComboBox3.Text='Количество')then

ADOTable2.Locate('Количество',edit3.text, [loPartialKey]);

end;

end;

procedure TForm1.RadioButton17Click(Sender: TObject);

begin

ADOTable3.IndexFieldNames:='Тип';

end;

procedure TForm1.RadioButton18Click(Sender: TObject);

begin

ADOTable3.IndexFieldNames:='Наименование';

end;

procedure TForm1.RadioButton19Click(Sender: TObject);

begin

ADOTable3.IndexFieldNames:='Высота';

end;

procedure TForm1.RadioButton20Click(Sender: TObject);

begin

ADOTable3.IndexFieldNames:='Ширина';

end;

procedure TForm1.RadioButton21Click(Sender: TObject);

begin

ADOTable3.IndexFieldNames:='Длина';

end;

procedure TForm1.RadioButton22Click(Sender: TObject);

begin

ADOTable3.IndexFieldNames:='Цвет';

end;

procedure TForm1.RadioButton23Click(Sender: TObject);

begin

ADOTable3.IndexFieldNames:='Стоимость';

end;

procedure TForm1.RadioButton24Click(Sender: TObject);

begin

ADOTable3.IndexFieldNames:='Производитель';

end;

procedure TForm1.RadioButton25Click(Sender: TObject);

begin

ADOTable3.IndexFieldNames:='Количество';

end;

procedure TForm1.Edit5Change(Sender: TObject);

begin

if edit5.Text<>'' then begin

if( ComboBox5.Text='Тип')then

ADOTable3.Locate('Тип',edit5.text, [loPartialKey]);

if( ComboBox5.Text='Наименование')then

ADOTable3.Locate('Наименование',edit5.text, [loPartialKey]);

if( ComboBox5.Text='Высота')then

ADOTable3.Locate('Высота',edit5.text, [loPartialKey]);

if( ComboBox5.Text='Ширина')then

ADOTable3.Locate('Ширина',edit5.text, [loPartialKey]);

if( ComboBox5.Text='Длина')then

ADOTable3.Locate('Длина',edit5.text, [loPartialKey]);

if( ComboBox5.Text='Цвет')then

ADOTable3.Locate('Цвет',edit5.text, [loPartialKey]);

if( ComboBox5.Text='Стоимость')then

ADOTable3.Locate('Стоимость',edit5.text, [loPartialKey]);

if( ComboBox5.Text='Производитель')then

ADOTable3.Locate('Производитель',edit5.text, [loPartialKey]);

if( ComboBox5.Text='Количество')then

ADOTable3.Locate('Количество',edit5.text, [loPartialKey]);

end;

end;

procedure TForm1.RadioButton27Click(Sender: TObject);

begin

ADOTable4.IndexFieldNames:='Наименование';

end;

procedure TForm1.RadioButton31Click(Sender: TObject);

begin

ADOTable4.IndexFieldNames:='Цена';

end;

procedure TForm1.RadioButton26Click(Sender: TObject);

begin

ADOTable4.IndexFieldNames:='Вид';

end;

procedure TForm1.RadioButton28Click(Sender: TObject);

begin

ADOTable4.IndexFieldNames:='Материал';

end;

procedure TForm1.RadioButton29Click(Sender: TObject);

begin

ADOTable4.IndexFieldNames:='Цвет';

end;

procedure TForm1.RadioButton30Click(Sender: TObject);

begin

ADOTable4.IndexFieldNames:='Размер';

end;

procedure TForm1.RadioButton32Click(Sender: TObject);

begin

ADOTable4.IndexFieldNames:='Производитель';

end;

procedure TForm1.RadioButton33Click(Sender: TObject);

begin

ADOTable4.IndexFieldNames:='Количество';

end;

procedure TForm1.Edit7Change(Sender: TObject);

begin

if edit7.Text<>'' then begin

if( ComboBox7.Text='Вид')then

ADOTable4.Locate('Вид',edit7.text, [loPartialKey]);

if( ComboBox7.Text='Наименование')then

ADOTable4.Locate('Наименование',edit7.text, [loPartialKey]);

if( ComboBox7.Text='Материал')then

ADOTable4.Locate('Материал',edit7.text, [loPartialKey]);