?? unmakereportdetail.pas
字號:
end;
if((sgNormal.RowCount>2) and (sgNormal.ColCount>7))then
begin
tShape7.Left:=tShape6.Left+ColumnWidth[6];
tShape7.Width:=ColumnWidth[7];
rQRLabel7.Left:=tShape6.Left+6;
rQRLabel7.Width:=ColumnWidth[7]-9;
rQRLabel7.Caption:= sgNormal.Cells[7,2];
end;
if((sgNormal.RowCount>2) and (sgNormal.ColCount>8))then
begin
tShape8.Left:=tShape7.Left+ColumnWidth[7];
tShape8.Width:=ColumnWidth[8];
rQRLabel8.Left:=tShape8.Left+6;
rQRLabel8.Width:=ColumnWidth[8]-9;
rQRLabel8.Caption:= sgNormal.Cells[8,2];
end;
if((sgNormal.RowCount>2) and (sgNormal.ColCount>9))then
begin
tShape9.Left:=tShape8.Left+ColumnWidth[8];
tShape9.Width:=ColumnWidth[9];
rQRLabel9.Left:=tShape9.Left+6;
rQRLabel9.Width:=ColumnWidth[9]-9;
rQRLabel9.Caption:= sgNormal.Cells[9,2];
end;
if((sgNormal.RowCount>2) and (sgNormal.ColCount>10))then
begin
tShape10.Left:=tShape9.Left+ColumnWidth[9];
tShape10.Width:=ColumnWidth[10];
rQRLabel10.Left:=tShape10.Left+6;
rQRLabel10.Width:=ColumnWidth[10]-9;
rQRLabel10.Caption:= sgNormal.Cells[10,2];
end;
// 固定位置--Fourth行
if((sgNormal.RowCount>3) and (sgNormal.ColCount>0))then
begin
fShape0.Left:=0;
fShape0.Width:=ColumnWidth[0];
QRLabel0.Left:=fShape0.Left+6;
fQRLabel0.Width:=ColumnWidth[0]-9;
fQRLabel0.Caption:= sgNormal.Cells[0,3];
end;
if((sgNormal.RowCount>3) and (sgNormal.ColCount>1))then
begin
fShape1.Left:=fShape0.Left+ColumnWidth[0];
fShape1.Width:=ColumnWidth[1];
fQRLabel1.Left:=fShape1.Left+6;
fQRLabel1.Width:=ColumnWidth[1]-9;
fQRLabel1.Caption:= sgNormal.Cells[1,3];
end;
if((sgNormal.RowCount>3) and (sgNormal.ColCount>2))then
begin
fShape2.Left:=fShape1.Left+ColumnWidth[1];
fShape2.Width:=ColumnWidth[2];
fQRLabel2.Left:=fShape2.Left+6;
fQRLabel2.Width:=ColumnWidth[2]-9;
fQRLabel2.Caption:= sgNormal.Cells[2,3];
end;
if((sgNormal.RowCount>3) and (sgNormal.ColCount>3))then
begin
fShape3.Left:=fShape2.Left+ColumnWidth[2];
fShape3.Width:=ColumnWidth[3];
fQRLabel3.Left:=fShape3.Left+6;
fQRLabel3.Width:=ColumnWidth[3]-9;
fQRLabel3.Caption:= sgNormal.Cells[3,3];
end;
if((sgNormal.RowCount>3) and (sgNormal.ColCount>4))then
begin
fShape4.Left:=fShape3.Left+ColumnWidth[3];
fShape4.Width:=ColumnWidth[4];
fQRLabel4.Left:=fShape4.Left+6;
fQRLabel4.Width:=ColumnWidth[4]-9;
fQRLabel4.Caption:= sgNormal.Cells[4,3];
end;
if((sgNormal.RowCount>3) and (sgNormal.ColCount>5))then
begin
fShape5.Left:=fShape4.Left+ColumnWidth[4];
fShape5.Width:=ColumnWidth[5];
fQRLabel5.Left:=fShape5.Left+6;
fQRLabel5.Width:=ColumnWidth[5]-9;
fQRLabel5.Caption:= sgNormal.Cells[5,3];
end;
if((sgNormal.RowCount>3) and (sgNormal.ColCount>6))then
begin
fShape6.Left:=fShape5.Left+ColumnWidth[5];
fShape6.Width:=ColumnWidth[6];
fQRLabel6.Left:=fShape6.Left+6;
fQRLabel6.Width:=ColumnWidth[6]-9;
fQRLabel6.Caption:= sgNormal.Cells[6,3];
end;
if((sgNormal.RowCount>3) and (sgNormal.ColCount>7))then
begin
fShape7.Left:=fShape6.Left+ColumnWidth[6];
fShape7.Width:=ColumnWidth[7];
fQRLabel7.Left:=fShape6.Left+6;
fQRLabel7.Width:=ColumnWidth[7]-9;
fQRLabel7.Caption:= sgNormal.Cells[7,3];
end;
if((sgNormal.RowCount>3) and (sgNormal.ColCount>8))then
begin
fShape8.Left:=fShape7.Left+ColumnWidth[7];
fShape8.Width:=ColumnWidth[8];
fQRLabel8.Left:=fShape8.Left+6;
fQRLabel8.Width:=ColumnWidth[8]-9;
fQRLabel8.Caption:= sgNormal.Cells[8,3];
end;
if((sgNormal.RowCount>3) and (sgNormal.ColCount>9))then
begin
fShape9.Left:=fShape8.Left+ColumnWidth[8];
fShape9.Width:=ColumnWidth[9];
fQRLabel9.Left:=fShape9.Left+6;
fQRLabel9.Width:=ColumnWidth[9]-9;
fQRLabel9.Caption:= sgNormal.Cells[9,3];
end;
if((sgNormal.RowCount>3) and (sgNormal.ColCount>10))then
begin
fShape10.Left:=fShape9.Left+ColumnWidth[9];
fShape10.Width:=ColumnWidth[10];
fQRLabel10.Left:=fShape10.Left+6;
fQRLabel10.Width:=ColumnWidth[10]-9;
fQRLabel10.Caption:= sgNormal.Cells[10,3];
end;
// 位置--FIFTH行
if((sgNormal.RowCount>4) and (sgNormal.ColCount>0))then
begin
wShape0.Left:=0;
wShape0.Width:=ColumnWidth[0];
QRLabel0.Left:=wShape0.Left+6;
vQRLabel0.Width:=ColumnWidth[0]-9;
vQRLabel0.Caption:= sgNormal.Cells[0,4];
end;
if((sgNormal.RowCount>4) and (sgNormal.ColCount>1))then
begin
wShape1.Left:=wShape0.Left+ColumnWidth[0];
wShape1.Width:=ColumnWidth[1];
vQRLabel1.Left:=wShape1.Left+6;
vQRLabel1.Width:=ColumnWidth[1]-9;
vQRLabel1.Caption:= sgNormal.Cells[1,4];
end;
if((sgNormal.RowCount>4) and (sgNormal.ColCount>2))then
begin
wShape2.Left:=wShape1.Left+ColumnWidth[1];
wShape2.Width:=ColumnWidth[2];
vQRLabel2.Left:=wShape2.Left+6;
vQRLabel2.Width:=ColumnWidth[2]-9;
vQRLabel2.Caption:= sgNormal.Cells[2,4];
end;
if((sgNormal.RowCount>4) and (sgNormal.ColCount>3))then
begin
wShape3.Left:=wShape2.Left+ColumnWidth[2];
wShape3.Width:=ColumnWidth[3];
vQRLabel3.Left:=wShape3.Left+6;
vQRLabel3.Width:=ColumnWidth[3]-9;
vQRLabel3.Caption:= sgNormal.Cells[3,4];
end;
if((sgNormal.RowCount>4) and (sgNormal.ColCount>4))then
begin
wShape4.Left:=wShape3.Left+ColumnWidth[3];
wShape4.Width:=ColumnWidth[4];
vQRLabel4.Left:=wShape4.Left+6;
vQRLabel4.Width:=ColumnWidth[4]-9;
vQRLabel4.Caption:= sgNormal.Cells[4,4];
end;
if((sgNormal.RowCount>4) and (sgNormal.ColCount>5))then
begin
wShape5.Left:=wShape4.Left+ColumnWidth[4];
wShape5.Width:=ColumnWidth[5];
vQRLabel5.Left:=wShape5.Left+6;
vQRLabel5.Width:=ColumnWidth[5]-9;
vQRLabel5.Caption:= sgNormal.Cells[5,4];
end;
if((sgNormal.RowCount>4) and (sgNormal.ColCount>6))then
begin
wShape6.Left:=wShape5.Left+ColumnWidth[5];
wShape6.Width:=ColumnWidth[6];
vQRLabel6.Left:=wShape6.Left+6;
vQRLabel6.Width:=ColumnWidth[6]-9;
vQRLabel6.Caption:= sgNormal.Cells[6,4];
end;
if((sgNormal.RowCount>4) and (sgNormal.ColCount>7))then
begin
wShape7.Left:=wShape6.Left+ColumnWidth[6];
wShape7.Width:=ColumnWidth[7];
vQRLabel7.Left:=wShape6.Left+6;
vQRLabel7.Width:=ColumnWidth[7]-9;
vQRLabel7.Caption:= sgNormal.Cells[7,4];
end;
if((sgNormal.RowCount>4) and (sgNormal.ColCount>8))then
begin
wShape8.Left:=wShape7.Left+ColumnWidth[7];
wShape8.Width:=ColumnWidth[8];
vQRLabel8.Left:=wShape8.Left+6;
vQRLabel8.Width:=ColumnWidth[8]-9;
vQRLabel8.Caption:= sgNormal.Cells[8,4];
end;
if((sgNormal.RowCount>4) and (sgNormal.ColCount>9))then
begin
wShape9.Left:=wShape8.Left+ColumnWidth[8];
wShape9.Width:=ColumnWidth[9];
vQRLabel9.Left:=wShape9.Left+6;
vQRLabel9.Width:=ColumnWidth[9]-9;
vQRLabel9.Caption:= sgNormal.Cells[9,4];
end;
if((sgNormal.RowCount>4) and (sgNormal.ColCount>10))then
begin
wShape10.Left:=wShape9.Left+ColumnWidth[9];
wShape10.Width:=ColumnWidth[10];
vQRLabel10.Left:=wShape10.Left+6;
vQRLabel10.Width:=ColumnWidth[10]-9;
vQRLabel10.Caption:= sgNormal.Cells[10,4];
end;
// 位置--sixth行
if((sgNormal.RowCount>5) and (sgNormal.ColCount>0))then
begin
xShape0.Left:=0;
xShape0.Width:=ColumnWidth[0];
QRLabel0.Left:=xShape0.Left+6;
qQRLabel0.Width:=ColumnWidth[0]-9;
qQRLabel0.Caption:= sgNormal.Cells[0,5];
end;
if((sgNormal.RowCount>5) and (sgNormal.ColCount>1))then
begin
xShape1.Left:=xShape0.Left+ColumnWidth[0];
xShape1.Width:=ColumnWidth[1];
qQRLabel1.Left:=xShape1.Left+6;
qQRLabel1.Width:=ColumnWidth[1]-9;
qQRLabel1.Caption:= sgNormal.Cells[1,5];
end;
if((sgNormal.RowCount>5) and (sgNormal.ColCount>2))then
begin
xShape2.Left:=xShape1.Left+ColumnWidth[1];
xShape2.Width:=ColumnWidth[2];
qQRLabel2.Left:=xShape2.Left+6;
qQRLabel2.Width:=ColumnWidth[2]-9;
qQRLabel2.Caption:= sgNormal.Cells[2,5];
end;
if((sgNormal.RowCount>5) and (sgNormal.ColCount>3))then
begin
xShape3.Left:=xShape2.Left+ColumnWidth[2];
xShape3.Width:=ColumnWidth[3];
qQRLabel3.Left:=xShape3.Left+6;
qQRLabel3.Width:=ColumnWidth[3]-9;
qQRLabel3.Caption:= sgNormal.Cells[3,5];
end;
if((sgNormal.RowCount>5) and (sgNormal.ColCount>4))then
begin
xShape4.Left:=xShape3.Left+ColumnWidth[3];
xShape4.Width:=ColumnWidth[4];
qQRLabel4.Left:=xShape4.Left+6;
qQRLabel4.Width:=ColumnWidth[4]-9;
qQRLabel4.Caption:= sgNormal.Cells[4,5];
end;
if((sgNormal.RowCount>5) and (sgNormal.ColCount>5))then
begin
xShape5.Left:=xShape4.Left+ColumnWidth[4];
xShape5.Width:=ColumnWidth[5];
qQRLabel5.Left:=xShape5.Left+6;
qQRLabel5.Width:=ColumnWidth[5]-9;
qQRLabel5.Caption:= sgNormal.Cells[5,5];
end;
if((sgNormal.RowCount>5) and (sgNormal.ColCount>6))then
begin
xShape6.Left:=xShape5.Left+ColumnWidth[5];
xShape6.Width:=ColumnWidth[6];
qQRLabel6.Left:=xShape6.Left+6;
qQRLabel6.Width:=ColumnWidth[6]-9;
qQRLabel6.Caption:= sgNormal.Cells[6,5];
end;
if((sgNormal.RowCount>5) and (sgNormal.ColCount>7))then
begin
xShape7.Left:=xShape6.Left+ColumnWidth[6];
xShape7.Width:=ColumnWidth[7];
qQRLabel7.Left:=xShape6.Left+6;
qQRLabel7.Width:=ColumnWidth[7]-9;
qQRLabel7.Caption:= sgNormal.Cells[7,5];
end;
if((sgNormal.RowCount>5) and (sgNormal.ColCount>8))then
begin
xShape8.Left:=xShape7.Left+ColumnWidth[7];
xShape8.Width:=ColumnWidth[8];
qQRLabel8.Left:=xShape8.Left+6;
qQRLabel8.Width:=ColumnWidth[8]-9;
qQRLabel8.Caption:= sgNormal.Cells[8,5];
end;
if((sgNormal.RowCount>5) and (sgNormal.ColCount>9))then
begin
xShape9.Left:=xShape8.Left+ColumnWidth[8];
xShape9.Width:=ColumnWidth[9];
qQRLabel9.Left:=xShape9.Left+6;
qQRLabel9.Width:=ColumnWidth[9]-9;
qQRLabel9.Caption:= sgNormal.Cells[9,5];
end;
if((sgNormal.RowCount>5) and (sgNormal.ColCount>10))then
begin
xShape10.Left:=xShape9.Left+ColumnWidth[9];
xShape10.Width:=ColumnWidth[10];
qQRLabel10.Left:=xShape10.Left+6;
qQRLabel10.Width:=ColumnWidth[10]-9;
qQRLabel10.Caption:= sgNormal.Cells[10,5];// qrlTotal.Caption:= '總計'+edTotal.Text;
end;
// 位置--seventh行
if((sgNormal.RowCount>6) and (sgNormal.ColCount>0))then
begin
vShape0.Left:=0;
vShape0.Width:=ColumnWidth[0];
QRLabel0.Left:=vShape0.Left+6;
vLabel0.Width:=ColumnWidth[0]-9;
vLabel0.Caption:= sgNormal.Cells[0,6];
end;
if((sgNormal.RowCount>6) and (sgNormal.ColCount>1))then
begin
vShape1.Left:=vShape0.Left+ColumnWidth[0];
vShape1.Width:=ColumnWidth[1];
vLabel1.Left:=vShape1.Left+6;
vLabel1.Width:=ColumnWidth[1]-9;
vLabel1.Caption:= sgNormal.Cells[1,6];
end;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -