деятельності, Адреса, Телефон) VALUES
form2.Close ();;;
Результат додавання в таблицю В«КлієнтиВ» представлено на малюнку 2.6-Додавання даних.
В
Малюнок 2.6-Додавання даних
2.3.2Полний код процедури додавання представлений у додатку А
2.3.3Удаленіе даних
Для видалення даних необхідно вибрати відповідну таблицю і рядок, що вимагає видалення, натиснути кнопку В«ВидалитиВ» на формі.
Розберемо видалення даних на прикладі таблиці В«КлієнтиВ». Відкриємо таблицю і виберемо рядок, що вимагає видалення. При натисканні на кнопку Видалити відбувається процедура видалення. Код процедури видалення представлений нижче:
procedure TForm1.Button5Click (Sender: TObject); DBGrid1.SelectedField.AsString <>'' thenbutton1.Enabled = false then.SQL.Add ('DELETE cascade FROM Клієнти where
end;
Таблиця В«КлієнтиВ» до видалення запису і після представлена ​​відповідно на малюнку 2.7-Таблиця В«КлієнтиВ» і на малюнку 2.8-Видалення запису.
В
Малюнок 2.7-Таблиця В«КлієнтиВ»
В
Малюнок 2.8-Видалення запису
2.3.3 Сортування даних
Для сортування даних необхідно вибрати перегляд.
У перегляді потрібно вибрати по якому полю сортувати і за якою ознакою, тобто за зменшенням або зростанням.
Процедура сортування відбувається за допомогою властивості елемента ADODataSet1. Властивість називається ADODataSet1.Sort. Нижче представлений код процедури сортування:
procedure TForm1.cbb1Change (Sender: TObject);
begin
ADOdataset1.Active: = false;
ADOdataset1.CommandText: = 'select Сделкі.Код_сделкі, Кліенти.Названіе, Кліенти.Від_деятельності, Кліенти.Адрес, Кліенти.Телефон, Услугі.Названіе, Услугі.Опісаніе, Сделкі.Коміссіонние, Сделкі.Опісаніе , Сделкі.Сумма ';
ADOdataset1.CommandText: = ADOdataset1.CommandText + 'from Угоди, Послуги, Клієнти WHERE ORDER BY ';
ADOdataset1.CommandText: = ADOdataset1.CommandText + cbb1.Text; combobox1.ItemIndex = 1 then ADOdataset1.CommandText: = ADOdataset1.CommandText + 'DESC';. Active: = true;;
procedure TForm1.ComboBox1Change (Sender: TObject);. Active: = false;. CommandText: = 'select Сделкі.Код_сделкі, Кліенти.Названіе, Кліенти.Від_деятельності, Кліенти.Адрес, Кліенти.Телефон, Услугі.Названіе, Услугі.Опісаніе, Сделкі.Коміссіонние, Сделкі.Опісаніе, Сделкі.Сумма ';. CommandText: = ADOdataset1.CommandText +' from Угоди, Послуги, Клієнти WHERE ORDER BY ';. CommandText: = ADOdataset1.CommandText + cbb1.Tex...
