unit_qingbiao.pas

招投标软件代码,很有应用价值,请大家参考下哦,不明白的地方给我留言

          begin   //超出业主标底105%
            cell1.SetCellString(5,i+6,0,'X');
            cell1.SetCellString(6,i+6,0,'X');
            cell1.SetCellString(7,i+6,0,'X');
            cell1.SetCellString(8,i+6,0,'X');
            cell1.SetCellString(9,i+6,0,'X');
            cell1.SetCellString(10,i+6,0,'X');
            CELL1.SetCellString(11,i+6,0,adoquery.fieldbyname('chabi').AsString+'%');
            cell1.SetCellString(12,i+6,0,'X');
            cell1.SetCellString(13,i+6,0,'X');
            cell1.SetCellString(14,i+6,0,'X');
            cell1.SetCellString(15,i+6,0,'X');
            cell1.SetCellString(16,i+6,0,'X');
          end
          else
          begin
            cell1.SetCellString(5,i+6,0,'进入计算');
            cell1.SetCellString(6,i+6,0,adoquery.fieldbyname('b1').AsString);
            cell1.SetCellString(7,i+6,0,adoquery.fieldbyname('n').AsString);
            cell1.SetCellString(8,i+6,0,adoquery.fieldbyname('b2').AsString);
            cell1.SetCellString(9,i+6,0,adoquery.fieldbyname('c').AsString);
            cell1.SetCellString(10,i+6,0,adoquery.fieldbyname('d').AsString);
            cell1.SetCellString(11,i+6,0,adoquery.fieldbyname('chabi').AsString+'%');
            cell1.SetCellString(12,i+6,0,adoquery.fieldbyname('p').AsString+'%');
            cell1.SetCellString(13,i+6,0,adoquery.fieldbyname('f1').AsString);
            cell1.SetCellString(14,i+6,0,adoquery.fieldbyname('iid').AsString);
            cell1.SetCellString(15,i+6,0,adoquery.fieldbyname('id').AsString);
            cell1.SetCellString(16,i+6,0,adoquery.fieldbyname('h').AsString);

          end;
          adoquery.Next;
        end;
      finally
        freeandnil(adoquery);
      end;
      exit;
    end;
    if com_project.ItemIndex=3 then
    begin
      if cell1.OpenFile(SPATH+'report\shigong\pingbiao\lybzj.cll','')<>1 then
      begin
        showmessage('文件打开错误');
        exit;
      end;
      cell1.ShowSideLabel(0, 0); //不显示行标
      cell1.ShowTopLabel(0, 0);  //不显示列标
      adoquery:=tadoquery.Create(nil);
      try
        adoquery.Close;
        adoquery.Connection:=datamodule1.ADOMainConn;
        adoquery.SQL.Text:=' select b.dw_name,c.bd_BIANHAO,a.bzj_yingjiao,a.bzj_shijiao from bid_baozhengjin a,bid_danwei_xinxi b, '
           +' bid_biaoduan_xinxi c where a.dw_id=b.dw_id and a.bd_isbn=c.bd_isbn and c.xmgczb_id in '
           +' (select xmgczb_id from bid_xmgczb '+' where xm_isbn='''+trim(xmbdgc.XM_ISBn)+''' and gclx_id='+xmbdgc.gCLX_ID
           +' and zblx_id='+xmbdgc.BDLX_ID+') order by bd_bianhao';
        adoquery.Open;
        setCellSheet(cell1,adoquery.RecordCount+1,12);
        adoquery.First;
        for i:=0 to adoquery.RecordCount-1 do
        begin
          ipage:=i div 12;
          irow:=i mod 12;
          cell1.SetCellDouble(1,irow+6,ipage,i+1);
          cell1.SetCellString(2,irow+6,ipage,adoquery.fieldbyname('dw_name').AsString);
          cell1.SetCellString(3,irow+6,ipage,adoquery.fieldbyname('bd_BIANHAO').AsString);
          cell1.SetCellString(4,irow+6,ipage,adoquery.fieldbyname('bzj_yingjiao').AsString);
          if adoquery.fieldbyname('bzj_shijiao').AsString='' then
             cell1.SetCellString(5,irow+6,ipage,'×')
          else
             cell1.SetCellString(5,irow+6,ipage,adoquery.fieldbyname('bzj_shijiao').AsString);
          if adoquery.fieldbyname('bzj_yingjiao').AsFloat<=adoquery.fieldbyname('bzj_shijiao').AsFloat then
             cell1.SetCellString(6,irow+6,ipage,'√')
          else
             cell1.SetCellString(6,irow+6,ipage,'×');
          adoquery.Next;
        end;
      finally
        freeandnil(adoquery);
      end;
      exit;
    end;
    if com_project.ItemIndex=4 then
    begin
      if cell1.OpenFile(SPATH+'report\shigong\pingbiao\fhxsc.cll','')<>1 then
      begin
        showmessage('文件打开错误');
        exit;
      end;
      cell1.ShowSideLabel(0, 0); //不显示行标
      cell1.ShowTopLabel(0, 0);  //不显示列标
      cell1.SetCellString(1,4,0,com_leibie.Text);
      adoquery:=tadoquery.Create(nil);
      try
        adoquery.Connection:=datamodule1.ADOMainConn;
        adoquery.SQL.Text:='select dw_name,qbfhx_1,qbfhx_2,qbfhx_3,qbfhx_4,qbfhx_5,qbfhx_6,qbfhx_7,qbfhx_8,qbfhx_9,qbfhx_10 from bid_qb_fhx a,'
           +' bid_danwei_xinxi b,bid_biaoduan_xinxi c where a.dw_id=b.dw_id and a.bd_isbn=c.bd_isbn and c.xmgczb_id in (select xmgczb_id '
           +' from bid_xmgczb '+' where xm_isbn='''+trim(xmbdgc.XM_ISBn)+''' and gclx_id='+xmbdgc.gCLX_ID
           +' and zblx_id='+xmbdgc.BDLX_ID+') and c.bd_name='''+trim(com_leibie.Text)+'''';
        adoquery.Open;
        adoquery.First;
        for i:=0 to adoquery.recordcount-1 do
        begin
          cell1.SetCellString(i+2,16,0,'√');
          cell1.SetCellString(i+2,5,0,adoquery.fieldbyname('dw_name').AsString);
          if adoquery.fieldbyname('qbfhx_1').AsString='×' then
          begin
            cell1.SetCellString(i+2,6,0,'×');
            cell1.SetCellString(i+2,16,0,'×');
          end
          else if adoquery.fieldbyname('qbfhx_1').AsString='-' then
           cell1.SetCellString(i+2,6,0,'-')
          else
             cell1.SetCellString(i+2,6,0,'√');
          if adoquery.fieldbyname('qbfhx_2').AsString='×' then
          begin
            cell1.SetCellString(i+2,7,0,'×');
            cell1.SetCellString(i+2,16,0,'×');
          end
          else if adoquery.fieldbyname('qbfhx_2').AsString='-' then
           cell1.SetCellString(i+2,7,0,'-')
          else
             cell1.SetCellString(i+2,7,0,'√');
          if adoquery.fieldbyname('qbfhx_3').AsString='×' then
          begin
            cell1.SetCellString(i+2,8,0,'×');
            cell1.SetCellString(i+2,16,0,'×');
          end
          else if adoquery.fieldbyname('qbfhx_3').AsString='-' then
            cell1.SetCellString(i+2,8,0,'-')
          else
             cell1.SetCellString(i+2,8,0,'√');
          if adoquery.fieldbyname('qbfhx_4').AsString='×' then
          begin
            cell1.SetCellString(i+2,9,0,'×');
            cell1.SetCellString(i+2,16,0,'×');
          end
          else if adoquery.fieldbyname('qbfhx_4').AsString='-' then
             cell1.SetCellString(i+2,9,0,'-')
          else
             cell1.SetCellString(i+2,9,0,'√');
          if adoquery.fieldbyname('qbfhx_5').AsString='×' then
          begin
            cell1.SetCellString(i+2,10,0,'×');
            cell1.SetCellString(i+2,16,0,'×');
          end
          else if adoquery.fieldbyname('qbfhx_5').AsString='-' then
             cell1.SetCellString(i+2,10,0,'-')
          else
             cell1.SetCellString(i+2,10,0,'√');
          if adoquery.fieldbyname('qbfhx_6').AsString='×' then
          begin
            cell1.SetCellString(i+2,11,0,'×');
            cell1.SetCellString(i+2,16,0,'×');
          end
          else if adoquery.fieldbyname('qbfhx_6').AsString='-' then
             cell1.SetCellString(i+2,11,0,'-')
          else
             cell1.SetCellString(i+2,11,0,'√');
          if adoquery.fieldbyname('qbfhx_7').AsString='×' then
          begin
            cell1.SetCellString(i+2,12,0,'×');
            cell1.SetCellString(i+2,16,0,'×');
          end
          else if adoquery.fieldbyname('qbfhx_7').AsString='-' then
             cell1.SetCellString(i+2,12,0,'-')
          else
             cell1.SetCellString(i+2,12,0,'√');
          if adoquery.fieldbyname('qbfhx_8').AsString='×' then
          begin
            cell1.SetCellString(i+2,13,0,'×');
            cell1.SetCellString(i+2,16,0,'×');
          end
          else  if adoquery.fieldbyname('qbfhx_8').AsString='-' then
             cell1.SetCellString(i+2,13,0,'-')
          else
             cell1.SetCellString(i+2,13,0,'√');
          if adoquery.fieldbyname('qbfhx_9').AsString='×' then
          begin
            cell1.SetCellString(i+2,14,0,'×');
            cell1.SetCellString(i+2,16,0,'×');
          end
          else if adoquery.fieldbyname('qbfhx_9').AsString='-' then
             cell1.SetCellString(i+2,14,0,'-')
          else
             cell1.SetCellString(i+2,14,0,'√');
          if adoquery.fieldbyname('qbfhx_10').AsString='×' then
          begin
            cell1.SetCellString(i+2,15,0,'×');
            cell1.SetCellString(i+2,16,0,'×');
          end
          else  if adoquery.fieldbyname('qbfhx_10').AsString='-' then
             cell1.SetCellString(i+2,15,0,'-')
          else
             cell1.SetCellString(i+2,15,0,'√');
          adoquery.next;
        end;
      finally
        freeandnil(adoquery);
      end;
      exit;
    end;
    if com_project.ItemIndex=5 then
    begin
      if cell1.OpenFile(SPATH+'report\shigong\pingbiao\xmjssc.cll','')<>1 then
      begin
        showmessage('文件打开错误');
        exit;
      end;
      cell1.ShowSideLabel(0, 0); //不显示行标
      cell1.ShowTopLabel(0, 0);  //不显示列标
      cell1.SetCellString(1,4,0,com_leibie.Text);
      adoquery:=tadoquery.create(nil);
      try
        adoquery.Close;
        adoquery.Connection:=datamodule1.ADOMainConn;
        adoquery.SQL.Text:='select dw_name,qbqzx_1,qbqzx_2,qbqzx_3,qbqzx_4,qbqzx_5,qbqzx_6 from bid_qb_qzx a,'
           +' bid_danwei_xinxi b,bid_biaoduan_xinxi c where a.dw_id=b.dw_id and a.bd_isbn=c.bd_isbn and c.xmgczb_id in (select xmgczb_id '
           +' from bid_xmgczb '+' where xm_isbn='''+trim(xmbdgc.XM_ISBn)+''' and gclx_id='+xmbdgc.gCLX_ID
           +' and zblx_id='+xmbdgc.BDLX_ID+') and c.bd_name='''+trim(com_leibie.Text)+'''';
        adoquery.Open;
        adoquery.First;
        for i:=0 to adoquery.RecordCount-1 do
        begin
          cell1.SetCellDouble(1,i+6,0,i+1);
          cell1.SetCellString(2,i+6,0,adoquery.fieldbyname('dw_name').AsString);
          cell1.SetCellString(9,i+6,0,'√');
          if trim(adoquery.fieldbyname('qbqzx_1').AsString)='×' then
          begin
            cell1.SetCellString(3,i+6,0,'×');
            cell1.SetCellString(9,i+6,0,'×');
          end
          else  if adoquery.fieldbyname('qbqzx_1').AsString='-' then
             cell1.SetCellString(3,i+6,0,'-')
          else
             cell1.SetCellString(3,i+6,0,'√');
          if adoquery.fieldbyname('qbqzx_2').AsString='×' then
          begin
            cell1.SetCellString(4,i+6,0,'×');
            cell1.SetCellString(9,i+6,0,'×');
          end
          else  if adoquery.fieldbyname('qbqzx_2').AsString='-' then
             cell1.SetCellString(4,i+6,0,'-')
          else
             cell1.SetCellString(4,i+6,0,'√');
          if adoquery.fieldbyname('qbqzx_3').AsString='×' then
          begin
            cell1.SetCellString(5,i+6,0,'×');
            cell1.SetCellString(9,i+6,0,'×');
          end
          else  if adoquery.fieldbyname('qbqzx_3').AsString='-' then
             cell1.SetCellString(5,i+6,0,'-')
          else
             cell1.SetCellString(5,i+6,0,'√');
          if adoquery.fieldbyname('qbqzx_4').AsString='×' then
          begin
            cell1.SetCellString(6,i+6,0,'×');
            cell1.SetCellString(9,i+6,0,'×');
          end
          else  if adoquery.fieldbyname('qbqzx_4').AsString='-' then
             cell1.SetCellString(6,i+6,0,'-')
          else
             cell1.SetCellString(6,i+6,0,'√');
          if adoquery.fieldbyname('qbqzx_5').AsString='×' then
          begin
            cell1.SetCellString(7,i+6,0,'×');
            cell1.SetCellString(9,i+6,0,'×');
          end
          else  if adoquery.fieldbyname('qbqzx_5').AsString='-' then
             cell1.SetCellString(7,i+6,0,'-')
          else
             cell1.SetCellString(7,i+6,0,'√');
          if adoquery.fieldbyname('qbqzx_6').AsString='×' then
          begin
            cell1.SetCellString(8,i+6,0,'×');
            cell1.SetCellString(9,i+6,0,'×');
          end
          else  if adoquery.fieldbyname('qbqzx_6').AsString='-' then
             cell1.SetCellString(8,i+6,0,'-')
          else
             cell1.SetCellString(8,i+6,0,'√');
          adoquery.Next;
        end;
      finally
        freeandnil(adoquery);
      end;
      exit;
    end;
  end
  else if com_zhaobiao.Text='监理' then
  begin
    if com_project.ItemIndex=0 then
    begin
      if cell1.OpenFile(SPATH+'report\jianli\pingbiao\fhxsc.cll','')<>1 then
      begin
        showmessage('文件打开错误');
        exit;
      end;
      cell1.SetCellString(1,4,0,com_leibie.Text);
      cell1.ShowSideLabel(0, 0); //不显示行标
      cell1.ShowTopLabel(0, 0);  //不显示列标
      adoquery:=tadoquery.Create(nil);
      adoquery.Connection:=datamodule1.ADOMainConn;
      adoquery.SQL.Text:='select dw_name,qbfhx_1,qbfhx_2,qbfhx_3,qbfhx_4,qbfhx_5,qbfhx_6,qbfhx_7,qbfhx_8,qbfhx_9 from bid_qb_fhx a,'
         +' bid_danwei_xinxi b,bid_biaoduan_xinxi c where a.dw_id=b.dw_id and a.bd_isbn=c.bd_isbn and c.xmgczb_id in (select xmgczb_id '
         +' from bid_xmgczb '+' where xm_isbn='''+trim(xmbdgc.XM_ISBn)+''' and gclx_id='+xmbdgc.gCLX_ID
         +' and zblx_id='+xmbdgc.BDLX_ID+') and c.bd_name='''+trim(com_leibie.Text)+'''';
      adoquery.Open;
      adoquery.First;
      for i:=0 to adoquery.recordcount-1 do
      begin
        cell1.SetCellString(i+2,15,0,'√');
        cell1.SetCellString(i+2,5,0,adoquery.fieldbyname('dw_name').AsString);
        if adoquery.fieldbyname('qbfhx_1').AsString='×' then
        begin