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

#include <vcl.h>
#pragma hdrstop

#include "EntityTableU.h"
#include "mainform.h"
#include "ActionTableU.h"
#include "FmtTableU.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

#define MAX_SMC_EDIT    14
#define MAX_SME_EDIT    12
#define MAX_APP_EDIT    6


//#define NEW_LINE        0x10

//Edit Box Type

#define STT             1
#define SME             2
#define APP             3
#define ETC             4

TEdit   *SmcEdit[MAX_SMC_EDIT-1];
TEdit   *SmeEdit[MAX_SME_EDIT-1];




TFORM_ENTITY *FORM_ENTITY;
//---------------------------------------------------------------------------
__fastcall TFORM_ENTITY::TFORM_ENTITY(TComponent* Owner)
        : TForm(Owner)
{
}
//------------------------------------------------------------------------



void TFORM_ENTITY::GridInit()
{
        StringGrid1->ColWidths[0] = 50;
	StringGrid1->ColWidths[1] = 50;
     	StringGrid1->ColWidths[2] = 50;
        StringGrid1->ColWidths[3] = 60;    //sunmi add 2001.5.15
 	StringGrid1->ColWidths[4] = 60;
        StringGrid1->ColWidths[5] = 38;
        StringGrid1->ColWidths[6] = 45;
        StringGrid1->ColWidths[7] = 80;
        StringGrid1->ColWidths[8] = 45;
        StringGrid1->ColWidths[9] = 50;
        StringGrid1->ColWidths[10] = 50;
        StringGrid1->ColWidths[11] = 55;
        StringGrid1->ColWidths[12] = 55;
        StringGrid1->ColWidths[13] = 60;
        StringGrid1->ColWidths[14] = 90;
        StringGrid1->ColWidths[15] = 90;
        StringGrid1->ColWidths[16] = 120;

	StringGrid2->ColWidths[0] = 50;
	StringGrid2->ColWidths[1] = 60;
     	StringGrid2->ColWidths[2] = 43;
     	StringGrid2->ColWidths[3] = 50;
        StringGrid2->ColWidths[4] = 60;       //sunmi add 2001.5.15
 	StringGrid2->ColWidths[5] = 60;
        StringGrid2->ColWidths[6] = 50;
        StringGrid2->ColWidths[7] = 80;
        StringGrid2->ColWidths[8] = 80;
        StringGrid2->ColWidths[9] = 50;
        StringGrid2->ColWidths[10] = 60;
        StringGrid2->ColWidths[11] = 60;
        StringGrid2->ColWidths[12] = 70;
        StringGrid2->ColWidths[13] = 120;
        StringGrid2->ColWidths[14] = 120;


}
void TFORM_ENTITY::EditBoxAssign()
{
         // SMC Entity Edit box assign into SmcEdit Array
      SmcEdit[0] = ed_SmcIndex;
      SmcEdit[1] = ed_SmcName;
      SmcEdit[2] = Ed_Smc_Password;
      SmcEdit[3] = Ed_Platform_id;        //sunmi add 2001.5.15
      SmcEdit[4] = Ed_SmcHost;
      SmcEdit[5] = Ed_Port;
      SmcEdit[6] = ED_Trace;
      SmcEdit[7] = Ed_RouteSmeName;
      SmcEdit[8] = Ed_Alert;
      SmcEdit[9] = Ed_Smc_Action ;
      SmcEdit[10] = Ed_Smc_PoolCnt;
      SmcEdit[11] = ed_Smc_PoolSnd;
      SmcEdit[12] = Ed_Smc_ConnectionStatus;
      SmcEdit[13] = Ed_Smc_desc;

      // SME Entity Edit box assign into SmeEdit Array
      SmeEdit[0] = ed_SmeIndex;
      SmeEdit[1] = Ed_SmeName;
      SmeEdit[2] = ED_Pid;
      SmeEdit[3] = Ed_Sme_Password;
      SmeEdit[4] = Ed_Sme_Platform_Id;        //sunmi add 2001.5.15
      SmeEdit[5] = Ed_Format;
      SmeEdit[6] = Ed_Sme_Action;
      SmeEdit[7] = Ed_TracePort;
      SmeEdit[8] = Ed_Sme_PoolCnt;
      SmeEdit[9] = Ed_Sme_PoolSnd;
      SmeEdit[10] = Ed_Sme_ConnectionStatus;
      SmeEdit[11] = Ed_Sme_desc;

}
void TFORM_ENTITY::EditBoxInit(int edit_box_type, bool flag)
{
        int     i;

        switch(edit_box_type)   {
        case STT :
                for(i = 0 ; i < MAX_SMC_EDIT ; i++ )
                        SmcEdit[i]->ReadOnly = flag;

                break;
        case SME :
                  for(i = 0 ; i < MAX_SME_EDIT ; i++ )
                        SmeEdit[i]->ReadOnly = flag;

                break;
       default : break;
        }
}

