감사합니다. 어떻게 하다보니 해결 했네요...

혹 저같이 델파이 첨 하시는 분들을 위해 해결 방안을 적어놓았읍니다.

이것또한 고수님들의 도움이 있지 않았나 생각됩니다.

혹 더 좋은 방법이 있으시면 좀 알려 주십시요..



//Primary Key에 해당하는 ID 및 관리번호를 자동으로 넣기

procedure TFront.Query1AfterInsert(DataSet: TDataSet);

var

CurDate : TDateTime;

Year, Month, Day, Hour, Min, Sec, Msec : Word;

StrID : string;

begin

CurDate := Now;

DecodeDate(curDate, Year, Month, Day);

DecodeTime(curDate, Hour, Min, Sec, Msec);

StrID := IntToStr(Year)+IntToStr(Month)+IntToStr(Day)+

IntToStr(Hour)+IntToStr(Min)+IntToStr(Sec);

// ID 자동으로 넣기

Query1.FieldByName('ID').AsString := StrID;

// edit1.text를 관리번호에 자동으로 넣기

Query1.FieldByName('SuperNo').AsString := edit1.text;

end;







아기코알라 wrote:

> 안녕하세요 고수님들...

> 계속 도움만 받아 죄송하네요..

> 워낙 초보다 보니 답변해줄 능력도 안되고....

> 언젠가는 도움이 되는 날을 기다리며 고수님들의 도움을 청하고자 합니다..

>

> Delphi 5

> DB : Paradox 7

> DBGrid, Query, DataSource,

> UpdateSQL로 삽입,수정,삭제를 행하고 있읍니다.

>

> 첫번째 필드"ID " 두번째 "관리번호", 그리고 여러 필드가 있읍니다.

> UpDateSQL에서 Primary Key는 "ID" 만 지정을 했읍니다..

>

> Data를 입력시킬 때 저장 버턴을 사용하는데 "ID"를 날짜와 시각을 이용해

> 자동적으로 유일한 값을 가지게 할려고 합니다.

>

> Procedure ( 어느 프로지져에 입력해야 하나요?_)

> var

> CurDate : TDateTime;

> Year, Month, Day, Hour, Min, Sec, Msec : Word;

> StrID : String;

> begin

> CurDate := now;

> DecodeDate(CurDate, Year, Month, Day);

> DecodeDate(CurDate, Hour, Min, Sec, MSec);

> StrID := IntToStr(Year)+IntToStr(Month)+IntToStr(Day)+

> IntToStr(Hour)+IntToStr(Min)+IntToStr(Sec);

>

> ?????????????????

> end;

>

> DBGrid에 직업 Data를 입력할 때 즉 레코드가 하나씩 증가할 때 마다

> StrID 값을 "ID"에 자동 입력할려고 하는데 잘 모르겠습니다.

> 참 그리고 위 내용을 어느 Procedure에 입력해야 하는지도 좀 알려 주십시요

>

> 제가 가지고 있는 3권의 책과 이 곳 Q&A를 뒤져도 적당한 해답이 없네요

> 고수님의 고견을 기다리겠읍니다.

>

> 눈이 많이 내리내렸네요 빙판 조심하시고 항상 즐거운 나날 되십시요...

>

>