unparadoxma.cpp

神经网络用于X荧光分析的源码。输入元素峰的强度

//$$---- Form CPP ----
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "unParadoxma.h"
#include "unRegrObjects.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tformparadoxma *formparadoxma;
//---------------------------------------------------------------------------
__fastcall Tformparadoxma::Tformparadoxma(TComponent* Owner)
	: TForm(Owner)
{
}
//------------------------------------------------------
 bool __fastcall Tformparadoxma::LoadSubstances(void)
 {
	int I,J,K ;
	bool Ka,Kb,La,Lb,Ma;

  // with tbPeaks, Config do

	 if (tbPeaks->Active )   tbPeaks->Close();

	  tbPeaks->TableName= PeaksTableName;

	 if (tbPeaks->Exists )
	 {
	   try  {
		tbPeaks->Open();

	   }
	   catch (...)
	   {
		 return(false);
	   }

	   try {
		 Config->SubstCount = tbPeaks->RecordCount;

		  if (tbPeaks->FindField("Ka") != NULL )
			 Ka = true;

		if (tbPeaks->FindField("Kb") != NULL )
			 Kb = true;                  // Kb = tbPeaks->FindField('Kb') <> nil;

			if (tbPeaks->FindField("La") != NULL )
			 La = true; 		        // La = tbPeaks->FindField('La') <> nil;
		 if (tbPeaks->FindField("Lb") != NULL )
			 Lb = true; 			    // Lb = tbPeaks->FindField('Lb') <> nil;
		if (tbPeaks->FindField("Ma") != NULL )
			 Ma = true;                 //Ma = tbPeaks->FindField('Ma') <> nil;

		 J = 0;
		tbPeaks->First();
		
		 if (Config->SubstCount == 0 )
		  return (false);


		 for (I = 0 ; Config->SubstCount - 1; I++)
		 {

		   Config->SubstLabel[I] = tbPeaks->FieldByName("Substance")->AsString;
					 Config->SubstName[I]= Config->SubstName[I].SubString(1,2);
					 Config->SubstName[I]= Config->SubstName[I].Trim();
					//Config->SubstName[I] = Trim(Copy(Config->SubstLabel[I],1,2));

           //read peak names
		   if (Ka)
			{
			  if (! VarIsNull(tbPeaks->FieldValues["Ka"]))
			  {
			   UserData->PeakLabel[J] = tbPeaks->FieldByName("Ka")->AsString;
			  J++;
			  }
			 }
		   if (Kb)
			{
			  if (! VarIsNull(tbPeaks->FieldValues["Kb"]))
			  {
			   UserData->PeakLabel[J] = tbPeaks->FieldByName("Kb")->AsString;
			  J++;
			  }
			 }

			if (La)
			{
			  if (! VarIsNull(tbPeaks->FieldValues["La"]))
			  {
			   UserData->PeakLabel[J] = tbPeaks->FieldByName("La")->AsString;
			  J++;
			  }
			 }
			if (Lb)
			{
			  if (! VarIsNull(tbPeaks->FieldValues["Lb"]))
			  {
			   UserData->PeakLabel[J] = tbPeaks->FieldByName("Lb")->AsString;
			  J++;
			  }
			 }
			if (Ma)
			{
			  if (! VarIsNull(tbPeaks->FieldValues["Ma"]))
			  {
			   UserData->PeakLabel[J] = tbPeaks->FieldByName("Ma")->AsString;
			  J++;
			  }
			 }


		   if (tbPeaks->Eof)
			  break;
		   tbPeaks->Next();
         }

         //user defined peaks
			tbPeaks->First();
		 if (tbPeaks->FindField("UserPeaks") != NULL)
			{
			while (! tbPeaks->Eof) 
			 {
			 if (! VarIsNull(tbPeaks->FieldValues["UserPeaks"]))
				{
				UserData->PeakLabel[J] = tbPeaks->FieldByName("UserPeaks")->AsString;
				J++ ;
				}
			 tbPeaks->Next();
			}
		 }
		}
		 catch(...)
		 {}
         tbPeaks->Close();
       



       //5 Zusatzrohwerte
	   for (I  = 0 ; AddMeasParamCount - 1 ;I++)
	  {
		 UserData->PeakLabel[J] = AddMeasParamNames[I];
		 J++;
	  }
	   UserData->PeakCount = J;

      //SQL peak names
	   for (I = 0 ; UserData->PeakCount - 1; I++ )
		 UserData->PeakFieldName[I] =UserData->PeakLabelToSQLName(UserData->PeakLabel[I]);
	 } // if
	 else
	 return (False); //not Exist


  K = 0;
  for (I = Config->SubstCount ; Config->SubstCount + AddUserValuesCount - 1;I++ )
  {
	Config->SubstName[I] = AddUserValueNames[K];
	Config->SubstLabel[I] = AddUserValueNames[K]; //translate !!!
	K++;
  }
  Config->SubstCount = Config->SubstCount + AddUserValuesCount;

 // OpenSubstsLabelsTable;
  //LoadSubstLabels; //overwrite if defined


  return (true);
 }

//---------------------------------------------------------------------------
void __fastcall Tformparadoxma::Button1Click(TObject *Sender)
{
  // tbPeaks->
}
//---------------------------------------------------------------------------