void __fastcall TFORM_ENTITY::bt_ViewClick(TObject *Sender)
{

        char            send_msg_convert[200];
        AnsiString      attatch_option;
        int             count;

        // STATION PAGE
      if (pagecontrol1->ActivePage ==pagecontrol1->Pages[0]) {

            ShowSTT();
            StringGrid1->Row = 1;
      }
      // MESSAGE PAGE
      else if (pagecontrol1->ActivePage == pagecontrol1->Pages[1]) {
            ShowSME();
            StringGrid2->Row = 1;
      }

      bt_Add->Enabled     = true;
      bt_Edit->Enabled    = true;
}
//---------------------------------------------------------------------------

void __fastcall TFORM_ENTITY::bt_AddClick(TObject *Sender)
{
        int     i;

        //STATION PAGE
        if (pagecontrol1->ActivePage == pagecontrol1->Pages[0]) {

            mode = ADD_CMD;
            STTSelectItem(ADD_CMD);
      }
      // MESSAGE PAGE
      else if (pagecontrol1->ActivePage==pagecontrol1->Pages[1])        {
            // mode setting
            mode = ADD_CMD;
            SMESelectItem(ADD_CMD);
      }
}
//---------------------------------------------------------------------------


void __fastcall TFORM_ENTITY::bt_EditClick(TObject *Sender)
{

        // STATION PAGE
        if (pagecontrol1->ActivePage == pagecontrol1->Pages[0]) {
        // STATION page Editing
        mode = CHG_CMD;
        STTSelectItem(CHG_CMD);

    }
    else if (pagecontrol1->ActivePage == pagecontrol1->Pages[1]) {
        // MESSAGE page Editing
        mode = CHG_CMD;
        SMESelectItem(CHG_CMD);
    }

}
//---------------------------------------------------------------------------

void __fastcall TFORM_ENTITY::bt_ExitClick(TObject *Sender)
{
        Close();

}
//---------------------------------------------------------------------------

void TFORM_ENTITY::SMCClear()
{
        int i, j ;

         // edit object  clear
        for (i=0 ; i < MAX_SMC_EDIT ; i++)
                SmcEdit[i]->Text = "";

	for (i= 1 ; i < StringGrid1->RowCount -1 ; i++) {
            for ( j=0 ; j < MAX_SMC_EDIT ; j++)
     	            StringGrid1->Cells[j][i] = "";
        }

        StringGrid1->RowCount = 2;
}
void __fastcall TFORM_ENTITY::bt_actionClick(TObject *Sender)
{
        FORM_ActionTable->Show();
}
//---------------------------------------------------------------------------

void __fastcall TFORM_ENTITY::bt_FormatClick(TObject *Sender)
{
       FORM_FMTTABLE->Show();
}
//---------------------------------------------------------------------------



void __fastcall TFORM_ENTITY::bt_smc_saveClick(TObject *Sender)
{
        char*   pResult;
        char    password[16], frame[16], rsme[24], descript[64], status[24], buffer[4], colstatus[4],alert[24];

        if (mode != ADD_CMD && mode != CHG_CMD)
                return;

        if (Ed_Smc_Password->Text.Length() == 0)   strcpy(password, "-");
        else    strcpy(password, Ed_Smc_Password->Text.c_str());

	if (Ed_RouteSmeName->Text.Length() == 0) strcpy(rsme, "-");
        else    strcpy(rsme, Ed_RouteSmeName->Text.c_str());

        if ( Cb_SMC_Buffer->ItemIndex == 0 ) strcpy(buffer, "1") ;
        else    strcpy(buffer, "1") ;

        if ( Cb_SMC_CStatus->ItemIndex == 0) strcpy(colstatus, "0");
        else    strcpy(colstatus, "1");

        if (Ed_Alert->Text.Length() == 0) strcpy(alert, "-");
        else strcpy(alert, Ed_Alert->Text.c_str());


        switch (mode) {
        case ADD_CMD:
		pResult = SendRequest_dual(CMD_ADD_STT, "%s %s %s %s %s %s %s %s %s %s %s %s %s %s",
                                ed_SmcIndex->Text.c_str(),
                                ed_SmcName->Text.c_str(),
                                Ed_Platform_id->Text.c_str(),
                                Ed_SmcHost->Text.c_str(),
                                Ed_Port->Text.c_str(),
                                rsme,
                                password,
                                Ed_Smc_Action->Text.c_str(),
                                buffer,
                                colstatus,
                                Cb_protocol->Text.c_str(),
                                ComboHost->Text.c_str(),
                                alert,
                                Ed_Smc_desc->Text.c_str()
                                );
                break;
        case CHG_CMD:
		pResult = SendRequest_dual(CMD_CHG_STT, "%s %s %s %s %s %s %s %s %s %s %s",
                                ed_SmcName->Text.c_str(),
                                Ed_Platform_id->Text.c_str(),
                                Ed_SmcHost->Text.c_str(),
                                Ed_Port->Text.c_str(),
                                rsme,
                                password,
                                Ed_Smc_Action->Text.c_str(),
                                Cb_protocol->Text.c_str(),
                                ComboHost->Text.c_str(),
                                alert,
                                Ed_Smc_desc->Text.c_str()
                                );
                break;
        default:
                return;
        }
        if (*pResult == 0)
                return;

        ShowSTT();

}
//---------------------------------------------------------------------------

void __fastcall TFORM_ENTITY::bt_sme_saveClick(TObject *Sender)
{

        char*   pResult;
        char    password[16], frame[16], rsme[24], descript[64], status[24], buffer[4], colstatus[4];

        if (mode != ADD_CMD && mode != CHG_CMD)
                return;

        if (Ed_Sme_Password->Text.Length() == 0)   strcpy(password, "-");
        else    strcpy(password, Ed_Sme_Password->Text.c_str());

        if ( Cb_SME_Buffer->ItemIndex == 0 ) strcpy(buffer, "1");
        else    strcpy(buffer, "0");

        if ( Cb_SME_CStatus->ItemIndex == 0) strcpy(colstatus, "0");
        else    strcpy(colstatus, "1");

        switch (mode) {
        case ADD_CMD:
		pResult = SendRequest_dual(CMD_ADD_SME, "%s %s %s %s %s %s %s %s %s %s",
                                ed_SmeIndex->Text.c_str(),
                                Ed_SmeName->Text.c_str(),
                                password,
                                Ed_Sme_Platform_Id->Text.c_str(),
                                Ed_Format->Text.c_str(),
                                Ed_Sme_Action->Text.c_str(),
                                ComboSmeHost->Text.c_str(),
                                buffer,
                                colstatus,
                                Ed_Sme_desc->Text.c_str()
                                );

                break;
        case CHG_CMD:
		pResult = SendRequest_dual(CMD_CHG_SME, "%s %s %s %s %s %s %s",
                                Ed_SmeName->Text.c_str(),
                                password,
                                Ed_Sme_Platform_Id->Text.c_str(),
                                Ed_Format->Text.c_str(),
                                Ed_Sme_Action->Text.c_str(),
                                ComboSmeHost->Text.c_str() ,
                                Ed_Sme_desc->Text.c_str()
                                );
                break;
        default:
                return;
        }
        if (*pResult == 0)
                return;

        ShowSME();
 }


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

void __fastcall TFORM_ENTITY::StringGrid1Click(TObject *Sender)
{
       STTSelectItem(SHOW_CMD);
}
//---------------------------------------------------------------------------

void __fastcall TFORM_ENTITY::StringGrid2Click(TObject *Sender)
{
       SMESelectItem(SHOW_CMD);
}
//---------------------------------------------------------------------------

void __fastcall TFORM_ENTITY::pagecontrol1Change(TObject *Sender)
{


        switch(pagecontrol1->ActivePage->PageIndex) {
        case 0:         // Prefix Config
                FORM_ENTITY->Width   = 852;
                pagecontrol1->Width = 837;
                ShowSTT();
                break;
        case 1:         // Service Config
                FORM_ENTITY->Width   = 852;
                pagecontrol1->Width = 837;
                ShowSME();
                break;

         default:
                return;
        }

        bt_sme_save->Enabled = false;
        bt_smc_save->Enabled = false;



}
//---------------------------------------------------------------------------

void __fastcall TFORM_ENTITY::FormShow(TObject *Sender)
{
        // Gride ColWidth Set;
      GridInit();

      // Edit box assign into Edit array
      EditBoxAssign();

      //init_PageControl indicate STATION tab
      pagecontrol1->ActivePage = pagecontrol1->Pages[0];

      ShowSTT();

      bt_smc_save->Enabled = false;
      bt_sme_save->Enabled = false;

}
//---------------------------------------------------------------------------



void __fastcall TFORM_ENTITY::FormCreate(TObject *Sender)
{
        SetTitle();
}
//---------------------------------------------------------------------------

void TFORM_ENTITY::SetTitle()
{

        char    stt_cap[18][24] = {"INDEX", "NAME", "PASSWD",
                                  "GROUP ID", "SMC HOST", "PORT", "TRACE", "R-SME", "AlterSMC","PROTOCOL",
                                  "ACTION", "SERVING HOST", "BUFFER", "BUF NUM", "SND NUM", "CONTROL", "STATUS","Description"};
        char    sme_cap[15][24] = {"INDEX", "NAME","PID","PASSWD", "GROUP ID", "FORMAT",
                                  "ACTION", "SERVING HOST", "TRACE","BUFFER", "POOL CNT", "POOL SND", "CONTROL", "STATUS", "Description"};


        int     i;
        for (i = 0; i < 18; i++)
                StringGrid1->Cells[i][0]  = stt_cap[i];
        for (i = 0; i < 15; i++)
                StringGrid2->Cells[i][0] = sme_cap[i];
}

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

