unit_zishenpf.pas

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

unit Unit_ZiShenPf;

interface
uses
  unit_parentform,SysUtils,Dialogs,Controls,adodb,Graphics;

type
  Tfrm_zishenpf = class(TFrm_ParentForm)
    procedure FormCreate(Sender: TObject);
    procedure LoadFile;
    //procedure LoadDateJL;//得到监理数据
    procedure Btn_xiangxiClick(Sender: TObject);
    procedure Com_ProjectChange(Sender:TObject);
    procedure Com_zhaobiaoChange(Sender:TObject);
    procedure Com_LeibieChange(Sender: TObject);
    procedure Com_xmnameChange(Sender:TObject);
    procedure com_gclxnamechange(Sender:TObject);
    procedure Bib_PriviewClick(Sender: TObject);
    procedure Cell1MouseLClick(Sender: TObject; col, row,updn: Integer);
    procedure bb_savetodataClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure LoadfhxSourceSG;  //对数据进行筛选
    Procedure loadqzxsourceSG;
    procedure loadZSpf001;
    procedure loadZSpf011;
    procedure loadZSpf010;
    procedure loadZSpf100;
    procedure loadZSpf101;
    procedure loadZSpf110;
    procedure loadZSpf111;
    procedure GetQuanxian; ///得到该用户的评分权限
    procedure bb_reflashClick(Sender: TObject);
    procedure Cell1ChangeCell(Sender: TObject; col,row: Integer; const text: WideString);
    procedure GetData(ASQL:String;Atotal,istart,icol:Integer);//获得符合性，强制性初始值
                      //参数说明，Asql，是一语句，ATOTAL 是一页可输入的最大行  ISART是开始行数 ICOL 是符号输入最大列
    procedure Cell1EditFinish(Sender: TObject;var text: WideString; var approve: Integer);
    //    procedure  execSql(Sbiaoduan:string;Acol,Astart,Aend:integer);
    //procedure GetInfor;   // 得到检查项目
    procedure Getbiaoduan; //加载数据
  private
    { Private declarations }
    quanxian:string;  //保存用户权限
    dw_name,totaltext:string;
  public
    { Public declarations }
  end;

var
  frm_zishenpf : tfrm_zishenpf;

implementation

uses
  unit_public,unit_xiangxi,SystemObject,DataModule,DataAccessCommonShell;

{procedure Tfrm_zishenpf.GetInfor;   // 得到检查项目 ,应付以后检查项目发生变化
begin
  com_project.Items.Clear;
  com_project.Text:='请选择';
  com_leibie.Text:='请选择';
  btn_xiangxi.visible:=false;
  if trim(com_zhaobiao.Text)='施工' then
  begin
     com_project.Items.Add('符合性检查');
     com_project.Items.Add('强制性检查');
     com_project.Items.Add('综合评分');
     com_project.Items.Add('评分明细');
  end;
  if trim(com_zhaobiao.Text)='监理' then
  begin
     com_project.Items.Add('符合性检查');
     com_project.Items.Add('强制性检查');
     com_project.Items.Add('综合评分');
     com_project.Items.Add('评分明细');
  end;
end;}

procedure Tfrm_zishenpf.Getbiaoduan; //加载数据
var
  adoquery:tadoquery;
  i:Integer;
begin
  com_project.Items.Clear;
  com_project.Text:='请选择';
  com_leibie.Text:='请选择';
  if com_zhaobiao.Text='施工' then
  begin
    com_project.Items.Add('符合性检查');
    com_project.Items.Add('强制性检查');
    com_project.Items.Add('综合评分');
    com_project.Items.Add('评分明细');
    getxmleibie(com_leibie);
    {com_leibie.Items.Clear;

    com_leibie.Items.Add('无类别');
    com_leibie.Items.Add('第一类');
    com_leibie.Items.Add('第二类');
    com_leibie.Items.Add('第三类');}
  end;
  if com_zhaobiao.Text='监理' then
  begin
    com_leibie.Enabled:=true;
    com_project.Items.Add('符合性检查');
    com_project.Items.Add('强制性检查');
    com_project.Items.Add('综合评分');
    com_project.Items.Add('评分明细');

    adoquery:=tadoquery.Create(nil);
    try
      adoquery.Close;
      adoquery.Connection:=datamodule1.ADOMainConn;
      adoquery.SQL.Text:='select bd_name 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+ ') order by bd_bianhao';
      ADOquery.Open;
      adoquery.First;
      com_leibie.Items.Clear;
      for i:=0 to adoquery.RecordCount-1 do
      begin
        com_leibie.Items.Add(adoquery.fieldbyname('bd_name').AsString);
        adoquery.Next;
      end;
    finally
      freeandnil(adoquery);
    end;
  end;
end;

procedure Tfrm_zishenpf.getquanxian;
var
  adoquery:tadoquery;
  i:integer;
