new.pas

《SESyetem节能模拟系统(版本:1.01a Final)》为自由软件,对热风炉进行 热平衡计算、传热模拟、燃烧优化、操作优化等设计。 本软件用Dephi6.0编写

unit New;

interface

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

type
  TNewForm = class(TForm)
    BOK: TBitBtn;
    BCancel: TBitBtn;
    RadioGroup1: TRadioGroup;
    Balance: TRadioButton;
    Analog: TRadioButton;
    Improve: TRadioButton;
    procedure BOKClick(Sender: TObject);
    procedure BCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  NewForm: TNewForm;    

implementation

uses SESytemMDI,Balance, Analog, Improve,Gas;

{$R *.dfm}



procedure TNewForm.BOKClick(Sender: TObject);
begin
    if Balance.Checked=TRUE then
       begin
           SESystemMDIForm.CommandRichEdit.Lines.Add('命令:热平衡BAL'+chr(13));
           BalanceForm:=TBalanceForm.Create(Self);
           Close;
       end
    else if Analog.Checked=TRUE then
           begin
            SESystemMDIForm.CommandRichEdit.Lines.Add('命令:热模拟ANA'+chr(13));
            AnalogForm:=TAnalogForm.Create(Self);
            Close;
           end
    else if Improve.Checked=TRUE then
           begin
            SESystemMDIForm.CommandRichEdit.Lines.Add('命令:热优化IMP'+chr(13));
            ImproveForm:=TImproveForm.Create(Self);
            Close;
           end

 end;

procedure TNewForm.BCancelClick(Sender: TObject);
begin
Close;
end;

end.