matrixop_tranfer.cpp

关于一个求解线性规划问题的程序

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

#include "MatrixOp_Tranfer.h"
#include "MatrixOp.h"
#include "global.h"

//---------------------------------------------------------------------------
#pragma resource "*.dfm"
Tfrm_MatrixOp_Tranfer *frm_MatrixOp_Tranfer;
//---------------------------------------------------------------------------
__fastcall Tfrm_MatrixOp_Tranfer::Tfrm_MatrixOp_Tranfer(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_MatrixOp_Tranfer::btn_okClick(TObject *Sender)
{
   if (RB1->Checked) {
      try {
         fTimesNum = StrToFloat(edt_timesnum->Text);
      }
      catch(...){
         glb_UserInfo("请输入数字!");
         edt_timesnum->SetFocus();
         return;
      }
   }							   

   if (RB3->Checked) {
      try {
	      fPlusNum = StrToFloat(edt_plusnum->Text);
	   }
	   catch(...){
   		  glb_UserInfo("请输入数字!");
   		  edt_plusnum->SetFocus();
          return;
       }
   }   

   ModalResult = mrOk;
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_MatrixOp_Tranfer::btn_cancelClick(TObject *Sender)
{
   ModalResult = mrCancel;
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_MatrixOp_Tranfer::rb_rowClick(TObject *Sender)
{
   if (((TRadioButton*)Sender)->Tag == 0)
      Count = frm_MatrixOp->fMatA->GetRowCount();
   else
      Count = frm_MatrixOp->fMatA->GetColCount();
      
   CB1->Items->Clear();
   CB2->Items->Clear();
   CB3->Items->Clear();
   CB4->Items->Clear();
   CB5->Items->Clear();

   for (unsigned int i=1;i<=Count;i++) {
      CB1->Items->Add(IntToStr(i));
      CB2->Items->Add(IntToStr(i));
      CB3->Items->Add(IntToStr(i));
      CB4->Items->Add(IntToStr(i));
      CB5->Items->Add(IntToStr(i));
   }

   CB1->ItemIndex = 0;
   CB2->ItemIndex = 0;
   CB3->ItemIndex = 0;
   CB4->ItemIndex = 0;
   CB5->ItemIndex = 0;
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_MatrixOp_Tranfer::RB1Click(TObject *Sender)
{
   if (((TRadioButton*)Sender)->Tag == 1) {
      CB1->Enabled = true;   edt_timesnum->Enabled = true;
      CB2->Enabled = false;  CB3->Enabled = false;
      CB4->Enabled = false;  CB5->Enabled = false; edt_plusnum->Enabled = false;
   }
   if (((TRadioButton*)Sender)->Tag == 2) {
      CB1->Enabled = false;   edt_timesnum->Enabled = false;
      CB2->Enabled = true;  CB3->Enabled = true;
      CB4->Enabled = false;  CB5->Enabled = false; edt_plusnum->Enabled = false;
   }
   if (((TRadioButton*)Sender)->Tag == 3) {
      CB1->Enabled = false;   edt_timesnum->Enabled = false;
      CB2->Enabled = false;  CB3->Enabled = false;
      CB4->Enabled = true;  CB5->Enabled = true; edt_plusnum->Enabled = true;
   }
}
//---------------------------------------------------------------------------