Q&A
- [help] 스트링 그리드의 데이타를 QuickRep Preview에 관하여...
안녕하세요?
도움을 구하고자 이렇게 글을 올립니다.. 요지는 다음과 같습니다.
==========================================================================
procedure TfmBooklist.pbRetrieve1Click(Sender: TObject);
var
nSUM: array[0..102, 0..12] of Integer;
I,J: byte;
begin
// 100 - 총계, 101 - 기타
for I := 0 to 101 do
// 10 - 계, 11 - 기타
for J := 0 to 11 do
nSUM[I,J] := 0;
pbRetrieve1Click_sSQL := '';
pbRetrieve1Click_sSQL := pbRetrieve1Click_sSQL + 'select bookgibon.kdcno, mid(bookgibon.kdcno,1,2) as A1, mid(bookgibon.kdcno,3,1) as A2';
pbRetrieve1Click_sSQL := pbRetrieve1Click_sSQL + ' from book,bookgibon where book.bookno = bookgibon.bookno';
pbRetrieve1Click_sSQL := pbRetrieve1Click_sSQL + ' and bookgibon.kdcno >= ' + Format('%d',[strtoint(Efrom.text)]);
pbRetrieve1Click_sSQL := pbRetrieve1Click_sSQL + ' and bookgibon.kdcno <= ' + Format('%d',[strtoint(Eto.text)]);
pbRetrieve1Click_sSQL := pbRetrieve1Click_sSQL + ' order by mid(bookgibon.kdcno,1,2),mid(bookgibon.kdcno,3,1)';
qrBooklist.SQL.Clear;
qrBooklist.SQL.Add(pbRetrieve1Click_sSQL);
qrBooklist.open;
while not qrBooklist.Eof do
begin
// I:=qrBooklist.FieldByName('kdcno').Asinteger;
if qrBooklist.FieldByName('A1').AsString = '00' then
I := 0
else
if strtoint(qrBooklist.FieldByName('A1').AsString) <> 0 then
I := strtoint(qrBooklist.FieldByName('A1').AsString)
else
I := 101;
if qrBooklist.FieldByName('A2').AsString = '0' then
J := 0
else
if qrBooklist.FieldByName('A2').AsString = '' then
J := 11
else
J := strtoint(qrBooklist.FieldByName('A2').AsString);
nSUM[I,J] := nSUM[I,J] + 1;
nSUM[I,10] := nSUM[I,10] + 1;
nSUM[100,J] := nSUM[100,J] + 1;
nSUM[100,10] := nSUM[100,10] + 1;
qrBooklist.Next;
end;
J := 0;
for I := 0 to 99 do
if nSUM[I,10] > 0 then
J := J + 1;
ESGbook.RowCount := 2;
if J = 0 then
for I := 2 to 11 do
ESGbook.Cells[1, I] := '0';
if nSUM[101,10] = 0 then
ESGbook.RowCount := J + 3
else
ESGbook.RowCount := J + 5;
J:=3;
for I := 0 to 99 do
if nSUM[I,10] > 0 then
begin
ESGbook.Cells[0,J] := FormatFloat('00',I);
ESGbook.Cells[1,J] := inttostr(nSUM[I,10]);
ESGbook.Cells[2,J] := inttostr(nSUM[I,0]);
ESGbook.Cells[3,J] := inttostr(nSUM[I,1]);
ESGbook.Cells[4,J] := inttostr(nSUM[I,2]);
ESGbook.Cells[5,J] := inttostr(nSUM[I,3]);
ESGbook.Cells[6,J] := inttostr(nSUM[I,4]);
ESGbook.Cells[7,J] := inttostr(nSUM[I,5]);
ESGbook.Cells[8,J] := inttostr(nSUM[I,6]);
ESGbook.Cells[9,J] := inttostr(nSUM[I,7]);
ESGbook.Cells[10,J] := inttostr(nSUM[I,8]);
ESGbook.Cells[11,J] := inttostr(nSUM[I,9]);
ESGbook.Cells[12,J] := inttostr(nSUM[I,11]);
J:=J+1;
end;
if nSUM[101,10] > 0 then
begin
I:=ESGbook.RowCount-2;
ESGbook.Cells[0,I] := '소계';
ESGbook.Cells[1,I] := inttostr(nSUM[101,10]);
ESGbook.Cells[2,I] := inttostr(nSUM[101,0]);
ESGbook.Cells[3,I] := inttostr(nSUM[101,1]);
ESGbook.Cells[4,I] := inttostr(nSUM[101,2]);
ESGbook.Cells[5,I] := inttostr(nSUM[101,3]);
ESGbook.Cells[6,I] := inttostr(nSUM[101,4]);
ESGbook.Cells[7,I] := inttostr(nSUM[101,5]);
ESGbook.Cells[8,I] := inttostr(nSUM[101,6]);
ESGbook.Cells[9,I] := inttostr(nSUM[101,7]);
ESGbook.Cells[10,I] := inttostr(nSUM[101,8]);
ESGbook.Cells[11,I] := inttostr(nSUM[101,9]);
ESGbook.Cells[12,I] := inttostr(nSUM[101,11]);
I:=ESGbook.RowCount-1;
ESGbook.Cells[0,I] := '기타';
ESGbook.Cells[1,I] := inttostr(nSUM[101,10]);
ESGbook.Cells[2,I] := inttostr(nSUM[101,0]);
ESGbook.Cells[3,I] := inttostr(nSUM[101,1]);
ESGbook.Cells[4,I] := inttostr(nSUM[101,2]);
ESGbook.Cells[5,I] := inttostr(nSUM[101,3]);
ESGbook.Cells[6,I] := inttostr(nSUM[101,4]);
ESGbook.Cells[7,I] := inttostr(nSUM[101,5]);
ESGbook.Cells[8,I] := inttostr(nSUM[101,6]);
ESGbook.Cells[9,I] := inttostr(nSUM[101,7]);
ESGbook.Cells[10,I] := inttostr(nSUM[101,8]);
ESGbook.Cells[11,I] := inttostr(nSUM[101,9]);
ESGbook.Cells[12,I] := inttostr(nSUM[101,11]);
end;
ESGbook.Cells[0,1] := '계';
ESGbook.Cells[1,1] := inttostr(nSUM[100,10]);
ESGbook.Cells[2,1] := inttostr(nSUM[100,0]);
ESGbook.Cells[3,1] := inttostr(nSUM[100,1]);
ESGbook.Cells[4,1] := inttostr(nSUM[100,2]);
ESGbook.Cells[5,1] := inttostr(nSUM[100,3]);
ESGbook.Cells[6,1] := inttostr(nSUM[100,4]);
ESGbook.Cells[7,1] := inttostr(nSUM[100,5]);
ESGbook.Cells[8,1] := inttostr(nSUM[100,6]);
ESGbook.Cells[9,1] := inttostr(nSUM[100,7]);
ESGbook.Cells[10,1] := inttostr(nSUM[100,8]);
ESGbook.Cells[11,1] := inttostr(nSUM[100,9]);
ESGbook.Cells[12,1] := inttostr(nSUM[100,11]);
ESGbook.Cells[0,2] := '소계';
ESGbook.Cells[1,2] := inttostr(nSUM[100,10] - nSUM[101,10]);
ESGbook.Cells[2,2] := inttostr(nSUM[100,0] - nSUM[101,0]);
ESGbook.Cells[3,2] := inttostr(nSUM[100,1] - nSUM[101,1]);
ESGbook.Cells[4,2] := inttostr(nSUM[100,2] - nSUM[101,2]);
ESGbook.Cells[5,2] := inttostr(nSUM[100,3] - nSUM[101,3]);
ESGbook.Cells[6,2] := inttostr(nSUM[100,4] - nSUM[101,4]);
ESGbook.Cells[7,2] := inttostr(nSUM[100,5] - nSUM[101,5]);
ESGbook.Cells[8,2] := inttostr(nSUM[100,6] - nSUM[101,6]);
ESGbook.Cells[9,2] := inttostr(nSUM[100,7] - nSUM[101,7]);
ESGbook.Cells[10,2] := inttostr(nSUM[100,8] - nSUM[101,8]);
ESGbook.Cells[11,2] := inttostr(nSUM[100,9] - nSUM[101,9]);
ESGbook.Cells[12,2] := inttostr(nSUM[100,11] - nSUM[101,11]);
for I:=1 to ESGbook.RowCount-1 do
for J:=1 to 12 do
if ESGbook.Cells[J,I]='0' then
ESGbook.Cells[J,I]:='';
end;
이렇게 그리드에 동적으로 올라온 데이타를 QuickRep에 넣고 싶은데...
rocedure TfmPrBooklist.QuickRep3NeedData(Sender: TObject; var MoreData: Boolean);
begin
sSql := fmBooklist.pbRetrieve1Click_sSQL ;
end;
procedure TfmPrBooklist.QuickRep3BeforePrint(Sender: TQuickRep; var PrintReport: Boolean);
var
//FName : String ;
PrblmNumLbl : array[1..1003,1..12] of TQRLabel ;
PrblmNumShap : array[1..1003,1..12] of TQRShape ;
PrblmNum,PrblmNum2 : integer;
begin
for PrblmNum:=1 to fmBooklist.ESGbook.RowCount - 1 do
for PrblmNum2:=1 to 12 do begin
PrblmNumLbl[PrblmNum,PrblmNum2] := TQRLabel.Create(self) ;
PrblmNumLbl[PrblmNum,PrblmNum2].Parent := QuickRep1 ;
//PrblmNumLbl[PrblmNum,PrblmNum2].TransParent := True ;
PrblmNumLbl[PrblmNum,PrblmNum2].Font.Name := '굴림체' ;
PrblmNumLbl[PrblmNum,PrblmNum2].Font.Size := 10 ;
PrblmNumLbl[PrblmNum,PrblmNum2].Caption := fmBooklist.ESGbook.Cells[PrblmNum2,PrblmNum] ;
PrblmNumLbl[PrblmNum,PrblmNum2].width := 65 ;
PrblmNumShap[PrblmNum,PrblmNum2] := TQRShape.Create(self) ;
PrblmNumShap[PrblmNum,PrblmNum2].Parent := QuickRep1 ;
PrblmNumShap[PrblmNum,PrblmNum2].Height := 25 ;
PrblmNumShap[PrblmNum,PrblmNum2].Width := 2;
PrblmNumShap[PrblmNum,PrblmNum2].Left := QuickRep1.Bands.DetailBand.Left ;
PrblmNumShap[PrblmNum,PrblmNum2].Top := QuickRep1.Bands.DetailBand.Top +1 ;
if PrblmNum2 = 1 then
Begin
PrblmNumLbl[PrblmNum,PrblmNum2].left :=
QuickRep1.Bands.DetailBand.Left + 72 ;
PrblmNumShap[PrblmNum,PrblmNum2].Top :=
QuickRep1.Bands.DetailBand.Top + 21 ;
end
else
Begin
PrblmNumLbl[PrblmNum,PrblmNum2].left :=
PrblmNumLbl[PrblmNum,PrblmNum2-1].left + PrblmNumLbl
[PrblmNum,PrblmNum2].width -2; // + 3
prblmNumShap[PrblmNum,PrblmNum2].left :=
prblmNumShap[PrblmNum,PrblmNum2-1].left + 60 ;
end ;
if PrblmNum = 1 then
begin
PrblmNumLbl[PrblmNum,PrblmNum2].Top := QuickRep1.Bands.DetailBand.Top + 25 ;// 10
prblmNumShap[PrblmNum,PrblmNum2].left := prblmNumShap[PrblmNum,PrblmNum2-1].left + 60 ;
end
else
begin
PrblmNumLbl[PrblmNum,PrblmNum2].Top := PrblmNumLbl[PrblmNum-1,PrblmNum2].Top + 20;
prblmNumShap[PrblmNum,PrblmNum2].left := prblmNumShap[PrblmNum,PrblmNum2-1].left + 60 ;
end;
end;
뭐 이런식으로 구현할려고 했으나 ... 영 잘 안되고... 탐탁치가 않네요.....
이런방법말고 제가 모르는 좋은 방법이 있는지.. 고수님들의 조언을 듣고자 합니다...
그럼... 수고하시구요... 좋은 해결책을 찾았으면 합니다...
도움을 구하고자 이렇게 글을 올립니다.. 요지는 다음과 같습니다.
==========================================================================
procedure TfmBooklist.pbRetrieve1Click(Sender: TObject);
var
nSUM: array[0..102, 0..12] of Integer;
I,J: byte;
begin
// 100 - 총계, 101 - 기타
for I := 0 to 101 do
// 10 - 계, 11 - 기타
for J := 0 to 11 do
nSUM[I,J] := 0;
pbRetrieve1Click_sSQL := '';
pbRetrieve1Click_sSQL := pbRetrieve1Click_sSQL + 'select bookgibon.kdcno, mid(bookgibon.kdcno,1,2) as A1, mid(bookgibon.kdcno,3,1) as A2';
pbRetrieve1Click_sSQL := pbRetrieve1Click_sSQL + ' from book,bookgibon where book.bookno = bookgibon.bookno';
pbRetrieve1Click_sSQL := pbRetrieve1Click_sSQL + ' and bookgibon.kdcno >= ' + Format('%d',[strtoint(Efrom.text)]);
pbRetrieve1Click_sSQL := pbRetrieve1Click_sSQL + ' and bookgibon.kdcno <= ' + Format('%d',[strtoint(Eto.text)]);
pbRetrieve1Click_sSQL := pbRetrieve1Click_sSQL + ' order by mid(bookgibon.kdcno,1,2),mid(bookgibon.kdcno,3,1)';
qrBooklist.SQL.Clear;
qrBooklist.SQL.Add(pbRetrieve1Click_sSQL);
qrBooklist.open;
while not qrBooklist.Eof do
begin
// I:=qrBooklist.FieldByName('kdcno').Asinteger;
if qrBooklist.FieldByName('A1').AsString = '00' then
I := 0
else
if strtoint(qrBooklist.FieldByName('A1').AsString) <> 0 then
I := strtoint(qrBooklist.FieldByName('A1').AsString)
else
I := 101;
if qrBooklist.FieldByName('A2').AsString = '0' then
J := 0
else
if qrBooklist.FieldByName('A2').AsString = '' then
J := 11
else
J := strtoint(qrBooklist.FieldByName('A2').AsString);
nSUM[I,J] := nSUM[I,J] + 1;
nSUM[I,10] := nSUM[I,10] + 1;
nSUM[100,J] := nSUM[100,J] + 1;
nSUM[100,10] := nSUM[100,10] + 1;
qrBooklist.Next;
end;
J := 0;
for I := 0 to 99 do
if nSUM[I,10] > 0 then
J := J + 1;
ESGbook.RowCount := 2;
if J = 0 then
for I := 2 to 11 do
ESGbook.Cells[1, I] := '0';
if nSUM[101,10] = 0 then
ESGbook.RowCount := J + 3
else
ESGbook.RowCount := J + 5;
J:=3;
for I := 0 to 99 do
if nSUM[I,10] > 0 then
begin
ESGbook.Cells[0,J] := FormatFloat('00',I);
ESGbook.Cells[1,J] := inttostr(nSUM[I,10]);
ESGbook.Cells[2,J] := inttostr(nSUM[I,0]);
ESGbook.Cells[3,J] := inttostr(nSUM[I,1]);
ESGbook.Cells[4,J] := inttostr(nSUM[I,2]);
ESGbook.Cells[5,J] := inttostr(nSUM[I,3]);
ESGbook.Cells[6,J] := inttostr(nSUM[I,4]);
ESGbook.Cells[7,J] := inttostr(nSUM[I,5]);
ESGbook.Cells[8,J] := inttostr(nSUM[I,6]);
ESGbook.Cells[9,J] := inttostr(nSUM[I,7]);
ESGbook.Cells[10,J] := inttostr(nSUM[I,8]);
ESGbook.Cells[11,J] := inttostr(nSUM[I,9]);
ESGbook.Cells[12,J] := inttostr(nSUM[I,11]);
J:=J+1;
end;
if nSUM[101,10] > 0 then
begin
I:=ESGbook.RowCount-2;
ESGbook.Cells[0,I] := '소계';
ESGbook.Cells[1,I] := inttostr(nSUM[101,10]);
ESGbook.Cells[2,I] := inttostr(nSUM[101,0]);
ESGbook.Cells[3,I] := inttostr(nSUM[101,1]);
ESGbook.Cells[4,I] := inttostr(nSUM[101,2]);
ESGbook.Cells[5,I] := inttostr(nSUM[101,3]);
ESGbook.Cells[6,I] := inttostr(nSUM[101,4]);
ESGbook.Cells[7,I] := inttostr(nSUM[101,5]);
ESGbook.Cells[8,I] := inttostr(nSUM[101,6]);
ESGbook.Cells[9,I] := inttostr(nSUM[101,7]);
ESGbook.Cells[10,I] := inttostr(nSUM[101,8]);
ESGbook.Cells[11,I] := inttostr(nSUM[101,9]);
ESGbook.Cells[12,I] := inttostr(nSUM[101,11]);
I:=ESGbook.RowCount-1;
ESGbook.Cells[0,I] := '기타';
ESGbook.Cells[1,I] := inttostr(nSUM[101,10]);
ESGbook.Cells[2,I] := inttostr(nSUM[101,0]);
ESGbook.Cells[3,I] := inttostr(nSUM[101,1]);
ESGbook.Cells[4,I] := inttostr(nSUM[101,2]);
ESGbook.Cells[5,I] := inttostr(nSUM[101,3]);
ESGbook.Cells[6,I] := inttostr(nSUM[101,4]);
ESGbook.Cells[7,I] := inttostr(nSUM[101,5]);
ESGbook.Cells[8,I] := inttostr(nSUM[101,6]);
ESGbook.Cells[9,I] := inttostr(nSUM[101,7]);
ESGbook.Cells[10,I] := inttostr(nSUM[101,8]);
ESGbook.Cells[11,I] := inttostr(nSUM[101,9]);
ESGbook.Cells[12,I] := inttostr(nSUM[101,11]);
end;
ESGbook.Cells[0,1] := '계';
ESGbook.Cells[1,1] := inttostr(nSUM[100,10]);
ESGbook.Cells[2,1] := inttostr(nSUM[100,0]);
ESGbook.Cells[3,1] := inttostr(nSUM[100,1]);
ESGbook.Cells[4,1] := inttostr(nSUM[100,2]);
ESGbook.Cells[5,1] := inttostr(nSUM[100,3]);
ESGbook.Cells[6,1] := inttostr(nSUM[100,4]);
ESGbook.Cells[7,1] := inttostr(nSUM[100,5]);
ESGbook.Cells[8,1] := inttostr(nSUM[100,6]);
ESGbook.Cells[9,1] := inttostr(nSUM[100,7]);
ESGbook.Cells[10,1] := inttostr(nSUM[100,8]);
ESGbook.Cells[11,1] := inttostr(nSUM[100,9]);
ESGbook.Cells[12,1] := inttostr(nSUM[100,11]);
ESGbook.Cells[0,2] := '소계';
ESGbook.Cells[1,2] := inttostr(nSUM[100,10] - nSUM[101,10]);
ESGbook.Cells[2,2] := inttostr(nSUM[100,0] - nSUM[101,0]);
ESGbook.Cells[3,2] := inttostr(nSUM[100,1] - nSUM[101,1]);
ESGbook.Cells[4,2] := inttostr(nSUM[100,2] - nSUM[101,2]);
ESGbook.Cells[5,2] := inttostr(nSUM[100,3] - nSUM[101,3]);
ESGbook.Cells[6,2] := inttostr(nSUM[100,4] - nSUM[101,4]);
ESGbook.Cells[7,2] := inttostr(nSUM[100,5] - nSUM[101,5]);
ESGbook.Cells[8,2] := inttostr(nSUM[100,6] - nSUM[101,6]);
ESGbook.Cells[9,2] := inttostr(nSUM[100,7] - nSUM[101,7]);
ESGbook.Cells[10,2] := inttostr(nSUM[100,8] - nSUM[101,8]);
ESGbook.Cells[11,2] := inttostr(nSUM[100,9] - nSUM[101,9]);
ESGbook.Cells[12,2] := inttostr(nSUM[100,11] - nSUM[101,11]);
for I:=1 to ESGbook.RowCount-1 do
for J:=1 to 12 do
if ESGbook.Cells[J,I]='0' then
ESGbook.Cells[J,I]:='';
end;
이렇게 그리드에 동적으로 올라온 데이타를 QuickRep에 넣고 싶은데...
rocedure TfmPrBooklist.QuickRep3NeedData(Sender: TObject; var MoreData: Boolean);
begin
sSql := fmBooklist.pbRetrieve1Click_sSQL ;
end;
procedure TfmPrBooklist.QuickRep3BeforePrint(Sender: TQuickRep; var PrintReport: Boolean);
var
//FName : String ;
PrblmNumLbl : array[1..1003,1..12] of TQRLabel ;
PrblmNumShap : array[1..1003,1..12] of TQRShape ;
PrblmNum,PrblmNum2 : integer;
begin
for PrblmNum:=1 to fmBooklist.ESGbook.RowCount - 1 do
for PrblmNum2:=1 to 12 do begin
PrblmNumLbl[PrblmNum,PrblmNum2] := TQRLabel.Create(self) ;
PrblmNumLbl[PrblmNum,PrblmNum2].Parent := QuickRep1 ;
//PrblmNumLbl[PrblmNum,PrblmNum2].TransParent := True ;
PrblmNumLbl[PrblmNum,PrblmNum2].Font.Name := '굴림체' ;
PrblmNumLbl[PrblmNum,PrblmNum2].Font.Size := 10 ;
PrblmNumLbl[PrblmNum,PrblmNum2].Caption := fmBooklist.ESGbook.Cells[PrblmNum2,PrblmNum] ;
PrblmNumLbl[PrblmNum,PrblmNum2].width := 65 ;
PrblmNumShap[PrblmNum,PrblmNum2] := TQRShape.Create(self) ;
PrblmNumShap[PrblmNum,PrblmNum2].Parent := QuickRep1 ;
PrblmNumShap[PrblmNum,PrblmNum2].Height := 25 ;
PrblmNumShap[PrblmNum,PrblmNum2].Width := 2;
PrblmNumShap[PrblmNum,PrblmNum2].Left := QuickRep1.Bands.DetailBand.Left ;
PrblmNumShap[PrblmNum,PrblmNum2].Top := QuickRep1.Bands.DetailBand.Top +1 ;
if PrblmNum2 = 1 then
Begin
PrblmNumLbl[PrblmNum,PrblmNum2].left :=
QuickRep1.Bands.DetailBand.Left + 72 ;
PrblmNumShap[PrblmNum,PrblmNum2].Top :=
QuickRep1.Bands.DetailBand.Top + 21 ;
end
else
Begin
PrblmNumLbl[PrblmNum,PrblmNum2].left :=
PrblmNumLbl[PrblmNum,PrblmNum2-1].left + PrblmNumLbl
[PrblmNum,PrblmNum2].width -2; // + 3
prblmNumShap[PrblmNum,PrblmNum2].left :=
prblmNumShap[PrblmNum,PrblmNum2-1].left + 60 ;
end ;
if PrblmNum = 1 then
begin
PrblmNumLbl[PrblmNum,PrblmNum2].Top := QuickRep1.Bands.DetailBand.Top + 25 ;// 10
prblmNumShap[PrblmNum,PrblmNum2].left := prblmNumShap[PrblmNum,PrblmNum2-1].left + 60 ;
end
else
begin
PrblmNumLbl[PrblmNum,PrblmNum2].Top := PrblmNumLbl[PrblmNum-1,PrblmNum2].Top + 20;
prblmNumShap[PrblmNum,PrblmNum2].left := prblmNumShap[PrblmNum,PrblmNum2-1].left + 60 ;
end;
end;
뭐 이런식으로 구현할려고 했으나 ... 영 잘 안되고... 탐탁치가 않네요.....
이런방법말고 제가 모르는 좋은 방법이 있는지.. 고수님들의 조언을 듣고자 합니다...
그럼... 수고하시구요... 좋은 해결책을 찾았으면 합니다...
2
COMMENTS
-
-
QuickReport의 QRBang의 OnNeedData Event를 이용하면
StringGrid의 자료를 쉽게 출력할 수 있습니다.
송병철 wrote:
> 안녕하세요?
>
> 도움을 구하고자 이렇게 글을 올립니다.. 요지는 다음과 같습니다.
> ==========================================================================
> procedure TfmBooklist.pbRetrieve1Click(Sender: TObject);
> var
> nSUM: array[0..102, 0..12] of Integer;
> I,J: byte;
> begin
> // 100 - 총계, 101 - 기타
> for I := 0 to 101 do
> // 10 - 계, 11 - 기타
> for J := 0 to 11 do
> nSUM[I,J] := 0;
>
> pbRetrieve1Click_sSQL := '';
> pbRetrieve1Click_sSQL := pbRetrieve1Click_sSQL + 'select bookgibon.kdcno, mid(bookgibon.kdcno,1,2) as A1, mid(bookgibon.kdcno,3,1) as A2';
> pbRetrieve1Click_sSQL := pbRetrieve1Click_sSQL + ' from book,bookgibon where book.bookno = bookgibon.bookno';
> pbRetrieve1Click_sSQL := pbRetrieve1Click_sSQL + ' and bookgibon.kdcno >= ' + Format('%d',[strtoint(Efrom.text)]);
> pbRetrieve1Click_sSQL := pbRetrieve1Click_sSQL + ' and bookgibon.kdcno <= ' + Format('%d',[strtoint(Eto.text)]);
> pbRetrieve1Click_sSQL := pbRetrieve1Click_sSQL + ' order by mid(bookgibon.kdcno,1,2),mid(bookgibon.kdcno,3,1)';
> qrBooklist.SQL.Clear;
> qrBooklist.SQL.Add(pbRetrieve1Click_sSQL);
> qrBooklist.open;
>
> while not qrBooklist.Eof do
> begin
> // I:=qrBooklist.FieldByName('kdcno').Asinteger;
> if qrBooklist.FieldByName('A1').AsString = '00' then
> I := 0
> else
> if strtoint(qrBooklist.FieldByName('A1').AsString) <> 0 then
> I := strtoint(qrBooklist.FieldByName('A1').AsString)
> else
> I := 101;
>
> if qrBooklist.FieldByName('A2').AsString = '0' then
> J := 0
> else
> if qrBooklist.FieldByName('A2').AsString = '' then
> J := 11
> else
> J := strtoint(qrBooklist.FieldByName('A2').AsString);
>
> nSUM[I,J] := nSUM[I,J] + 1;
> nSUM[I,10] := nSUM[I,10] + 1;
> nSUM[100,J] := nSUM[100,J] + 1;
> nSUM[100,10] := nSUM[100,10] + 1;
>
> qrBooklist.Next;
> end;
>
> J := 0;
> for I := 0 to 99 do
> if nSUM[I,10] > 0 then
> J := J + 1;
>
> ESGbook.RowCount := 2;
> if J = 0 then
> for I := 2 to 11 do
> ESGbook.Cells[1, I] := '0';
>
> if nSUM[101,10] = 0 then
> ESGbook.RowCount := J + 3
> else
> ESGbook.RowCount := J + 5;
>
> J:=3;
>
> for I := 0 to 99 do
> if nSUM[I,10] > 0 then
> begin
> ESGbook.Cells[0,J] := FormatFloat('00',I);
> ESGbook.Cells[1,J] := inttostr(nSUM[I,10]);
> ESGbook.Cells[2,J] := inttostr(nSUM[I,0]);
> ESGbook.Cells[3,J] := inttostr(nSUM[I,1]);
> ESGbook.Cells[4,J] := inttostr(nSUM[I,2]);
> ESGbook.Cells[5,J] := inttostr(nSUM[I,3]);
> ESGbook.Cells[6,J] := inttostr(nSUM[I,4]);
> ESGbook.Cells[7,J] := inttostr(nSUM[I,5]);
> ESGbook.Cells[8,J] := inttostr(nSUM[I,6]);
> ESGbook.Cells[9,J] := inttostr(nSUM[I,7]);
> ESGbook.Cells[10,J] := inttostr(nSUM[I,8]);
> ESGbook.Cells[11,J] := inttostr(nSUM[I,9]);
> ESGbook.Cells[12,J] := inttostr(nSUM[I,11]);
> J:=J+1;
> end;
>
> if nSUM[101,10] > 0 then
> begin
> I:=ESGbook.RowCount-2;
> ESGbook.Cells[0,I] := '소계';
> ESGbook.Cells[1,I] := inttostr(nSUM[101,10]);
> ESGbook.Cells[2,I] := inttostr(nSUM[101,0]);
> ESGbook.Cells[3,I] := inttostr(nSUM[101,1]);
> ESGbook.Cells[4,I] := inttostr(nSUM[101,2]);
> ESGbook.Cells[5,I] := inttostr(nSUM[101,3]);
> ESGbook.Cells[6,I] := inttostr(nSUM[101,4]);
> ESGbook.Cells[7,I] := inttostr(nSUM[101,5]);
> ESGbook.Cells[8,I] := inttostr(nSUM[101,6]);
> ESGbook.Cells[9,I] := inttostr(nSUM[101,7]);
> ESGbook.Cells[10,I] := inttostr(nSUM[101,8]);
> ESGbook.Cells[11,I] := inttostr(nSUM[101,9]);
> ESGbook.Cells[12,I] := inttostr(nSUM[101,11]);
>
> I:=ESGbook.RowCount-1;
> ESGbook.Cells[0,I] := '기타';
> ESGbook.Cells[1,I] := inttostr(nSUM[101,10]);
> ESGbook.Cells[2,I] := inttostr(nSUM[101,0]);
> ESGbook.Cells[3,I] := inttostr(nSUM[101,1]);
> ESGbook.Cells[4,I] := inttostr(nSUM[101,2]);
> ESGbook.Cells[5,I] := inttostr(nSUM[101,3]);
> ESGbook.Cells[6,I] := inttostr(nSUM[101,4]);
> ESGbook.Cells[7,I] := inttostr(nSUM[101,5]);
> ESGbook.Cells[8,I] := inttostr(nSUM[101,6]);
> ESGbook.Cells[9,I] := inttostr(nSUM[101,7]);
> ESGbook.Cells[10,I] := inttostr(nSUM[101,8]);
> ESGbook.Cells[11,I] := inttostr(nSUM[101,9]);
> ESGbook.Cells[12,I] := inttostr(nSUM[101,11]);
> end;
>
> ESGbook.Cells[0,1] := '계';
> ESGbook.Cells[1,1] := inttostr(nSUM[100,10]);
> ESGbook.Cells[2,1] := inttostr(nSUM[100,0]);
> ESGbook.Cells[3,1] := inttostr(nSUM[100,1]);
> ESGbook.Cells[4,1] := inttostr(nSUM[100,2]);
> ESGbook.Cells[5,1] := inttostr(nSUM[100,3]);
> ESGbook.Cells[6,1] := inttostr(nSUM[100,4]);
> ESGbook.Cells[7,1] := inttostr(nSUM[100,5]);
> ESGbook.Cells[8,1] := inttostr(nSUM[100,6]);
> ESGbook.Cells[9,1] := inttostr(nSUM[100,7]);
> ESGbook.Cells[10,1] := inttostr(nSUM[100,8]);
> ESGbook.Cells[11,1] := inttostr(nSUM[100,9]);
> ESGbook.Cells[12,1] := inttostr(nSUM[100,11]);
>
> ESGbook.Cells[0,2] := '소계';
> ESGbook.Cells[1,2] := inttostr(nSUM[100,10] - nSUM[101,10]);
> ESGbook.Cells[2,2] := inttostr(nSUM[100,0] - nSUM[101,0]);
> ESGbook.Cells[3,2] := inttostr(nSUM[100,1] - nSUM[101,1]);
> ESGbook.Cells[4,2] := inttostr(nSUM[100,2] - nSUM[101,2]);
> ESGbook.Cells[5,2] := inttostr(nSUM[100,3] - nSUM[101,3]);
> ESGbook.Cells[6,2] := inttostr(nSUM[100,4] - nSUM[101,4]);
> ESGbook.Cells[7,2] := inttostr(nSUM[100,5] - nSUM[101,5]);
> ESGbook.Cells[8,2] := inttostr(nSUM[100,6] - nSUM[101,6]);
> ESGbook.Cells[9,2] := inttostr(nSUM[100,7] - nSUM[101,7]);
> ESGbook.Cells[10,2] := inttostr(nSUM[100,8] - nSUM[101,8]);
> ESGbook.Cells[11,2] := inttostr(nSUM[100,9] - nSUM[101,9]);
> ESGbook.Cells[12,2] := inttostr(nSUM[100,11] - nSUM[101,11]);
>
> for I:=1 to ESGbook.RowCount-1 do
> for J:=1 to 12 do
> if ESGbook.Cells[J,I]='0' then
> ESGbook.Cells[J,I]:='';
>
> end;
>
> 이렇게 그리드에 동적으로 올라온 데이타를 QuickRep에 넣고 싶은데...
>
> rocedure TfmPrBooklist.QuickRep3NeedData(Sender: TObject; var MoreData: Boolean);
> begin
> sSql := fmBooklist.pbRetrieve1Click_sSQL ;
>
> end;
>
> procedure TfmPrBooklist.QuickRep3BeforePrint(Sender: TQuickRep; var PrintReport: Boolean);
> var
> //FName : String ;
> PrblmNumLbl : array[1..1003,1..12] of TQRLabel ;
> PrblmNumShap : array[1..1003,1..12] of TQRShape ;
> PrblmNum,PrblmNum2 : integer;
> begin
> for PrblmNum:=1 to fmBooklist.ESGbook.RowCount - 1 do
> for PrblmNum2:=1 to 12 do begin
> PrblmNumLbl[PrblmNum,PrblmNum2] := TQRLabel.Create(self) ;
> PrblmNumLbl[PrblmNum,PrblmNum2].Parent := QuickRep1 ;
> //PrblmNumLbl[PrblmNum,PrblmNum2].TransParent := True ;
> PrblmNumLbl[PrblmNum,PrblmNum2].Font.Name := '굴림체' ;
> PrblmNumLbl[PrblmNum,PrblmNum2].Font.Size := 10 ;
> PrblmNumLbl[PrblmNum,PrblmNum2].Caption := fmBooklist.ESGbook.Cells[PrblmNum2,PrblmNum] ;
> PrblmNumLbl[PrblmNum,PrblmNum2].width := 65 ;
>
> PrblmNumShap[PrblmNum,PrblmNum2] := TQRShape.Create(self) ;
> PrblmNumShap[PrblmNum,PrblmNum2].Parent := QuickRep1 ;
> PrblmNumShap[PrblmNum,PrblmNum2].Height := 25 ;
> PrblmNumShap[PrblmNum,PrblmNum2].Width := 2;
> PrblmNumShap[PrblmNum,PrblmNum2].Left := QuickRep1.Bands.DetailBand.Left ;
> PrblmNumShap[PrblmNum,PrblmNum2].Top := QuickRep1.Bands.DetailBand.Top +1 ;
>
> if PrblmNum2 = 1 then
> Begin
> PrblmNumLbl[PrblmNum,PrblmNum2].left :=
> QuickRep1.Bands.DetailBand.Left + 72 ;
> PrblmNumShap[PrblmNum,PrblmNum2].Top :=
> QuickRep1.Bands.DetailBand.Top + 21 ;
> end
> else
> Begin
> PrblmNumLbl[PrblmNum,PrblmNum2].left :=
> PrblmNumLbl[PrblmNum,PrblmNum2-1].left + PrblmNumLbl
> [PrblmNum,PrblmNum2].width -2; // + 3
> prblmNumShap[PrblmNum,PrblmNum2].left :=
> prblmNumShap[PrblmNum,PrblmNum2-1].left + 60 ;
> end ;
> if PrblmNum = 1 then
> begin
> PrblmNumLbl[PrblmNum,PrblmNum2].Top := QuickRep1.Bands.DetailBand.Top + 25 ;// 10
> prblmNumShap[PrblmNum,PrblmNum2].left := prblmNumShap[PrblmNum,PrblmNum2-1].left + 60 ;
> end
> else
> begin
> PrblmNumLbl[PrblmNum,PrblmNum2].Top := PrblmNumLbl[PrblmNum-1,PrblmNum2].Top + 20;
> prblmNumShap[PrblmNum,PrblmNum2].left := prblmNumShap[PrblmNum,PrblmNum2-1].left + 60 ;
> end;
> end;
>
> 뭐 이런식으로 구현할려고 했으나 ... 영 잘 안되고... 탐탁치가 않네요.....
>
> 이런방법말고 제가 모르는 좋은 방법이 있는지.. 고수님들의 조언을 듣고자 합니다...
>
> 그럼... 수고하시구요... 좋은 해결책을 찾았으면 합니다...
(NOTICE) You must be logged in to comment on this post.
-
- 이경환
- •
- 2000.08.21 23:13
- 1 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2000.08.21 23:46이경환 wrote: > treeview의 항목을 선택하면 해당 항목에 대하여 hint(?) > ex)한국이라는 항목을 선...
-
- 전성훈
- 2000.08.21 23:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 31-7
- •
- 2000.08.22 00:10
- 1 COMMENTS
- /
- 0 LIKES
-
심동훈•2000.08.22 01:0831-7 wrote: > 안녕하세요. 비트맵파일을 프린트로 출력하는 과정을 하고 있는데요, TPrinter로 인쇄를 ...
-
- 양중모
- 2000.08.21 22:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 동형이
- 2000.08.21 22:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 한미르
- •
- 2000.08.22 04:15
- 2 COMMENTS
- /
- 0 LIKES
-
장성호•2000.08.22 04:15한미르 wrote: > 고수님들..잘 모르겠네염.!! > 도와주세여!! > 회원관리 프로그램을 만들었습니다. > ...
-
윤•2000.08.22 04:16한미르 wrote: > 고수님들..잘 모르겠네염.!! > 도와주세여!! > 회원관리 프로그램을 만들었습니다. > ...
-
- jeyun
- •
- 2000.08.21 21:42
- 2 COMMENTS
- /
- 0 LIKES
-
나그네•2000.08.22 00:14jeyun wrote: > 저의 질문에 빠른 답변을 주시는 분들께 감사드리구요. > 오늘도 또 질문하나 하겠습니다...
-
jeyun•2000.08.22 00:22dbgrid에서 한 셀을 선택해서 sql로 select를 수행하면 dbgrid에 있던 데이타들이 없어져 보이지 않습니다....
-
- 심효찬
- 2000.08.21 21:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 장성호
- •
- 2000.08.21 21:11
- 3 COMMENTS
- /
- 0 LIKES
-
조복기•2000.08.22 03:52안녕하세요~ 변수선언을 통해서 넘겨도 되지만 바로 파라미터로 넘기시면 더 편하지않을까 생각되네여....
-
정지호•2000.08.21 22:13sql문에서 변수앞에 :를 붙여주심 될 것 같습니다. 아래처럼요... 도움이 되셨길 바랍니다 .... ..... ...
-
장성호•2000.08.22 01:11정지호 wrote: > sql문에서 변수앞에 :를 붙여주심 될 것 같습니다. > 아래처럼요... > 도움이 되셨길 ...
-
- 용가리
- •
- 2000.08.21 21:01
- 1 COMMENTS
- /
- 0 LIKES
-
나그네•2000.08.22 00:25용가리 wrote: > > > 삼성레이져5050G에서 인쇄가 안돼요!!!! > > 다른 프린터(삼성 마이젯900...
-
- 곽경남
- •
- 2000.08.21 20:24
- 1 COMMENTS
- /
- 0 LIKES
-
정지호•2000.08.21 22:16곽경남 wrote: > 안녕하세요? > 델파이 초보 곽경남입니다. > > 프로그램 중에 함수명 앞에 procedure...
-
- hnc
- •
- 2000.08.21 20:12
- 1 COMMENTS
- /
- 0 LIKES
-
윤•2000.08.21 20:18제가 아는바로는 PreView이전에 몇페이지인지 알 수 있는 함수로 알고 있습니다. 맞는지 정확하지는 않...
-
- 박찬희
- •
- 2000.08.22 04:18
- 3 COMMENTS
- /
- 0 LIKES
-
윤유섭•2000.08.22 04:18sQl.add('set no =:no, name =: name, jumin =:jumin, tel =:tel, depart ...
-
박찬희•2000.08.22 04:19붙여봤더니 이번엔 또 다른 에러가 뜨네여... 수정부분에서... open...부분... 어떻게 좀 해주세...
-
윤유섭•2000.08.22 04:19SQL.add('update chan'); sQl.add('set no =:no, name =: name, jumin =:jumin, tel =:tel, depart =: dep...
-
- 김성일
- 2000.08.21 19:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 송병철
- •
- 2000.08.21 19:43
- 2 COMMENTS
- /
- 0 LIKES
안녕하세요? 도움을 구하고자 이렇게 글을 올립니다.. 요지는 다음과 같습니다. ========================================================================== procedure TfmBooklist.pbRetrieve1Click(Sender: TObject); var nSUM: arra...-
Windboy•2000.08.21 20:10원하시는 내용인지는 모르겠으나 옛 통합 게시판 Q&A의 5037을 보면 스트링그리드의 내용을 QuickReport...
-
윤유섭•2000.08.21 20:09QuickReport의 QRBang의 OnNeedData Event를 이용하면 StringGrid의 자료를 쉽게 출력할 수 있습니다. ...
-
- 이채성
- •
- 2000.08.21 19:34
- 1 COMMENTS
- /
- 0 LIKES
-
이채성•2000.08.22 23:46자답이네요.. 관련된 소스와 자료를 구하였습니다. 참고하시기 바랍니다. 그리고 소스는 자료실에 올려놓...
-
- 윤준호
- •
- 2000.08.21 19:31
- 3 COMMENTS
- /
- 0 LIKES
-
윤유섭•2000.08.22 18:42에고 이벤트 몇개가 빠졌네요 새로운 Form위에 Button 3개와 StringGrid 1개를 올려놓으세요 1번째 ...
-
윤유섭•2000.08.21 20:15어딘가서 본 자료인데 도움이 될련지... // StringGrid에 CheckBox와 RadioButton을 만들어 주는 부분. ...
-
윤준호•2000.08.22 06:16안되는데요. 다시 한번 갈쳐주셨으면 감사하겠구요, 그 원리도 설명해 주세여
-
- 왕초보
- •
- 2000.08.21 18:52
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•2000.08.21 19:17왕초보 wrote: > Access DB를 ADO로 쓰고 있는데요. > Delet 후에도 DB Size가 줄어들지를 않습니다. > ...
-
- 사발우성
- •
- 2000.08.23 04:15
- 2 COMMENTS
- /
- 0 LIKES
-
주경래•2000.08.23 18:34사발우성 wrote: > sql.Add('select 순번,제품명,고객명,검사수량,합격수량,불량수량,조처결과,검사결과,...
-
사발우성•2000.08.21 20:19주경래 wrote: > 사발우성 wrote: > > sql.Add('select 순번,제품명,고객명,검사수량,합격수량,불량수량,...
-
- 임호빈
- •
- 2000.08.22 04:38
- 1 COMMENTS
- /
- 0 LIKES
-
한근수•2000.08.22 04:38임호빈 wrote: > 안녕하세요 > 문의 사항은 오라클에서 디비를 생성한다음 델파이에있는 데이터 데스크탑...
옛 통합 게시판 Q&A의 5037을 보면
스트링그리드의 내용을 QuickReport로 출력하는
방법이 있습니다...