param.cpp

C++Builder高级应用开发指南随书源码

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Param.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmParam *frmParam;
//---------------------------------------------------------------------------
__fastcall TfrmParam::TfrmParam(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmParam::btnGoClick(TObject *Sender)
{
    if(cbCountry->Text!="")
    {
        cdsParam->Active=false;
        cdsParam->Params->ParamValues["Country"] = cbCountry->Text;
        cdsParam->Active=true;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmParam::FormCreate(TObject *Sender)
{
    cdsParam->Active=true;    
}
//---------------------------------------------------------------------------