unmakereportdetail.pas

本产品是开发LISTVIEW相关功能的可定制产品

    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;