. Шифр є ключем. Ступінь відносини дорівнює 5. br/>
2.3 Створення програми в Delpi
Створення головної форми
Спочатку створюється новий проект Delphi. Form1 буде служити для вибору і відкриття таблиць бази даних. Вибір таблиць здійснюється за допомогою RadioGroup1. p align="justify"> Для кнопки В«ВибірВ» пишемо код:
procedure TForm1.Button1Click (Sender: TObject); RadioGroup1.ItemIndex = 0 then.Show; RadioGroup1.ItemIndex = 1 then.Show; RadioGroup1.ItemIndex = 2 then.Show; RadioGroup1.ItemIndex = 3 then.Show; RadioGroup1.ItemIndex = 4 then.Show; RadioGroup1.ItemIndex = 5 then.Show; RadioGroup1.ItemIndex = 6 then8.Show;;
Створення таблиць бази даних
Розглянемо створення таблиць бази даних на прикладі Form2, що має ім'я В«КнигиВ» база дані delphi таблиця
На форму поміщаються компоненти DBGrid, DataSource, два ADOQuery, ADOConnection, DBNavigator.
У властивості ConnectionString для ADOConnection1 вибираємо постачальника даних Microsoft Jet 4.0 OLE DB Provider і вказуємо шлях до бази даних, створеної за допомогою MS Access.
У властивості SQL компонента ADOQuery1 пишемо SQL-запит, який здійснює вибір всіх полів з бази даних:
SELECT * FROM book.
Додавання, видалення і зміна записів
Додавання та видалення записів здійснюється за допомогою компонента MainMenu. Для цього створюється вкладка В«РедагуватиВ», всередині якої створюються вкладки В«Додати записВ» і В«Видалити записВ». p align="justify"> За натискання на В«Додати записВ» виконується наступний код:
procedure TForm2.NAddClick (Sender: TObject);. Insert;. Columns.Items [0]. Width: = 200;. Columns.Items [1]. Width: = 200;. Columns. Items [2]. Width: = 200;. Columns.Items [3]. Width: = 200;. Width: = 840;
Form2.Width: = 900;;
По натискання "Видалити записВ» виконується код:
procedure TForm2.NDeleteClick (Sender: TObject);. Delete;. Columns.Items [0]. Width: = 200;. Columns.Items [1]. Width: = 200;. Columns. Items [2]. Width: = 200;. Columns.Items [3]. Width: = 200;. Width: = 840;
Form2.Width: = 900;;
Зміна записів відбувається подвійним кліком на потрібній клітинці таблиці, після чого вводиться нова інформація.
Сортування записів
Щоб організувати сортування в компоненті MainMenu створюється вкладка В«СортуванняВ». По натискання на ній виконується код:
procedure TForm2.N2Click (Sender: TObject);
begin....
