unit_zishenpf.pas

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

        if adoquery.fieldbyname('fhx_caiwubg').AsString='×' then
        begin
          cell1.SetCellString(20,irow+istart,ipage,'×');
          cell1.SetCellString(21,irow+istart,ipage,'×');
        end
        else  if adoquery.fieldbyname('fhx_caiwubg').AsString='-' then
           cell1.SetCellString(20,irow+istart,ipage,'-')
        else
           cell1.SetCellString(20,irow+istart,ipage,'√');
      end
      else if  icol=8 then
      begin
        cell1.SetCellString(8,irow+istart,ipage,'√');
        if adoquery.fieldbyname('qzx_shigong').AsString='×' then
        begin
          cell1.SetCellString(3,irow+istart,ipage,'×');
          cell1.SetCellString(8,irow+istart,ipage,'×');
        end
        else if adoquery.fieldbyname('qzx_shigong').AsString='-' then
           cell1.SetCellString(3,irow+istart,ipage,'-')
        else
           cell1.SetCellString(3,irow+istart,ipage,'√');
        if adoquery.fieldbyname('qzx_caiwu').AsString='×' then
        begin
          cell1.SetCellString(4,irow+istart,ipage,'×');
          cell1.SetCellString(8,irow+istart,ipage,'×');
        end
        else if adoquery.fieldbyname('qzx_caiwu').AsString='-' then
           cell1.SetCellString(4,irow+istart,ipage,'-')
        else
           cell1.SetCellString(4,irow+istart,ipage,'√');
        if adoquery.fieldbyname('qzx_renyuan').AsString='×' then
        begin
          cell1.SetCellString(5,irow+istart,ipage,'×');
          cell1.SetCellString(8,irow+istart,ipage,'×');
        end
        else if adoquery.fieldbyname('qzx_renyuan').AsString='-' then
           cell1.SetCellString(5,irow+istart,ipage,'-')
        else
           cell1.SetCellString(5,irow+istart,ipage,'√');
        if adoquery.fieldbyname('qzx_jixie').AsString='×' then
        begin
          cell1.SetCellString(6,irow+istart,ipage,'×');
          cell1.SetCellString(8,irow+istart,ipage,'×');
        end
        else if adoquery.fieldbyname('qzx_jixie').AsString='-' then
           cell1.SetCellString(6,irow+istart,ipage,'-')
        else
           cell1.SetCellString(6,irow+istart,ipage,'√');
        if adoquery.fieldbyname('qzx_lvyue').AsString='×' then
        begin
          cell1.SetCellString(7,irow+istart,ipage,'×');
          cell1.SetCellString(8,irow+istart,ipage,'×');
        end
        else if adoquery.fieldbyname('qzx_lvyue').AsString='-' then
           cell1.SetCellString(7,irow+istart,ipage,'-')
        else
           cell1.SetCellString(7,irow+istart,ipage,'√');
      end;
      adoquery.Next;
    end;
  finally
    freeandnil(adoquery);
  end;
  cell1.SetCurSheet(0);
end;


procedure tfrm_zishenpf.LoadfhxSourceSG;
var sSql:string;
begin
  ssql:='select c.dwbm_id,a.FHX_GDTIME,a.FHX_WZX,a.FHX_QSQK,a.FHX_ZZZS,a.FHX_QYZZ,a.FHX_FRWTS,a.fhx_tb1,a.fhx_tb2,'
           +' a.fhx_tb3,a.fhx_tb4,a.fhx_tb5,a.fhx_tb6,a.fhx_tb7,a.fhx_tb8,a.fhx_tb9,a.fhx_tb10,a.fhx_qzx,a.fhx_caiwubg,'
           +'b.dw_name from bid_fhx a,bid_danwei_xinxi b,bid_wenjian2 c where  c.wj2_leixing=1 and b.dw_id=a.dw_id and '
           +' c.dw_id=a.dw_id and a.bd_leibie=c.wj2_leibie and c.wj2_leibie='+getleibie(com_leibie.text)
           +' and a.xmgczb_id=c.xmgczb_id and a.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 c.dwbm_id';
  getdata(ssql,12,7,21);
