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

#include <vcl.h>
#include "AppGlobalF.h"
#include "DMDbF.h"
#include "CDSWCamCtlrF.h"
#pragma hdrstop

#include "FrmInitializeF.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxProgressBar"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinsCore"
#pragma resource "*.dfm"

TFrmInitialize *FrmInitialize = NULL;
//---------------------------------------------------------------------------
__fastcall TFrmInitialize::TFrmInitialize(TComponent* Owner)
    : TForm(Owner)
{
    if (g_AppCfg.sLang != "kr")
    {
        Caption = "Program initialize";
        LblStatus->Caption = "Initialize...";
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmInitialize::FormShow(TObject *Sender)
{
    Refresh();
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmInitialize::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;

    Refresh();

    Application->ProcessMessages();
    cxProgressBar1->Properties->Max = 100;

    try
    {
        if (g_AppCfg.sLang != "kr") LblStatus->Caption = "Connect database...";
        else                        LblStatus->Caption = "µ¥ÀÌÅͺ£À̽º ¿¬°á Áß...";
        Application->ProcessMessages();
        cxProgressBar1->Position = 10;

        if (g_AppCfg.itsdb.sConnectStr == "")
        {
            DMDb->SetConnectString(g_AppCfg.itsdb.sProvider, g_AppCfg.itsdb.sServerName, g_AppCfg.itsdb.sUserName, g_AppCfg.itsdb.sPassword);
        }
        else
        {
            DMDb->SetConnectString(g_AppCfg.itsdb.sConnectStr);
        }
        if (!DMDb->Connect())
        {
            if (g_AppCfg.sLang != "kr")
            {
                Application->MessageBox(L"Database connection failed.\r\n\r\nPlease restart the program.",
                                        L"Database connection error !!!",
                                        MB_OK|MB_ICONERROR);
            }
            else
            {
                Application->MessageBox(L"µ¥ÀÌÅͺ£À̽º ¿¬°á¿¡ ½ÇÆÐÇÏ¿´½À´Ï´Ù.\r\n\r\nÇÁ·Î±×·¥À» ´Ù½Ã ½ÃÀÛÇϽʽÿä.",
                                        L"µ¥ÀÌÅͺ£À̽º ¿¬°á ¿À·ù!!!",
                                        MB_OK|MB_ICONERROR);
            }
            return;
        }

        if (g_AppCfg.sLang != "kr") LblStatus->Caption = "Loading basic informations...";
        else                        LblStatus->Caption = "±âº» Á¤º¸ ·Îµù Áß...";
        Application->ProcessMessages();
        cxProgressBar1->Position = 20;

        WCamCtlrManager->LoadFromDb(DMDb->GetConnection());

        if (g_AppCfg.sLang != "kr")  LblStatus->Caption = "Loading status informations...";
        else                         LblStatus->Caption = "»óÅ Á¤º¸ ·Îµù Áß...";
        Application->ProcessMessages();
        cxProgressBar1->Position = 100;
        Application->ProcessMessages();
        WCamCtlrManager->LoadStatusFromDb(DMDb->GetConnection());

        DMDb->Close();;
    }
    catch(...)
    {
    }

    Close();
}
//---------------------------------------------------------------------------

void __fastcall TFrmInitialize::FormClose(TObject *Sender, TCloseAction &Action)
{
    Action = caFree;    
}
//---------------------------------------------------------------------------