안녕하세요 델파이를 시작한지 얼마 안된 초보입니다.
그림과 같이 콤보 박스를 선택하면 나머지 에디트박스에 그 레코드를 표시 하려고 합니다;;
책을 봐도 도무지 모르겠습니다 ㅠㅠ
고수님들 제발 가르쳐 주세요 ㅠㅠ
procedure Tmain.FormCreate(Sender: TObject);
begin
with ibquery1 do
begin
close;
sql.clear;
sql.add('select distinct(itemno) from tbldata');
open;
end;
ibquery1.first;
while not ibquery1.Eof do
begin
cbitemno.Items.Add(ibquery1.fieldbyname('itemno').asString) ;
ibQuery1.Next ;
end ;
end; //여기까지 콤보박스에 데이터를 넣는 부분입니다.
procedure Tmain.cbitemnoChange(Sender: TObject);
begin
with ibquery2 do
begin
SQL.Clear;
sql.add('select * from tbldata');
sql.add('where itemno = "+cbitemno.Text+" ');
if not prepared then prepare;
open;
end;
edplant.Text:=ibquery2.fieldByName('plant').asstring;
// 이밑으로 내용을 표현하려고 합니다.
end;
end.
도와주세요 ㅠㅠ
|