lmdfx.pas

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

unit lmdfx;

interface

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

type
  Tchangelmddlg = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Panel1: TPanel;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  changelmddlg: Tchangelmddlg;

implementation

uses lpmain, lmdfxmainmain;

{$R *.DFM}

procedure Tchangelmddlg.Button1Click(Sender: TObject);
var i:integer;
begin
bound:=checkbox4.checked;
right:=checkbox2.checked;
value:=checkbox3.checked;
if (not bound) and (not value) and (not right) then
   MessageDlg('请选择一个项目', mtInformation,
      [mbOk], 0)
else
//mainlmd.showmodal;
begin
   if checkbox3.Checked then lmdfxarr[0]:='a'
         else lmdfxarr[0]:='0';
   if checkbox2.Checked then lmdfxarr[1]:='b'
         else lmdfxarr[1]:='0';
   if checkbox4.Checked then lmdfxarr[2]:='c'
         else lmdfxarr[2]:='0';
   //mainlmd.show;
   lmdmain.show;
end;
end;

procedure Tchangelmddlg.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tchangelmddlg.FormActivate(Sender: TObject);
begin
//changelmddlg.top:=74;
//changelmddlg.left:=74;
end;

procedure Tchangelmddlg.Button3Click(Sender: TObject);
begin
     showmessage('请选择至少一项所要分析的数据'+#13+'然后按确定按钮');
end;

end.