Рисунок 2 - Модуль сортування
У цій базі даних процес сортування відбувається ТІЛЬКИ за зростанням. На малюнку 2 показана блок-схема сортування. p align="justify"> Даний модуль працює наступним чином:
1. Початком роботи модуля буде вважатися блок початок;
2. Привласнюємо компоненту Edit1 пусте значення;
. деактивувавши компонент Query1;
. Очищаємо компонент Query1;
. Додавання в компонент Query1 нового умови;
. Оператор case - зчитує індекс вибраного рядка в компоненті RadioGroup1;
. Якщо індекс = 0, значить виконання сортування по виду товару;
. Якщо індекс = 1, значить виконання сортування за найменуванням;
. Якщо індекс = 2, значить виконання сортування по виробнику;
. Якщо індекс = 3, значить виконання сортування за кількістю;
. Якщо індекс = 4, значить виконання сортування за ціною;
. Активуваня компонента Query1.
. Висновок даних у вигляді таблиці.
Модуль додавання.
Цей модуль призначений для додавання даних в таблицю, який розташований на другій формі. Додавання відбувається за допомогою процедури описаної нижче (малюнок 3):
Початком роботи модуля вважається символ початок.
Введення даних в таблицю здійснюється в поля для введення розташованих у блоці введення.
За командою В«BitBtn.clickВ» дані записуються в табліцу.Добавленіе завершено символ початок і кінець алгоритму.
В
Малюнок 3-Модуль додавання
2. Практична частина
.1 Лістинг програми з коментарями
Розглянемо докладніше лістинг блоків і форм.
Даний проект містить 11 форм, які є основою проектованого додатки Delphi.
Перша форма представлено завантажувальним вікном, її лістинг виглядає наступним чином:
1) XPmanifest - використання оформлення стилю WindowsXP.
2) Label - призначений для приміщення на форму написів.
unit Unit1;, Messages, SysUtils, Variants, Class...