Якщо натиснути кнопку RUN на панелі інструментів, або F9 Працююча програма відкриває безпосередній доступ до даних у вибраній таблиці.
2.3 Реалізація основних методи роботи з даними
Щоб реалізувати можливість сортування, фільтрації, обчислень у таблиці необхідно створити вторинні індекси (первинний індекс створюється автоматично по ключових полях).
Створення вторинних індексів здійснюється наступним чином:
запустити утиліту Database Desktop, відкрити таблицю, для якої створюються індекси (File, Open, Table, вибрати ім'я таблиці, перейти в режим редагування структури - Table, Restructure);
у вікні властивостей вибрати Secondary Indexes, кнопка Define, вибрати поле, по якому створюється індекс; кнопка Add; кнопка ОК, ввести ім'я індексу (наприклад, Nazv).
Оформимо сортування за допомогою групи перемикачів
На форму поставимо компонент Panel1 і очистимо властивість Caption.
На панель поставимо компонент Radiogroup1, для нього у властивості Caption задамо напис Вид сортування; у властивості Items задати підписи для перемикачів з верху вниз: За назвою, За датою закупівлі, За кількістю на складі.
Додамо на форму кнопку Button1 і задамо напис Сортувати, для властивості OnClick даної кнопки напишемо процедуру:
procedure TForm1. Button2Click (Sender: TObject); RadioGroup1. ItemIndex of
: Table1. IndexName: = 'Vazv_in';
: Table1. IndexName: = 'Data_zak_in';
: Table1. IndexName: = 'Kol_skl_in';
end;
При виборі першого перемикача буде сортування по полю Назва, при виборі другого перемикача буде сортування за датою закупівлі, при виборі третього перемикача - за кількістю на складі. Малюнок 4. br/>В
Рисунок 4 - Сортування за назвою в таблиці "Ліки"
Далі спробуємо організувати фільтрацію за трьома параметрами: За датою закупівлі, по групі, за кількістю в упаковці.
Для реалізації задуманого додаємо відсутні компоненти на форму, це компоненти Button, Edit і Lable для кожного з видів фільтрації. Обмовлюся, що для фільтрації за датою закупівлі замість компонета Lable будемо використовувати DateTimePicker (випадає, календар) з палітри Win32. p align="justify"> Розташуємо ці компоненти відповідно передбачуваним видам фільтрації, підпишемо кожен вид використовуючи компонент lable. Потім для властивості OnClick кожної кнопки Button напишемо відповідну процедуру:
Для фільтрації за датою закупівлі
TForm1. Button5Click (Sender: TObject);: string [20];. Filtered: = True;: = DateToSt...