E (yy, YEAR (d) - YEAR (birthday), birthday) gt; d (dateadd (dd, 7,d)) gt; YEAR (d) (dd, 7,d) gt; DATEADD (yy, YEAR (dateadd (dd, 7,d)) - YEAR (birthday), birthday)
5. Розробка програми
Для роботи з базами даних через додаток використовуються різні драйвера баз даних. Найбільш перспективною є технологія OLE DB і зокрема спрощена її модифікація ActiveX Data Object. В якості середовища програмування додатки розглядається середу Borland Delphi 7.
Cреда програмування Delphi 7.0 включає в себе повний набір візуальних інструментів, який дозволяє швидко створювати додатки, призначені для роботи з базами даних, різного ступеня складності - від найпростіших програм до професійних. Delphi використовує структурний об'єктно-орієнтована мова програмування Object Pascal, який поєднує простоту програмування з високою ефективністю.
5.1 З'єднання з базою даних
Створюємо і зберігаємо новий проект Project1 в Delphi 7. У процесі роботи будемо використовувати такі компоненти, як:
ADOConnection (вкладка ADO) - інкапсулює підключення до БД;
ADOQuery - запит до БД;
ADOTable - таблиця бази даних;
DataSource (вкладка Data Access) - джерело даних для візуальних компонентів; служить для зв'язування візуальних компонентів з наборами даних (зразок ADOQuery); DBGrid (вкладка DataControls) - табличне представлення даних.
Для підключення до бази даних на вкладці Постачальник даних вибираємо Microsoft SQL Server виберемо Microsoft OLE DB provider for SQL Server. У списку вибираємо ім'я сервера. Під пунктом дві вводимо ім'я користувача. У третьому пункті вибираємо базу даних в списку, що розкрився. Натискаємо кнопку Перевірити підключення і потім натискаємо кнопку Ok.
5.2 Розробка головної форми додатка
На головній формі будуть розташовуватися тільки елементи Buttom, при натисканні на які будуть здійснювати перехід на інші форми. Робимо подвійне клацання по створеній кнопці і прописуємо наступний код:
procedure TForm1.Button1Click (Sender: TObject);
begin.Show ;;
Розміщуємо на форму компонент Image. У властивості picture вводимо шлях до картинки.
Головна форма виглядає наступним чином (рис.8).
Рис. 5. Головна форма
Для зв'язку всіх інших форм з базою даних будемо використовувати компоненти ADOConnection, ADOQuery, ADOTable, DataSource. Для зручності будемо використовувати Data Module, в якому будуть знаходиться перераховані вище компоненти. Для того що б створити Data Module клацаємо по вкладці File, вибираємо New, Data Module.
5.3 Створення другорядних форм
.3.1 Реалізація запитів на вибірку даних
У додатку бази даних два другорядні форми здійснюють вибірку даних, це Інформація про конкретну особу чи організації; Список організацій, що займаються певною діяльністю
Для форми Інформація про конкретну особу або організації. Для відображення даних використовується елемент DBGrid. У AdoQuery2 вибираємо властивість SQL і вводимо наступний запит: SELECT * FROM Organiz
Потім підключаємо Form5 до DataModule2.DataSource2 і розташовуємо на формі компонент Edit, в якому пропишемо наступне:
procedure TForm5.Edit1Change (Sender: TObject); a, b: string; begin a:=% + Unit5.
Form5.Edit1.Text + % raquo ;;:=QuotedStr (a); with DataModule2.
ADOQuery2 do begin close; .Clear; SQL.Add
( SELECT * FROM Organiz WHERE naimen like + b) ;; end;
end;
Теж проведемо з Form7: в AdoQuery3 вибираємо властивість SQL і вводимо наступний запит: SELECT * FROM Friend
Для компоненту Edit:
procedure TForm7.Edit1Change (Sender: TObject); a, b: string; begin a:=% + Unit7.
Form7.Edit1.Text + % raquo ;;:=QuotedStr (a); with Data
Module2.ADOQuery3 do begin close; .Clear; SQL.Add
( SELECT * FROM Friend WHERE FIO_dr like + b);
Open; end ;;
Для форми Form3, в AdoQuery1 вибираємо властивість SQL і вводимо наступний запит: SELECT * FROM Sotrudnik
У розташований на формі компонент Edit пишемо код:
procedure TForm3....
