/p>
DataSourse8;
DBNavigator2;
Button (zacazi);
Button2 (tovar);
Button3 (proizvod).
Набудуємо властивості трьох компонентів Table для з'єднання з потрібними нам таблицями БД:
· властивості DatabaseName Table5 присвоїмо псевдонім meb_salon, а властивості TableName присвоїмо meb_zacaz;
· властивості DatabaseName Table6 присвоїмо псевдонім meb_salon, а властивості TableName присвоїмо meb_meb;
· властивості DatabaseName Table7 присвоїмо псевдонім meb_salon, а властивості TableName присвоїмо meb_proizvod.
Властивостям DataSet компонентів DataSourse присвоїмо значення:
· в DataSourse8 DataSet=Table5;
· в DataSourse7 DataSet=Table7;
· в DataSours6 DataSet=Table6.
Після цього всім компонентам Table властивості Active присвоїмо значення True.
Для того щоб наш додаток було компактним, реалізуємо перегляд трьох таблиць з даними в одному DBGrid6. Напишемо процедури обробки подій OnClick для наших кнопок - zacazi, tovar, proizvod. Процедури шляхом зміни властивості DataSourse у компонентів DBGrid6 і DBNavigator2 налаштують відображення потрібних нам даних:
/ / перемикається на перегляд заказовTForm1.ZacaziClick (Sender: TObject);
begin.DataSource:=DataSource8;. DataSource:=DataSource8;;
/ / перемикається на перегляд товаровTForm1.TovarClick (Sender: TObject);. DataSource:=DataSource6;. DataSource:=DataSource6;;
/ / перемикається на перегляд проізводітелейTForm1.ProizvodClick (Sender: TObject);. DataSource:=DataSource7;. DataSource:=DataSource7;
end;
Для введення даних про нові товари і виробників розмістимо на компоненті Panel2 наступні компоненти:
Edit11 (для введення № меблів); ??
Edit12 (для введення назви меблів); ??
Edit14 (для введення ціни);
Edit15 (для введення фірми виробника);
Edit16 (для введення № виробника);
Edit17 (для введення розрахункового рахунку виробника);
Edit18 (для введення контактного телефону виробника);
Button (назвемо Tovar_Plus).
Напишемо процедуру додавання даних для обробки події OnClick кнопки Tovar_Plus:
/ / додавання даних про товар і виробника
procedure TForm1.Tovar_PlusClick (Sender: TObject);. Append;. FieldByName («N_pro»). AsString:=Edit16.Text;. FieldByName («Firma»). AsString:=Edit15 . Text;. FieldByName («R_s»). AsString:=Edit17.Text;. FieldByName («Kon_tel»). AsString:=Edit18.Text;. Post;. Append;. FieldByName («N_meb»). AsString:=Edit11.Text;. FieldByName («Naimenovanie»). AsString:=Edit12.Text;. FieldByName («Cena»). AsString:=Edit14.Text;. FieldByName («N_pro»). AsString: =Edit16.Text;
Table6.Post;;
Рис. 15 Інтерфейс правій частині головної форми додатка.
Створення програми ...
