INTERNET
 :
  |    

/

, . /

1 | 2 | 3 | 4 | 5 | 6

 →  
1 2 3 4 5 

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.

 →  
1 2 3 4 5 


Copyright © 2005—2007 «RefStore.Ru»