urce1;
у властивості DataSet компонента DataSource1 вказати ADOTable1.
. Задати параметри з'єднання компонента ADOTable1:
у властивості ConnectionString натиснути кнопку з трьома крапками, у вікні редактора параметрів з'єднання встановити перемикач в положення Use Connection String і натиснути кнопку Build; у вікні на вкладці Постачальник даних вибрати властивість Microsoft Jet 4.0 OLE DB Provider;
перейдті на вкладку Підключення, вказати шлях до БД, ввести ім'я користувача і при необхідності задати пароль;
натиснути кнопку Перевірити підключення;
після завершення перевірки підключення перейти на вкладку Додатково і поставити галочки навпроти властивостей ReadWrite, Share Deny None;
вибрати вкладку Все і перевірити зроблені установки. При необхідності змінити значення, вибрати потрібну строчку, натиснути кнопку Змінити значення, у вікні вибрати значення і натиснути ОК;
натиснути два рази ОК;
у властивості TableName компонента ADOTаble1 вказати потрібну таблицю;
у властивості Active встановити значення true.
Якщо все зроблено правильно, то після завдання таблиці компонент DBGrid1 заповниться даними.
Для створення можливості маніпулювати даними в таблиці, наприклад переходити між записами, редагувати їх, видаляти і додавати нові, помістимо на форму компонент DBNavigator і змінимо його властивість DataSource на DataSource1.
Для здійснення надалі операцій пошуку, сортування та фільтрації нам потрібно спочатку помістити на форму як мінімум два компоненти Edit. Хай перший буде називатися Edit1 і служити для введення в нього назви обраного користувачем додатки поля таблиці, а другий - Edit2 - для вибраних значень цього поля. Також для зручності користувача можна помістити на форму два компоненти Label і назвати їх соответствующе «Поле» і «Значення».
Для здійснення пошуку помістимо на форму компонент Button і припишемо йому програмний код виду:
if Form1.ADOTable1.Locate (Form1.Edit1.Text, Form1.Edit2.Text, [loCaseInsensitive])=true
then ShowMessage ( Finding! );
Для застосування фільтрації, а також зняття її, помістимо на форму два компоненти Button. Перший назвемо «Фільтр», привласнимо йому наступний код: .ADOTable1.Filter:=Form1. Edit1.Text + = Raquo; + QuotedStr (Form1. Edit2.Text);.ADOTable1. Filtered:=true;
Другий назвемо «Зняти фільтр», він міститиме цей код: .ADOTable1. Filtered:=false;
Для здійснення сортування також помістимо два компоненти Button. Перший компонент відповідатиме за сортування за зростанням, він отримає наступний код:
Form1.ADOTable1. Sort:=Form1.Edit1.Text + ASC raquo ;;
Другий ж відповідатиме за сортування у порядку зменшення. Йому буде відповідати цей код:
Form1.ADOTable1. Sort:=Form1.Edit1.Text + DESC raquo ;;
Також можна здійснити можливість вибору таблиць для відображення і роботи. Для цього помістимо на форму компонент MainMenu і відкриємо його редактор і створимо відповідні таблицями бази даних пункти меню. Потім натиснувши на формі на один з пунктів цього меню, наприклад пункт вибору таблиці «Персонал», відкриємо опис методу Click і введемо:
ADOTable1.Active:=False;.TableName:=laquo;Персоналraquo;;.Active:=True;.DataSet:=ADOTable1;
DBGrid1.DataSource:=DataSource1;
Такі ж операції проробимо і для інших пунктів меню, код для них аналогічний.
У завершенні можемо створити можливість виходу з програми через вибір відповідного пункту меню. Для цього знову відкриємо редактор компонента MainMenu і створимо там відповідний пункт. Потім через форму привласнимо йому наступне опис методу Click: Form1.CloseQuery then Form1.Close;
Код зовнішнього програми знаходиться у додатку Ж.
3.3 Керівництво користувача
При запуску програми з'являється форма додатка, з уже відкритої таблицею «Квиток» (Мал. 1).
Рис. 1
Для роботи з якою-небудь іншою таблицею потрібно відкрити відповідний пункт головного меню і вибрати потрібну (Мал. 2).
Рис. 2
Для управліннями записами вибраної таблиці використовується компонент DBNavigator (Мал. 3).
Рис. 3
Опис кнопок компонента в порядку зліва направо:
...
