가장 바람직한 방법은 DB에 Unique Constraint를 부여하는 것인데

어떤 DB를 어떻게 연결해서 쓰고 계신지 모르므로 구체적으로

설명해드리기 곤란하네요.

하여튼 DB 차원에서 막아놓는 것이 제일 바람직하다는 것만 알려드립니다.

mad wrote:

> 회원등록폼에서 주키는 회원번호인데 다른 번호필드가 있습니다.

> 그런데 전체 레코드에서 이 번호필드는 독립적이어야 합니다.

> 즉 겹치면 안되죠.

> 저장시 메세지를 보내고 저장않되게 해야 합니다.

> 겹치면 않된다고...

>

> 어떻게 하죠???

여러가지 방법이 있겠지만 이런 방법도 하나의 예가 될 수 있겠네요.



신규입력 후 확인시에 검사만 한다고 하면 쿼리 한개 놓고 확인버튼에



with Query1 do begin

close;

sql.clear;

select 다른번호 from tablename;

where 다른번호=:다른번호;

parambyname('다른번호').asstring := 다른번호들어있는 디비에디트.text;

open;

close;



if Query1.recordcount <> 0 then begin

showmessage('다른번호가 존재하는 번호입니다.');

exit;

end;



이런 코딩을 넣어주시면 되겠군요.





mad wrote:

> 회원등록폼에서 주키는 회원번호인데 다른 번호필드가 있습니다.

> 그런데 전체 레코드에서 이 번호필드는 독립적이어야 합니다.

> 즉 겹치면 안되죠.

> 저장시 메세지를 보내고 저장않되게 해야 합니다.

> 겹치면 않된다고...

>

> 어떻게 하죠???

////////////////////////////////////////////////////////

procedure TSearchDlg.SearchButtonClick(Sender: TObject);

begin

// if not Table1.Dataset.Locate(OrderCombo.Text,

// [loCaseInsensitive, loPartialKey]) then

// MessageDlg('No matching record found.', mtInformation, [mbOK], 0);

//

// or 2 개이상 Field를 Index를 설정했을 때

if not Table.Dataset.Locate(OrderCombo.Text, SearchEd.Text,

[loCaseInsensitive, loPartialKey]) then

MessageDlg('No matching record found.', mtInformation, [mbOK], 0);

// Table1.FindKey([KeyValues]);

// Ex

// Table1.IndexFieldNames:='LicenseNo1,TierNo';

// LicenseNo := Table1.FieldByName('LicenseNo').AsInteger;

// Table1.FindKey([LicenseNo]);

// Table1.FindKey([LicenseNo1,TierNo,SubjectNo1);

end;