]. p align="justify"> Як і звичайний компонент, компонент TClientDataSet може використовуватися спільно з візуальними компонентами відображення даних. Для цього потрібен компонент TDataSource. p align="justify"> На другому етапі розробки програми баз даних необхідно перенести на форму і налаштувати компонент TDataSource. Він забезпечує взаємодію набору даних з компонентами відображення даних. Найчастіше одному набору даних відповідає один компонент TDataSource, хоча їх може бути кілька. p align="justify"> Для налаштування властивостей компонента необхідно виконати наступні дії.
. Зв'язати набір даних і компонент TDataSource. Для цього використовується властивість DataSet компонента TDataSource, доступне через Інспектор об'єктів. Це покажчик на екземпляр компонента доступу до даних. p align="justify"> У списку цієї властивості в інспектор об'єктів перераховані всі доступні компоненти наборів даних.
. Перейменувати компонент. Це не обов'язкова дія. Проте бажано привласнювати компонентам осмислені імена, відповідні назвам пов'язаних наборів даних [7]. p align="justify"> Компонент меню, представлений на малюнку 5.1, виконує наступні процедури:
В· Введення/видалення контрагента;
В· Введення/видалення заміни;
В· Друк звіту
В
Малюнок 5.1 - Головне меню
Процедури введення (TFRep_Mats.N5Click) і видалення (TFRep_Mats.N14Click) контрагентів
procedure TFRep_Mats.N5Click (Sender: TObject); not assigned (scM4_ContrAgents) then_ContrAgents (SharedConnection.ParentConnection); _Sprav (Self, ContrAgentsDisp (IDispatch (scM4_ContrAgents.AppServer)),
(Screen.DesktopHeight div 2) - (height div 2),
(Screen.DesktopWidth div 2) - (width div 2),
'','','', _Name, _Code); (DBGEh_Mats.Focused = True) and (ContrAgent_Name <>'') Then_Contr_Add (Application, SharedConnection, Kat_Id, _Mats.FieldByName ('MD_MR_ID'). AsInteger,
, 0, ContrAgent_Code, ContrAgent_Name) if (DBGEh_Zamen.Focused = True) and (ContrAgent_Name <>'') then_Contr_Add (Application, SharedConnection, Kat_Id, _Zamen.FieldByName ('MZ_MAT_ID'). AsInteger, _Zamen.FieldByName ('MZ_ID'). AsInteger, 1, ContrAgent_Code, _Name); _Refresh;; TFRep_Mats.N14Click (Sender: TObject);. Mat_Zamen_Contr_Del (CDS_Contr.FieldByName ('MC_ID'). AsInteger);
Contr_Refresh;;
Процедури введення та видалення замін:
procedure TFRep_Mats.N13Click (Sender: TObject); _Zamen (Application, TObject);. Mat_Zamen_Delete (CDS_Zamen.FieldByName ('mz_id'). AsInt...