void TFORM_ENTITY::ShowSME()
{
        char    *pResult, *pItem;
        char    sme_id[16],  sme_name[32], pid[8], pwd[24], platformid[24],format[16];
        char    action[24], host[24], trace[16], buffer[24], pool_cnt[8], pool_snd[8],desc[50];
        char    control[24], status[24];
        int     count = 0;

        mode         = SHOW_CMD;

        StringGrid2->Rows[1]->Clear();
        StringGrid2->RowCount = 2;
        pResult = SendRequest(CMD_RET_SME, "");
        if (*pResult == 0)
                return;

        InitItem(pResult);
        while (*(pItem = NextItem()) != 0) {
                if (*pItem == ERR_COMMAND) {
                        ShowMessage(pItem + 1);
                        return;
                }
                sscanf(pItem, "%s %s %s %s %s %s %s %s %s %s %s %s %s %s %s",
                               sme_id,    sme_name, pid, pwd, platformid, format, action, host,
                               trace, buffer, pool_cnt, pool_snd, control, status, desc);
                StringGrid2->RowCount = count + 2;
                StringGrid2->Cells[0][count+1]  = sme_id;
                StringGrid2->Cells[1][count+1]  = sme_name;
                StringGrid2->Cells[2][count+1]  = pid;
                StringGrid2->Cells[3][count+1]  = pwd;
                StringGrid2->Cells[4][count+1]  = platformid;
                StringGrid2->Cells[5][count+1]  = format;
                StringGrid2->Cells[6][count+1]  = action;
                StringGrid2->Cells[7][count+1]  = host;
                StringGrid2->Cells[8][count+1]  = trace;
                StringGrid2->Cells[9][count+1]  = buffer;
                StringGrid2->Cells[10][count+1] = pool_cnt;
                StringGrid2->Cells[11][count+1] = pool_snd;
                StringGrid2->Cells[12][count+1] = control;
                StringGrid2->Cells[13][count+1] = status;
                StringGrid2->Cells[14][count+1] = desc;
                count++;
                StringGrid2->RowHeights[StringGrid2->RowCount-1] = 15;
        }
        SMESelectItem(SHOW_CMD);
}

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

