ця В«УгодиВ» представлена ​​на малюнку 2.3-Таблиця В«УгодиВ».
В
Малюнок 2.3-Таблиця В«УгодиВ»
Заповнення таблиць відбувається за допомогою оператора INSERT INTO.
Код запиту на заповнення таблиці В«КлієнтиВ» представлено нижче: INTO Клієнти (Код_кліента, Назва, Від_деятельності, Адреса, Телефон) (3, "Балаєва", "фінанси", "Ростов", "35232");
Зв'язування таблиць між собою відбувається за допомогою ключових елементів і оператора Foreign key (...) References (...). Отримана схема бази даних відображена на малюнку 2.4-Схема даних.
В
Малюнок 2.4-Схема даних
2.3 Розробка клієнтського програми
Для створення клієнтського додатка необхідно спочатку зв'язати базу даних з формою Borland Delphi. Для цього використовується елемент ADOConnection. У властивостях доданого ADOConnection задамо постачальника даних Microsoft Jet 4.0 OLE DB Provider, як найбільш відповідного для роботи з БД MS Access, і вкажемо шлях до створеної бази даних Курсовая.mdb. Також виставимо властивість LoginPrompt в False, щоб програма при відкритті незапрошенной пароль доступу до БД. У компонента ADOTable необхідно у властивості Connection вказати створений компонент ADOConnection, а у компонента DataSource у властивості DataSet вказати ADOTable. У властивостях DataSource компоненту DBGrid вказати DataSource1. br/>
2.3.1 Додавання даних
Для додавання даних необхідно вибрати відповідну таблицю і натиснути кнопку В«ДодатиВ» на формі.
При натисканні кнопки з'являється форма для додавання. Вона містить поля, в які потрібно вписувати дані. Поруч з полями написано, якого роду інформація повинна вводитися у відповідне поле. p align="justify"> Розберемо додавання даних на прикладі таблиці В«КлієнтиВ».
При виборі таблиці В«КлієнтиВ» і натисненні на кнопку В«ДодатиВ» з'являється форма для додавання. Заповнимо цю форму. Заповнена форма представлена ​​на малюнку 2.5-Форма для додавання. br/>В
Малюнок 2.5-Форма для додавання.
При натисканні на клавішу Додати відбувається додавання даних. У цій процедурі спочатку перевіряється, чи всі поля для додавання заповнені. Якщо заповнені не всі поля, з'являється повідомлення В«Заповніть всі поляВ». Якщо всі поля заповнені, відбувається його додавання. Код процедури додавання для таблиці В«КлієнтиВ» представлено нижче:
procedure TForm2.Button1Click (Sender: TObject); (Edit1.Text ='') or (Edit2.Text ='') or (Edit3.Text ='') or (Edit4.Text = '') then ShowMessage ('Заповніть всі поля!') else.ADOQuery1.SQL.Add ('INSERT INTO Клієнти (Назва, Від_...
