MATERIALS_CONTRAGENT_CREATE" (_mc_kat_id IN materials_contragent.mc_kat_id% TYPE, in_mc_mat_id IN _contragent.mc_mat_id% TYPE, in_mc_mz_id IN _contragent.mc_kat_id% TYPE, in_mc_post_id IN _contragent.mc_post_id% TYPE, in_mc_name IN _contragent.mc_name % TYPE, in_mc_count IN _contragent.mc_kat_id% TYPE, in_mc_cost IN _contragent.mc_cost% TYPE, in_mc_edizm IN _contragent.mc_edizm% TYPE, out_id OUT _contragent.mc_id% TYPE
)
/* додавання запису по матеріалу до версії розрахунку */
ISseq_materials_contragent_mc_id.NEXTVALout_idDUAL; INTO materials_contragent
(mc_id, mc_mat_id, mc_mz_id, mc_post_id, mc_name, _count, mc_cost, mc_edizm, mc_kat_id
) (out_id, in_mc_mat_id, in_mc_mz_id, in_mc_post_id, _mc_name, _mc_count, in_mc_cost, in_mc_edizm, in_mc_kat_id
);
END materials_contragent_create;
Процедура видалення контрагента в таблицю закупівель:
CREATE OR REPLACE PROCEDURE
"MATERIALS_CONTRAGENT_DELETE" (_mc_id IN materials_zamen.mz_id% TYPE
)
/* видалення контрагента */FROM materials_contragentmc_id = in_mc_id; materials_CONTRAGENT_delete;
5.1.6 Модуль Mat_Zamen.pas
Модуль Mat_Zamen.pas, є головним модулем проекту, так як він містить опис дій відбуваються при завантаженні програми, а також опис форми MainForm.
На формі розташовані три таблиці TDBGridEh. Це таблиці матеріалів, замін і контрагентів, а також закладки та меню TMenuItem. На формі присутні компоненти TСlientDataSet, TdataSource. p align="justify"> Компонент TClientDataSet використовується в клієнтській частині багатоланкового розподіленого додатку.
Компонент забезпечує виконання наступних основних функцій:
отримання даних від віддаленого сервера і передача йому зроблених змін з використанням віддаленого компонента-провайдера;
представлення набору даних за допомогою локального буфера і підтримка основних операцій, успадкованих від класу TDataSet;
об'єднання записів набору даних за допомогою агрегатних функцій для отримання сумарних даних;
локальне збереження набору даних у файлі і подальше відновлення набору даних з файлу;
представлення набору даних у форматі XML [6].
Предком компонента TClientDataSet є клас TDataSet, тому TClientDataSet володіє таким же набором функцій, що і звичайний компонент, що інкапсулює набір даних. Основна ж відмінність полягає в тому, джерело даних для нього доступний тільки через віддалений компонент-провайдер. Це означає, що збереження змін і оновлення набору даних здійснюється локально, без звернення до джерела даних [7...
