볼랜드포럼: key vioaton 문제점

	C++Builder \| Delphi \| FireMonkey \| C/C++ \| Free Pascal \| Firebird

경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지

C++빌더 포럼

볼랜드포럼 홈

회원 메뉴

C++빌더 Q&A		C++Builder Programming Q&A

[19125] key vioaton 문제점
모라 [goodlsw]	660 읽음 2002-06-05 21:00

스케쥴 관리 프로그램에서 소스 수정후 컴파일하니 key vioatoion에러가 나오네요.

디버그시 DataModule3->Table1->Post();에서 관련 에러가 뜨는데,

어디에서 문제점이 발생했는지 알 수 있을까요? DB에 입력시 문제인 것 같은데,

아무리봐도 문제점을 모르겠어요..도와주시기 바랍니다

------------------------------------------------------------------------------------------
    AnsiString Tmp;
    AnsiString tmp2,tmp3;

    DataModule3->Table1->SetKey();
   DataModule3->Table1->FieldByName("Year")->AsString=Form1->Cal_CurrMonth->Year;
   // DataModule3->Table1->FieldByName("Month")->AsString=Form1->Cal_CurrMonth->Month;
   // DataModule3->Table1->FieldByName("Day")->AsString=Form1->Cal_CurrMonth->Day;
    DataModule3->Table1->GotoKey();

    Tmp = "c:\\Temp\\" + Form1->SchYear + Form1->SchMonth + Form1->SchDay + Form1->SchTime + ".txt";
    Memo1->Lines->SaveToFile(Tmp);
           tmp2=StrToInt(DataModule3->Table1->FieldByName("Day")->AsString);
           tmp3=StrToInt(IntToStr(Form1->Cal_CurrMonth->Day));
          //DataModule3->Table1->First();
          while (tmp2==tmp3) {
              if (DataModule3->Table1->FieldByName("Time")->AsString == Form1->SchTime) {
                 DataModule3->Table1->Edit();
                 break;
              }
              if(DataModule3->Table1->Eof) break;
              DataModule3->Table1->Next();

          }
          DataModule3->Table1->Insert();
          DataModule3->Table1->FieldByName("Year")->AsString = IntToStr(Form1->Cal_CurrMonth->Year);
          DataModule3->Table1->FieldByName("Month")->AsString = IntToStr(Form1->Cal_CurrMonth->Month);
          DataModule3->Table1->FieldByName("Day")->AsString = IntToStr(Form1->Cal_CurrMonth->Day);
          DataModule3->Table1->FieldByName("Time")->AsString = Form1->SchTime;
          DataModule3->Table1->FieldByName("StartTime")->AsString = IntToStr(Cbo_Start->ItemIndex);
          DataModule3->Table1->FieldByName("EndTime")->AsString = IntToStr(Cbo_End->ItemIndex);
          DataModule3->Table1->FieldByName("TiTle")->AsString = Edt_Title->Text;
          DataModule3->Table1->FieldByName("MemoFile")->AsString=Form1->SchYear + Form1->SchMonth + Form1->SchDay + Form1->SchTime + ".txt";
             AnsiString Tmp;
    AnsiString tmp2,tmp3;

    DataModule3->Table1->SetKey();
   DataModule3->Table1->FieldByName("Year")->AsString=Form1->Cal_CurrMonth->Year;
   // DataModule3->Table1->FieldByName("Month")->AsString=Form1->Cal_CurrMonth->Month;
   // DataModule3->Table1->FieldByName("Day")->AsString=Form1->Cal_CurrMonth->Day;
    DataModule3->Table1->GotoKey();

    Tmp = "c:\\Temp\\" + Form1->SchYear + Form1->SchMonth + Form1->SchDay + Form1->SchTime + ".txt";
    Memo1->Lines->SaveToFile(Tmp);
           tmp2=StrToInt(DataModule3->Table1->FieldByName("Day")->AsString);
           tmp3=StrToInt(IntToStr(Form1->Cal_CurrMonth->Day));
          //DataModule3->Table1->First();
          while (tmp2==tmp3) {
              if (DataModule3->Table1->FieldByName("Time")->AsString == Form1->SchTime) {
                 DataModule3->Table1->Edit();
                 break;
              }
              if(DataModule3->Table1->Eof) break;
              DataModule3->Table1->Next();

          }
          DataModule3->Table1->Insert();
          DataModule3->Table1->FieldByName("Year")->AsString = IntToStr(Form1->Cal_CurrMonth->Year);
          DataModule3->Table1->FieldByName("Month")->AsString = IntToStr(Form1->Cal_CurrMonth->Month);
          DataModule3->Table1->FieldByName("Day")->AsString = IntToStr(Form1->Cal_CurrMonth->Day);
          DataModule3->Table1->FieldByName("Time")->AsString = Form1->SchTime;
          DataModule3->Table1->FieldByName("StartTime")->AsString = IntToStr(Cbo_Start->ItemIndex);
          DataModule3->Table1->FieldByName("EndTime")->AsString = IntToStr(Cbo_End->ItemIndex);
          DataModule3->Table1->FieldByName("TiTle")->AsString = Edt_Title->Text;
          DataModule3->Table1->FieldByName("MemoFile")->AsString=Form1->SchYear + Form1->SchMonth + Form1->SchDay + Form1->SchTime + ".txt";
          DataModule3->Table1->Post();

Trackback : http://cbuilder.borlandforum.com/impboard/impboard.dll/trackback?sn=34886