설명이 부족하지만 많은 답변을 고수님들께 구하고자 합니다.

전 Delphi5와 Paradox DB를 사용하고 있으며 DBGrid에서 자료를 입력받은 프로그램을

만들려고 합니다.



Table 구조는 다음과 같습니다.

kind A(1), // key

code A(5), // key

name A(20) // data field

구성은 매우 간단합니다. Primary Key로 kind와 Code 2개의 필드가 존재합니다.

이 중에서 Kind는 자동적으로 입력이 되길 바라는 Field입니다.



프로그램 작성 방법은 다음과 같습니다.

1. Form 상에 Edit Box로 Kind를 입력받습니다.

2. 입력 받은 Kind를 기준으로 Button을 Clidk하면 Table을 Filter하여 Data중에

동일한 kind만을 추출하여 DBGrid에 보여지게 됩니다. 물론 DBGrid상에는

Kind Field를 제외한 Code, Name만을 보여주게 합니다.

3. 이제부터 자료의 입력을 받게 되면 입력받은 Code, Name과 더불어 Edit Box에서

입력한 Kind값을 같이 등록하고자 합니다.



예를 들어

Kind : '1'

Code : 'A0001'

Name : '서울'

위와 같다면 사용자가 입력하는것은 'A0001'과 '서울'만을 DBGrid에서 입력하겠죠.

그럼 프로그램 내부에서 Kind 값인 '1'을 포함하여 자료가 등록되게 할려고 합니다.



제 질문의 내용을 이해하실런지요?



다음은 Table을 Filter하는 부분입니다.



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

procedure TFaUsr.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);

begin

if edit1.Text <> '' then begin

if Table1.FieldByName('kind').AsString = edit1.Text then

Accept := True

else Accept := False;

end;

end;