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

#include <vcl.h>
#pragma hdrstop

#include "DM1.h"
#include <math.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDataModal1 *DataModal1;
//---------------------------------------------------------------------------
__fastcall TDataModal1::TDataModal1(TComponent* Owner)
        : TDataModule(Owner)
{
}

//---------------------------------------------------------------------------
TADOQuery * pascal GetQuery(AnsiString QueryName)
{
  TADOQuery * pQuery;
  pQuery = dynamic_cast<TADOQuery *>(DataModal1->FindComponent(QueryName));
  return pQuery;
}

//---------------------------------------------------------------------------
//------四舍五入
double pascal Round(double dParm,int nDoc)
{
  if (nDoc < 0) return dParm;
  if (dParm == NULL) return dParm;
  double dA,dB,temp1,temp2;
  dB = modf(dParm,&dA);
  temp2 = modf(dB * pow(10,nDoc),&temp1);
  modf(temp2 * 10,&temp2);
  if (temp2 >4) temp1++;
  temp1 = temp1 / pow(10,nDoc);
  dA = dA + temp1;
  return dA;
}

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


void __fastcall TDataModal1::DataModuleCreate(TObject *Sender)
{
  /*String sTemp,sComputerName,sUserID,sPassWord;
  char szPS[256];
  pIniFile = new TIniFile(ExtractFilePath(Application->ExeName)+ "reckq.ini");
  sComputerName = pIniFile->ReadString("Connect","ComputerName","");
  sUserID = pIniFile->ReadString("Connect","UserID","sa");
  sPassWord = pIniFile->ReadString("Connect","PassWord","");
  if (sPassWord != "")
  {
    UnEncrypt(sPassWord.c_str(),szPS);
    sPassWord = String(szPS);
  }
  sTemp = "Provider=SQLOLEDB.1;Password=" + sPassWord + ";Persist Security Info=True;User ID=" + sUserID + ";Initial Catalog=RECKQ;Data Source=" + sComputerName;
  ADOConnection1->Close();
  ADOConnection1->KeepConnection = true;
  ADOConnection1->ConnectionString = sTemp;
  */
}
//---------------------------------------------------------------------------

void __fastcall TDataModal1::DataModuleDestroy(TObject *Sender)
{
  //delete pIniFile;
}
//---------------------------------------------------------------------------
void TDataModal1::UnEncrypt(char *szPassWord,char *szResult)
{
  int nAsc,nLen;
  char szOne;
  if (*szPassWord == '\0')
  {
    szResult[0] = 0;
    return;
  }
  nLen = strlen(szPassWord);
  for (int i = 0; i < nLen; i++)
  {
    nAsc = (int)szPassWord[i];
    if (nAsc%2 == 0)
    {
      szResult[i] = (char)(nAsc + 17);
    }
    else
    {
      szResult[i] = (char)(nAsc + 11);
    }
    szResult[nLen] = 0;
  }
}

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