Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[10048] [질문] DBCOMBOBOX 질문입니다.
shk [] 1119 읽음    2005-03-04 14:30
안녕하세요 델파이를 시작한지 얼마 안된 초보입니다.

그림과 같이 콤보 박스를 선택하면 나머지 에디트박스에 그 레코드를 표시 하려고 합니다;;

책을 봐도 도무지 모르겠습니다 ㅠㅠ

고수님들 제발 가르쳐 주세요 ㅠㅠ

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.

도와주세요 ㅠㅠ

+ -

관련 글 리스트
10048 [질문] DBCOMBOBOX 질문입니다. shk 1119 2005/03/04
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.