a와b테이블이있구여

edit창에서 검색을 해서 a와b의 테이블에 같은 번호가있으면 b테이블의 내용을 리스트박스와 에디트창에 보여주는것입니다.a테이블에만 내용이 있으면 번호와 이름만 출력이되구여

a테이블은 번호 이름 주소 전화번호

b테이블은 번호 이름 날짜 시간 메모

이렇게 구성이 되있걸랑여.



procedure TfrmReserve.Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

var

ListItem: TListItem;

begin

if key = VK_return then

begin



Listview1.Items.Clear ;

with ADOQuery1 do begin

Close;

with SQL do begin

Clear;

Add ('select 번호,이름 from a where번호 = :번호');

parameters.ParamByName('번호').value := Edit1.text;

end;

open;

First;

Listview1.Items.BeginUpdate;

while not EOF do begin

ListItem:=ListView1.Items.Add;

ListItem.Caption:=ADOQuery1.FieldByname ('번호').AsString;

ListItem.SubItems.Add(ADOQuery1.FieldByname('이름').AsString);

Edit2.Text:=(Listitem.SubItems[0]);

Next;

end;

ListView1.Items.EndUpdate;

end;

end;

end;



이런식으로a테이블 검색하는것만 해놓다보니 추가사항 입력하구선 b테이블에 저장하구 b테이블에 저장된 내용을보려니 막히더군여...



질문내용이 허접한가여?

고수님들의 답변 바랍니다.