lmdfxmain.pas

线性规划CAI应用程序及原代码

     xigrid1.height :=dchxingform.xigrid1.height;
     czgrid1.height :=dchxingform.czgrid1.height ;
     bdagrid1.height :=dchxingform.bdaGrid1.height ;

     agrid1.left :=dchxingform.agrid1.left;
     cxbgrid1.left:=dchxingform.cxbgrid1.Left ;
     xigrid1.left :=dchxingform.xigrid1.left;
     czgrid1.left:=dchxingform.czgrid1.left;
     bdagrid1.left :=dchxingform.bdaGrid1.left ;

     objlabel1.Left :=dchxingform.label7.left;
     objlabel1.top :=dchxingform.label7.top;
     {label8.Left :=dchxingform.label8.left;
     label8.top :=dchxingform.label8.top;}
     objedit1.Left :=dchxingform.objedit1 .left;
     objedit1.Top :=dchxingform.objedit1 .top;
end;
procedure Tmainlmd.FormActivate(Sender: TObject);
var findone:boolean;whichnum:integer;
begin
if firstrun then
 firstrun:=false
else
begin

mainlmd.left:=74;
mainlmd.top:=74;
nameoffileofown:='temp'+floattostr(biaonum)+'.tem';
afterleashnum:=leashnum;
objlabel1.top:=objedit1.top;
     xigrid1.width:=(defaultwidth+1)*afteraddvarnum;
     xigrid1.defaultcolwidth:=defaultwidth;
     xigrid1.colcount:=afteraddvarnum;
     xigrid1.left:=cxbgrid1.left+cxbgrid1.Width;
     cxbgrid1.Height :=25*(afterleashnum+1);
     cxbgrid1.rowcount:=afterleashnum+1;
     agrid1.width:=(defaultwidth+1)*afteraddvarnum;
     agrid1.DefaultColWidth :=defaultwidth;
     agrid1.rowcount:=afterleashnum;
     agrid1.colcount:=afteraddvarnum;
     agrid1.left:=cxbgrid1.left+cxbgrid1.Width;
     agrid1.Height :=25*afterleashnum;
     czgrid1.width:=(defaultwidth+1)*afteraddvarnum;
     czgrid1.DefaultColWidth :=defaultwidth;
     czgrid1.colcount:=afteraddvarnum;
     czgrid1.left:=cxbgrid1.left+cxbgrid1.Width;
     czgrid1.top:=cxbgrid1.Top+25*(afterleashnum+1);
     bdagrid1.left:=agrid1.left+agrid1.Width;
     bdagrid1.rowcount:=afterleashnum+1;
     bdagrid1.top:=cxbgrid1.Top;
     bdagrid1.Height :=25*(afterleashnum+1);

     objedit1.left:=cxbgrid1.left+82;
     objedit1.top:=cxbgrid1.Top+25*(afterleashnum+1);
objlabel1.left:=objedit1.left-90;
objlabel1.top:=objedit1.top;
readdataofgrid2;
edit1.top:=label1.top;
edit1.left:=label1.left+label1.Width ;
findone:=false;
repeat
 whichnum:=random(5);
 case whichnum of
   1:if bound then begin
                    label1.caption:='边际值分析'; findone:=true;
                    repeat
                      ranx:=random(varnum+1);
                    until ranx<>0;
                    label2.caption:='=';
                    edit3.visible:=false;
                    label3.visible:=false;
                    edit2.text:='';
                    edit1.left:=label1.left+label1.width;
                    label2.left:=edit1.left+edit1.Width ;
                    edit2.left:=label2.left+label2.width;
                    edit1.text:='q'+inttostr(ranx);
                    end;
   2:if right then begin
                     label1.caption:='右端项分析';findone:=true;
                     repeat
                       ranx:=random(afterleashnum+1);
                     until ranx<>0;
                     edit3.left:=label1.left+label1.width;
                     label3.left:=edit3.left+edit3.width;
                     label3.caption:='<=';
                     edit1.left:=label3.left+label3.width;
                     label2.left:=edit1.left+edit1.Width ;
                     edit2.left:=label2.left+label2.width;
                     label2.Caption :='<=';
                     edit3.visible:=true;
                     label3.visible:=true;
                     edit3.text:='';
                     edit2.text:='';
                     edit1.text:='b'+inttostr(ranx);
                    end;
   3:if value then begin
                     label1.caption:='价值系数分析';findone:=true;
                     repeat
                       ranx:=random(varnum+1);
                     until ranx<>0;
                       edit3.left:=label1.left+label1.width;
                     label3.left:=edit3.left+edit3.width;
                     label3.caption:='<=';
                     edit1.left:=label3.left+label3.width;
                     label2.left:=edit1.left+edit1.Width ;
                     edit2.left:=label2.left+label2.width;
                     label2.Caption :='<=';
                     edit3.visible:=true;
                     label3.visible:=true;
                     edit3.text:='';
                     edit2.text:='';
                     edit1.text:='C'+inttostr(ranx);
                     end;
   4:if modulus then begin
                     label1.caption:='技术系数分析';findone:=true;
                     repeat
                      ranx:=random(varnum+1);
                      rany:=random(leashnum+1);
                     until (ranx<>0) and (rany<>0);
                       edit3.left:=label1.left+label1.width;
                     label3.left:=edit3.left+edit3.width;
                     label3.caption:='<=';
                     edit1.left:=label3.left+label3.width;
                     label2.left:=edit1.left+edit1.Width ;
                     edit2.left:=label2.left+label2.width;
                     label2.Caption :='<=';
                     edit3.visible:=true;
                     label3.visible:=true;
                     edit3.text:='';
                     edit2.text:='';
                     edit1.text:='a'+inttostr(ranx)+inttostr(rany);
                     end;
 end;
