with Query1 do

begin

SQL.CLEAR;

SQL.ADD('SELECT * FROM TABLE1 ');

SQL.ADD('WHERE AAA = :AAA ');

ParamByName('aaa').asinteger := strtoint(edit1.text);

Open;

if not eof then

begin

edit2.text := FieldByName('bbb').asstring;

edit3.text := FieldByName('ccc').asstring;

edit4.text := FieldByName('ddd').asstring;

end else showmessage('해당 조건의 Data가 존재하지 않습니다. ');

end;



초보임다 wrote:

> DB에서 쿼리한 데이타를 EDIT로 뿌려주는 방법을 알고 싶습니다.

>

> 일단 EDIT 를 4개 만들고 EDIT1 에 4자리 숫자를 넣어서 엔터를 쳤을때(ONENTER 이벤트) DB에서 EDIT1에 입력한 4자리 숫자에 적합한 데이타를 쿼리해서 나머지 3개의

> EDIT에 각각의 값을 뿌려주는 방법을 알고 싶습니다.

>

>

일단 이벤트의 On Enter는 사용자가 키를 엔터를 쳤을때 처리하는 이벤트가 아닙니다.

여기서 이 이벤트는 포커스가 들어왔을때 실행되는 이벤트입니다.

엔터를 눌렸을때 처리할려면 Key Press나 Key Down의 이벤트에서 처리하여야 합니다.



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if Key = #13 then begin // 여기서 #13은 엔터키값입니다.

// 이 부분에서 Query를 처리하시면 됩니다.

end;

end;



즐코하세요...^^



초보임다 wrote:

> DB에서 쿼리한 데이타를 EDIT로 뿌려주는 방법을 알고 싶습니다.

>

> 일단 EDIT 를 4개 만들고 EDIT1 에 4자리 숫자를 넣어서 엔터를 쳤을때(ONENTER 이벤트) DB에서 EDIT1에 입력한 4자리 숫자에 적합한 데이타를 쿼리해서 나머지 3개의

> EDIT에 각각의 값을 뿌려주는 방법을 알고 싶습니다.

>

>