구창민님의 홈페이지 팁/강좌란에서 읽은 팁입니다.

실행을 하니까 그리드의 타이틀을 클릭하는 대로 쿼리가 sorting되었습니다.

그런데 문제는.. 제가 만든 테이블로 실행을 하면 타이틀을 클릭할때마다

sorting이 되기는 되는데 결과문은 전혀 변함이 없었습니다.

원인을 분석해 보려고 하지만 중간의



procedure TForm1.DBGrid1TitleClick(Column: TColumn);

begin

Query1.SQL[1] := Column.FieldName;

Query1.Close;

Query1.Open;

end;



부분에서 SQL[1]이 무엇을 가르키는 것인지 모르겠습니다.

꼭 좀 알려주세요.

부탁드립니다.







[팁]DBGrid에서 컬럼 헤더의 클릭에 따른 인덱스키

DBGrid에서 컬럼 헤더의 클릭에 따른 인덱스키

윈도우 탐색기나 찾기(파일, 컴퓨터)를 통해 볼 수 있는 결과 자료에서 각 컬럼의 필드 헤더를 클릭하는

것에 따라 그 컬럼 필드를 기준으로 정렬되는 것을 볼 수 있는데, 이것을 단지 윈도우 95의 기능이라고

지나치면 안된다. 우리가 사용자에게 데이터를 보여주는 형식도 이와 거의 유사하기 때문에 이러한 기능

은 매우 효과적이면서, 실무자들에게도 유용한 기능이 될 수 있다. 구현 방법은 델파이 3.0에서 추가된

컬럼 헤더의 클릭 이벤트로 쉽게 처리할 수 있는데, 사용자가 모든 필드를 대상으로 인덱스를 요구할 것

이므로 동적인 인덱스키를 지정하는 방법보다는 간단히 SQL문의 ORDER BY를 사용하는 것이 더 좋을 것

같다. 다음은 DBDEMOS 알리아스에 있는 CUSTOMER 테이블로 데모를 만든 것이다.



procedure TForm1.FormCreate(Sender: TObject);

begin

DBGrid1.Options := [dgTitles,dgIndicator,dgColLines,

dgRowLines,dgTabs,dgConfirmDelete,dgCancelOnExit];

end;



procedure TForm1.DBGrid1TitleClick(Column: TColumn);

begin

Query1.SQL[1] := Column.FieldName;

Query1.Close;

Query1.Open;

end;



procedure TForm1.FormShow(Sender: TObject);

begin

with Query1 do begin

Close;

SQL.Clear;

SQL.Add('SELECT * FROM CUSTOMER ORDER BY ');

SQL.Add('CUSTNO');

Open;

end;

end;

안녕하세요. 강지영씨..

오늘은 날씨가 별로 좋지 않네요. 하지만 이런 날씨가 더 좋은것 같습니다.

왜냐하면 어제는 너무 더웠거든요. 닭병 걸려서 고생이 이만 저만이 아닙니다.



구창민님의 소스를 토대로 ....

procedure TForm1.DBGrid1TitleClick(Column: TColumn);

begin

Query1.SQL[1] := Column.FieldName;

Query1.Close;

Query1.Open;

end;



procedure TForm1.FormShow(Sender: TObject);

begin

with Query1 do begin

Close;

SQL.Clear;

SQL.Add('SELECT * FROM CUSTOMER ORDER BY ');

SQL.Add('CUSTNO');

Open;

end;

end;



위소스에서 보면 FormShow에서 SQL문장을 만들었는데 만드는 방법을 보면

알 수 있듯이 Add를 두번 쓰잖아요. 그러면 그게 SQL[0], SQL[1] 으로 들어

가게 되는 것입니다. 물론 세번 쓰면 SQL[2]에 들어 가겠죠 ...

그래서 Title을 누를 경우 필드명많 교체하는 것이지요.

당연히 필드명만 교체하면 해당 필드별로 소트가 가능 하구요...





그럼 즐거운 하루가 되세요.....









강지영 wrote:

> 구창민님의 홈페이지 팁/강좌란에서 읽은 팁입니다.

> 실행을 하니까 그리드의 타이틀을 클릭하는 대로 쿼리가 sorting되었습니다.

> 그런데 문제는.. 제가 만든 테이블로 실행을 하면 타이틀을 클릭할때마다

> sorting이 되기는 되는데 결과문은 전혀 변함이 없었습니다.

> 원인을 분석해 보려고 하지만 중간의

>

> procedure TForm1.DBGrid1TitleClick(Column: TColumn);

> begin

> Query1.SQL[1] := Column.FieldName;

> Query1.Close;

> Query1.Open;

> end;

>

> 부분에서 SQL[1]이 무엇을 가르키는 것인지 모르겠습니다.

> 꼭 좀 알려주세요.

> 부탁드립니다.

>

>

>

> [팁]DBGrid에서 컬럼 헤더의 클릭에 따른 인덱스키

> DBGrid에서 컬럼 헤더의 클릭에 따른 인덱스키

> 윈도우 탐색기나 찾기(파일, 컴퓨터)를 통해 볼 수 있는 결과 자료에서 각 컬럼의 필드 헤더를 클릭하는

> 것에 따라 그 컬럼 필드를 기준으로 정렬되는 것을 볼 수 있는데, 이것을 단지 윈도우 95의 기능이라고

> 지나치면 안된다. 우리가 사용자에게 데이터를 보여주는 형식도 이와 거의 유사하기 때문에 이러한 기능

> 은 매우 효과적이면서, 실무자들에게도 유용한 기능이 될 수 있다. 구현 방법은 델파이 3.0에서 추가된

> 컬럼 헤더의 클릭 이벤트로 쉽게 처리할 수 있는데, 사용자가 모든 필드를 대상으로 인덱스를 요구할 것

> 이므로 동적인 인덱스키를 지정하는 방법보다는 간단히 SQL문의 ORDER BY를 사용하는 것이 더 좋을 것

> 같다. 다음은 DBDEMOS 알리아스에 있는 CUSTOMER 테이블로 데모를 만든 것이다.

>

> procedure TForm1.FormCreate(Sender: TObject);

> begin

> DBGrid1.Options := [dgTitles,dgIndicator,dgColLines,

> dgRowLines,dgTabs,dgConfirmDelete,dgCancelOnExit];

> end;

>

> procedure TForm1.DBGrid1TitleClick(Column: TColumn);

> begin

> Query1.SQL[1] := Column.FieldName;

> Query1.Close;

> Query1.Open;

> end;

>

> procedure TForm1.FormShow(Sender: TObject);

> begin

> with Query1 do begin

> Close;

> SQL.Clear;

> SQL.Add('SELECT * FROM CUSTOMER ORDER BY ');

> SQL.Add('CUSTNO');

> Open;

> end;

> end;

>

>