void TFORM_ENTITY::SMESelectItem(int mode)
{
        char    sme_id[16],  sme_name[32], pid[8], pwd[24], platformid[24],format[16];
        char    action[24], host[24], trace[16], buffer[24], pool_cnt[8], pool_snd[8];
        char    control[24], status[24], desc[50];
        int     i, row = StringGrid2->Row;
        bool    flag;

        switch (mode) {
        case SHOW_CMD:
                flag = true;
                GroupBox_SME->Caption = "Show";
                ED_Pid->ReadOnly = flag;
                Ed_Sme_PoolCnt->ReadOnly = flag;
                Ed_Sme_PoolSnd->ReadOnly = flag;
                Ed_TracePort->ReadOnly = flag;
                Ed_Sme_ConnectionStatus->ReadOnly = flag;
                break;
        case ADD_CMD:
                GroupBox_SME->Caption = "Insert";
                flag = false;
                ed_SmeIndex->Clear();
                Ed_SmeName->Clear();
                Ed_Sme_Password->Clear();
                Ed_Sme_Platform_Id->Clear();        //sunmi add 2001.5.15
                Ed_Format->Clear();
                Ed_Sme_Action->Clear();
                Ed_Sme_desc->Clear();
                ComboSmeHost->ItemIndex = 0;
                Ed_Sme_ConnectionStatus->Clear();
                Cb_SME_Buffer->ItemIndex = 0;
                Cb_SME_CStatus->ItemIndex = 0;
                break;
        case COPY_CMD:
                GroupBox_SME->Caption = "Copy";
                flag = false;
                break;
        case CHG_CMD:
                GroupBox_SME->Caption = "Update";
                flag = false;
                break;
        default:
                return;
        }



        bt_sme_save->Enabled            = !flag;

        Ed_Sme_Password->ReadOnly  = flag;
        Ed_Sme_Platform_Id->ReadOnly  = flag;
        Ed_Format->ReadOnly  = flag;
        Ed_Sme_Action->ReadOnly  = flag;
        ComboSmeHost->Enabled = !flag;
        Ed_Sme_desc->ReadOnly = flag;


        if (mode == CHG_CMD) {
                ed_SmeIndex->ReadOnly   = !flag;
                Cb_SME_Buffer->Enabled = flag;
                Cb_SME_CStatus->Enabled = flag;
                Ed_SmeName->ReadOnly     = !flag;
        }
        else {
                ed_SmeIndex->ReadOnly   = flag;
                Cb_SME_Buffer->Enabled = !flag;
                Cb_SME_CStatus->Enabled = !flag;
                Ed_SmeName->ReadOnly     = flag;
        }

        ControlColor();

        if (mode == ADD_CMD)
                return;

        sscanf(StringGrid2->Rows[row]->Text.c_str(), "%s %s %s %s %s %s %s %s %s %s %s %s %s %s %s",
                               sme_id,    sme_name, pid, pwd, platformid, format, action, host,
                               trace, buffer, pool_cnt,  pool_snd, control, status , desc);

                ed_SmeIndex->Text = sme_id;
                Ed_SmeName->Text = sme_name;
                ED_Pid->Text = pid;
                Ed_Sme_Password->Text = pwd;
                Ed_Sme_Platform_Id->Text = platformid;        //sunmi add 2001.5.15
                Ed_Format->Text = format;
                Ed_Sme_Action->Text = action;
                Ed_TracePort->Text = trace;
                Ed_Sme_PoolCnt->Text = pool_cnt;
                Ed_Sme_PoolSnd->Text = pool_snd;
                Ed_Sme_ConnectionStatus->Text = status;
                Ed_Sme_desc->Text = desc;

        if (!strcmp(pwd, "-"))
                Ed_Sme_Password->Clear();
        else
                Ed_Sme_Password->Text = pwd;

        if (!strncmp(status, "x",1))
                 Ed_Sme_ConnectionStatus->Clear();
        else
                 Ed_Sme_ConnectionStatus->Text = status;

        Cb_SME_Buffer->ItemIndex = 0;
        for (i = 0; i < Cb_SME_Buffer->Items->Count; i++) {
                if (strcmp(buffer, Cb_SME_Buffer->Items->Strings[i].c_str()))
                        continue;
                Cb_SME_Buffer->ItemIndex = i;
                break;
        }

        Cb_SME_CStatus->ItemIndex = 0;
        for (i = 0; i < Cb_SME_CStatus->Items->Count; i++) {
                if (strcmp(control, Cb_SME_CStatus->Items->Strings[i].c_str()))
                        continue;
                Cb_SME_CStatus->ItemIndex = i;
                break;
        }

        if (!strncmp(host, "msgf1",5))
                ComboSmeHost->ItemIndex = 0;
        else if ( !strncmp(host, "msgf2",5))
                ComboSmeHost->ItemIndex = 1;

}
void TFORM_ENTITY::ShowSTT()
{
        char    *pResult, *pItem;
        char    stt_id[16],  stt_name[32], pwd[24], platformid[24],smc[24], port[16], trace[16],rsme[24];
        char    action[24], protocol[24], host[24],  buffer[24], pool_cnt[8], pool_snd[8],alert[24];
        char    control[24], status[24], desc[50];
        int     count = 0;

        mode         = SHOW_CMD;

        StringGrid1->Rows[1]->Clear();
        StringGrid1->RowCount = 2;
        pResult = SendRequest(CMD_RET_STT, "");
        if (*pResult == 0)
                return;

        InitItem(pResult);
        while (*(pItem = NextItem()) != 0) {
                if (*pItem == ERR_COMMAND) {
                        ShowMessage(pItem + 1);
                        return;
                }
                sscanf(pItem, " %s %s %s %s %s %s %s %s %s %s %s %s %s %s %s %s %s %s",
                               stt_id, stt_name, pwd, platformid, smc, port, trace, rsme, alert, protocol,action, host,
                               buffer, pool_cnt, pool_snd, control, status, desc);
                StringGrid1->RowCount = count + 2;
                StringGrid1->Cells[0][count+1]  = stt_id;
                StringGrid1->Cells[1][count+1]  = stt_name;
                StringGrid1->Cells[2][count+1]  = pwd;
                StringGrid1->Cells[3][count+1]  = platformid;
                StringGrid1->Cells[4][count+1]  = smc;
                StringGrid1->Cells[5][count+1]  = port;
                StringGrid1->Cells[6][count+1]  = trace;
                StringGrid1->Cells[7][count+1]  = rsme;
                StringGrid1->Cells[8][count+1]  = alert;
                StringGrid1->Cells[9][count+1]  = protocol;
                StringGrid1->Cells[10][count+1]  = action;
                StringGrid1->Cells[11][count+1] = host;
                StringGrid1->Cells[12][count+1] = buffer;
                StringGrid1->Cells[13][count+1] = pool_cnt;
                StringGrid1->Cells[14][count+1] = pool_snd;
                StringGrid1->Cells[15][count+1] = control;
                StringGrid1->Cells[16][count+1] = status;
                StringGrid1->Cells[17][count+1] = desc;
                count++;
                StringGrid1->RowHeights[StringGrid1->RowCount-1] = 15;
        }
        STTSelectItem(SHOW_CMD);
}

