void __fastcall TForm1::ComPort2RxChar(TObject *Sender, int Count)
{
AnsiString Str, Call[3], ret, overkgcheck, overhjcheck, llinum, n1, n2, n3, n4, n5, n6, n7, n8, comp_d, comp_m;
AnsiString t_data1, t_data2, t_data, zone1, zone2, gogac, keyhaver, santea, check, realstrdata, comp_y, st_time;
AnsiString d1_lli, d2_name, d3_nea, d4_py, d5_cn, d6_sn, d7_sang, d8_go, d9_hh, d10_hm, d11_gh, d12_gm;
char TempBuf[4096], imsi[4096], sh[2], llbufer[4];
int over, sonsoo, index, i, start, know, display;
int cum_data, cum_num1, cum_num2, cum_num3, len, last, jnum;
unsigned int a;

len = ComPort2->ReadStr(Str, Count);//데이터 버퍼에 저장.

memset(Call, 0, 4);

ret = 'A';
Call[0]='O';//경찰서에 보내는거..

memset(imsi, 0, 4097);
for(i=1; i<=len; i++)
{
 imsi[i-1] = Str[i];
}

strncat(tcpTmpBuf, imsi, StrLen(imsi));

for(a=0, index=0, start=0; a<StrLen(tcpTmpBuf); a++)
{
  if(tcpTmpBuf[a] == 0x02 && start==0)
  {
     start = 1;
     memset(TempBuf, 0, 4096);
     index = 0;
  }

  if(start==1)
  {
   TempBuf[index] = tcpTmpBuf[a];
   index++;
  }

  if(tcpTmpBuf[a]==0x04 && start==1)
  {
    ComPort2->WriteStr(ret); // 확인 메세지를 보내자.
    index = 0;
    memset(tcpTmpBuf, 0, 4097);
    break; // 데이터를 10개 찾고, 0x0D가 나왓을 경우.
  }
}

if(TempBuf[0]==0x02 && TempBuf[19]==0x04) // 일단 데이타에 문제가 없을때..
{
   zone1 = IntToStr(TempBuf[10]/16);
   zone1 = zone1 + AnsiString(hexchange(TempBuf[10] - (TempBuf[10]/16)*16));

   zone2 = IntToStr(TempBuf[11]/16);
   zone2 = zone2 + AnsiString(hexchange(TempBuf[11] - (TempBuf[11]/16)*16));

   cum_num1 = TempBuf[12] - 0x1C; // 가입자 번호의 첫번째 십진수 두 자리. **줄여도 되는 코드..바쁜데 그냥하자**
   cum_num2 = TempBuf[13] - 0x1C; // 가입자 번호의 두번째 십진수 두 자리.
   cum_num3 = TempBuf[14] - 0x1C; // 가입자 번호의 세번째 십진수 두 자리.


   keyhaver = IntToStr(TempBuf[15]/16);
   keyhaver = keyhaver + AnsiString(hexchange(TempBuf[15] - (TempBuf[15]/16)*16));

   santea = IntToStr(TempBuf[16]/16);
   santea = santea + AnsiString(hexchange(TempBuf[16] - (TempBuf[16]/16)*16));

   check = IntToStr(TempBuf[17]/16);
   check = check + AnsiString(hexchange(TempBuf[17] - (TempBuf[17]/16)*16));

   llinum = AnsiString(llichange(TempBuf[1]));
   llinum = llinum + AnsiString(llichange(TempBuf[2]));
   llinum = llinum + AnsiString(llichange(TempBuf[3]));
   llinum = llinum + AnsiString(llichange(TempBuf[4]));
   llinum = llinum + AnsiString(llichange(TempBuf[5]));
   llinum = llinum + AnsiString(llichange(TempBuf[6]));
   llinum = llinum + AnsiString(llichange(TempBuf[7]));
   llinum = llinum + AnsiString(llichange(TempBuf[8]));

   if(cum_num1<=9) gogac = "0" + IntToStr(cum_num1);
   else gogac = IntToStr(cum_num1); // 가입자 번호 첫번쨰 두자리를 문자열로 변경.

   if(cum_num2<=9) gogac = gogac + "0" + IntToStr(cum_num2);
   else gogac = gogac + IntToStr(cum_num2); // 가입자 번호 두번쨰 두자리를 문자열로 변경.

   if(cum_num3<=9) gogac = gogac + "0" + IntToStr(cum_num3);
   else gogac = gogac + IntToStr(cum_num3); // 가입자 번호 세번쨰 두자리를 문자열로 변경.  // 가입자 전체번호 문자열로 변환완료.

   realstrdata = zone1 + zone2 + " " + keyhaver + santea + " " + check; // 전체 신호코드.

   comp_d = Date().FormatString("dd");
   comp_m = Date().FormatString("mm");
   comp_y = Date().FormatString("yy");

   if(StrToInt(comp_d)<=2)
   {
     if(StrToInt(comp_m)==3) // 전달이 2월달일 경우.
     {
       st_time = comp_y;
       st_time = st_time + "-02-27";
     }
     else if(StrToInt(comp_m)==1) // 전달이 작년일 경우.
     {
       st_time = IntToStr(StrToInt(comp_y)-1);
       if(StrToInt(st_time)<=9) st_time = "0"+st_time;
       st_time = st_time + "-12-30";
     }
     else if(StrToInt(comp_m)==2 || StrToInt(comp_m)==4 || StrToInt(comp_m)==6 || StrToInt(comp_m)==8 || StrToInt(comp_m)==9 || StrToInt(comp_m)==11) // 전달이 31일까지 있을 경우.
     {
       st_time = comp_y;
       st_time = st_time + "-";
       if(comp_m != "11")
       {
        st_time = st_time + "0";
        st_time = st_time + IntToStr(StrToInt(comp_m)-1);
       }
       else st_time = st_time + comp_m;

       st_time = st_time + "-30";
     }
     else
     {
       st_time = comp_y;
       st_time = st_time + "-";
       if(comp_m == "10" || comp_m=="12") st_time = st_time + comp_m;
       else
       {
        st_time = st_time + "0";
        st_time = st_time + IntToStr(StrToInt(comp_m)-1);
       }

       st_time = st_time + "-29";
     }
   }
   else
   {
     st_time = comp_y;
     st_time = st_time + "-";
     st_time = st_time + comp_m;
     st_time = st_time + "-";
     if(StrToInt(comp_d)<=9)
     {
       st_time = st_time + "0";
       st_time = st_time + IntToStr(StrToInt(comp_d)-2);
     }
     else st_time = st_time + IntToStr(StrToInt(comp_d)-2);
   }

   if(Query1->Active) Query1->Close(); // 원래코드와 SOUND, COLOR, MARK, CALL, CONTEXT

   Query1->SQL->Clear();
   Query1->SQL->Add("select * from rstsignal.db");
     if((TempBuf[17]>=65 && TempBuf[17]<=80) || (TempBuf[17]>=83 && TempBuf[17]<=85))
       Query1->SQL->Add("where 신호 LIKE '%" + check +"'");
     else if(TempBuf[17]==81 || TempBuf[17]==82)
       Query1->SQL->Add("where 신호 LIKE '%"+keyhaver+"%"+check+"'");
     else if(TempBuf[17]==64 && (TempBuf[10]==80 || TempBuf[10]==96))
       Query1->SQL->Add("where 신호 LIKE '"+zone1+"%"+check+"'");
     else // if(TempBuf[17]==64 && (TempBuf[7]==72 || TempBuf[7]==80)) // else로 놔야 하지 않을까??
       Query1->SQL->Add("where 신호 LIKE '%"+santea+""+check+"'");

   Query1->ExecSQL();
   Query1->Open();

   know = Query1->RecordCount;

   if(know==0)
   {
     d3_nea = "알수없는 신호";
     d4_py = "YES";
     d5_cn = "47";
     d6_sn = "0";
   }
   else
   {
     d3_nea = Form1->Query1->FieldByName("내용")->AsString;
     d4_py = Form1->Query1->FieldByName("표시")->AsString;
     d5_cn = Form1->Query1->FieldByName("C_N")->AsString;
     d6_sn = Form1->Query1->FieldByName("S_N")->AsString;
   }

   if(Query1->Active) Query1->Close(); // 신호고객의 개인정보 추출.

   Query1->SQL->Clear();
   Query1->SQL->Add("select * from custom.DB");
   Query1->SQL->Add("where 고객번호 = '" + gogac + "'");
   Query1->ExecSQL();
   Query1->Open();
   cum_data = Query1->RecordCount;

   if(cum_data!=0)
   {
       if(Query1->Active) Query1->Close(); // 신호고객의 개인정보 추출.

       Query1->SQL->Clear();
       Query1->SQL->Add("update custom.DB");
       Query1->SQL->Add("Set LLI_번호 = '" + llinum + "', 이상='0'");
       Query1->SQL->Add("where 고객번호 = '" + gogac + "'");
       Query1->ExecSQL();

       Query1->SQL->Clear();
       Query1->SQL->Add("select * from custom.DB");
       Query1->SQL->Add("where 고객번호 = '" + gogac + "'");
       Query1->ExecSQL();
       Query1->Open();
   }

   d1_lli = Form1->Query1->FieldByName("LLI_번호")->AsString;
   d2_name = Form1->Query1->FieldByName("성명")->AsString;
   d8_go = Form1->Query1->FieldByName("고객구분")->AsString;
   d9_hh = Form1->Query1->FieldByName("해제시간")->AsString;
   d10_hm = Form1->Query1->FieldByName("해제분")->AsString;
   d11_gh = Form1->Query1->FieldByName("경계시간")->AsString;
   d12_gm = Form1->Query1->FieldByName("경계분")->AsString;

    /*  if(Query1->FieldByName("CALL")->AsString == YES)
      {
        //call = 경찰에 연락하는 함수 실행. O, X를 숫자로 받고 나중에
      }*/

   t_data1 = Date().FormatString("yy/mm/dd");
   t_data2 = Time().FormatString("hh/mm/ss");
   t_data = t_data1;
   t_data = t_data + t_data2;

   if(Query3->Active) Query3->Close(); // dispaly and save.

   Query3->SQL->Clear();
   Query3->SQL->Add("insert into nowreport.db");

   Query3->SQL->Add("(T, 고객번호, LLI_번호, 성명, 내용, 상호, 고객구분, 날짜, 시간, 전송, 표시, C_N, S_N)");
   Query3->SQL->Add("Values");

   if(cum_data==0)
   {
     Query3->SQL->Add("('R','" + gogac +"','" + llinum +"','-',"); // id, CODE입력.
     Query3->SQL->Add("'" + d3_nea +"','-','-',"); // 내용, 구분.
     Query3->SQL->Add("'" + t_data1 + "','" + t_data2 + "','" + Call[0] +"','" + d4_py +"',"); // 시간, 지령입력.
     Query3->SQL->Add("'" + d5_cn +"','" + d6_sn +"')");
   }      //'" + DateTimeToStr(Now()) +"',
   else
   {
     Query3->SQL->Add("('R','" + gogac +"','" + llinum +"','" + d2_name +"',"); // id, CODE입력.
     Query3->SQL->Add("'" + d3_nea +"','" + d7_sang +"','" + d8_go +"',"); // 상호, 구분, 시간입력.
     Query3->SQL->Add("'" + t_data1 + "','" + t_data2 + "','" + Call[0] +"','" + d4_py +"',"); // 시간, 지령입력.
     Query3->SQL->Add("'" + d5_cn +"','" + d6_sn +"')");
   }

   Query3->ExecSQL();


   Query3->SQL->Clear();
   Query3->SQL->Add("select T, 날짜, 시간, 고객번호, LLI_번호, 내용, 상호, 고객구분, C_N from nowreport.db");
   Query3->SQL->Add("where 표시 = 'YES' AND 날짜>='"+st_time+"'");
   Query3->ExecSQL();
   Query3->Open();
   Query3->Last();

   if(TempBuf[17]==81)
   {
     if(Query1->Active) Query1->Close(); // dispaly and save.
     Query1->SQL->Clear();
     Query1->SQL->Add("update  custom.DB");
     Query1->SQL->Add("Set 상태 = '1'");
     Query1->SQL->Add("where 고객번호 = '" + gogac + "'");
     Query1->ExecSQL();

     Query1->SQL->Clear();
     Query1->SQL->Add("select * from custom.DB");
     Query1->Open();
   }

   if(TempBuf[17]==82)
   {
     if(Query1->Active) Query1->Close(); // dispaly and save.
     Query1->SQL->Clear();
     Query1->SQL->Add("update  custom.DB");
     Query1->SQL->Add("Set 상태 = '0'");
     Query1->SQL->Add("where 고객번호 = '" + gogac + "'");
     Query1->ExecSQL();

     Query1->SQL->Clear();
     Query1->SQL->Add("select * from custom.DB");
     Query1->Open();
   }

   if(TempBuf[17] == 82 && cum_data!=0)
   {
     overhjcheck = d9_hh;
     overhjcheck = overhjcheck + ":";
     overhjcheck = overhjcheck + d10_hm;

     overkgcheck = d11_gh;
     overkgcheck = overkgcheck + ":";
     overkgcheck = overkgcheck + d12_gm;

     if(overhjcheck < overkgcheck) // 해제 < 경계 인경우
     {  if((overhjcheck>Time().FormatString("hh:mm")) || (overkgcheck<Time().FormatString("hh:mm"))) over=1; }
     else  // 경계 < 헤제 인경우.
     {  if((overhjcheck<Time().FormatString("hh:mm")) && (overkgcheck>Time().FormatString("hh:mm"))) over=1; }

     if(over==1)
     {
        if(Query1->Active) Query1->Close(); // dispaly and save.
        Query1->SQL->Clear();
        Query1->SQL->Add("insert into overhjsig.db");

        Query1->SQL->Add("(T,고객번호, LLI_번호, 성명, 내용, 상호, 고객구분, 날짜, 시간, 전송, 표시)");
        Query1->SQL->Add("Values");

        Query1->SQL->Add("('R','" + gogac +"','" + d1_lli +"','" + d2_name +"',"); // id, CODE입력.
        Query1->SQL->Add("'" + d3_nea +"','" + d7_sang +"','" + d8_go +"',"); // 상호, 구분, 시간입력.
        Query1->SQL->Add("'" + t_data1 + "','" + t_data2 + "','" + Call[0] +"','" + d4_py +"')");

        Query1->ExecSQL();

        Query1->SQL->Clear();
        Query1->SQL->Add("select * from overhjsig.db");
        Query1->Open();
     }
   }
   if(cum_data==0)
   {
     if(Form1->Query1->Active) Form1->Query1->Close(); // dispaly and save.
     Form1->Query1->SQL->Clear();
     Form1->Query1->SQL->Add("insert into nocustom.db");

     Form1->Query1->SQL->Add("(T,고객번호, LLI_번호, 내용, 날짜,시간, 전송, 표시)");
     Form1->Query1->SQL->Add("Values");

     Form1->Query1->SQL->Add("('R','" + gogac +"','" + d1_lli +"',"); // id, CODE입력.
     Form1->Query1->SQL->Add("'" + d3_nea +"',"); // 상호, 구분, 시간입력.
     Form1->Query1->SQL->Add("'" + t_data1 +"','" + t_data2 +"','" + Call[0] +"','" + d4_py +"')");

     Form1->Query1->ExecSQL();

     Form1->Query1->SQL->Clear();
     Form1->Query1->SQL->Add("select * from nocustom.db");
     Form1->Query1->Open();
   }

   if(Form1->Query1->Active) Form1->Query1->Close(); // dispaly and save.
   Form1->Query1->SQL->Clear();
   Form1->Query1->SQL->Add("update custom.DB");
   Form1->Query1->SQL->Add("Set 날짜 = '" + Date().FormatString("yy/mm/dd") + "', 시간 = '" + Time().FormatString("hh/mm/ss") + "'");
   Form1->Query1->SQL->Add("where 고객번호 = '" + gogac + "'");
   Form1->Query1->ExecSQL();

   Form1->Query1->SQL->Clear();
   Form1->Query1->SQL->Add("select * from custom.DB");
   Form1->Query1->Open();

if(d6_sn!="0" && d6_sn != "")
{
 if(d6_sn == "1") {
  Form1->MediaPlayer1->FileName = "C:\\Documents and Settings\\Data\\map\\sound1.wav";
  Form1->MediaPlayer1->Open();
  Form1->MediaPlayer1->Play();
 }
 else if(d6_sn == "2") {
  Form1->MediaPlayer1->FileName = "C:\\Documents and Settings\\Data\\map\\sound2.wav";
  Form1->MediaPlayer1->Open();
  Form1->MediaPlayer1->Play();
 }
 else if(d6_sn == "3") {
  Form1->MediaPlayer1->FileName = "C:\\Documents and Settings\\Data\\map\\sound3.wav";
  Form1->MediaPlayer1->Open();
  Form1->MediaPlayer1->Play();
 }
 else if(d6_sn == "4") {
  Form1->MediaPlayer1->FileName = "C:\\Documents and Settings\\Data\\map\\sound4.wav";
  Form1->MediaPlayer1->Open();
  Form1->MediaPlayer1->Play();
 }
 else{
  Form1->MediaPlayer1->FileName = "C:\\Documents and Settings\\Data\\map\\sound5.wav";
  Form1->MediaPlayer1->Open();
  Form1->MediaPlayer1->Play();
 }
}

if(check=="55"||check=="4F"||(TempBuf[17]>=64 && TempBuf[17]<=77))
{
  if(TempBuf[17]==64)
  {
     if(realstrdata=="4040 1C48 40" || realstrdata=="4040 1C50 40" || realstrdata=="5040 1C40 40" || realstrdata=="6040 1C40 40")
       display=1;
     else display=0;
  }
  else display=1;
}
else display=0;

if(display==1) // 자동으로 출력해야 할때..
{
if(Form1->Query1->Active) Form1->Query1->Close();
Form1->Query1->SQL->Clear();
Form1->Query1->SQL->Add("select * from jiryung.db");
Form1->Query1->ExecSQL();
Form1->Query1->Open();
jnum = Form1->Query1->RecordCount;

if(Form1->Query1->Active) Form1->Query1->Close(); // dispaly and save.
Form1->Query1->SQL->Clear();
Form1->Query1->SQL->Add("insert into jiryung.db");
Form1->Query1->SQL->Add("(ID, T, 고객번호, LLI_번호, 내용, 날짜,시간, 상호, 표시, C_N, 처리내용)");
Form1->Query1->SQL->Add("Values");
Form1->Query1->SQL->Add("('" + IntToStr(jnum+1) + "','R', '"+ gogac +"','" + d1_lli +"',");
Form1->Query1->SQL->Add("'" + d3_nea +"','" + t_data1 + "', '" + t_data2 + "',");

if(cum_data!=0)
Form1->Query1->SQL->Add("'" + d7_sang +"', '" + d4_py +"','" + d5_cn +"', 'X')");
else Form1->Query1->SQL->Add("'-', '" + d4_py +"','" + d5_cn +"', 'X')");

Form1->Query1->ExecSQL();

Form1->Query1->SQL->Clear();
Form1->Query1->SQL->Add("select * from jiryung.db");
Form1->Query1->Open();
Form1->Query1->Close();

Form1->Edit13->Text = "";
Form1->Edit13->Text = gogac;

if(cum_data!=0)
{
  if(Form1->Query4->Active) Form1->Query4->Close();

  Form1->Query4->SQL->Clear();
  Form1->Query4->SQL->Add("select * from custom.DB");
  Form1->Query4->ExecSQL();
  Form1->Query4->Open();

  TLocateOptions Options;
  Options = Options << loCaseInsensitive;

  if(Form1->Query4->Locate("고객번호",Form1->Edit13->Text,Options)) //함수형식: Locate("찾을 필드명","찾을 내용",Options)
  {
     Form1->Panel3->Caption = Form1->Query4->FieldByName("성명")->AsString + "(" + Form1->Query4->FieldByName("상호")->AsString + ")" + "님의  상세정보입니다";

     Form1->Edit1->Text  = Form1->Query4->FieldByName("고객번호")->AsString;
     Form1->Edit2->Text  = Form1->Query4->FieldByName("성명")->AsString;

     Form1->Edit3->Text  = Form1->Query4->FieldByName("상호")->AsString;
     Form1->Edit4->Text  = Form1->Query4->FieldByName("주소")->AsString;
     Form1->Edit5->Text  = Form1->Query4->FieldByName("전화1")->AsString;

     Form1->Edit6->Text  = Form1->Query4->FieldByName("전화2")->AsString;
     Form1->Edit7->Text  = Form1->Query4->FieldByName("핸드폰")->AsString;
     Form1->Edit8->Text  = Form1->Query4->FieldByName("관할경찰서")->AsString;
     Form1->Edit9->Text  = Form1->Query4->FieldByName("경찰서_TEL")->AsString;
     Form1->Edit10->Text = Form1->Query4->FieldByName("관할파출소")->AsString;
     Form1->Edit11->Text = Form1->Query4->FieldByName("파출소_TEL")->AsString;
     Form1->Edit12->Text = Form1->Query4->FieldByName("고객구분")->AsString;
     Form1->Edit17->Text = Form1->Query4->FieldByName("LLI_번호")->AsString;

     if(Form1->Query4->FieldByName("경계시간")->AsString=="" && Form1->Query4->FieldByName("경계분")->AsString=="")
       Form1->Edit14->Text = "시간이 지정되지 않았습니다.";
     else
       Form1->Edit14->Text = Form1->Query4->FieldByName("경계시간")->AsString + "시 " + Form1->Query4->FieldByName("경계분")->AsString + "분";

     if(Form1->Query4->FieldByName("해제시간")->AsString=="" && Form1->Query4->FieldByName("해제분")->AsString=="")
       Form1->Edit15->Text = "시간이 지정되지 않았습니다.";
     else
       Form1->Edit15->Text = Form1->Query4->FieldByName("해제시간")->AsString + "시 " + Form1->Query4->FieldByName("해제분")->AsString + "분";

     if(Form1->Query4->FieldByName("공휴일")->AsString=="" ||Form1->Query4->FieldByName("공휴일")->AsString=="N") Form1->Edit16->Text = "NO";
     else Form1->Edit16->Text = "YES(경계)";

   Form1->StringGrid1->Cells[1][1] =  Form1->Query4->FieldByName("KEY1_NAME")->AsString;
   Form1->StringGrid1->Cells[2][1] =  Form1->Query4->FieldByName("KEY1_NUM")->AsString;
   Form1->StringGrid1->Cells[3][1] =  Form1->Query4->FieldByName("KEY1_T")->AsString;
   Form1->StringGrid1->Cells[1][2] =  Form1->Query4->FieldByName("KEY2_NAME")->AsString;
   Form1->StringGrid1->Cells[2][2] =  Form1->Query4->FieldByName("KEY2_NUM")->AsString;
   Form1->StringGrid1->Cells[3][2] =  Form1->Query4->FieldByName("KEY2_T")->AsString;
   Form1->StringGrid1->Cells[1][3] =  Form1->Query4->FieldByName("KEY3_NAME")->AsString;
   Form1->StringGrid1->Cells[2][3] =  Form1->Query4->FieldByName("KEY3_NUM")->AsString;
   Form1->StringGrid1->Cells[3][3] =  Form1->Query4->FieldByName("KEY3_T")->AsString;
   Form1->StringGrid1->Cells[1][4] =  Form1->Query4->FieldByName("KEY4_NAME")->AsString;
   Form1->StringGrid1->Cells[2][4] =  Form1->Query4->FieldByName("KEY4_NUM")->AsString;
   Form1->StringGrid1->Cells[3][4] =  Form1->Query4->FieldByName("KEY4_T")->AsString;
   Form1->StringGrid1->Cells[1][5] =  Form1->Query4->FieldByName("KEY5_NAME")->AsString;
   Form1->StringGrid1->Cells[2][5] =  Form1->Query4->FieldByName("KEY5_NUM")->AsString;
   Form1->StringGrid1->Cells[3][5] =  Form1->Query4->FieldByName("KEY5_T")->AsString;
   Form1->StringGrid1->Cells[1][6] =  Form1->Query4->FieldByName("KEY6_NAME")->AsString;
   Form1->StringGrid1->Cells[2][6] =  Form1->Query4->FieldByName("KEY6_NUM")->AsString;
   Form1->StringGrid1->Cells[3][6] =  Form1->Query4->FieldByName("KEY6_T")->AsString;
   Form1->StringGrid1->Cells[1][7] =  Form1->Query4->FieldByName("KEY7_NAME")->AsString;
   Form1->StringGrid1->Cells[2][7] =  Form1->Query4->FieldByName("KEY7_NUM")->AsString;
   Form1->StringGrid1->Cells[3][7] =  Form1->Query4->FieldByName("KEY7_T")->AsString;
   Form1->StringGrid1->Cells[1][8] =  Form1->Query4->FieldByName("KEY8_NAME")->AsString;
   Form1->StringGrid1->Cells[2][8] =  Form1->Query4->FieldByName("KEY8_NUM")->AsString;
   Form1->StringGrid1->Cells[3][8] =  Form1->Query4->FieldByName("KEY8_T")->AsString;
   Form1->StringGrid1->Cells[1][9] =  Form1->Query4->FieldByName("KEY9_NAME")->AsString;
   Form1->StringGrid1->Cells[2][9] =  Form1->Query4->FieldByName("KEY9_NUM")->AsString;
   Form1->StringGrid1->Cells[3][9] =  Form1->Query4->FieldByName("KEY9_T")->AsString;
   Form1->StringGrid1->Cells[1][10] =  Form1->Query4->FieldByName("KEY10_NAME")->AsString;
   Form1->StringGrid1->Cells[2][10] =  Form1->Query4->FieldByName("KEY10_NUM")->AsString;
   Form1->StringGrid1->Cells[3][10] =  Form1->Query4->FieldByName("KEY10_T")->AsString;
   Form1->StringGrid1->Cells[1][11] =  Form1->Query4->FieldByName("KEY11_NAME")->AsString;
   Form1->StringGrid1->Cells[2][11] =  Form1->Query4->FieldByName("KEY11_NUM")->AsString;
   Form1->StringGrid1->Cells[3][11] =  Form1->Query4->FieldByName("KEY11_T")->AsString;
   Form1->StringGrid1->Cells[1][12] =  Form1->Query4->FieldByName("KEY12_NAME")->AsString;
   Form1->StringGrid1->Cells[2][12] =  Form1->Query4->FieldByName("KEY12_NUM")->AsString;
   Form1->StringGrid1->Cells[3][12] =  Form1->Query4->FieldByName("KEY12_T")->AsString;
   Form1->StringGrid1->Cells[1][13] =  Form1->Query4->FieldByName("KEY13_NAME")->AsString;
   Form1->StringGrid1->Cells[2][13] =  Form1->Query4->FieldByName("KEY13_NUM")->AsString;
   Form1->StringGrid1->Cells[3][13] =  Form1->Query4->FieldByName("KEY13_T")->AsString;
   Form1->StringGrid1->Cells[1][14] =  Form1->Query4->FieldByName("KEY14_NAME")->AsString;
   Form1->StringGrid1->Cells[2][14] =  Form1->Query4->FieldByName("KEY14_NUM")->AsString;
   Form1->StringGrid1->Cells[3][14] =  Form1->Query4->FieldByName("KEY14_T")->AsString;
   Form1->StringGrid1->Cells[1][15] =  Form1->Query4->FieldByName("KEY15_NAME")->AsString;
   Form1->StringGrid1->Cells[2][15] =  Form1->Query4->FieldByName("KEY15_NUM")->AsString;
   Form1->StringGrid1->Cells[3][15] =  Form1->Query4->FieldByName("KEY15_T")->AsString;
   Form1->StringGrid1->Cells[1][16] =  Form1->Query4->FieldByName("KEY16_NAME")->AsString;
   Form1->StringGrid1->Cells[2][16] =  Form1->Query4->FieldByName("KEY16_NUM")->AsString;
   Form1->StringGrid1->Cells[3][16] =  Form1->Query4->FieldByName("KEY16_T")->AsString;

   for(i=1; i<=4; i++) {
    Form1->StringGrid2->Cells[1][i] =  Form1->Query4->FieldByName(("R"+IntToStr(i)))->AsString;
    Form1->StringGrid3->Cells[1][i] =  Form1->Query4->FieldByName(("R"+IntToStr(i+4)))->AsString;
   }

   Form1->Memo1->Lines->LoadFromFile("C:\\Documents and Settings\\Data\\detail_inf\\" + Form1->Edit13->Text + ".txt");
   Form1->Query4->Close();
 }
}
else {
  Form1->Edit1->Text = "";
  Form1->Edit2->Text = "미등록 고객입니다";
  Form1->Edit3->Text = "";
  Form1->Edit4->Text = "";
  Form1->Edit5->Text = "";
  Form1->Edit6->Text = "";
  Form1->Edit7->Text = "";
  Form1->Edit8->Text = "";
  Form1->Edit9->Text = "";
  Form1->Edit10->Text = "";
  Form1->Edit11->Text = "";
  Form1->Edit12->Text = "";
  Form1->Edit14->Text = "";
  Form1->Edit15->Text = "";
  Form1->Edit16->Text = "";
  Form1->Edit17->Text = "";

  for(i=1; i<=16; i++) {
    Form1->StringGrid1->Cells[1][i] = "";
    Form1->StringGrid1->Cells[2][i] = "";
    Form1->StringGrid1->Cells[3][i] = "";
  }

  for(i=1; i<=4; i++) {
    Form1->StringGrid2->Cells[1][i] = "";
    Form1->StringGrid3->Cells[1][i] = "";
  }
  Form1->Memo1->Text = "";
}

if(Form1->PageControl1->ActivePageIndex == 0)
{
    if(Form1->Query5->Active) Form1->Query5->Close();
       Form1->Query5->SQL->Clear();
       Form1->Query5->SQL->Add("select * from nowreport.db");
       Form1->Query5->SQL->Add("where 고객번호 = '" + Form1->Edit13->Text + "'");
       Form1->Query5->ExecSQL();
       Form1->Query5->Open();
       Form1->Query5->Last();
}
} // 자동출력일때...    and 지령신호리스트 추가.
} // 데이타 처리..
} // 종료..