Q&A

  • 코딩에 대한 질문인데여..
procedure TForm1.Button1Click(Sender: TObject);

begin

with Query1 do

begin

Edit1.text :='0';

Close; //Query 일단 닫고

SQL.Clear; //SQL 청소 정리

SQL.Add('Select * From 학생'); //SQL입력

SQL.Add('Where 학년= :tempb;'); //SQL 연결 입력

ParamByName('tempb').Asinteger := strtoint(Edit1.text);

Open; //SQL실행

end;

end;



위에 코딩 부분에서,

ParamByName('tempb').Asinteger := strtoint(Edit1.text);

이 부분이 무엇을 하는 부분인지 잘 몰라서 그러는데,

설명 좀 해 주시면 안될까여??

부탁드립니다..





1  COMMENTS
  • Profile
    Falco 2001.11.29 21:04
    SQL.Add('Where 학년= :tempb');

    에서의 :tempb 의 값을 StrToInt(Edit1.Text) 로 대체시킨다는 뜻입니다.



    SQL.Add('Where (학년= :tempb)');

    SQL.Add(' and (학번= :tempb)');

    ParamByName('tempb').AsInteger := StrToInt(Edit1.Text);

    로 하시면 학년과 학번 모두 StrToInt(Edit1.Text) 에 입력된 내용으로 검색을 하게됩니다.



    수고하세요.





    푸른마법 wrote:

    > procedure TForm1.Button1Click(Sender: TObject);

    > begin

    > with Query1 do

    > begin

    > Edit1.text :='0';

    > Close; //Query 일단 닫고

    > SQL.Clear; //SQL 청소 정리

    > SQL.Add('Select * From 학생'); //SQL입력

    > SQL.Add('Where 학년= :tempb;'); //SQL 연결 입력

    > ParamByName('tempb').Asinteger := strtoint(Edit1.text);

    > Open; //SQL실행

    > end;

    > end;

    >

    > 위에 코딩 부분에서,

    > ParamByName('tempb').Asinteger := strtoint(Edit1.text);

    > 이 부분이 무엇을 하는 부분인지 잘 몰라서 그러는데,

    > 설명 좀 해 주시면 안될까여??

    > 부탁드립니다..

    >

    >