until  findone;
end;{of not firstrun}
{dchxingform.readfromfileofowngrid2;}
end;

procedure Tmainlmd.Button1Click(Sender: TObject);
begin
close;
end;

procedure Tmainlmd.FormCreate(Sender: TObject);
begin
studymode:=true;
button2.Caption :='输入';
label5.caption:='学习模式';
end;

procedure Tmainlmd.Button3Click(Sender: TObject);
 var findone:boolean;whichnum:integer;
begin
mainlmd.left:=74;
mainlmd.top:=74;
nameoffileofown:='temp'+floattostr(biaonum)+'.tem';
afterleashnum:=leashnum;
objlabel1.top:=objedit1.top;
     xigrid1.width:=(defaultwidth+1)*afteraddvarnum;
     xigrid1.defaultcolwidth:=defaultwidth;
     xigrid1.colcount:=afteraddvarnum;
     xigrid1.left:=cxbgrid1.left+cxbgrid1.Width;
     cxbgrid1.Height :=25*(afterleashnum+1);
     cxbgrid1.rowcount:=afterleashnum+1;
     agrid1.width:=(defaultwidth+1)*afteraddvarnum;
     agrid1.DefaultColWidth :=defaultwidth;
     agrid1.rowcount:=afterleashnum;
     agrid1.colcount:=afteraddvarnum;
     agrid1.left:=cxbgrid1.left+cxbgrid1.Width;
     agrid1.Height :=25*afterleashnum;
     czgrid1.width:=(defaultwidth+1)*afteraddvarnum;
     czgrid1.DefaultColWidth :=defaultwidth;
     czgrid1.colcount:=afteraddvarnum;
     czgrid1.left:=cxbgrid1.left+cxbgrid1.Width;
     czgrid1.top:=cxbgrid1.Top+25*(afterleashnum+1);
     bdagrid1.left:=agrid1.left+agrid1.Width;
     bdagrid1.rowcount:=afterleashnum+1;
     bdagrid1.top:=cxbgrid1.Top;
     bdagrid1.Height :=25*(afterleashnum+1);

     objedit1.left:=cxbgrid1.left+82;
     objedit1.top:=cxbgrid1.Top+25*(afterleashnum+1);
objlabel1.left:=objedit1.left-90;
objlabel1.top:=objedit1.top;
readdataofgrid2;
edit1.top:=label1.top;
edit1.left:=label1.left+label1.Width ;
findone:=false;
repeat
 whichnum:=random(5);
 case whichnum of
   1:if bound then begin
                    label1.caption:='边际值分析'; findone:=true;
                    repeat
                      ranx:=random(varnum+1);
                    until ranx<>0;
                    label2.caption:='=';
                    edit2.Text :='';
                    edit3.visible:=false;
                    label3.visible:=false;
                    edit1.left:=label1.left+label1.width;
                    label2.left:=edit1.left+edit1.Width ;
                    edit2.left:=label2.left+label2.width;
                    edit1.text:='q'+inttostr(ranx);
                    end;
   2:if right then begin
                     label1.caption:='右端项分析';findone:=true;
                     repeat
                       ranx:=random(afterleashnum+1);
                     until ranx<>0;
                     edit3.left:=label1.left+label1.width;
                     label3.left:=edit3.left+edit3.width;
                     label3.caption:='<=';
                     edit1.left:=label3.left+label3.width;
                     label2.left:=edit1.left+edit1.Width ;
                     edit2.left:=label2.left+label2.width;
                     label2.Caption :='<=';
                     edit3.visible:=true;
                     label3.visible:=true;
                     edit3.text:='';
                     edit2.text:='';
                     edit1.text:='b'+inttostr(ranx);
                    end;
   3:if value then begin
                     label1.caption:='价值系数分析';findone:=true;
                     repeat
                       ranx:=random(varnum+1);
                     until ranx<>0;
                       edit3.left:=label1.left+label1.width;
                     label3.left:=edit3.left+edit3.width;
                     label3.caption:='<=';
                     edit1.left:=label3.left+label3.width;
                     label2.left:=edit1.left+edit1.Width ;
                     edit2.left:=label2.left+label2.width;
                     label2.Caption :='<=';
                     edit3.visible:=true;
                     label3.visible:=true;
                     edit3.text:='';
                     edit2.text:='';
                     edit1.text:='C'+inttostr(ranx);
                     end;
   4:if modulus then begin
                     label1.caption:='技术系数分析';findone:=true;
                     repeat
                      ranx:=random(varnum+1);
                      rany:=random(leashnum+1);
                     until (ranx<>0) and (rany<>0);
                       edit3.left:=label1.left+label1.width;
                     label3.left:=edit3.left+edit3.width;
                     label3.caption:='<=';
                     edit1.left:=label3.left+label3.width;
                     label2.left:=edit1.left+edit1.Width ;
                     edit2.left:=label2.left+label2.width;
                     label2.Caption :='<=';
                     edit3.visible:=true;
                     label3.visible:=true;
                     edit3.text:='';
                     edit2.text:='';
                     edit1.text:='a'+inttostr(ranx)+inttostr(rany);
                     end;
 end;
until  findone;

{dchxingform.readfromfileofowngrid2;}

end;

procedure Tmainlmd.czGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
 if pos('q',edit1.text)>0 then
      if (arow=0) and (acol=ranx+varnum-1) then
         showmessage('right')
      else
         showmessage('wrong');
end;

procedure Tmainlmd.Button4Click(Sender: TObject);
begin
studymode:=not studymode;
try
edit2.text:='';
edit3.text:='';
finally
end;
if studymode then
 begin
   button2.caption:='输入';
   label5.caption:='研究模式';
 end
else
  begin
   button2.caption:='显示';
   label5.caption:='学习模式';
  end;
end;

end.