begin
  quanxian:=' ';
  adoquery:=tadoquery.Create(nil);
  try
    adoquery.Close;
    adoquery.Connection:=datamodule1.ADOMainConn;
    adoquery.SQL.Text:=' select b.MENu_CODE from bid_userrole a,bid_menu b,bid_user '
        +' c where a.user_id=c.user_id and a.menu_id=b.menu_id and parent_code=''zspf'''
        +' and c.login_name='''+trim(userInfor.user_id)+'''';
    adoquery.Open;
    adoquery.First;
    for i:=0 to adoquery.RecordCount-1 do
    begin
      quanxian:=quanxian+'  '+adoquery.fieldbyname('menu_code').asstring;
      adoquery.Next;
    end;
  finally
    freeandnil(adoquery);
  end;
end;

//离开编辑状态时候发生，这里用处不大
//以后扩展功能用
procedure tfrm_zishenpf.Cell1EditFinish(Sender: TObject;var text: WideString; var approve: Integer);
var
  ioldrow,ioldcol: integer; //获得当前行列
  iNewSheet:integer;
  adoquery :tadoquery;
  ipand:Integer; //判断符合性，强制性值
  ssql:string;
begin
  ioldrow:=cell1.GetCurrentRow;
  ioldcol:=cell1.GetCurrentCol;
  iNewSheet:=cell1.GetCurSheet;
  if (com_project.itemindex=2) or (com_project.itemindex=3) then exit;
  if trim(cell1.GetCellString(2,ioldrow,iNewSheet))='' then exit;
  if com_zhaobiao.Text='施工' then
  begin
    adoquery:=tadoquery.Create(nil);
    try
      adoquery.Connection:=datamodule1.ADOMainConn;
      datamodule1.ADOMainConn.BeginTrans;
      try
        adoquery.Close;
        if com_project.Text='符合性检查' then
        begin        //主要是更新，插入语句为以后更新准备
          ssql:='if (select count(*) from bid_fhx a, bid_wenjian2 b,bid_danwei_xinxi c where b.wj2_leixing=1 and a.dw_id=b.dw_id '
                     +' and a.dw_id=c.dw_id and c.dw_name='''+trim(cell1.GetCellString(2,ioldrow,iNewSheet))
                     +''' 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+ '))>0 '
                     +' begin '
                     +' update bid_fhx set FHX_GDTIME='''+trim(cell1.GetCellString(3,ioldrow,iNewSheet))+''','
                     +' FHX_WZX='''+trim(cell1.GetCellString(4,ioldrow,iNewSheet))+''',FHX_QSQK='''+trim(cell1.GetCellString(5,ioldrow,iNewSheet))+''',FHX_ZZZS='''
                     +trim(cell1.GetCellString(6,ioldrow,iNewSheet))+''',FHX_QYZZ='''+trim(cell1.GetCellString(7,ioldrow,iNewSheet))+''',FHX_FRWTS='''
                     +trim(cell1.GetCellString(8,ioldrow,iNewSheet))+''',fhx_tb1='''+trim(cell1.GetCellString(9,ioldrow,iNewSheet))+''',fhx_tb2='''
                     +trim(cell1.GetCellString(10,ioldrow,iNewSheet))+''',fhx_tb3='''+trim(cell1.GetCellString(11,ioldrow,iNewSheet))+''',fhx_tb4='''
                     +trim(cell1.GetCellString(12,ioldrow,iNewSheet))+''',fhx_tb5='''+trim(cell1.GetCellString(13,ioldrow,iNewSheet))+''',fhx_tb6='''
                     +trim(cell1.GetCellString(14,ioldrow,iNewSheet))+''',fhx_tb7='''+trim(cell1.GetCellString(15,ioldrow,iNewSheet))+''',fhx_tb8='''
                     +trim(cell1.GetCellString(16,ioldrow,iNewSheet))+''',fhx_tb9='''+trim(cell1.GetCellString(17,ioldrow,iNewSheet))+''',fhx_tb10='''
                     +trim(cell1.GetCellString(18,ioldrow,iNewSheet))+''',fhx_qzx='''+trim(cell1.GetCellString(19,ioldrow,iNewSheet))+''',fhx_caiwubg='''
                     +trim(cell1.GetCellString(20,ioldrow,iNewSheet))+''' from bid_fhx a,bid_danwei_xinxi b where a.dw_id=b.dw_id and b.dw_name='''
                     +trim(cell1.GetCellString(2,ioldrow,iNewSheet))+''' 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+' ) '
                     +' end else begin '
                     +' insert into bid_fhx(dw_id,bd_leibie,xmgczb_id,FHX_GDTIME,FHX_WZX,FHX_QSQK,FHX_ZZZS,FHX_QYZZ,FHX_FRWTS,fhx_tb1,fhx_tb2,'
                     +' fhx_tb3,fhx_tb4,fhx_tb5,fhx_tb6,fhx_tb7,fhx_tb8,fhx_tb9,fhx_tb10,fhx_qzx,fhx_caiwubg) select a.dw_id,wj2_leibie,xmgczb_id,'
                     +''''+trim(cell1.GetCellString(3,ioldrow,iNewSheet))+''','''+trim(cell1.GetCellString(4,ioldrow,iNewSheet))
                     +''','''+trim(cell1.GetCellString(5,ioldrow,iNewSheet))+''','''+trim(cell1.GetCellString(6,ioldrow,iNewSheet))+''','''
                     +trim(cell1.GetCellString(7,ioldrow,iNewSheet))
                     +''','''+trim(cell1.GetCellString(8,ioldrow,iNewSheet))+''','''+trim(cell1.GetCellString(9,ioldrow,iNewSheet))+''','''
                     +trim(cell1.GetCellString(10,ioldrow,iNewSheet))+''','''+trim(cell1.GetCellString(11,ioldrow,iNewSheet))+''','''
                     +trim(cell1.GetCellString(12,ioldrow,iNewSheet))+''','''+trim(cell1.GetCellString(13,ioldrow,iNewSheet))+''','''
                     +trim(cell1.GetCellString(14,ioldrow,iNewSheet))+''','''+trim(cell1.GetCellString(15,ioldrow,iNewSheet))+''','''
                     +trim(cell1.GetCellString(16,ioldrow,iNewSheet))+''','''+trim(cell1.GetCellString(17,ioldrow,iNewSheet))+''','''
                     +trim(cell1.GetCellString(18,ioldrow,iNewSheet))+''','''+trim(cell1.GetCellString(19,ioldrow,iNewSheet))+''','''
                     +trim(cell1.GetCellString(20,ioldrow,iNewSheet))+''' from bid_danwei_xinxi a, bid_wenjian2 b where a.dw_id=b.dw_id and a.dw_name='''
                     +trim(cell1.GetCellString(2,ioldrow,iNewSheet))+''' 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 b.wj2_leixing=1 end ';
          if cell1.GetCellString(ioldcol,ioldrow,iNewSheet)='×' then Ipand:=0;
          if cell1.GetCellString(ioldcol,ioldrow,iNewSheet)='√' then Ipand:=1;
              ssql:=ssql+';'+' update bid_wenjian2 set wj2_fhx='+trim(inttostr(ipand))+' from bid_wenjian2 a,bid_danwei_xinxi '
                        +' b where b.wj2_leixing=1 and a.dw_id=b.dw_id and b.dw_name='''
                        +trim(cell1.getcellstring(2,ioldrow,iNewSheet))+''''+'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+ ') ';

        end;
        if com_project.Text='强制性检查' then
        begin
          ssql:='if (select count(*) from bid_qzx a, bid_wenjian2 b,bid_danwei_xinxi c where b.wj2_leixing=1 and a.dw_id=b.dw_id '
                    +' and a.dw_id=c.dw_id and c.dw_name='''+trim(cell1.GetCellString(2,ioldrow,iNewSheet))
                    +''' 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+ '))>0 '
                    +' begin '
                    +' update bid_qzx set qzx_shigong='''+trim(cell1.GetCellString(3,ioldrow,iNewSheet))+''',qzx_caiwu='''
                    +trim(cell1.GetCellString(4,ioldrow,iNewSheet))+''',qzx_renyuan='''+trim(cell1.GetCellString(5,ioldrow,iNewSheet))
                    +''',qzx_jixie='''+trim(cell1.GetCellString(6,ioldrow,iNewSheet))+''',qzx_lvyue='''+
                    trim(cell1.GetCellString(7,ioldrow,iNewSheet))+''' from bid_qzx a,bid_wenjian2 b,bid_danwei_xinxi c  where '
                    +' b.wj2_leixing=1 and b.dw_id=c.dw_id and a.dw_id=b.dw_id and c.dw_name='''
                    +trim(cell1.GetCellString(2,ioldrow,iNewSheet))+''' 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+' ) '
                    +' end else begin '
                    +' insert into bid_qzx(dw_id,bd_leibie,xmgczb_id,qzx_shigong,qzx_caiwu,qzx_renyuan,qzx_jixie,qzx_lvyue) select '
                    +' a.dw_id,wj2_leibie,xmgczb_id,'''
                    +trim(cell1.GetCellString(3,ioldrow,iNewSheet))+''','''+trim(cell1.GetCellString(4,ioldrow,iNewSheet))+''','''
                    +trim(cell1.GetCellString(15,ioldrow,iNewSheet))+''','''+trim(cell1.GetCellString(6,ioldrow,iNewSheet))+''','''
                    +trim(cell1.GetCellString(7,ioldrow,iNewSheet))+''' from bid_wenjian2 a,bid_danwei_xinxi b where b.dw_name='''
                    +trim(cell1.GetCellString(2,ioldrow,iNewSheet))+''' and a.wj2_leixing=1 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+') end ';
          if cell1.GetCellString(ioldcol,ioldrow,iNewSheet)='×' then Ipand:=0;
          if cell1.GetCellString(ioldcol,ioldrow,iNewSheet)='√' then Ipand:=1;
               ssql:=ssql+';'+' update bid_wenjian2 set wj2_qzx='+trim(inttostr(ipand))+' from bid_wenjian2 a,bid_danwei_xinxi b'
                        +' where a.wj2_leixing=1 and a.dw_id=b.dw_id and b.dw_name='''