u_toubiaowj.pas

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

   inherited;
   if (com_zhaobiao.Items.IndexOf(com_zhaobiao.Text)>=0)  and (com_gclxname.items.indexof(com_gclxname.Text)>=0) then
     getList;
end;

procedure Tf_Toubiaowj.Button1Click(Sender: TObject);
var
  adoquery:tadoquery;
  top:string;
begin
  inherited;
  if application.MessageBox('该操作将默认所有单位都递交了投标文件','请确认',MB_YESNO)<>mryes then exit;
  if com_zhaobiao.Text='施工' then
  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,a.xmgczb_id,a.bd_isbn,a.wj2_leibie into #bid_linshi from '
          +'(select top 1000 b.dw_id,b.xmgczb_id,b.bd_isbn,a.wj2_leibie from '
          +' bid_yaohao_jieguo b '
          +' left join bid_wenjian2 a on a.xmgczb_id=b.xmgczb_id and a.dw_id=b.dw_id where  a.wj2_leixing=1 and b.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 b.bd_isbn) a '
          +' delete bid_wenjian2 from #bid_linshi a where bid_wenjian2.wj2_leixing=2 and bid_wenjian2.xmgczb_id=a.xmgczb_id and '
          +' bid_wenjian2.bd_isbn=a.bd_isbn '
          +' insert into bid_wenjian2(dw_id,xmgczb_id,bd_isbn,wj2_leibie,dwbm_id,wj2_leixing,wj2_fhx,wj2_qzx) select dw_id,xmgczb_id,'
          +' bd_isbn,wj2_leibie,id,2,1,1 from #bid_linshi  '
          +' drop table #BID_LINSHI ';
        adoquery.execsql;
        datamodule1.ADOMainConn.CommitTrans;
      except
        datamodule1.ADOMainConn.RollbackTrans;
      end;
    finally
      freeandnil(adoquery);
    end;
  end;
  if com_zhaobiao.Text='监理' then
  begin
    adoquery:=tadoquery.Create(nil);
    try
      adoquery.Close;
      adoquery.Connection:=datamodule1.ADOMainConn;
      adoquery.SQL.Text:='select cs_renshu from bid_canshu_SAVE 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;
      if adoquery.FieldByName('cs_renshu').AsString='' then
      begin
        freeandnil(adoquery);
        exit;
      end;
      top:=adoquery.FieldByName('cs_renshu').AsString;
      adoquery.Close;
      datamodule1.ADOMainConn.BeginTrans;
      try
        adoquery.SQL.Text:=' select top '+trim(top)+' identity(int,1,1) as id,b.dw_id,b.xmgczb_id,b.bd_isbn into #bid_linshi from '
           +' bid_wenjian2 b,bid_ys_jl c,bid_canshu_save d where b.wj2_leixing=1'
           +' and b.dw_id=c.dw_ID  and b.xmgczb_id=d.xmgczb_id and b.bd_isbn=c.bd_isbn'
           +' and c.ysjl_caiwu>=ISNULL(d.CS_CAIWU_HEGE,0) AND'
           +' c.ysjl_jishu>=ISNULL(d.cs_jishu_hege,0) and c.ysjl_jingyan>=ISNULL(d.cs_jingyan_hege,0) and'
           +' (c.ysjl_caiwu+c.ysjl_jishu+c.ysjl_jingyan)>=ISNULL(d.cs_zuidixian,0) and b.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 a.dw_id not in (select dw_id from bid_wenjian2 where bd_isbn=e.bd_isbn and wj2_leixing=2)'
           +' order by dwbm_id'
           +' delete bid_wenjian2 from #bid_linshi a where bid_wenjian2.wj2_leixing=2 and bid_wenjian2.xmgczb_id=a.xmgczb_id'
           +' and bid_wenjian2.bd_isbn=a.bd_isbn'
           +' insert into bid_wenjian2(dw_id,xmgczb_Id,bd_isbn,dwbm_Id,wj2_leixing,wj2_fhx,wj2_qzx) select dw_id,xmgczb_Id,'
           +' bd_isbn,id,2,1,1 from #bid_Linshi'
           +' drop table #bid_linshi';
        adoquery.ExecSQL;
        datamodule1.ADOMainConn.CommitTrans;
      except
        datamodule1.ADOMainConn.RollbackTrans;
      end;
    finally
      freeandnil(adoquery);
    end;
  end;
  getlist;
end;

procedure Tf_Toubiaowj.BitBtn1Click(Sender: TObject);
var
  adoquery:tadoquery;
