xzdcx_inputx.cpp

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

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

#include "xzDcx_Inputx.h"
#include "global.h"
#include "main.h"

//---------------------------------------------------------------------------
#pragma link "Grids"
#pragma resource "*.dfm"
Tfrm_xzDcx_Inputx *frm_xzDcx_Inputx;
//---------------------------------------------------------------------------
__fastcall Tfrm_xzDcx_Inputx::Tfrm_xzDcx_Inputx(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_xzDcx_Inputx::btn_okClick(TObject *Sender)
{
   if (!rb_I->Checked) {
     if (!glb_GetCVetData(fCVetx,sg_x,false,"x"))
        return;

     //初始基可行解
     *frm_main->fRuleDcxQ->mCVetx = *frm_xzDcx_Inputx->fCVetx;
     if (!frm_main->fRuleDcxQ->IsBasex()) {
        glb_UserInfo("x不是基可行解!请重新输入或者进行第一阶段的计算.");
        return;
     }
   }  

   ModalResult = mrOk;
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_xzDcx_Inputx::btn_cancelClick(TObject *Sender)
{
   ModalResult = mrCancel;
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_xzDcx_Inputx::rb_IClick(TObject *Sender)
{
   if (((TRadioButton*)Sender)->Tag == 0)
      sg_x->Enabled = false;
   else
      sg_x->Enabled = true;
}
//---------------------------------------------------------------------------