reset.cpp

这是一个求解线性规划问题的程序

//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop

#include "reset.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
Tfrm_reset *frm_reset;
//---------------------------------------------------------------------------
__fastcall Tfrm_reset::Tfrm_reset(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_reset::btn_okClick(TObject *Sender)
{
   try {
      fRowCount = StrToInt(edt_RowCount->Text);
   }
   catch(...){
      MessageBox(Handle,"请输入整数行!","错误",MB_OK|MB_ICONWARNING);
      edt_RowCount->SetFocus();
      return;
   }

   if (fRowCount < 1) {
      MessageBox(Handle,"行数应大于1!","错误",MB_OK|MB_ICONWARNING);
      edt_RowCount->SetFocus();
      return;
   }

   try {
      fColCount = StrToInt(edt_ColCount->Text);
   }
   catch(...){
      MessageBox(Handle,"请输入整数列!","错误",MB_OK|MB_ICONWARNING);
      edt_ColCount->SetFocus();
      return;
   }

   if (fColCount < 1) {
      MessageBox(Handle,"列数应大于1!","错误",MB_OK|MB_ICONWARNING);
      edt_ColCount->SetFocus();
      return;
   }

   ModalResult = mrOk;
//   Close();
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_reset::btn_cancelClick(TObject *Sender)
{
   ModalResult = mrCancel;
//   Close();
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_reset::FormShow(TObject *Sender)
{
   edt_RowCount->Text = IntToStr(fRowCount);
   edt_ColCount->Text = IntToStr(fColCount);
   edt_RowCount->SetFocus();
}
//---------------------------------------------------------------------------