leashinput.pas

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

unit leashinput;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  Tleashin = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    maxmin: TComboBox;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  leashin: Tleashin;

implementation

uses lpmain;

{$R *.DFM}

procedure Tleashin.Button2Click(Sender: TObject);
begin
edit1.Text :='';
edit2.text:='';

end;

procedure Tleashin.Button1Click(Sender: TObject);
begin
if not (edit1.text='') and not (edit2.text='') then
begin
try
havedata:=true;
varnum:=strtoint(edit1.text);
leashnum:=strtoint(edit2.text);
sele:=true;
if (varnum>50) or (leashnum>50) then
 begin
 showmessage('抱歉!!!'+#13+'本程序最大变量数和约束条件数需不大于50');
 edit1.Text :='';
 edit2.text:='';
 end;
finally

end;
if maxmin.ItemIndex =1 then
   objtype:='Min'
else
   objtype:='Max';
datafromfile:=false;
datachange:=true;
if edit1.text<>'' then
     if (varnum<10)and(leashnum<10)then
         bigques:=false
     else
         bigques:=true;
main.show;
end
else
  messagedlg('请输入变量数和约束条件数',mtinformation,[mbyes],0);
end;

procedure Tleashin.FormShow(Sender: TObject);
begin
objtype:='Max';
end;

procedure Tleashin.Button3Click(Sender: TObject);
begin
varnum:=0;
leashnum:=0;
nameoffile:='';
close;
end;

procedure Tleashin.FormActivate(Sender: TObject);
begin
edit1.text:='3';
edit2.text:='3';
end;

end.