u_zhongbiaobg.pas

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

unit U_zhongbiaobg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls,Unit_TopParentForm,CELL50Lib_TLB,
  adodb,XMLIntf,XMLDoc,VCLZip, OleCtrls, SHDocVw;

type
  Tf_zhongbiaobg = class(Tfrm_TopParentForm)
    Label7: TLabel;
    Label1: TLabel;
    bb_Save: TBitBtn;
    listview1: TListView;
    Edit1: TEdit;
    ListView2: TListView;
    SpeedButton3: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label6: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    CheckBox1: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure bb_SaveClick(Sender: TObject);
    procedure Com_zhaoBiaoChange(Sender: TObject);
    procedure Com_GclxnameChange(Sender: TObject);
    procedure Com_xmnameChange(Sender: TObject);
    function OpenFilePath(filename:string):string;  //加载报表
    procedure loadfilename;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }

    bdsl:Integer;//标段数量
  public
    { Public declarations }
  end;

var
  f_zhongbiaobg: Tf_zhongbiaobg;

implementation

uses
  unit_public,systemobject,datamodule,DataAccessCommonShell,Unit_up_report;

{$R *.dfm}

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

procedure Tf_zhongbiaobg.loadfilename;
var
  alistitem:tlistitem;
  adoquery:tadoquery;
  I,j:Integer;
begin
  listview2.items.clear;
  adoquery:=tadoquery.Create(nil);
  try
    adoquery.Close;
    adoquery.Connection:=datamodule1.ADOMainConn;
    adoquery.SQL.Text:=' select count(*) as sl from bid_biaoduan_xinxi where 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+')';
    adoquery.Open;
    bdsl:=adoquery.fieldbyname('sl').AsInteger;
  finally
    freeandnil(adoquery);
  end;
  listview1.Items.Clear;
  listview2.Items.Clear;
  if com_zhaobiao.Text='施工' then
  begin
    if fileexists(GetFilePath+'0_yzbd.cll') then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='投标人情况一览表-无类别';
    end;
    if fileexists(GetFilePath+'1_yzbd.cll') then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='投标人情况一览表-第一类';
    end;

    if fileexists(GetFilePath+'2_yzbd.cll') then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='投标人情况一览表-第二类';
    end;

    if fileexists(GetFilePath+'3_yzbd.cll') then
    begin
      alistitem:=listview1.Items.Add;
      alistitem.Caption:='投标人情况一览表-第三类';
    end;


    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