TFormRedpac.c_oblChange(Sender: TObject);:integer;not DataModule1.ibquery_obl.active then DataModule1.ibquery_obl.active:=true;.ibquery_obl.first();i:=0 to c_obl.itemindex-1 do begin.ibquery_obl.Next;;_obl.Tag:=DataModule1.IBQuery_obl.fieldbyname('ID_OBL').Value;_obl.Visible:=true;;
.
Додаток В
Схема зв’язку таблиць
Рисунок В.1 - Схема взаємозв’язку таблиць