qd_rep.pas

工程预算系统

    v.Memo.Add(getstr(array_jbxx[11]));
    page.Objects.Add(v);
  end;

//创建标题
  if Trim(array_jbxx[12])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_jbxx[14]),getstr(array_jbxx[12]),getqdzh(array_jbxx[15]));
    nh:=getqdh(getqdzt(array_jbxx[14]),getstr(array_jbxx[12]),getqdzh(array_jbxx[15]));
    nl:=round((dx-nw)/2);  //Round(dx/2)-80
    v.SetBounds(nl,ntopdis+10,nw,nh);
    v.Font.Name:=array_jbxx[14];
    v.Font.Size:=strtoint(array_jbxx[15]);
    v.Font.Color:=strtoint(array_jbxx[16]);
    v.Alignment:=10;
    v.Memo.Add(getstr(array_jbxx[12]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[13])<>'' then
  begin
    v:=TfrMemoView.Create;
    v.SetBounds(Round(nwidth/2)-60,ntopdis+40,300,20);
    v.Memo.Add(getstr(array_jbxx[13]));
    page.Objects.Add(v);
  end;

//创建右题注
  if Trim(array_jbxx[17])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[17]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[17]),getqdzh(array_dyxx[9]));
    v.SetBounds(nwidth-nh+nleftdis,ntopdis,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[17]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[18])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[18]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[18]),getqdzh(array_dyxx[9]));
    v.SetBounds(nwidth-nh+nleftdis,ntopdis+20,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[18]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[19])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[19]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[19]),getqdzh(array_dyxx[9]));
    v.SetBounds(nwidth-nh+nleftdis,ntopdis+40,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[19]));
    page.Objects.Add(v);
  end;
//表注上
  if Trim(array_jbxx[26])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[26]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[26]),getqdzh(array_dyxx[9]));
    v.SetBounds(nleftdis,ntopdis+58,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[26]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[27])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[27]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[27]),getqdzh(array_dyxx[9]));
    v.SetBounds(nleftdis,ntopdis+76,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[27]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[28])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[28]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[28]),getqdzh(array_dyxx[9]));
    v.SetBounds(nleftdis,ntopdis+94,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[28]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[29])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[29]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[29]),getqdzh(array_dyxx[9]));
    v.SetBounds(Round(nwidth/2)-60,ntopdis+58,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[29]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[30])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[30]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[30]),getqdzh(array_dyxx[9]));
    v.SetBounds(Round(nwidth/2)-60,ntopdis+76,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[30]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[31])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[31]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[31]),getqdzh(array_dyxx[9]));
    v.SetBounds(Round(nwidth/2)-60,ntopdis+94,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[31]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[32])<>'' then
    nmax_width[1]:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[32]),getqdzh(array_dyxx[9]))
  else
    nmax_width[1]:=0;

  if Trim(array_jbxx[33])<>'' then
    nmax_width[2]:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[33]),getqdzh(array_dyxx[9]))
  else
    nmax_width[2]:=0;

  if Trim(array_jbxx[34])<>'' then
    nmax_width[3]:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[34]),getqdzh(array_dyxx[9]))
  else
    nmax_width[3]:=0;

  nmax:=getmax(nmax_width[1],nmax_width[2],nmax_width[3]);
  if Trim(array_jbxx[32])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[32]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[32]),getqdzh(array_dyxx[9]));
    v.SetBounds(nwidth-nmax+nleftdis,ntopdis+58,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[32]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[33])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[33]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[33]),getqdzh(array_dyxx[9]));
    v.SetBounds(nwidth-nmax+nleftdis,ntopdis+76,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[33]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[34])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[34]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[34]),getqdzh(array_dyxx[9]));
    v.SetBounds(nwidth-nmax+nleftdis,ntopdis+94,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[34]));
    page.Objects.Add(v);
  end;

end;
//end;

{创建清单表注下}
procedure createqdbzx(frrep:TfrReport;npage:integer;nup:integer;mygrid:TStringgrid);
var
  v:TfrMemoView;
  page:TfrPage;
  nleftdis:integer;//报表上，下，左，右边距的值
  nw,nh:integer;
  ntemp,nwidth,i:integer;
  nmax_width:array[1..3] of integer;
  nmax:integer;
begin
  page:=frrep.Pages.Pages[npage];

  nleftdis:=strtoint(array_jbxx[4])*3;
//  nrightdis:=strtoint(array_jbxx[6])*3;

  ntemp:=0;
  for i:=0 to mygrid.ColCount-1 do
    ntemp:=ntemp+mygrid.ColWidths[i];

  if Trim(array_jbxx[1])='1' then               //表头框架的宽度
    nwidth:=ntemp
  else
    nwidth:=ntemp-mygrid.ColWidths[0];

    
  if Trim(array_jbxx[35])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[35]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[35]),getqdzh(array_dyxx[9]));
    v.SetBounds(nleftdis,nup+35,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[35]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[38])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[38]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[38]),getqdzh(array_dyxx[9]));
    v.SetBounds(nleftdis,nup+53,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[38]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[41])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[41]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[41]),getqdzh(array_dyxx[9]));
    v.SetBounds(nleftdis,nup+71,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[41]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[36])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[36]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[36]),getqdzh(array_dyxx[9]));
    v.SetBounds(Round(nwidth/2)-60,nup+35,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[36]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[39])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[39]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[39]),getqdzh(array_dyxx[9]));
    v.SetBounds(Round(nwidth/2)-60,nup+53,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[39]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[42])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[42]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[42]),getqdzh(array_dyxx[9]));
    v.SetBounds(Round(nwidth/2)-60,nup+71,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[42]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[37])<>'' then
    nmax_width[1]:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[37]),getqdzh(array_dyxx[9]))
  else
    nmax_width[1]:=0;

  if Trim(array_jbxx[40])<>'' then
    nmax_width[2]:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[40]),getqdzh(array_dyxx[9]))
  else
    nmax_width[2]:=0;

  if Trim(array_jbxx[43])<>'' then
    nmax_width[3]:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[43]),getqdzh(array_dyxx[9]))
  else
    nmax_width[3]:=0;

  nmax:=getmax(nmax_width[1],nmax_width[2],nmax_width[3]);

  if Trim(array_jbxx[37])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[37]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[37]),getqdzh(array_dyxx[9]));
    v.SetBounds(nwidth-nmax+nleftdis,nup+35,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[37]));
    page.Objects.Add(v);
  end;

  if Trim(array_jbxx[40])<>'' then
  begin
    v:=TfrMemoView.Create;
    nw:=getqdw(getqdzt(array_dyxx[8]),getstr(array_jbxx[40]),getqdzh(array_dyxx[9]));
    nh:=getqdh(getqdzt(array_dyxx[8]),getstr(array_jbxx[40]),getqdzh(array_dyxx[9]));
    v.SetBounds(nwidth-nmax+nleftdis,nup+53,nw,nh);
    v.Font.Name:=getqdzt(array_dyxx[8]);
    v.Font.Size:=getqdzh(array_dyxx[9]);
    v.Font.Color:=getqdys(array_dyxx[10]);
    v.Memo.Add(getstr(array_jbxx[40]));
    page.Objects.Add(v);
  end;