unit_kaibiaojl.pas

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

            if cell1.getcellstring(1,nowrow,0)>ecol then
              ssql:=ssql+' update bid_pingbiao set pb_xuhao=pb_xuhao-1 where bd_isbn in (select bd_isbn 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+') and bd_name='''+com_project.Text+''') and pb_xuhao>'+trim(ecol)+' and '
                +' pb_xuhao<='+trim(cell1.GetCellString(nowcol,nowrow,0))
            Else if cell1.getcellstring(1,nowrow,0)<ecol then
              ssql:=ssql+'update bid_pingbiao set pb_xuhao=pb_xuhao+1 where bd_isbn in (select bd_isbn 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+') and bd_name='''+com_project.Text+''')  and pb_xuhao>='+trim(ecol)+' and '
                +' pb_xuhao<'+trim(cell1.GetCellString(nowcol,nowrow,0));
            ssql:=ssql+' end'
          end;
        end;
        ssql:=ssql+'  update bid_pingbiao set pb_xuhao='+trim(cell1.GetCellString(nowcol,nowrow,0))
           +' where bd_isbn in (select bd_isbn 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+') and bd_name='''+com_project.Text+''') and dw_id in (select dw_id from bid_danwei_xinxi '
           +' where dw_name='''+trim(cell1.GetCellString(2,nowrow,0))+''') ';
        datamodule1.ADOMainConn.BeginTrans;
        try
          adoquery.SQL.Text:=ssql;
          adoquery.ExecSQL;
          datamodule1.ADOMainConn.CommitTrans;
        except
          datamodule1.ADOMainConn.RollbackTrans;
        end;
      finally
        freeandnil(adoquery);
      end;
      exit;
    end;
    IF nowcol=3 then
    begin
      if (trim(cell1.getcellstring(3,nowrow,0))<>'')  then
      begin
        try
          strtofloat(cell1.GetCellString(nowcol,nowrow,0));
        except
        end;
      end;
      adoquery:=tadoquery.Create(nil);
      try
        adoquery.Connection:=datamodule1.ADOMainConn;
        datamodule1.ADOMainConn.BeginTrans;
        try
          adoquery.SQL.Text:='update bid_pingbiao set pb_toubiaobj='+quotedstr(trim(cell1.GetCellString(nowcol,nowrow,0)));
          if com_zhaobiao.Text='监理' then
             adoquery.SQL.Text:=adoquery.SQL.Text+',pb_suanshubj='+quotedstr(trim(cell1.GetCellString(nowcol,nowrow,0)));
          adoquery.SQL.Text:=adoquery.SQL.Text
             +' where bd_isbn in (select bd_isbn 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+') and bd_name='''+com_project.Text+''') and dw_id in (select dw_id from bid_danwei_xinxi '
             +' where dw_name='''+trim(cell1.GetCellString(2,nowrow,0))+''')';
          adoquery.ExecSQL;
          datamodule1.ADOMainConn.CommitTrans;
        except
          datamodule1.ADOMainConn.RollbackTrans;
        end;
      finally
        freeandnil(adoquery);
      end;
      exit;
    end;
    if (nowcol=4) then
    begin
      adoquery:=tadoquery.Create(nil);
      try
        adoquery.Connection:=datamodule1.ADOMainConn;
        datamodule1.ADOMainConn.BeginTrans;
        try
          adoquery.SQL.Text:='update bid_pingbiao set pb_xiuzhengbj='+quotedstr(trim(cell1.GetCellString(nowcol,nowrow,0)));
          if (com_zhaobiao.Text='监理') and (trim(cell1.GetCellString(nowcol,nowrow,0))<>'') then
            adoquery.SQL.Text:=adoquery.SQL.Text+',pb_suanshubj='+quotedstr(trim(cell1.GetCellString(nowcol,nowrow,0)));
          adoquery.SQL.Text:=adoquery.SQL.Text
             +' where bd_isbn in (select bd_isbn 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+') and bd_name='''+com_project.Text+''') and dw_id in (select dw_id from bid_danwei_xinxi '
           +' where dw_name='''+trim(cell1.GetCellString(2,nowrow,0))+''')';
          adoquery.ExecSQL;
          datamodule1.ADOMainConn.CommitTrans;
        except
          datamodule1.ADOMainConn.RollbackTrans;
        end;
      finally
        freeandnil(adoquery);
      end;
      exit;
    end;
    if (nowcol=6) and (com_zhaobiao.Text='施工') then
    begin
      adoquery:=tadoquery.Create(nil);
      try
        adoquery.Connection:=datamodule1.ADOMainConn;
        datamodule1.ADOMainConn.BeginTrans;
        try
          adoquery.SQL.Text:='update bid_pingbiao set pb_gongqi='''+trim(cell1.GetCellString(nowcol,nowrow,0))
             +''' where bd_isbn in (select bd_isbn 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+') and bd_name='''+com_project.Text+''') and dw_id in (select dw_id from bid_danwei_xinxi '
           +' where dw_name='''+trim(cell1.GetCellString(2,nowrow,0))+''')';
          adoquery.ExecSQL;
          datamodule1.ADOMainConn.CommitTrans;
        except
          datamodule1.ADOMainConn.RollbackTrans;
        end;
      finally
        freeandnil(adoquery);
      end;
      exit;
    end;
  end
  else if com_zhaobiao.Text='设计' then
  begin
    if com_project.ItemIndex<0 then exit;
    if sjSource=1 then exit;
    nowrow:=cell1.GetCurrentRow;
    nowcol:=cell1.GetCurrentCol;
    if trim(cell1.GetCellString(nowcol,nowrow,0))=ecol then exit;
    if (nowrow<6) or (nowcol>(cell1.GetRows(0)-2)) then exit;
    if nowcol=1 then
    begin
      if trim(cell1.GetCellString(nowcol,nowrow-1,0))='' then exit;
      adoquery:=tadoquery.Create(nil);
      try
        adoquery.Close;
        adoquery.Connection:=datamodule1.ADOMainConn;
        if (ecol='') and (trim(cell1.GetCellString(2,nowrow,0))='') then //增加
        begin
          ssql:='if (select count(*) from bid_sj_qingbiao where bd_isbn in'
              +'(select bd_isbn 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+') and bd_name='''+trim(com_project.text)
              +''') and sj_xuhao='+quotedstr(cell1.GetCellString(1,nowrow,0))+')=0  '
              +' begin '
              +'insert into bid_sj_qingbiao(bd_isbn,sj_xuhao) select bd_isbn,'
              +quotedstr(cell1.GetCellString(1,nowrow,0))+' 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+') and bd_name='+quotedstr(com_project.text)
              +' end';
        end
        else if (trim(cell1.GetCellString(1,nowrow,0))='') and
            (trim(cell1.GetCellString(2,nowrow,0))='') then //删除
        begin
          ssql:='delete from bid_sj_qingbiao where bd_isbn in (select bd_isbn 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+') and bd_name='''+trim(com_project.text)+''') and'
              +' sj_xuhao='+quotedstr(ecol);

        end
        else if (trim(cell1.GetCellString(2,nowrow,0))<>'') then //修改
        begin
          ssql:='if (select count(*) from bid_sj_qingbiao where bd_isbn in'
              +'(select bd_isbn 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+') and bd_name='''+trim(com_project.text)
              +''') and dw_name='+quotedstr(cell1.GetCellString(2,nowrow,0))+')=1'
              +' begin'
              +' update bid_sj_qingbiao set sj_xuhao='+quotedstr(cell1.GetCellString(1,nowrow,0))
              +' where bd_isbn in (select bd_isbn 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+') and bd_name='''+trim(com_project.text)
              +''') and dw_name='+quotedstr(cell1.GetCellString(2,nowrow,0))
              +' end';
        end;
        if ssql<>'' then
        begin
          datamodule1.ADOMainConn.BeginTrans;
          try
            adoquery.SQL.Text:=ssql;
            adoquery.ExecSQL;
            datamodule1.ADOMainConn.CommitTrans;
          except
            datamodule1.ADOMainConn.RollbackTrans;
          end;
        end;
      finally
        freeandnil(adoquery);
      end;
    end
    else if nowcol=2 then
    begin
      if trim(cell1.GetCellString(2,nowrow-1,0))='' then exit;
      adoquery:=tadoquery.Create(nil);
      try
        adoquery.Close;
        adoquery.Connection:=datamodule1.ADOMainConn;
        if (ecol='') and (trim(cell1.GetCellString(1,nowrow,0))='') then //增加
        begin
          ssql:='if (select count(*) from bid_sj_qingbiao where bd_isbn in'
              +'(select bd_isbn 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+') and bd_name='''+trim(com_project.text)
              +''') and dw_name='+quotedstr(cell1.GetCellString(2,nowrow,0))+')=0  '
              +' begin '
              +'insert into bid_sj_qingbiao(bd_isbn,dw_name) select bd_isbn,'
              +quotedstr(cell1.GetCellString(2,nowrow,0))+' 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+') and bd_name='+quotedstr(com_project.text)
              +' end';
        end
        else if (trim(cell1.GetCellString(1,nowrow,0))='') and
            (trim(cell1.GetCellString(2,nowrow,0))='') and (ecol<>'') then //删除
        begin
          ssql:='delete from bid_sj_qingbiao where bd_isbn in (select bd_isbn 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+') and bd_name='''+trim(com_project.text)+''') and'
              +' dw_name='+quotedstr(ecol);
        end
        else if (trim(cell1.GetCellString(1,nowrow,0))<>'')  then //修改
        begin
          ssql:='if (select count(*) from bid_sj_qingbiao where bd_isbn in'
              +'(select bd_isbn 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+') and bd_name='''+trim(com_project.text)
              +''') and sj_xuhao='+quotedstr(cell1.GetCellString(1,nowrow,0))+')=1'
              +' begin '
              +' update bid_sj_qingbiao set dw_name='+quotedstr(cell1.GetCellString(2,nowrow,0))
              +' where bd_isbn in (select bd_isbn 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+') and bd_name='''+trim(com_project.text)
              +''') and sj_xuhao='+quotedstr(cell1.GetCellString(1,nowrow,0))
              +' end';
        end;
        if ssql<>'' then
        begin
          datamodule1.ADOMainConn.BeginTrans;
          try
            adoquery.SQL.Text:=ssql;
            adoquery.ExecSQL;
            datamodule1.ADOMainConn.CommitTrans;
          except
            datamodule1.ADOMainConn.RollbackTrans;
          end;
        end;
      finally
        freeandnil(adoquery);
      end;
    end
    else if nowcol=3 then
    begin
      if (trim(cell1.GetCellString(1,nowrow,0))='')
        and (trim(cell1.GetCellString(2,nowrow,0))='') then exit;