'이미 존재하는 제품인지를 검사한후' 를 염치없지만 가르쳐 주시겠어요?^^;

부탁합니다. 외면하지 마세요. TT

검사를 어떻게 하는지 잘 몰라서....



아! 테이블이 아닌 쿼리입니당.SQL



-나의 등록소스입니당. 도움이 될지^^.

procedure TForm2.Reg_putClick(Sender: TObject);

begin

with custom_table do begin

disablecontrols ;

if edit_custom then begin

find_custom;

edit;

end else insert ;

* fieldbyname('section').asstring := Sec_edit.text ;

* fieldbyname('item').asstring := item_edit.text ;

* fieldbyname('spec').asstring := spec_edit.text ;

fieldbyname('outprice').asstring := floattostr(outprice_edit.value) ;

fieldbyname('inprice').asstring := floattostr(inprice_edit.value) ;

합*^^* -> fieldbyname('store').asstring := floattoStr(store_edit.value) ;

fieldbyname('note').asstring := note_edit.text ;

post ;

enablecontrols ;

end ;

reload_custom;

cancel_putClick(Sender);

edit_custom := false;

end;