Главная/

Программирование, базы данных. /

Экспертная система

valueeditor,done)

     end

   end;

  procedure atributsediting;

   var r:trect;

       h,hh:phistory;

   begin

    atributeditor:=patributeditor(visualres.get('Объекты'));

    atributeditor^.disablecommands([cmopen,cmnew,cmrename,cmedit,cmerase]);

    with atributeditor^ do

     begin

      r.assign(1,3,44,4);

      inputatribut:=new(pinputline,init(r,60));

      insert(inputatribut);

      r.assign(1,2,49,3);

      insert(new(plabel,init(r,'~В~вод объекта:',inputatribut)));

      r.assign(44,3,47,4);

      h:=(new(phistory,init(r,inputatribut,1)));

      insert(h);

      r.assign(1,5,44,6);

      inputquestion:=new(pinputline,init(r,60));

      insert(inputquestion);

      r.assign(1,4,49,5);

      insert(new(plabel,init(r,'Вв~о~д вопроса о данном объекте:',inputquestion)));

      r.assign(44,5,47,6);

      hh:=(new(phistory,init(r,inputquestion,2)));

      insert(hh);

      selectnext(true)

     end;

    basis^.base.init(new(pprotectedstream,init(basis^.namefile,stopen,1024)));

    database:=pdatabase(basis^.base.get('Данные '+basis^.name));

    control:=desktop^.execview(atributeditor);

    if control=cmcancel then;

   end;

  procedure selector(d:pstatewindow);

   type tstatedata=record

         bvdata:word;

         evdata:word;

         bidata:word;

         rvdata:word;

         cdata:word;

         adata:word;

        end;

   var data:tstatedata;

   begin

    d^.getdata(data);

    case data.cdata of

     0:atributsediting;

     1:valuesediting;

     2:rulesediting;

    end

   end;

  procedure initbase(basis:pbasis;var database:pdatabase;rulebase:prulebase);

   begin

    str(bases^.count,basis^.namefile);

    basis^.namefile:='base'+basis^.namefile+'.pro';

    basis^.base.init(new(pprotectedstream,init(basis^.namefile,stopen,1024)));

    database:=pdatabase(basis^.base.get('Данные '+basis^.name));

    rulebase:=prulebase(basis^.base.get('Правила '+basis^.name))

   end;

  procedure registermain;

   begin

    registertype(rnewwindow);

    registertype(rrenamewindow);

    registertype(rknoledgebank);

    registertype(rbankwindow);

    registertype(rdatabase);

    registertype(rrulebase);

    registertype(rfact);

    registertype(rvalue);

    registertype(rrule);

    registertype(runital);

    registertype(rmachine);

    registertype(rmanager);

    registertype(rstatewindow);

    registertype(ratributeditor);

    registertype(rvalueeditor);

    registertype(rruleeditor);

    registertype(rruleviewer)

   end;

 end.