올려주신 답변 잘 보았습니다.

하지만 워낙 딸리는 실력이라 제대로 응용을 못하겠군요.

아래와 같이 변경하면 되는지요?

그리고 콤포넌트 값 변경해서 집어넣는건 어느 위치에다 넣어야 하나요?

계속 에러가 나는데 전혀 감을 못잡겠군요.

답답하다 생각마시고 답해주시면 감사하겠습니다.


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('(no1 := Mgu.ItemIndex + 1)');
  Sql.add('(no2:=mgiho.text,no1:=mgu.text,cont:=Mname.text)');
  ExecSql;
  end;
  end;
end;
end;