procedure TForm1.BitBtn1Click(Sender: TObject);

var ls_Edit_name : String;

begin

ls_Edit_name := Trim(Edit3.Text);

with Query2 do begin

Close;

SQL.Clear;

SQL.Add('SELECT count(*) as ccount ');

SQL.Add('FROM Sustomers ');

SQL.Add('WHERE CstmrName =:v_cnm ');

ParamByName('v_cnm').AsString := ls_Edit_name;

Open;

if FieldByName('ccount').AsFloat > 0 then

begin

ShowMessage('이미 등록된 거래처명입니다');

Exit;

end;

end;



위 처럼 count(*)만 해주면 시스템이 자동적으로 이름을 가져오는데

그 이름을 찾아서 쓸려면 귀찮죠?

그래서 이름을 ccount라고 재명명해주고

프로그램에서 사용하면 됩니다.



또 다른 방법은



Close;

SQL.Clear;

SQL.Add('SELECT * FROM Sustomers ');

SQL.Add('WHERE CstmrName =:v_cnm ');

ParamByName('v_cnm').AsString := ls_Edit_name;

Open;

if RecordCount > 0 then

begin

ShowMessage('이미 등록된 거래처명입니다');

Exit;

end;

이렇게 표현해도 될 것 같은데요.. ^^;





김대훈 wrote:

> 안녕하세요..

> MS_SQL과 델파이를 가지고 개발중인데요..

> 웝에서보면 사용자를 등록할때 id중복체크하는 것이 있는데..

> 개발중인 풀그램에 삽입을 할려고합니다..

> 업체명을 입력할고 중복체크 버튼을 누르면 동적으로

> 폼이 하나 만들어 지면서 결과값(중복이 있다 OR 없다)이 나오게 하고 싶습니다..

> 아래에 코드를 만들어 봤는데, 업체명을 검색해서 검색된 결과가

> 하나도 없으면 중복된 업체가 하나도 없다... 라는 것인데..

> 검색된 결과를 어