void TFORM_ENTITY::STTSelectItem(int mode)
{

        char    stt_id[16],  stt_name[32], pwd[24], platformid[24],smc[24], port[16], trace[16],rsme[24];
        char    action[24], protocol[24], host[24],  buffer[24], pool_cnt[8], pool_snd[8];
        char    control[24], status[24], alert[24], desc[50];
        int     i, row = StringGrid1->Row;
        bool    flag;

        switch (mode) {
        case SHOW_CMD:
                flag = true;
                GroupBox_STT->Caption = "Show";
                ED_Trace->ReadOnly = flag;
                Ed_Smc_PoolCnt->ReadOnly = flag;
                ed_Smc_PoolSnd->ReadOnly = flag;
                break;
        case ADD_CMD:
                GroupBox_STT->Caption = "Insert";
                flag = false;

                ed_SmcIndex->Clear();
                ed_SmcName->Clear();
                Ed_Smc_Password->Clear();
                Ed_Platform_id->Clear();        //sunmi add 2001.5.15
                Ed_SmcHost->Clear();
                Ed_Port->Clear();
                Ed_RouteSmeName->Clear();
                Ed_Smc_Action->Clear();
                Cb_protocol->ItemIndex = 0;
                Ed_Smc_desc->Clear();
                ComboHost->ItemIndex = 0;
                Cb_SMC_CStatus->ItemIndex = 0;
                Ed_Alert->Clear();
                break;
        case COPY_CMD:
                GroupBox_STT->Caption = "Copy";
                flag = false;
                break;
        case CHG_CMD:
                GroupBox_STT->Caption = "Update";
                flag = false;
                break;
        default:
                return;
        }
         bt_smc_save->Enabled            = !flag;

        Ed_Platform_id->ReadOnly  = flag;
        Ed_Smc_Password->ReadOnly  = flag;
        Ed_Platform_id->ReadOnly  = flag;
        Ed_Smc_Action->ReadOnly  = flag;
        Ed_RouteSmeName->ReadOnly  = flag;
        Ed_SmcHost->ReadOnly  = flag;
        Ed_Port->ReadOnly  = flag;
        Ed_Alert->ReadOnly = flag;
        Ed_Smc_desc->ReadOnly = flag;


        ComboHost->Enabled = !flag;
        Cb_SMC_Buffer->Enabled  = !flag;
        Cb_protocol->Enabled = !flag;
        Ed_Smc_ConnectionStatus->ReadOnly  = flag;

        if (mode == CHG_CMD) {
                ed_SmcIndex->ReadOnly   = !flag;
                Cb_SMC_Buffer->Enabled = flag;
                Ed_Smc_ConnectionStatus->ReadOnly = flag;
                Cb_SMC_CStatus->Enabled  = flag;
                ed_SmcName->ReadOnly    = flag;

        }
        else {
                ed_SmcIndex->ReadOnly   = flag;
                Cb_SMC_Buffer->Enabled = !flag;
                Ed_Smc_ConnectionStatus->ReadOnly = !flag;
                Cb_SMC_CStatus->Enabled  = !flag;
                ed_SmcName->ReadOnly    = flag;


        }

        if ( mode == SHOW_CMD)
                Ed_Smc_ConnectionStatus->ReadOnly = flag;

         ControlColor();

        //        EditColorChange(STT);
        if (mode == ADD_CMD)
                return;

        sscanf(StringGrid1->Rows[row]->Text.c_str(), "%s %s %s %s %s %s %s %s %s %s %s %s %s %s %s %s %s %s",
                               stt_id, stt_name, pwd, platformid, smc, port, trace, rsme, alert,protocol,action,  host,
                               buffer, pool_cnt, pool_snd, control, status ,desc);

                ed_SmcIndex->Text = stt_id;
                ed_SmcName->Text = stt_name;
                Ed_Platform_id->Text = platformid;        //sunmi add 2001.5.15
                Ed_SmcHost->Text = smc;
                Ed_Port->Text = port;
                ED_Trace->Text = trace;
                Ed_Smc_Action->Text = action;
                Ed_Smc_PoolCnt->Text = pool_cnt;
                ed_Smc_PoolSnd->Text = pool_snd;
                Ed_Alert->Text = alert;
                Ed_Smc_desc->Text = desc;



        if (!strncmp(pwd, "-",1))
                Ed_Smc_Password->Clear();
        else
                Ed_Smc_Password->Text = pwd;

        if (!strncmp(rsme, "-",1))
                Ed_RouteSmeName->Clear();
        else
                Ed_RouteSmeName->Text = rsme;

        if (!strncmp(status, "x",1))
                 Ed_Smc_ConnectionStatus->Clear();
        else
                 Ed_Smc_ConnectionStatus->Text = status;

        if (!strncmp(control, "ACT",3))
                Cb_SMC_CStatus->ItemIndex = 0;
        else if ( !strncmp(control, "INACT",5))
                Cb_SMC_CStatus->ItemIndex = 1;

        if (!strncmp(host, "msgf1",5))
                ComboHost->ItemIndex = 0;
        else if ( !strncmp(host, "msgf2",5))
                ComboHost->ItemIndex = 1;

        if (!strncmp(protocol, "SMC",3))
                Cb_protocol->ItemIndex = 0;
        else if ( !strncmp(protocol, "SMI",3))
                Cb_protocol->ItemIndex = 1;


        Cb_SMC_Buffer->ItemIndex = 0;
        for (i = 0; i <Cb_SMC_Buffer->Items->Count; i++) {
                if (strcmp(buffer, Cb_SMC_Buffer->Items->Strings[i].c_str()))
                        continue;
                Cb_SMC_Buffer->ItemIndex = i;
                break;
        }
/*

        comboSME_Frame->ItemIndex = 0;
        for (i = 0; i < comboSME_Frame->Items->Count; i++) {
                if (strcmp(frame, comboSME_Frame->Items->Strings[i].c_str()))
                        continue;
                comboSME_Frame->ItemIndex = i;
                break;
        }
        if (!strcmp(desc, "-"))
                Desc->Clear();
        else
                Desc->Text = desc;
*/
}
void __fastcall TFORM_ENTITY::bt_copyClick(TObject *Sender)
{
        int p_MaxSME = 200;

        if (pagecontrol1->ActivePage == pagecontrol1->Pages[0]) {
                mode = ADD_CMD;
                STTSelectItem(COPY_CMD);
                ed_SmcIndex->Text = GetNotUsedId(CMD_RET_STT, 1, p_MaxSTT);

        }
        if (pagecontrol1->ActivePage == pagecontrol1->Pages[1]) {
                mode = ADD_CMD;
                SMESelectItem(COPY_CMD);
                ed_SmeIndex->Text = GetNotUsedId(CMD_RET_SME, 1, p_MaxSME);
        }

}
//---------------------------------------------------------------------------

