логу Data Connections. Вибераем Direct Data View і потім Next. Переконавшись, що обраний потрібний елемент у списку Active Data Connections нажмімаем кнопку OK.
. Перейшовши в дерево проекту (Locate the Project Tree - дерево в лівій частині візуального дизайнера) відкриваємо Data View Dictionary і вибераем новий перегляд даних, DataView1, який щойно ми створили. А далі за допомогою дизайнера створимо звіт «Рис.10».
Рис.10 Розробка звіту в Rave Visual Designer
Рис. 11 Розроблений звіт
4. Сформований звіт збережемо в каталозі до розробляються додатком і вкажемо шлях у властивостях RvProject1
Рис. 12 Інспектор об'єктів RvProject1
Властивості Engine присвоїмо RvSystem.
. Додамо на форму дві кнопки Button1 і Button2. Напишемо процедури для Button1-висновок на перегляд і для Button2 - виведення на друк.
TForm1.Button1Click (Sender: TObject);// Вивід на просмотр.DefaultDest:=rdPreview;. Execute;; TForm1.Button2Click (Sender: TObject);// Вивід на печать.DefaultDest:=rdPrinter;. Execute;
end;
На цьому закінчимо розробку частини програми знаходиться на сторінці Клієнти компонента PageControl1.
Рис. 13 Інтерфейс програми на сторінці Клієнти компонента PageControl1
Далі перейдемо до сторінці Додати нове замовлення компонента PageControl1. Тут необхідно реалізувати введення даних про нові замовлення. Для цього додамо на форму 10 елементів Edit і кнопку Button (назвемо її Registration). Кожному елементу Edit для зручності напишемо у властивості Name ім'я, наприклад Edit відповідає за введення номера клієнта назвемо Edit_N_cli і т.д.
Для введення даних напишемо процедуру обробки події OnClick для кнопки Registration:
TForm1.RegistrationClick (Sender: TObject);. Append;. FieldByName («N_cli»). AsString:=Edit_N_cli.Text;. FieldByName («Fam»). AsString:=Edit_Fam. Text;. FieldByName («Name»). AsString:=Edit_Name.Text;. FieldByName («Otch»). AsString:=Edit_Otch.Text;. FieldByName («Tel»). AsString:=Edit_Tel.Text;
Table1.Post;
/ / додаємо дані в елемент Table1 пов'язаний з таблицею meb_client
Table5.Append;. FieldByName («N_cli»). AsString:=Edit_N_cli.Text;. FieldByName («N_pro»). AsString:=Edit_N_pro.Text;. FieldByName («N_meb» ;). AsString:=Edit_N_meb.Text;. FieldByName («Dat_zac»). AsString:=Edit_Dat_zac.Text;. FieldByName («Dat_post»). AsString:=Edit_Dat_post.Text;. FieldByName («Dop_info») . AsString:=Edit_Dop_info.Text;
Table5.Post;
/ / додаємо дані в елемент Table5 пов'язаний з таблицею meb_zacaz;
Рис. 14 Інтерфейс на сторінці Додати нове замовлення компонента PageControl1
У правій частині головної форми на Panel1 для відображення інформації про замовлення, товари і виробників розмістимо наступні компоненти:
DBGrid6;
Table5;
Table6;
Table7;
DataSourse6;
DataSourse7; <...