begin
  inherited;
  if listview1.Selected=nil then exit;
  adoquery:=TAdoquery.Create(nil);
  try
    adoquery.Connection:=datamodule1.ADOMainConn;
    adoquery.Close;
    datamodule1.ADOMainConn.BeginTrans;
    try
      adoquery.SQL.Text:=' delete  from bid_wenjian2 where wj2_leixing=2 and dwbm_id='
           +listview1.Selected.Caption+' and 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.ExecSQL;
      datamodule1.ADOMainConn.CommitTrans;
    except
      datamodule1.ADOMainConn.RollbackTrans;
    end;
  finally
    freeandnil(adoquery);
  end;
  getlist;
end;

procedure Tf_Toubiaowj.bb_AddClick(Sender: TObject);
var
  adoquery:tadoquery;
  dwbm_id:Integer;
begin
  inherited;
  adoquery:=tadoquery.Create(nil);
  try
    adoquery.Connection:=datamodule1.ADOMainConn;
    adoquery.Close;
    adoquery.SQL.Text:='select max(dwbm_id) as id from bid_wenjian2 where wj2_leixing=2 and 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;
    dwbm_id:=adoquery.fieldbyname('id').AsInteger+1;
    datamodule1.ADOMainConn.BeginTrans;
    try
      adoquery.SQL.Text:='insert into bid_wenjian2(dwBM_ID,dw_id,bd_isbn,wj2_leibie,xmgczb_id,wj2_leixing ) select '
           +INTTOSTR(dwbm_id)+', a.dw_id,'
           +' b.bd_isbn,b.bd_leibie,c.xmgczb_id,2 from bid_danwei_xinxi a,bid_biaoduan_xinxi b, bid_xmgczb c where xm_isbn='''
           +trim(xmbdgc.XM_ISBn)+''' and gclx_id='+xmbdgc.gCLX_ID+' and zblx_id='+xmbdgc.BDLX_ID+' and b.xmgczb_id=c.xmgczb_id '
           +' and b.bd_name='''+trim(listview2.Selected.SubItems[0])+''' and a.dw_name='''
           +trim(listview2.Selected.Caption)+'''';
      adoquery.ExecSQL;
      datamodule1.ADOMainConn.CommitTrans;
    except
      datamodule1.ADOMainConn.RollbackTrans;
    end;
  finally
    freeandnil(adoquery);
  end;
  getlist;
end;

procedure Tf_Toubiaowj.ListView1SelectItem(Sender: TObject;
  Item: TListItem; Selected: Boolean);
begin
  inherited;
  IF Selected=TRUE THEN
  begin
    edit3.Text:=listview1.Selected.SubItems[1];
    edit2.text:=listview1.Selected.SubItems[0];
    if (listview1.Selected.SubItems[2]='') or(listview1.Selected.SubItems[2]='0') then
      com_leibie.ItemIndex:=0
    else
      com_leibie.ItemIndex:=strtoint(listview1.Selected.SubItems[2]);
  end;
end;

procedure Tf_Toubiaowj.BitBtn2Click(Sender: TObject);
var
  adoquery:tadoquery;
  top:string;
  i:integer;
begin
  inherited;
  if application.MessageBox('该操作将要的得到通过资格预审人数据','请确认',MB_YESNO)<>mryes then exit;
  adoquery:=tadoquery.Create(nil);
  try
    adoquery.Close;
    adoquery.Connection:=datamodule1.ADOMainConn;
      adoquery.SQL.Text:='select cs_renshu from bid_canshu_SAVE 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;
      if adoquery.FieldByName('cs_renshu').AsString='' then
      begin
        freeandnil(adoquery);
        exit;
      end;
      top:=adoquery.FieldByName('cs_renshu').AsString;
      adoquery.Close;
      adoquery.SQL.Text:='select top '+trim(top)+' b.dwbm_id,a.dw_name,bd_name from bid_danwei_xinxi a,'
         +' bid_wenjian2 b,bid_ys_jl c,bid_canshu_save d,bid_biaoduan_xinxi e where b.wj2_leixing=1'
         +' and a.dw_id=b.dw_id and b.dw_id=c.dw_ID  and b.xmgczb_id=d.xmgczb_id and b.bd_isbn=c.bd_isbn'
         +' and b.bd_isbn=e.bd_isbn and c.ysjl_caiwu>=ISNULL(d.CS_CAIWU_HEGE,0) AND'
         +' c.ysjl_jishu>=ISNULL(d.cs_jishu_hege,0) and c.ysjl_jingyan>=ISNULL(d.cs_jingyan_hege,0) and'
         +' (c.ysjl_caiwu+c.ysjl_jishu+c.ysjl_jingyan)>=ISNULL(d.cs_zuidixian,0) and e. 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 e.bd_name='+quotedstr(com_leibie.Text)+' order by dwbm_id';
      adoquery.open;


  finally
    freeandnil(adoquery);
  end;
end;

end.