ння False, щоб при підключенні до БД не запитували пароль. Для з'єднання з базою даних у властивості ConnectionString було викликано вікно наступного вигляду (див. Рис. 2):
Рис. 2. Налагодження підключення до бази даних
Далі, був обраний провайдер Microsoft Jet 4.0 OLE DB Provaider.
У наступному вікні був вказаний шлях до БД та ім'я користувача за замовчуванням ( Admin). Якщо БД знаходиться в кореневому каталозі з програмою, то в даному полі досить вказати її ім'я з розширенням, база даних знаходиться в підкаталозі BD, тому вказуємо ім'я BD kinoman.mdb
У властивості компонента TDBGrid було вибрано Options і в подствойстве dgEditing встановлено значення False (заборона редагування в таблиці), а в подсвойстве dgRowSelect встановлено значення True (виділяється вся рядок в таблиці)
Для компонента TADOConnection - у властивості Mode вибрано значення cmShareDenyNone ( зі списку)
· Переміщення по БД
Для можливості переходу по записах в таблиці були створені чотири кнопки «Наступний запис», «Попередній запис», «На початок», «В кінець»
Їх працездатність забезпечується завдяки наступному коду:
ADOQuery1. Next ;. Prior ;. First;
ADOQuery1. Last.
· Додавання, видалення даних
Для можливості додавання і видалення даних була проведена додаткова настройка об'єкта TDBGrid. Після цього, для кнопки «Додати» був написаний наступний код:
try
if (Trim (Edit1. Text)= ) or (Trim (Edit2. Text)= ) or (Trim (Edit3. Text)= ) or (Trim (Edit4. Text)= ) or (Trim (Edit5. Text)= ) or (Trim (Edit6. Text)= ) ;;. Insert ;. FieldByName ( kod ). AsInteger:=StrToInt (Edit1. Text) ;. FieldByName ( name ). AsString:=Edit2. Text ;. FieldByName ( director ). AsString:=Edit3. Text ;. FieldByName ( actor ). AsString:=Edit4. Text ;. FieldByName ( god ). AsInteger:=StrToInt (Edit5. Text) ;. FieldByName ( janr ). AsString:=Edit6. Text ;. Clear ;. Clear ;. Clear ;. Clear ;. Clear ;. Clear; e: Exception do;
Після додавання інформації вона повинні бути додатково збережена, для цього на кнопці «Зберегти» був написаний наступний код:
try. Active:=True ;. Post; e: Exception do;
Для видалення поточного запису був використаний наступний код:
tryApplication. MessageBox ( Підтвердіть видалення запису raquo ;, ADO raquo ;, MB_YESNO)=IDYES then. Delete ;; e: Exception do
end;
· Редагування даних
Кнопка «Редагувати» містить код:
Edit1. Text:=IntToStr (ADOQuery1. FieldByName ( kod ). AsInteger) ;. Text:=ADOQuery1. FieldByName ( name ). AsString ;. Text:=ADOQuery1. FieldByName ( director ). AsString ;. Text:=ADOQuery1. FieldByName ( actor ). AsString ;. Text:=IntToStr (ADOQuery1. FieldByName ( god ). AsInteger) ;. Text:=ADOQuery1. FieldByName ( janr ). AsString; e: Exception do;
ADOQuery1. Delete;
· Сортування даних
В залежності від обраного пункту елемента RadioGroup1 сортування проводиться по різних полях
Програмний код, що реалізовує сортування:
.itemindex of
0: ADOQuery1. Sort:= kod raquo ;;
: ADOQuery1. Sort:= name raquo ;;
: ADOQuery1. Sort:= director raquo ;;
: ADOQuery1. Sort:= god raquo ;;
4: ADOQuery1. Sort:= janr raquo ;;
· Фільтрація даних
Поле, за яким буде проводитися фільтрація, визначається за допомогою об'єкта RadioGroup2.
Програмний код, що реалізовує фільтрацію:
if length (edit7.text) gt; 0 then.SQL. Clear; radiogroup2.itemindex=0 then ADOQuery1.SQL. Add ( SELECT * FROM Kinoman where name like + # 39 + % + edit7. Text + % + # 39); radiogroup2.itemindex=1 then ADOQuery1.SQL. Add ( SELECT * FROM Kinoman where director like + # 39 + % + edit7. Text + % + # 39); radiogroup2.itemindex=2 then ADOQuery1.SQL. Add ( SELECT * FROM Kinoman where actor like + # 39 + % + edit7. Text + % + # 39) ;. Active:=True ;;. Text:= raquo ;;
Для відновлення всіх зап...