end;


procedure tfrm_zishenpf.LoadqzxsourceSG;
var ssql:string;
begin
  ssql:='select c.dwbm_id,a.qzx_shigong,a.qzx_caiwu,a.qzx_renyuan,a.qzx_jixie,a.qzx_lvyue,b.dw_name from bid_qzx a, bid_danwei_xinxi b '
      +',bid_wenjian2 c  where c.wj2_leixing=1 and b.dw_id=a.dw_id and '
      +' c.dw_id=a.dw_id and a.bd_leibie=c.wj2_leibie and c.wj2_leibie='+getleibie(com_leibie.text)
      +' and a.xmgczb_id=c.xmgczb_id and a.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 c.dwbm_id';;
  getdata(ssql,12,6,8);
end;

procedure tfrm_zishenpf.loadZSpf001;
var
  adoquery:tadoquery;
  i :Integer;
  iPage,irow:Integer;
begin
  adoquery:=tadoquery.Create(nil);
  try
    adoquery.Connection:=datamodule1.ADOMainConn;
    adoquery.Close;
    datamodule1.ADOMainConn.BeginTrans;
    try

      adoquery.SQL.Text:='  select identity(int,1,1) as id,a.dw_id into #bid_linshi from (select top 500 a.dw_id from bid_wenjian2 a, '
           +' bid_xmgczb b,bid_yushen_defen c where a.wj2_leibie=c.bd_leibie and A.wj2_leixing=1 and c.dw_id=a.dw_id and c.xmgczb_id=a.xmgczb_id '
           //+' and a.wj2_qzx=1
           +' and a.wj2_leibie='+trim(getleibie(com_leibie.Text))
           +' and c.ys_jingyan>=0 and a.xmgczb_id=b.xmgczb_id AND xm_isbn='''
           +trim(xmbdgc.XM_ISBn)+''' and gclx_id='+xmbdgc.gCLX_ID
           +' and zblx_id='+xmbdgc.BDLX_ID+' order by c.ys_jingyan DESC) a';
      adoquery.ExecSQL;
      datamodule1.ADOMainConn.CommitTrans;
    except
      datamodule1.ADOMainConn.RollbackTrans;
      freeandnil(adoquery);
      exit;
    end;
    adoquery.close;
    {if com_leibie.ItemIndex=0 then
       adoquery.SQL.Text:=' select dwbm_Id,dw_name,wj2_duanshu,ys_caiwu,ys_jishu,ys_jingyan,id '
            +' from (select dwbm_Id,a.dw_id,wj2_duanshu,ys_caiwu,ys_jishu,ys_jingyan,id from '
            +' bid_wenjian2 a left join (select id,a.dw_id,ys_caiwu,ys_jishu,ys_jingyan,'
            +' xmgczb_Id from bid_yushen_defen a,#bid_linshi b'
            +' where  a.dw_id=b.dw_id) b on a.dw_id=b.dw_id  and a.xmgczb_id=b.xmgczb_id '
            +' where a.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 wj2_leixing=1) a,bid_danwei_xinxi b where a.dw_Id =b.dw_id order by dwbm_id '
    else}
    adoquery.SQL.Text:=' select dwbm_Id,dw_name,wj2_duanshu,ys_caiwu,ys_jishu,ys_jingyan,id '
          +' from (select dwbm_Id,a.dw_id,wj2_duanshu,ys_caiwu,ys_jishu,ys_jingyan,id from '
          +' bid_wenjian2 a left join (select id,a.dw_id,,a.bd_leibie,ys_caiwu,ys_jishu,ys_jingyan,'
          +' xmgczb_Id from bid_yushen_defen a,#bid_linshi b'
          +' where  a.dw_id=b.dw_id) b on a.dw_id=b.dw_id a.wj2_leibie=b.bd_leibie and a.xmgczb_id=b.xmgczb_id '
          +' where wj2_leixing=1 and wj2_leibie='+trim(GetLeibie(com_leibie.text))
          +' and a.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 wj2_leixing=1) a,bid_danwei_xinxi b where a.dw_Id =b.dw_id order by dwbm_id';
    {if com_leibie.ItemIndex=0 then
      adoquery.SQL.Text:='  select a.dwbm_id,b.dw_name,a.wj2_duanshu,c.ys_jingyan,d.id from bid_wenjian2 a,bid_danwei_xinxi b,'
            +' bid_yushen_defen c,#bid_linshi d where A.wj2_leixing=1 and a.dw_id=b.dw_ID AND a.dw_id=d.dw_id and a.dw_id=c.dw_id '
            //+' and a.wj2_qzx=1
            +' and a.xmgczb_id=c.xmgczb_id and a.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 a.dwbm_id'

    else
      adoquery.SQL.Text:='  select a.dwbm_id,b.dw_name,a.wj2_duanshu,c.ys_jingyan,d.id from bid_wenjian2 a,bid_danwei_xinxi b,'
            +' bid_yushen_defen c,#bid_linshi d where A.wj2_leixing=1 and a.dw_id=b.dw_ID AND a.dw_id=d.dw_id and a.dw_id=c.dw_id '
            +' and a.wj2_leibie='+trim(inttostr(com_leibie.ItemIndex))
            //+' and a.wj2_qzx=1
            +' and a.xmgczb_id=c.xmgczb_id and a.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 a.dwbm_id'; }
    adoquery.Open;
    setcellsheet(cell1,adoquery.RecordCount,27);
    adoquery.First;
    for i:=0 to adoquery.RecordCount-1 do
    begin
      iPage:=i div 27;
      irow:=i mod 27;
      cell1.SetCellString(1,irow+6,ipage,adoquery.fieldbyname('dwbm_id').asstring);
      cell1.SetCellString(2,irow+6,ipage,adoquery.fieldbyname('dw_name').asstring);
      cell1.SetCellString(3,irow+6,ipage,adoquery.fieldbyname('wj2_duanshu').asstring);
      cell1.SetCellString(4,irow+6,ipage,adoquery.fieldbyname('ys_jingyan').asstring);
      cell1.SetCellString(5,irow+6,ipage,adoquery.fieldbyname('ys_jingyan').asstring);
      cell1.SetCellString(6,irow+6,ipage,adoquery.fieldbyname('id').asstring);
      adoquery.Next;
    end;
    adoquery.close;
    adoquery.SQL.Text:=' drop table #bid_linshi';
    adoquery.ExecSQL;
  finally
    freeandnil(adoquery);
  end;
end;

procedure tfrm_zishenpf.loadZSpf011;
var
  adoquery:tadoquery;
  i :Integer;
  iPage,irow:Integer;
begin
  adoquery:=tadoquery.Create(nil);
  try
    adoquery.Connection:=datamodule1.ADOMainConn;
    datamodule1.ADOMainConn.BeginTrans;
    try
      adoquery.Close;
      adoquery.SQL.Text:='  select identity(int,1,1) as id,a.dw_id, into #bid_linshi from (select top 500 a.dw_id from bid_wenjian2 a,'
             +' bid_xmgczb b,bid_yushen_defen c where A.wj2_leixing=1 and a.wj2_leibie=c.bd_leibie and c.dw_id=a.dw_id and c.xmgczb_id=a.xmgczb_id'
             //+' and  a.wj2_qzx=1 '
             +' and a.wj2_leibie='+trim(getleibie(com_leibie.text))
             +' and (c.ys_jingyan>=0 or c.ys_jishu>=0)  and a.xmgczb_id=b.xmgczb_id AND xm_isbn='''
             +trim(xmbdgc.XM_ISBn)+''' and gclx_id='+xmbdgc.gCLX_ID
             +' and zblx_id='+xmbdgc.BDLX_ID+' order by (c.ys_jingyan+c.ys_jishu)  DESC) a';
      adoquery.ExecSQL;
      datamodule1.ADOMainConn.CommitTrans;
    except
      datamodule1.ADOMainConn.RollbackTrans;
      freeandnil(adoquery);
      exit;
    end;
    adoquery.close;
    {if com_leibie.ItemIndex=0 then
       adoquery.SQL.Text:=' select dwbm_Id,dw_name,wj2_duanshu,ys_caiwu,ys_jishu,ys_jingyan,total,id '
            +' from (select dwbm_Id,a.dw_id,wj2_duanshu,ys_caiwu,ys_jishu,ys_jingyan,total,id from '
            +' bid_wenjian2 a left join (select id,a.dw_id,ys_caiwu,ys_jishu,ys_jingyan,'
            +' (ys_jishu+ys_jingyan) as total,xmgczb_Id from bid_yushen_defen a,#bid_linshi b'
            +' where  a.dw_id=b.dw_id) b on a.dw_id=b.dw_id  and a.xmgczb_id=b.xmgczb_id '
            +' where a.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 wj2_leixing=1) a,bid_danwei_xinxi b where a.dw_Id =b.dw_id order by dwbm_id '
    else}
    adoquery.SQL.Text:=' select dwbm_Id,dw_name,wj2_duanshu,ys_caiwu,ys_jishu,ys_jingyan,total,id '
            +' from (select dwbm_Id,a.dw_id,wj2_duanshu,ys_caiwu,ys_jishu,ys_jingyan,total,id from '
            +' bid_wenjian2 a left join (select id,a.dw_id,a.bd_leibie,ys_caiwu,ys_jishu,ys_jingyan,'
            +' (ys_jishu+ys_jingyan) as total,xmgczb_Id from bid_yushen_defen a,#bid_linshi b'
            +' where  a.dw_id=b.dw_id) b on a.dw_id=b.dw_id a.wj2_leibie=b.bd_leibie and a.xmgczb_id=b.xmgczb_id '
            +' where wj2_leixing=1 and wj2_leibie='+trim(GetLeibie(com_leibie.Text))
            +' and a.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 wj2_leixing=1) a,bid_danwei_xinxi b where a.dw_Id =b.dw_id order by dwbm_id';
    {if com_leibie.ItemIndex=0 then
       adoquery.SQL.Text:=' select a.dwbm_id,b.dw_name,a.wj2_duanshu,c.ys_jishu,c.ys_jingyan,(c.ys_jishu+c.ys_jingyan) as total,'
            +' d.id from bid_wenjian2 a,bid_danwei_xinxi b,'
            +' bid_yushen_defen c,#bid_linshi d where A.wj2_leixing=1 and a.dw_id=b.dw_ID AND a.dw_id=d.dw_id and a.dw_id=c.dw_id '
            //+' and a.wj2_qzx=1
            +' and a.xmgczb_id=c.xmgczb_id and a.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 a.dwbm_id'
    else
      adoquery.SQL.Text:='  select a.dwbm_id,b.dw_name,a.wj2_duanshu,c.ys_jishu,c.ys_jingyan,(c.ys_jishu+c.ys_jingyan) as total,'
            +' d.id from bid_wenjian2 a,bid_danwei_xinxi b,'
            +' bid_yushen_defen c,#bid_linshi d where A.wj2_leixing=1 and  a.dw_id=b.dw_ID AND a.dw_id=d.dw_id and a.dw_id=c.dw_id '
            +' and a.wj2_leibie='+trim(inttostr(com_leibie.ItemIndex))
            //+' and a.wj2_qzx=1
            +' and a.xmgczb_id=c.xmgczb_id and a.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 a.dwbm_id';; }
    adoquery.Open;
    setcellsheet(cell1,adoquery.RecordCount,27);
    adoquery.First;
    for i:=0 to adoquery.RecordCount-1 do
    begin
      iPage:=i div 27;