Q&A

  • ㅡㅡ; 또 허접이네용...(QRLabel 초기화..)
질문이 있어 또 들렀습니다.. 요즘 너무 자주 들어와서 지겨우시죵..^^a

다름이 아니라..퀵리포트에서요... Shape들이 여러개가 있구요.. 그 위에 QRLabel들이 여러개 올려져 있거든요...

DB의 내용을 뿌리는 부분인데... 데이타가 없을 경우... QRLabel의 이름들이 그대로 뜨게 되네요...

QRLabel들의 Caption을 초기화 시키고 싶은데... 갯수가...100개는 족히 넘을듯... ㅡㅡ;

일일이 코딩으로 처리할 수도 없구... 무슨 방법이 없을까요???

각 이름들을 A1, A2, .... B1, B2, ... C1, C2, .. 이런식으로 줬거든요....

고수님들 부탁드립니당... ^^ 감솨~~

내친김에 한가지만 더... ^^a..

퀵리포트에 내용을 뿌리잖아요... 저는 지금 DB 10개를 가지고 데이타를 뿌리거든용.....

그렇게 할려다 보니... 영 소스가 지저분하네요...

지금 출력하는게 인사카드인데요... 개인신상정보 나오고... 학력,, 가족사항,, 자격증,, 기타등등... 이런식으로 하니.. Master-Detail관계가 되잖아요..

근데 학력 이런건 퀵리포트 상에서 행 수가 정해져 있으니까..

i := 0
While Not Eof Do
.....
Case i Of
   0 : begin
        end
   1 : begin
        end......

Inc(i)
Next

이런식으로 썼거든요.. 넘 허접같지용.. ㅡㅡ;;

암튼.. 이렇게 하니 소스도 복잡하고 너무 단순 무식한 방법인것 같아서....

어떻게 좀 조리있고 논리적으로 코딩을 할 순 없을까요..???

저의 단순한 머리를 좀 고쳐주세용.....


  

1  COMMENTS
  • Profile
    열심히 2003.07.09 01:07
    음..
    두번쨰 질문은 무슨 뜻이지 잘모르겠구요....

    첫번째 질문에 대한 답입니다..

    for i := 0 to Form1.CompernentCount - 1 do
      begin
      if FProcess_Inout.Components[i] is TLabel then
        begin
        (FProcess_Inout.Components[i] as TLabel).Caption := '';
        end;

      end;

    대충 저런식으로 하면 폼의 하위에 있는 모든 컴퍼넌트를 뒤져서 레이블이란

    레이블은 몽땅 Caption 속성을 바꾸겠죠..