Q&A

  • 검색에 관한 질문입니다..
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.





지금 검색을 하는 부분이거든요

그런데 에러가 자꾸 나요 틀린 부분이나 고칠부분 있나요??

고수님들의 따끔한 충고 부탁 드립니다

3  COMMENTS
  • Profile
    나그네 2001.09.13 17:51
    > with query1 do

    > begin

    > close;

    > sql.Clear;

    sql.add('select id from test where id = '''+E_id.text+'''');

    open;

    요렇게..

  • Profile
    늑대 2001.09.12 11:40
    궁금남 wrote:

    > 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.

    >

    >

    > 지금 검색을 하는 부분이거든요

    > 그런데 에러가 자꾸 나요 틀린 부분이나 고칠부분 있나요??

    > 고수님들의 따끔한 충고 부탁 드립니다



    SQL 문장을 작성한 후에 Open을 해 주셔야 하는데 순서가 바뀌었군요.

    SQL문장의 기본은

    with Query1 do

    begin

    Close;

    SQL.Clear;

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

    SQL.Add(' WHERE ... ');

    Open;

    end;



    위와 같은 형식으로 하시면 됩니다.

    답이 되었는지 모르겠군요.

  • Profile
    궁금남 2001.09.12 18:57
    감사합니다



    님계서 알려주신데로 해도 마찬가지인 에러가 나거든요...



    휴~~ 제글에 답글을 달아 주셔서 감사합니다



    저혼자의 힘으로 해결하도록 노력하겠습니다..



    (^^)(--)(__)(^^) 꾸뻑