어케해야하져..

상호입력을 중복을 하지 못하게 하려면.. 일단.디비에 유일키는 주어주었음..

지금 안되는건...try만되구.. except문으로 안넘어감..

중복되어두...

알려주세여...


procedure TForm1.SainputClick(Sender: TObject);
var
    m_msg : string;
begin
    if ((Sangho_dbe.Text)='') then
    begin
        messageDlg('상호가 빠지면 입력이 안됩니다.' + Chr(13) + '상호를 입력하세여',mtError,[mbyes],0);
        Sanum_medt.SetFocus;
        exit;
    end;
        Datam.DM.master_tbl.Append; //마스터디비 추가
        DB_sa;  //데이터디비에 넣어줌
        Datam.DM.master_tbl.post;
    try

        M_msg := '사업자를 다시 입력하시겠습니까?';
        if application.MessageBox (pchar(M_msg),'정보',mb_yesno+mb_iconinformation) = IDYES then
        begin
                m_EditClear; //마스터클리어
                d_EditClear; //디테일클리어
                Sanum_medt.SetFocus;
        end
        else
            date_medt.setfocus; //추가하지않을경우 디테일디비입력하러감..

    except //중복되면 절대안되는뎅.. 알려주세여...!~!~!~!~!
        Datam.DM.master_tbl.cancel;
        messagedlg('상호 중복입니다.',mtinformation,[mbok],0);
        m_EditClear;
        d_EditClear;
        Sanum_medt.SetFocus;
    end;

end;


이유를 지금까지 모르겠음.. 고수들의 많은 가르침이 필요``절실~!~