고수님들 부탁드릴게 있습니다.
주민등록번호를 입력받아서 테이블에 저장되어 있는 데이터와 비교하는 루틴을 구현하고 있습니다..
소스보시고 어디가 문제 있는지 지적좀 해 주세요..
-------------------소스 시작부분-------------------------------------
procedure TForm1.Jumin2_edtChange(Sender: TObject);
begin
if Length(Jumin2_edt.Text) >= 7 then
With Jumin_Qry do
begin
ShowMessage('주민등록번호를 체크합니다');
Close;
Sql.Clear;
Sql.Add('SELECT * FROM personal_inform_tab WHERE ');
Sql.Add('jumin1=:pJumin1 and jumin2=:pJumin2');
ParamByname('pJumin1').AsString:= Jumin1_edt.Text;
ParamByname('pJumin2').AsString:= Jumin2_edt.Text;
Open;
** if Jumin_Data.DataSet = nil then // <-- 이부분이 찝찝함
begin
ShowMessage('사용가능');
exit;
end
else
begin
ShowMessage('사용 불가능');
Jumin1_edt.Text:= '';
Jumin2_edt.Text:= '';
Jumin1_edt.SetFocus;
end;
end;
end;
-----------------------소스 끝----------------------------------
위의 (**)부분이 제가 생각해도 약간 찝찝하거덩여..
한마디로 어떤 속성값을 가지고 비교해야 하는지 ...