procedure Tlogin_form.Button3Click(Sender: TObject);
var
uid : string;
begin
with query1 do
begin
close;
sql.Clear;
open;
sql.add('select id form test where id = E_id.text');
uid := Query1.FieldByName('id').AsString;
if ( e_id.text = uid ) then
begin
messagedlg('같은 아이디가 있습니다',mtwarning,[mbok],0);
e_id.SetFocus;
end
else if (e_id.text <> query1.fieldbyname('id').asstring) then
begin
messagedlg('이아이디를 사용하시겠습니까?',mtwarning,[mbok],0);
e_passwd.SetFocus;
end;
end;
E_id.text:=uid;
end;
end.
지금 검색을 하는 부분이거든요
그런데 에러가 자꾸 나요 틀린 부분이나 고칠부분 있나요??
고수님들의 따끔한 충고 부탁 드립니다
> begin
> close;
> sql.Clear;
sql.add('select id from test where id = '''+E_id.text+'''');
open;
요렇게..