void __fastcall TFORM_ENTITY::bt_deleteClick(TObject *Sender)
{
        char*   pResult;
        char    smc_name[24], sme_name[24];

        mode            = DEL_CMD;
        if (pagecontrol1->ActivePage == pagecontrol1->Pages[0]) {
                GroupBox_STT->Caption = "Delete";
/*
                  if (!ConfirmMsg())
                        return;
*/
        sscanf(StringGrid1->Rows[StringGrid1->Row]->Text.c_str(), "%*s %s %*s %*s %*s %*s %*s %*s %*s %*s %*s %*s %*s %*s %*s %*s %*s %*s", smc_name);
        pResult = SendRequest_dual(CMD_DEL_STT, "%s", smc_name);
        if (*pResult == 0)
                return;
        ShowSTT();
        }

        if (pagecontrol1->ActivePage == pagecontrol1->Pages[1]) {
                GroupBox_SME->Caption = "Delete";
/*
                  if (!ConfirmMsg())
                        return;
*/
        sscanf(StringGrid2->Rows[StringGrid2->Row]->Text.c_str(), "%*s %s %*s %*s %*s %*s %*s %*s %*s %*s %*s %*s %*s %*s %*s", sme_name);
        pResult = SendRequest_dual(CMD_DEL_SME, "%s", sme_name);
        if (*pResult == 0)
                return;
        ShowSME();
        }

}
//---------------------------------------------------------------------------
void TFORM_ENTITY::ControlColor()
{

        if (pagecontrol1->ActivePage == pagecontrol1->Pages[0]) {
                ed_SmcIndex->Color              = ed_SmcIndex->ReadOnly         ? clMenu : clWindow;
                ed_SmcName->Color               = ed_SmcName->ReadOnly          ?clMenu : clWindow;
                Ed_Smc_Password->Color          = Ed_Smc_Password->ReadOnly     ? clMenu : clWindow;
                Ed_Platform_id->Color           = Ed_Platform_id->ReadOnly      ? clMenu : clWindow;
                Ed_SmcHost->Color               = Ed_SmcHost->ReadOnly          ? clMenu : clWindow;

                Ed_Port->Color                  = Ed_Port->ReadOnly             ? clMenu : clWindow;
                ED_Trace->Color                 = ED_Trace->ReadOnly            ? clMenu : clWindow;
                Ed_RouteSmeName->Color          = Ed_RouteSmeName->ReadOnly     ? clMenu : clWindow;
                Ed_Smc_Action->Color            = Ed_Smc_Action->ReadOnly       ? clMenu : clWindow;

                Cb_protocol->Color              = Cb_protocol->Enabled         ? clWindow : clMenu;
                ComboHost->Color                = ComboHost->Enabled            ? clWindow : clMenu;
                Cb_SMC_Buffer->Color            = Cb_SMC_Buffer->Enabled        ? clWindow : clMenu;
                Ed_Smc_PoolCnt->Color           = Ed_Smc_PoolCnt->ReadOnly      ? clMenu : clWindow;
                ed_Smc_PoolSnd->Color           = ed_Smc_PoolSnd->ReadOnly      ? clMenu : clWindow;
                Cb_SMC_CStatus->Color           = Cb_SMC_CStatus->Enabled       ? clWindow : clMenu;
                Ed_Smc_ConnectionStatus->Color  = Ed_Smc_ConnectionStatus->ReadOnly    ? clMenu : clWindow;
                Ed_Alert->Color                 = Ed_Alert->ReadOnly    ? clMenu : clWindow;
                Ed_Smc_desc->Color                 = Ed_Smc_desc->ReadOnly    ? clMenu : clWindow;
        }

        if (pagecontrol1->ActivePage == pagecontrol1->Pages[1]) {

                ed_SmeIndex->Color              = ed_SmeIndex->ReadOnly         ? clMenu : clWindow;
                Ed_SmeName->Color               = Ed_SmeName->ReadOnly          ?clMenu : clWindow;
                Ed_Sme_Password->Color          = Ed_Sme_Password->ReadOnly     ? clMenu : clWindow;
                Ed_Sme_Platform_Id->Color       = Ed_Sme_Platform_Id->ReadOnly  ? clMenu : clWindow;
                Ed_Format->Color                = Ed_Format->ReadOnly           ? clMenu : clWindow;

                Ed_Sme_Action->Color           = Ed_Sme_Action->ReadOnly        ? clMenu : clWindow;
                ComboSmeHost->Color            = ComboSmeHost->Enabled          ? clWindow : clMenu;
                Cb_SME_Buffer->Color            = Cb_SME_Buffer->Enabled        ? clWindow : clMenu;
                ED_Pid->Color                   = ED_Pid->ReadOnly              ? clMenu : clWindow;

                Ed_Sme_PoolCnt->Color           = Ed_Sme_PoolCnt->ReadOnly      ? clMenu : clWindow;
                Ed_Sme_PoolSnd->Color           = Ed_Sme_PoolSnd->ReadOnly      ? clMenu : clWindow;
                Ed_TracePort->Color             = Ed_TracePort->ReadOnly        ? clMenu : clWindow;
                Cb_SME_CStatus->Color           = Cb_SME_CStatus->Enabled       ? clWindow : clMenu;
                Ed_Sme_ConnectionStatus->Color  = Ed_Sme_ConnectionStatus->ReadOnly      ? clMenu : clWindow;
                Ed_Sme_desc->Color                 = Ed_Sme_desc->ReadOnly    ? clMenu : clWindow;
        }


}
void __fastcall TFORM_ENTITY::bt_DactClick(TObject *Sender)
{
        char*   pResult;
        char    smc_name[24], sme_name[24];

        mode            = DEL_CMD;
        if (pagecontrol1->ActivePage == pagecontrol1->Pages[0]) {
                GroupBox_STT->Caption = "DeActivate";
/*
                  if (!ConfirmMsg())
                        return;
*/
        sscanf(StringGrid1->Rows[StringGrid1->Row]->Text.c_str(), "%*s %s", smc_name);
        pResult = SendRequest_dual(CMD_DACT_STT, "%s", smc_name);
        if (*pResult == 0)
                return;
        ShowSTT();
        }

        if (pagecontrol1->ActivePage == pagecontrol1->Pages[1]) {
                GroupBox_SME->Caption = "DeActivate";
/*
                  if (!ConfirmMsg())
                        return;
*/
        sscanf(StringGrid2->Rows[StringGrid2->Row]->Text.c_str(), "%*s %s", sme_name);
        pResult = SendRequest_dual(CMD_DACT_SME, "%s", sme_name);
        if (*pResult == 0)
                return;
        ShowSME();
        }
}
//---------------------------------------------------------------------------

