unparadox.hpp

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

// Borland C++ Builder
// Copyright (c) 1995, 2005 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Unparadox.pas' rev: 10.00

#ifndef UnparadoxHPP
#define UnparadoxHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Dbtables.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <Bde.hpp>	// Pascal unit
#include <Math.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Unparadox
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TdmParadox;
class PASCALIMPLEMENTATION TdmParadox : public Classes::TDataModule 
{
	typedef Classes::TDataModule inherited;
	
__published:
	Dbtables::TDatabase* dbMeasPoint;
	Dbtables::TTable* tbPeaks;
	Dbtables::TTable* tbCalibration;
	Db::TDataSource* dsCalibration;
	Dbtables::TTable* tbTypes;
	Db::TDataSource* dsTypes;
	Db::TDataSource* dsCalibrationData;
	Dbtables::TQuery* qeCalibrationData;
	Dbtables::TTable* tbLaborValues;
	Db::TDataSource* dsLaborValues;
	Dbtables::TTable* tbFormulaRef;
	Db::TDataSource* dsFormulaRef;
	Dbtables::TQuery* qePeakAreas;
	Db::TDataSource* dsPeakAreas;
	Dbtables::TQuery* qeTableStructure;
	Dbtables::TQuery* qeReportData;
	Dbtables::TQuery* qePeakAreasNo;
	Dbtables::TQuery* qePeakAreasTime;
	Dbtables::TTable* tbFormula;
	Dbtables::TTable* tblHistory;
	Db::TDataSource* dsHistory;
	Dbtables::TTable* tbStructure;
	Dbtables::TTable* tbCoefficients;
	Dbtables::TTable* tbCompareNew;
	Dbtables::TTable* tbCompareOld;
	Dbtables::TTable* tbSubstLabels;
	Db::TDataSource* dsSubstLabels;
	Dbtables::TQuery* qeValidationData;
	Dbtables::TQuery* qeCalibrValidData;
	Dbtables::TTable* tbFormulaRefSave;
	Dbtables::TTable* tbFormulaRefLoad;
	Dbtables::TTable* tbPeakAreas;
	Db::TDataSource* dsPeakAreasTable;
	Dbtables::TTable* tbSpectra;
	Db::TIntegerField* tbSpectraMeasNum;
	Db::TIntegerField* tbSpectraCalibrNum;
	Db::TStringField* tbSpectraSprValid;
	Db::TDateField* tbSpectraStartDate;
	Db::TTimeField* tbSpectraStartTime;
	Db::TDateTimeField* tbSpectraStartDateTime;
	Db::TFloatField* tbSpectraMeasDuration;
	Db::TFloatField* tbSpectraRealTime;
	Db::TFloatField* tbSpectraLiveTime;
	Db::TIntegerField* tbSpectraCycles;
	Db::TFloatField* tbSpectraCountRate;
	Db::TFloatField* tbSpectraVoltage;
	Db::TFloatField* tbSpectraCurrent;
	Db::TFloatField* tbSpectraStdDev;
	Db::TStringField* tbSpectraFName;
	Db::TBlobField* tbSpectraSpectrum;
	Db::TDataSource* dsValidationData;
	Dbtables::TTable* Tableoverview;
	void __fastcall dmParadoxCreate(System::TObject* Sender);
	void __fastcall dmParadoxDestroy(System::TObject* Sender);
	void __fastcall tbFormulaRefAfterOpen(Db::TDataSet* DataSet);
	void __fastcall qePeakAreasAfterScroll(Db::TDataSet* DataSet);
	void __fastcall tbSubstLabelsAfterPost(Db::TDataSet* DataSet);
	void __fastcall tbTypesAfterPost(Db::TDataSet* DataSet);
	void __fastcall tbFormulaRefAfterPost(Db::TDataSet* DataSet);
	void __fastcall tbPeakAreasAfterScroll(Db::TDataSet* DataSet);
	
private:
	Byte FAddedFields;
	bool FLokcRefTable;
	void __fastcall AlterTableStructure(Dbtables::TTable* Datatable, AnsiString FieldName, AnsiString FieldType);
	
public:
	bool SubstLabelsChanged;
	bool MTypeLabelsChanged;
	void __fastcall GetAliasList(void);
	AnsiString __fastcall GetDatabasePath(AnsiString DBName);
	void __fastcall RedefineDatabase(void);
	void __fastcall DataSetsClose(void);
	void __fastcall PrepareCalculation(void);
	Word __fastcall UnselHighAtten(void);
	void __fastcall MarkConcRanges(void);
	void __fastcall SetAreaBookmarks(void);
	void __fastcall GetAreaBookmarks(void);
	void __fastcall GetLabValuesBookmark(void);
	void __fastcall SetLabValuesBookmark(void);
	void __fastcall GetSamplesBookmark(void);
	void __fastcall SetSamplesBookmark(void);
	void __fastcall CreateNewFormRefTable(void);
	void __fastcall SaveFormulaToRefTable(void);
	void __fastcall SaveCoeffToRefTable(void);
	void __fastcall LoadFormulaFromRefTable(void);
	void __fastcall VerifyAndSaveIsLabValue(void);
	void __fastcall ClearFormRefTable(void);
	void __fastcall CalibrTabClearResults(void);
	void __fastcall SaveToSamplQuery(Dbtables::TQuery* DataSet, Byte Data_Type);
	bool __fastcall LoadFromSamplQuery(Dbtables::TQuery* DataSet, Byte Data_Type);
	bool __fastcall LoadFromSamplQueryPLSSpr(Dbtables::TQuery* DataSet, Byte Data_Type);
	bool __fastcall LoadSpr(Word Rec);
	void __fastcall SetDataQuery(Dbtables::TQuery* DataSet, Byte Data_Type);
	void __fastcall HideRecordInSamplTable(Word RecNo);
	void __fastcall CorrectNotComplSamplingData(void);
	void __fastcall SaveRegrStatistics(void);
	void __fastcall AppendHistiryTable(void);
	void __fastcall LoadFromHistoryTable(void);
	Word __fastcall GetRowNumber(void);
	bool __fastcall LoadSubstances(void);
	bool __fastcall CreateSamplingTable(void);
	Byte __fastcall VerifySamplingTable(AnsiString TabNam);
	bool __fastcall OpenSamplingTable(void);
	bool __fastcall CreateMaterTypesTable(void);
	bool __fastcall OpenMaterTypesTable(void);
	bool __fastcall LoadMaterialTypes(void);
	void __fastcall SetMaterTypesFilter(void);
	bool __fastcall CreateNewLabDataTable(void);
	bool __fastcall OpenLabValuesTable(void);
	void __fastcall OpenHistoryTable(void);
	void __fastcall SetFloatPrecision(void);
	void __fastcall SetFloatPrecisionT(Dbtables::TTable* Table, Byte FloatPrec);
	void __fastcall SetFloatPrecisionQ(Dbtables::TQuery* Query, Byte FloatPrec);
	void __fastcall InsertLabValuesToSampling(Word &Count);
	bool __fastcall ExpandSamplingTable(void);
	bool __fastcall PrepareRowDataQuery(void);
	bool __fastcall FilterPeakAreas_No(void);
	bool __fastcall FilterPeakAreas_Time(void);
	bool __fastcall AverageRowData(Dbtables::TQuery* Query);
	void __fastcall SaveRowDataToSample(void);
	void __fastcall SaveSampleNumberToRowData(void);
	void __fastcall EraseSampleNrFromRowData(void);
	void __fastcall SaveSampleNumber(Word Sample);
	void __fastcall OpenSubstsLabelsTable(void);
	void __fastcall LoadSubstLabels(void);
public:
	#pragma option push -w-inl
	/* TDataModule.Create */ inline __fastcall virtual TdmParadox(Classes::TComponent* AOwner) : Classes::TDataModule(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TDataModule.CreateNew */ inline __fastcall virtual TdmParadox(Classes::TComponent* AOwner, int Dummy) : Classes::TDataModule(AOwner, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TDataModule.Destroy */ inline __fastcall virtual ~TdmParadox(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE TdmParadox* dmParadox;
extern PACKAGE Classes::TStringList* AliasNames;
extern PACKAGE char cUseForCalibr;
extern PACKAGE char cUseForValidat;
extern PACKAGE char cUseForPredict;

}	/* namespace Unparadox */
using namespace Unparadox;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Unparadox