답변이 올라오지 않기에 제가 올린 소스를 다시한번 살펴봤더니

정말 지저분하게도 올렸더군요.

다시 필요없는거 정리해서 올리니 여러 고수님들의 가르침 부탁드립니다.

제가 하고자 하는것은 edit 박스의 내용을 DB에 담고자 하는 것입니다.

DB 콤포넌트는 Database 와 Query를 썼습니다.

DBGRID는 안쓰고 대신 리스트박스를 썼고요.

먼저 edit 박스의 내용을 검색(필드명:no2)해서 중복되는 데이타가 없을때

edit박스의 내용을 DB에 저장하는것 입니다.

edit박스는 총 2개입니다.

Mgiho.text  , Mname.text

그리고 Mgu.text는 콤보박스입니다.

Mgu의 Item은 A,B,C 세가지인데 이것을 DB에 저장할때는

숫자 1,2,3으로 저장하고 싶고요.(이건 흉내도 못내겠군요.)

많은 조언 부탁드립니다.





procedure TFrmJohap.BtnSaveClick(Sender: TObject);

begin

with Query1 do

    begin                   // 이름을 완벽하게 입력하였을 경우 SQL

      Sql.BeginUpdate;

      Sql.clear;

      Sql.add('select no2,cont');

      Sql.add('from result');

      Sql.add('where no2 like :no2');

      Sql.EndUpdate;

      ParamByName('no2').AsString :=  Mgiho.Text + '%';

      Open;

    if RecordCount = 0 then      // 찾아온 자료가 없으면 신규이다.

  if IDYES = Application.MessageBox('저장하시겠습니까?','저장확인',
                                     mb_YESNO + mb_ICONQUESTION) then          
//저장전 확인박스

  begin

  with query1 do

  begin

  sql.add('insert into result');

  sql.add('(no2,no1,cont)');

  sql.add('values');

  Sql.add('(:mgiho.text,:mgu.text,:Mname.text)');

  ExecSql;

  end;

  end;

end;

end;