|
TDateTime CurDate;
unsigned short Year,Month,Day,Hour,Min,Sec,MSec;
AnsiString StrID;
CurDate = Now();
//시스템의 현재 시간을 알아내어 CurDate 변수에 대입한다.
DecodeDate(CurDate,Year,Month,Day);
//CurDate 변수의 일자 정보를 년,월,일로 분리하여 Year,Month,Day 변수에 대입한다.
DecodeTime(CurDate,Hour,Min,Sec,MSec);
//CurDate 변수의 시간 정보를 시,분,초, 1/1000초로 분리하여 Hour,Min,Sec,Msec변수에 대입한다.
StrID = IntToStr(Year)+IntToStr(Month)+IntToStr(Day)+IntToStr(Hour)+
IntToStr(Min)+IntToStr(Sec);
//일자와 시간으로 분리되어 있는 각 변수를 이용하여 유일한 ID을 만든다.
//DataModule3->Tbl_Entrant->Open(); //처음부터 열어놨습니다.
//entrant 테이블을 연다.
DataModule3->Tbl_Entrant->Insert();
//entrant 테이블에 레코드를 추가할 준비를 한다.
DataModule3->Tbl_Entrant->FieldByName("GID")->AsString = Frm_Main->GameID;
DataModule3->Tbl_Entrant->FieldByName("ID")->AsString = StrID;
DataModule3->Tbl_Entrant->Post();
//entrant 테이블에 새로운 출전자 등록이 끝났다는 메시지를 보낸다.
DataModule3->Qry_Entrant->Close();
DataModule3->Qry_Entrant->Open();
//entrant 테이블에서 변경된 출전자 목록을 다시 수신받기 위해 Qry_Entrant 컴포넌트를
//닫은 후 다시 오픈한다.
이렇게 되있는데 그림에서 보듯이 한줄씩 데이타가어긋납니다... 정말이지 황당하네요
제가 잡으려 했지만 도대체 어서 잘못이 생겻는지 모르겠습니다... 도와주세요
그럼 좋은 하루 되세요
|