void __fastcall TFORM_ENTITY::bt_ActClick(TObject *Sender)
{
        char*   pResult;
        char    smc_name[24], sme_name[24];

        mode            = DEL_CMD;
        if (pagecontrol1->ActivePage == pagecontrol1->Pages[0]) {
                GroupBox_STT->Caption = "Activate";
/*
                  if (!ConfirmMsg())
                        return;
*/
        sscanf(StringGrid1->Rows[StringGrid1->Row]->Text.c_str(), "%*s %s", smc_name);
        pResult = SendRequest_dual(CMD_ACT_STT, "%s", smc_name);
        if (*pResult == 0)
                return;
        ShowSTT();
        }

        if (pagecontrol1->ActivePage == pagecontrol1->Pages[1]) {
                GroupBox_SME->Caption = "Activate";
/*
                  if (!ConfirmMsg())
                        return;
*/
        sscanf(StringGrid2->Rows[StringGrid2->Row]->Text.c_str(), "%*s %s", sme_name);
        pResult = SendRequest_dual(CMD_ACT_SME, "%s", sme_name);
        if (*pResult == 0)
                return;
        ShowSME();
        }
}
//---------------------------------------------------------------------------

void __fastcall TFORM_ENTITY::Button1Click(TObject *Sender)
{
        FORM_ActionTable->Show();
}
//---------------------------------------------------------------------------



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