u_zhongbiaobg.pas

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

      if  fileexists(GetFilePath+inttostr(i)+'_tbbj.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='投标报价审查--'+inttostr(i);
      end;
    end;
    for i:=1 to bdsl do
    begin
      if  fileexists(GetFilePath+inttostr(i)+'_fhbd.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='符合标底计算--'+inttostr(i);
      end;
    end;
    for i:=1 to bdsl do
    begin
      if  fileexists(GetFilePath+inttostr(i)+'_lybzj.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='履约保证金一览表--'+inttostr(i);
      end;
    end;
    for i:=1 to bdsl do
    begin
      if  fileexists(GetFilePath+inttostr(i)+'_fhxsc.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='符合性审查--'+inttostr(i);
      end;
    end;
    for i:=1 to bdsl do
    begin
      if  fileexists(GetFilePath+inttostr(i)+'_xmjssc.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='项目技术审查--'+inttostr(i);
      end;
    end;
    for i:=1 to bdsl do
    begin
      if  fileexists(GetFilePath+inttostr(i)+'_xmtbjshpbpx.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='评标价--'+inttostr(i);
      end;
    end;
    if fileexists(GetFilePath+'zbhxr.cll')   then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='中标候选人';
    end;
    if fileexists(GetFilePath+'zbdw.cll')   then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='中标确定';
    end;
    if fileexists(GetFilePath+'pwhmd.cll')   then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='委员会名单';
    end;
    if fileexists(GetFilePath+'jdgzz.cll')   then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='评标监督小组名单';
    end;
    if fileexists(GetFilePath+'qbgzz.cll')   then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='清标工作组名单';
    end;
  end
  else if com_zhaobiao.Text='监理' then
  begin
    if fileexists(GetFilePath+'yzbd.cll') then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='业主标底';
    end;
    for i:=1 to bdsl do
    begin
      if  fileexists(GetFilePath+inttostr(i)+'_kbjl.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='开标记录--'+inttostr(i);
      end;
    end;
    for i:=1 to bdsl do
    begin
      if  fileexists(GetFilePath+inttostr(i)+'_fhxsc.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='符合性审查--'+inttostr(i);
      end;
    end;
    for i:=1 to bdsl do
    begin
      if  fileexists(GetFilePath+inttostr(i)+'_ssxh.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='投标报价算术性校核--'+inttostr(i);
      end;
    end;
    for i:=1 to bdsl do
    begin
      if  fileexists(GetFilePath+inttostr(i)+'_xmjssc.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='详细评审--'+inttostr(i);
      end;
    end;
    for i:=1 to bdsl do
    begin
      if  fileexists(GetFilePath+inttostr(i)+'_jsjyspfhz.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='技术建议书评审--'+inttostr(i);
      end;
    end;
    for i:=1 to bdsl do
    begin
      if  fileexists(GetFilePath+inttostr(i)+'_cwjyspfhz.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='财务建议书评审--'+inttostr(i);
      end;
    end;
    for i:=1 to bdsl do
    begin
      if  fileexists(GetFilePath+inttostr(i)+'_jlpfhz.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='监理综合评分排序--'+inttostr(i);
      end;
    end;
    if fileexists(GetFilePath+'zbhxr.cll')   then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='中标候选人';
    end;
    if fileexists(GetFilePath+'zbdw.cll')   then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='中标确定';
    end;
    if fileexists(GetFilePath+'pwhmd.cll')   then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='委员会名单';
    end;
    if fileexists(GetFilePath+'jdgzz.cll')   then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='评标监督小组名单';
    end;
    if fileexists(GetFilePath+'qbgzz.cll')   then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='清标工作组名单';
    end;
  end
  else if com_zhaobiao.Text='设计' then
  begin
    for i:=1 to bdsl do
    begin
      if  fileexists(GetFilePath+inttostr(i)+'_kbjl.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='开标记录--'+inttostr(i);
      end;
    end;
    for i:=1 to bdsl do
    begin
      if  fileexists(GetFilePath+inttostr(i)+'_cwAndjs.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='商务和技术--'+inttostr(i);
      end;
    end;
    for i:=1 to bdsl do
    begin
      for j:=1 to 7 do
      begin
        if  fileexists(GetFilePath+inttostr(i)+'_'+inttostr(j)+'_zhuanjiadafen.cll') then
        begin
          alistitem:=listview1.Items.Add;
          alistitem.Caption:='专家打分表--'+inttostr(i)+'--'+inttostr(j);
        end;
      end;
    end;
    for i:=1 to bdsl do
    begin
      if  fileexists(GetFilePath+inttostr(i)+'_baojiaqd.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='报价清单--'+inttostr(i);
      end;
    end;
    for i:=1 to bdsl do
    begin
      if  fileexists(GetFilePath+inttostr(i)+'_pbdefen.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='评标价得分计算表--'+inttostr(i);
      end;
    end;
    for i:=1 to bdsl do
    begin
      if  fileexists(GetFilePath+inttostr(i)+'_zongHedf.cll') then
      begin
        alistitem:=listview1.Items.Add;
        alistitem.Caption:='综合得分汇总表--'+inttostr(i);
      end;
    end;
    if fileexists(GetFilePath+'zbhxr.cll')   then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='中标候选人';
    end;
    if fileexists(GetFilePath+'pwhmd.cll')   then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='委员会名单';
    end;
    if fileexists(GetFilePath+'jdgzz.cll')   then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='评标监督小组名单';
    end;
  end;
end;

procedure Tf_zhongbiaobg.Com_zhaoBiaoChange(Sender: TObject);
begin
  inherited;
  loadfilename;
end;

procedure Tf_zhongbiaobg.Com_GclxnameChange(Sender: TObject);
begin
  inherited;
  loadfilename;
end;

procedure Tf_zhongbiaobg.Com_xmnameChange(Sender: TObject);
begin
  inherited;
  loadfilename;
end;


procedure Tf_zhongbiaobg.FormCreate(Sender: TObject);
begin
  GetItems(com_xmname,com_zhaobiao,com_gclxname,2);
  inherited;
  panel2.Caption:='中标报告';
  loadfilename;
end;

procedure Tf_zhongbiaobg.bb_SaveClick(Sender: TObject);
var
  i,j,k:integer;
  isheet,iname:integer;//记录页码
  i1,i2,i3,i4,i5,i6,i7:Integer;
  sName:string;
  cell1:tcell;
begin
  inherited;
  isheet:=strtoint(edit1.Text);
  iname:=strtoint(edit2.Text)-1;
  cell1:=tcell.Create(nil);
  I1:=1;
  i2:=1;
  i3:=1;
  i4:=1;
  i5:=1;
  i6:=1;
  i7:=0;
  try
    for i:=0 to listview1.Items.Count-1 do
    begin
      Cell1.OpenFile(OpenFilePath(listview1.Items[I].Caption),'');
      if com_zhaobiao.Text='施工' then
      begin
        if pos('投标人情况一览表',listview1.Items[I].Caption)>0 then
        begin
          if i6=1 then iname:=iname+1;
          if (listview1.Items[I].Caption='投标人情况一览表-无类别') then
            sname:='附表'+inttostr(iname)
          else
          begin
            sname:='附表'+inttostr(iname)+'-'+inttostr(i1);
          end;
          i6:=i6+1;
        end;
        if  listview1.Items[I].Caption='业主标底' then
        begin
           iname:=iname+1;
           sName:='附表'+inttostr(iname);
        end;
        if pos('开标记录',listview1.Items[I].Caption)>0 then
        begin
          if i1=1 then iname:=iname+1;
          sName:='附表'+inttostr(iname);
          if bdsl>1 then
            sName:=sName+'-'+inttostr(i1);
          i1:=i1+1
        end;
        if pos('投标报价审查',listview1.Items[I].Caption)>0 then
        begin
          if i2=1 then iname:=iname+1;
          sName:='附表'+inttostr(iname);
          if bdsl>1 then
            sName:=sName+'-'+inttostr(i2);
          i2:=i2+1
        end;
        if pos('符合标底计算',listview1.Items[I].Caption)>0 then
        begin
          if i3=1 then iname:=iname+1;
          sName:='附表'+inttostr(iname);
          if bdsl>1 then
            sName:=sName+'-'+inttostr(i3);
          i3:=i3+1
        end;
        if pos('项目技术审查',listview1.Items[I].Caption)>0 then
        begin
          if i4=1 then iname:=iname+1;
          sName:='附表'+inttostr(iname);
          if bdsl>1 then
            sName:=sName+'-'+inttostr(i4);
          i4:=i4+1
        end;
        if pos('评标价',listview1.Items[I].Caption)>0 then
        begin
          if i5=1 then iname:=iname+1;
          sName:='附表'+inttostr(iname);
          if bdsl>1 then
            sName:=sName+'-'+inttostr(i5);
          i5:=i5+1
        end;
        if  listview1.Items[I].Caption='中标候选人' then
        begin
           iname:=iname+1;
           sName:='附表'+inttostr(iname);
        end;
        if  listview1.Items[I].Caption='中标确定' then
        begin
          iname:=iname+1;
          sName:='附表'+inttostr(iname);
        end;