База знаний предприятий


Типичные процедуры. - часть 2


 

Пример процедуры проверки на полноту знаний в таблицах, связанных с таблицей «Предприятия»:

erez:=false;//Признак неполноты. Устанавливается в true, если нашли неполноту.

EntrDataModule.CheckEntrQuery.FindFirst;//Переходим на первую запись информации с сервера

repeat

  j:=0;//Счётчик внутреннего цикла

  repeat

    if EntrDataModule.CheckEntrQuery.Fields[j].AsInteger=0 then

      erez:=true;//Если нашли неполноту, устанавливаем признак.

    inc(j);

  until (j=EntrDataModule.CheckEntrQuery.FieldCount) or (erez=true);//Оканчиваем

просмотр, если //просмотрели всю строку или нашли неполноту

  if erez=false then //Если неполнота не найдена, переходим к следующей строке

    EntrDataModule.CheckEntrQuery.FindNext;

until (EntrDataModule.CheckEntrQuery.RecNo=EntrDataModule.CheckEntrQuery.RecordCount-1) or (erez=true);//Заканчиваем работу, если просмотрели всю таблицу или нашли неполноту.

 

На вход процедуры проверки полноты знаний поступает информация с сервера, представленная в виде таблицы, в каждой строке которой занесено количество записей, связанных с записью таблицы «Предприятия», номер которой соответствует номеру строки, в каждой из подчинённых таблиц. Если присутствует нулевое значение, то в данном случае это означает, что о предприятии не занесены какие-либо данные, например, производимые изделия, режимы, экономические показатели или показатели материальной базы. Поэтому каждое нулевое значение обозначает неполноту, которую необходимо устранить для того, чтобы модуль логического вывода мог делать адекватные заключения, обращаясь к этой базе знаний.


                                                                                                                               III.      ТЕХНОЛОГИЧЕСКАЯ ЧАСТЬ




Начало  Назад  Вперед



Книжный магазин