handicapsunit.cpp

足彩专用程序 亚洲盘口水位—欧洲标盘精确换算表。

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

#include <vcl.h>
#pragma hdrstop

#include "handicapsUnit.h"
#include "HelpUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
THandicapForm *HandicapForm;

AnsiString rqstr,swstr;
TConfigMode Save_Config;
//---------------------------------------------------------------------------
__fastcall THandicapForm::THandicapForm(TComponent* Owner)
	: TForm(Owner)
{
	AnsiString data_path;

  Save_Config = Session->ConfigMode;
  data_path=ExtractFilePath(ParamStr(0))+"BasicData";
  try
 	{
 		Session->ConfigMode = cmSession;
 		Session->AddStandardAlias("TmpAlias1",data_path,"PARADOX");
    Table1->DatabaseName="TmpAlias1";
    Table1->TableName="conversiontable";
    Table1->Active=true;
 	}
 	catch(...)
 	{
 		Session->ConfigMode = Save_Config;
   	throw;
 	}
}
//---------------------------------------------------------------------------

void __fastcall THandicapForm::FormClose(TObject *Sender, TCloseAction &Action)
{
  Table1->Close();
  Session->DeleteAlias("TmpAlias1");
 	Session->ConfigMode = Save_Config;
}
//---------------------------------------------------------------------------

void __fastcall THandicapForm::ComboBox1Change(TObject *Sender)
{
  rqstr=ComboBox1->Text;
  matchconvert(rqstr,swstr);
}
//---------------------------------------------------------------------------

void __fastcall THandicapForm::ComboBox2Change(TObject *Sender)
{
	swstr=ComboBox2->Text;
  matchconvert(rqstr,swstr);
}
//---------------------------------------------------------------------------

void __fastcall THandicapForm::matchconvert(AnsiString rq, AnsiString sw)
{
  AnsiString str;

  if(!rq.IsEmpty() && !sw.IsEmpty())
  {
		TLocateOptions Opts;

		Opts.Clear();
		Opts << loPartialKey;
		Variant locvalues[2];
		locvalues[0] = Variant(rq);
		locvalues[1] = Variant(sw);
		Table1->Locate("Handicaps;Level", VarArrayOf(locvalues, 1), Opts);

    str=Table1->FieldByName("OddsW")->AsString+"  ";
    str+=Table1->FieldByName("OddsD")->AsString+"  ";
    str+=Table1->FieldByName("OddsL")->AsString;
  }
  else
  	str="-    -    -";

  Label4->Caption=str;
}
//---------------------------------------------------------------------------

void __fastcall THandicapForm::BitBtn2Click(TObject *Sender)
{
	HelpForm = new THelpForm(Application);
  HelpForm->ShowModal();
  delete HelpForm;
}
//---------------------------------------------------------------------------