ITS-OP/COMMON/DM/DBDbF.cpp

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

#include <vcl.h>
#pragma hdrstop

#include "DBDbF.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDMDb *DMDb;
//---------------------------------------------------------------------------
__fastcall TDMDb::TDMDb(TComponent* Owner)
    : TDataModule(Owner)
{
    FConnString = "";
}
//---------------------------------------------------------------------------
void __fastcall TDMDb::DataModuleCreate(TObject *Sender)
{
//
}
//---------------------------------------------------------------------------
void __fastcall TDMDb::DataModuleDestroy(TObject *Sender)
{
//
}
//---------------------------------------------------------------------------

void __fastcall TDMDb::SetErrorString(String AErrorString)
{
    FErrorString = AErrorString;
}
//---------------------------------------------------------------------------

void __fastcall TDMDb::SetConnectString(String AProvider, String AUserName, String APassword, String AServerName, String ACatalog/*=""*/)
{
    FConnString  = "";
    FConnString += "Provider="         + AProvider;
    FConnString += ";Password="        + APassword;
    FConnString += ";Persist Security Info=True";
    FConnString += ";User ID="         + AUserName;
    if (ACatalog != "")
    {
        FConnString += ";Initial Catalog=" + ACatalog;
    }
    FConnString += ";Data Source="     + AServerName;
}
//---------------------------------------------------------------------------