Ïðèìåð: Ãëîáàëüíàÿ ñåòü INTERNET
ß èùó:
Íà ãëàâíóþ  |  Äîáàâèòü â èçáðàííîå  

Ãëàâíàÿ/

Ïðîãðàììèðîâàíèå, áàçû äàííûõ. /

Ýêñïåðòíàÿ ñèñòåìà

Äîêóìåíò 1 | Äîêóìåíò 2 | Äîêóìåíò 3 | Äîêóìåíò 4 | Äîêóìåíò 5 | Äîêóìåíò 6

←ïðåäûäóùàÿ ñëåäóþùàÿ→
1 2 3 4 5 

slot));

    s.read(mark,sizeof(mark));

    s.read(con,sizeof(con))

   end;

  procedure tvalue.store(var s:tstream);

   begin

    s.write(slot,sizeof(slot));

    s.write(mark,sizeof(mark));

    s.write(con,sizeof(con))

   end;

  constructor trule.load(var s:tstream);

   begin

    tcollection.load(s)

   end;

  procedure trule.store(var s:tstream);

   begin

    tcollection.store(s)

   end;

  constructor tunital.load(var s:tstream);

   begin

    s.read(slot,sizeof(slot));

    s.read(con,sizeof(con));

   end;

  procedure tunital.store(var s:tstream);

   begin

    s.write(slot,sizeof(slot));

    s.write(con,sizeof(con));

   end;

  constructor tstatewindow.load(var s:tstream);

   begin

    tdialog.load(s)

   end;

  procedure tstatewindow.store(var s:tstream);

   begin

    tdialog.store(s)

   end;

  constructor tatributeditor.load(var s:tstream);

   begin

    tdialog.load(s)

   end;

  procedure tatributeditor.store(var s:tstream);

   begin

    tdialog.store(s)

   end;

  procedure tatributeditor.handleevent(var event:tevent);

   begin

    tdialog.handleevent(event);

    if event.what=evcommand then

     case event.command of

      cmin:inbase(basis,database);

      cmout:outbase;

      cmrec:recbase(database);

      cmaehelp:aehelp;

      cmclear:clearbase;

      cmreturn:callstate;

      cmfar:callnext;

     else

      exit

     end;

    clearevent(event)

   end;

  procedure tatributeditor.inbase(basis:pbasis;var database:pdatabase);

   var nildata:string;

   begin

    inputatribut^.getdata(atributdata);

    inputquestion^.getdata(questiondata);

    fact:=new(pfact,init(10,10));

    with fact^ do

     begin

      atribut:=atributdata;

      question:=questiondata;

     end;

    nildata:='';

    database^.insert(fact);

    inputatribut^.setdata(nildata);

    inputquestion^.setdata(nildata);

    selectnext(true)

   end;

  procedure tatributeditor.outbase;

   begin

   end;

  procedure tatributeditor.recbase(database:pdatabase);

   begin

    basis^.base.put(database,'Äàííûå '+basis^.name);

    basis^.base.flush

   end;

  procedure tatributeditor.aehelp;

   begin

   end;

  procedure tatributeditor.clearbase;

   begin

    database^.deleteall

   end;

  procedure tatributeditor.callstate;

   begin

    exit

   end;

  procedure tatributeditor.callnext;

   begin

    valuesediting

   end;

  constructor tvalueeditor.load(var s:tstream);

   begin

    tdialog.load(s)

   end;

  procedure tvalueeditor.store(var s:tstream);

   begin

    tdialog.store(s)

   end;

  procedure tvalueeditor.handleevent(var event:tevent);

   begin

    tdialog.handleevent(event);

    if event.what=evcommand then

     case event.command of

      cmin:infact(basis,database);

      cmrec:recbase(database);

      cmaehelp:vehelp;

      cmclear:clearbase;

      cmreturn:callquestion;

      cmfar:callnext;

     else

      exit

     end;

    clearevent(event)

   end;

  procedure tvalueeditor.infact(basis:pbasis;var database:pdatabase);

   var nildata:string;

   begin

    inputvalue^.getdata(valuedata);

    value:=new(pvalue,init);

    with value^ do

     begin

      slot:=valuedata;

      mark:=false;

      con:=false;

     end;

    fact^.insert(value);

    database^.insert(fact);

    nildata:='';

    inputvalue^.setdata(nildata)

   end;

  procedure tvalueeditor.recbase(database:pdatabase);

   var i,j:word;

   begin

    basis^.base.delete('Äàííûå '+basis^.name);

    basis^.base.put(database,'Äàííûå '+basis^.name);

    basis^.base.flush;

   end;

  procedure tvalueeditor.vehelp;

   begin

   end;

  procedure tvalueeditor.clearbase;

   begin

   end;

  procedure tvalueeditor.callquestion;

   begin

    atributsediting

   end;

  procedure tvalueeditor.callnext;

   begin

    rulesediting

   end;

  constructor truleeditor.load(var s:tstream);

   begin

    tdialog.load(s)

   end;

  procedure truleeditor.store(var s:tstream);

   begin

    tdialog.store(s)

   end;

  constructor tmachine.load(var s:tstream);

   begin

    tdialog.load(s)

   end;

  procedure tmachine.store(var s:tstream);

   begin

    tdialog.store(s)

   end;

  procedure tmachine.handleevent(var event:tevent);

   begin

    tdialog.handleevent(event);

    if event.what=evcommand then

     case event.command of

      cmnext:nextquestion;

      cmprev:previousquestion;

     else

      exit

     end;

    clearevent(event)

   end;

  procedure tmachine.nextquestion;

   begin

   end;

  procedure tmachine.previousquestion;

   begin

   end;

  constructor tmanager.load(var s:tstream);

   begin

    tdialog.load(s)

   end;

  procedure tmanager.store(var s:tstream);

   begin

    tdialog.store(s)

   end;

  procedure tmanager.handleevent(var event:tevent);

   begin

    tdialog.handleevent(event);

    if event.what=evcommand then

     case event.command of

      cmwhy:why;

      cmreport:report;

      cmprint:print;

      cmmhelp:mhelp;

     else

      exit

     end;

    clearevent(event)

   end;

  procedure tmanager.why;

   begin

   end;

  procedure tmanager.report;

   begin

   end;

  procedure tmanager.print;

   begin

   end;

  procedure tmanager.mhelp;

   begin

   end;

  procedure start;

   var f:text;

       a:string;

   begin

    assign(f,'serve.key');

    reset(f);

    read(f,a);

    if a<>'!!!' then

     begin

      close(f);

      writeln;

      writeln('Çàïóñòèòå ôàéë start.bat äëÿ âõîäà â ñèñòåìó "Êîíñóëüòàíò"');

      writeln;

      writeln('Íàæìèòå ëþáóþ êëàâèøó');

      readln;

      halt

     end;

    close(f)

   end;

  procedure finish;

   var f:text;

       a:string

←ïðåäûäóùàÿ ñëåäóþùàÿ→
1 2 3 4 5 


Copyright © 2005—2007 «RefStore.Ru»