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);
이 부분이 무엇을 하는 부분인지 잘 몰라서 그러는데,
설명 좀 해 주시면 안될까여??
부탁드립니다..
에서의 :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);
> 이 부분이 무엇을 하는 부분인지 잘 몰라서 그러는데,
> 설명 좀 해 주시면 안될까여??
> 부탁드립니다..
>
>