unit_zishenpf.pas

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

      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_jishu').asstring);
      cell1.SetCellString(5,irow+6,ipage,adoquery.fieldbyname('ys_jingyan').asstring);
      cell1.SetCellString(6,irow+6,ipage,adoquery.fieldbyname('total').asstring);
      cell1.SetCellString(7,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.loadZSpf010;
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_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_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,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,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 and 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,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_jishu').asstring);
      cell1.SetCellString(5,irow+6,ipage,adoquery.fieldbyname('ys_jishu').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.loadZSpf100;
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_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_caiwu>=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_caiwu 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,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 and 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_caiwu,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_caiwu,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);
    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_caiwu').asstring);
      cell1.SetCellString(5,irow+6,ipage,adoquery.fieldbyname('ys_caiwu').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.loadZSpf101;
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 c.dw_id=a.dw_id and a.wj2_leibie=c.bd_leibie and c.xmgczb_id=a.xmgczb_id '
           //+' and a.wj2_qzx=1
           +' and a.wj2_leibie='+trim(GetLeibie(com_leibie.Text))
           +' and (c.ys_caiwu>=0 or 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_caiwu+c.ys_jingyan) DESC) a';
      adoquery.ExecSQL;
      datamodule1.ADOMainConn.CommitTrans;
    except
      datamodule1.ADOMainConn.RollbackTrans;
      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_caiwu+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,bd_leibie,ys_caiwu,ys_jishu,ys_jingyan,'
            +' (ys_caiwu+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.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_caiwu,c.ys_jingyan,(c.ys_caiwu+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_caiwu,c.ys_jingyan,(c.ys_caiwu+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