u_dwxinxi.pas

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

  //加载第5页信息
  edit114.Text:=Ado_dwxxzz.fieldbyname('dw_zhuce_je').AsString;
  edit115.Text:=Ado_dwxxzz.fieldbyname('dw_shishou_je').AsString;
  edit116.Text:=Ado_dwxxzz.fieldbyname('dw_zichan_je').AsString;
  edit117.Text:=Ado_dwxxzz.fieldbyname('dw_guyou_je').AsString;
  edit118.Text:=Ado_dwxxzz.fieldbyname('dw_guding_je').AsString;
  edit119.Text:=Ado_dwxxzz.fieldbyname('dw_liudong_je').AsString;
  edit120.Text:=Ado_dwxxzz.fieldbyname('dw_faren_je').AsString;
  edit121.Text:=Ado_dwxxzz.fieldbyname('dw_geren_je').AsString;
  edit122.Text:=Ado_dwxxzz.fieldbyname('dw_fuzhai_je').AsString;
  edit123.Text:=Ado_dwxxzz.fieldbyname('dw_jingzic').AsString;
  edit124.Text:=Ado_dwxxzz.fieldbyname('dw_gat_je').AsString;
  edit125.Text:=Ado_dwxxzz.fieldbyname('dw_waishang').AsString;
  edit126.Text:=Ado_dwxxzz.fieldbyname('dw_sr_total').AsString;
  edit127.Text:=Ado_dwxxzz.fieldbyname('dw_jzy_total').AsString;
  edit128.Text:=Ado_dwxxzz.fieldbyname('dw_gdzc_zhejiu').AsString;
  edit129.Text:=Ado_dwxxzz.fieldbyname('dw_jzy_add').AsString;
  edit130.Text:=Ado_dwxxzz.fieldbyname('dw_lirun_ze').AsString;
  edit131.Text:=Ado_dwxxzz.fieldbyname('dw_suideshui').AsString;
  edit132.Text:=Ado_dwxxzz.fieldbyname('dw_ldz_baozhou').AsString;
  edit133.Text:=Ado_dwxxzz.fieldbyname('dw_scsje').AsString;
  edit134.Text:=Ado_dwxxzz.fieldbyname('dw_jinglr').AsString;
  edit136.Text:=Ado_dwxxzz.fieldbyname('dw_yingye_lr').AsString;
  edit135.Text:=Ado_dwxxzz.fieldbyname('dw_jingzc_sll').AsString;
  edit137.Text:=Ado_dwxxzz.fieldbyname('DW_jzy_ldscl').AsString;
  edit138.Text:=Ado_dwxxzz.fieldbyname('dw_scjy_yuanzhi').AsString;
  edit139.Text:=Ado_dwxxzz.fieldbyname('dw_ziben_fzl').AsString;
  edit140.Text:=Ado_dwxxzz.fieldbyname('dw_zxjy_jingzhi').AsString;
  edit141.Text:=Ado_dwxxzz.fieldbyname('dw_ziben_bzzzl').AsString;

  //加载第6页信息
  edit142.Text:=Ado_dwxxzz.fieldbyname('dw_jiesn_one').AsString;
  edit143.Text:=Ado_dwxxzz.fieldbyname('dw_jiesn_two').AsString;
  edit144.Text:=Ado_dwxxzz.fieldbyname('dw_jies_two').AsString;
  edit145.Text:=Ado_dwxxzz.fieldbyname('dw_jies_one').AsString;
  edit146.Text:=Ado_dwxxzz.fieldbyname('dw_jiesn_three').AsString;
  edit148.Text:=Ado_dwxxzz.fieldbyname('dw_jies_three').AsString;
  edit147.Text:=Ado_dwxxzz.fieldbyname('dw_jxsb_sl').AsString;
  edit149.Text:=Ado_dwxxzz.fieldbyname('dw_jxsb_yuanzhi').AsString;
  edit150.Text:=Ado_dwxxzz.fieldbyname('dw_jxsb_jingzhi').AsString;
  edit151.Text:=Ado_dwxxzz.fieldbyname('dw_jxsb_zgl').AsString;
  edit152.Text:=Ado_dwxxzz.fieldbyname('dw_gat_je').AsString;
  edit153.Text:=Ado_dwxxzz.fieldbyname('dw_donglizpl').AsString;
  edit126.Text:=Ado_dwxxzz.fieldbyname('dw_jishuzpl').AsString;



end;

procedure TFrm_DWXinXi.btn_saveClick(Sender: TObject);
begin
  btn_Add.Enabled:=true;
  btn_modify.Enabled:=true;
  btn_Del.Enabled:=true;
  btn_save.enabled:=false;
  if com_leixing.ItemIndex<0 then exit;
  if ichoose=1 then
  begin
    ado_am.Close;
    datamodule1.ADOMainConn.BeginTrans;
    try
      ado_am.SQL.Text:=' if (select count(dw_id) from bid_danwei_xinxi where dw_name='''+trim(com_dwname.Text)
         +''')=0  begin '
         +' insert into bid_danwei_xinxi(dw_name,dw_leibie) values('''+trim(com_dwname.Text)+''','
         +inttostr(com_leixing.ItemIndex+1)+')'
         +' insert into bid_danwei_zizhi(dw_id) select dw_id from bid_danwei_xinxi where '
         +' dw_name='''+trim(com_dwname.text)+''' end ';
      ado_am.ExecSQL;
      datamodule1.ADOMainConn.CommitTrans;
    except
      datamodule1.ADOMainConn.RollbackTrans;
    end;
  end;
  if ichoose=2 then
  begin
    ado_am.Close;
    datamodule1.ADOMainConn.BeginTrans;
    try
      ado_am.SQL.Text:='update bid_danwei_xinxi set dw_leibie='+trim(inttostr(com_leixing.ItemIndex+1))+' where dw_ID IN'
         +' (SELECT  dw_id from bid_danwei_xinxi where dw_name='''+trim(com_dwname.Text)+''')';
      ado_am.ExecSQL;
      datamodule1.ADOMainConn.CommitTrans;
    except
      datamodule1.ADOMainConn.RollbackTrans;
    end;
    modify;
  end;
  ichoose:=0;
end;

procedure tFrm_DWXinXi.modify;
begin
  if trim(com_dwname.text)='' then exit;
  if ipagetab=1 then
  begin
    datamodule1.ADOMainConn.BeginTrans;
    try
      ado_am.Close;
      ado_am.SQL.Text:='update bid_danwei_xinxi set dw_wangzhi='''+trim(Edt_wangzhi.Text)
             +''',dw_leixing='''+trim(edt_leixing.Text)+''',dw_yewu='''+trim(edt_yewu.Text)
             +''', dw_yyzz_id='''+trim(edt_yyzch.Text)+''',dw_yyfw='''+trim(edt_yyfw.Text)
             +''',dw_fzdw='''+trim(edt_fzdw.Text) 
             +''',dw_qyzx_zsh='''+trim(edt_zxbh.Text)+''',dw_qyzx_dj='''+trim(edt_djdw.Text)
             +''',dw_fzdw_zsh='''+trim(edt_zxdj.Text)+''',dw_kh_yinhang='''+trim(edt_khyh.Text)
             +''',dw_kh_zh='''+trim(edt_khname.Text)+''',DW_kh_name='''+trim(edt_yhzh.Text)
             +''',dw_jianli='''+trim(Memo_jianli.Text)+''' where dw_name='''+trim(com_dwname.Text)
             +'''';
      ado_am.ExecSQL;
      datamodule1.ADOMainConn.CommitTrans;
    except
      datamodule1.ADOMainConn.RollbackTrans;
    end;
  exit;
  end;
  if ipagetab=2 then
  begin
   datamodule1.ADOMainConn.BeginTrans;
   try
      ado_am.Close;
      ado_am.SQL.Text:=' if (select count(*) from bid_danwei_zizhi where dw_id in (select dw_id '
           +' from bid_danwei_xinxi where dw_name='''+trim(Com_DWname.Text)+'''))>0  '
           +' begin '
           +' update bid_danwei_zizhi set zz_main='''+trim(edit42.Text)+''',zz_mlb='''
           +trim(edit43.Text)+''',zz_mjb='''+TRIM(edit44.Text)+''',zz_zsbh='''+trim(edit14.Text)
           +''',zz_cblb1='''+trim(edit45.Text)+''',zz_cbjb1='''+trim(edit46.Text)+''',zz_cblb2='''
           +trim(EDit47.text)+''',zz_cbjb2='''+trim(edit48.Text)+''',zz_cblb3='''+trim(edit49.Text)
           +''',zz_cbjb3='''+trim(edit50.Text)+''',zz_cblb4='''+trim(edit51.Text)+''',zz_cbjb4='''
           +trim(edit52.Text)+''',zz_cblb5='''+trim(EDit53.text)+''',zz_cbjb5='''+trim(edit54.Text)
           +''',zz_cblb6='''+trim(edit55.Text)+''',zz_cbjb6='''+trim(edit56.Text)+''',zz_cblb7='''
           +trim(edit57.Text)+''',zz_cbjb7='''+trim(edit58.Text)+''',zz_cblb8='''+trim(edit59.Text)
           +''',zz_cbjb8='''+trim(edit60.Text)+''',zz_cblb9='''+trim(EDit61.text)+''',zz_cbjb9='''
           +trim(edit62.Text)+''',zz_cblb10='''+trim(edit63.Text)+''',zz_cbjb10='''+trim(edit64.Text)
           +''',zz_cblb11='''+trim(edit65.Text)+''',zz_cbjb11='''+trim(edit66.Text)+''',zz_zylb1='''
           +trim(edit16.Text)+''',zz_zyjb1='''+trim(edit17.Text)+''',zz_zylb2='''+trim(edit18.Text)
           +''',zz_zyjb2='''+trim(edit19.Text)+''',zz_zylb3='''+trim(edit20.Text)+''',zz_zyjb3='''
           +trim(edit21.Text)+''',zz_zylb4='''+trim(edit22.Text)+''',zz_zyjb4='''+trim(edit23.Text)
           +''',zz_zylb5='''+trim(edit24.Text)+''',zz_zyjb5='''+trim(edit25.Text)+''' where '
           +' dw_id in (select dw_id from bid_danwei_xinxi where dw_name='''+trim(Com_DWname.Text)+''')'
           +' end  else begin '
           +' insert into bid_danwei_zizhi select dw_id,'''+trim(edit42.Text)+''','' '','''+trim(edit43.Text)
           +''','''+trim(edit44.Text)+''','''+trim(edit14.Text)+''','''+trim(edit15.Text)+''','''
           +trim(edit45.Text)+''','''+trim(edit46.Text)+''','''+TRIM(edit47.Text)+''','''
           +trim(edit48.Text)+''','''+trim(edit49.Text)+''','''+trim(edit50.Text)+''','''
           +trim(edit51.Text)+''','''+trim(edit52.Text)+''','''+trim(edit53.Text)+''','''
           +trim(edit54.Text)+''','''+trim(edit55.Text)+''','''+trim(edit56.Text)+''','''
           +trim(edit57.Text)+''','''+trim(edit58.Text)+''','''+trim(edit59.Text)+''','''
           +trim(edit60.Text)+''','''+trim(edit61.Text)+''','''+trim(edit62.Text)+''','''
           +trim(edit63.Text)+''','''+trim(edit64.Text)+''','''+trim(edit65.Text)+''','''
           +trim(edit66.Text)+''','''+trim(edit16.Text)+''','''+trim(edit17.Text)+''','''
           +trim(edit18.Text)+''','''+trim(edit19.Text)+''','''+trim(edit20.Text)+''','''
           +trim(edit21.Text)+''','''+trim(edit22.Text)+''','''+trim(edit23.Text)+''','''
           +trim(edit24.Text)+''','''+trim(edit25.Text)+''' from bid_danwei_xinxi where '
           +' dw_name='''+trim(Com_DWname.Text)+'''  end ';
     ado_am.ExecSQL;
     datamodule1.ADOMainConn.CommitTrans;
    except
      datamodule1.ADOMainConn.RollbackTrans;
    end;
  exit;
  end;
  if ipagetab=3 then
  begin
    datamodule1.ADOMainConn.BeginTrans;
    try
      ado_am.Close;
      ado_am.SQL.Text:='update bid_danwei_xinxi set dw_qyzc_sheng='''+trim(combobox2.Text)
             +''',dw_qyzc_code='''+trim(edit69.Text)+''',dw_qyzc_adr='''+trim(edit70.Text)
             +''', dw_qyxx_sheng='''+trim(combobox3.Text)+''',dw_qyxx_code='''+trim(edit72.Text)
             +''',dw_qyxx_adr='''+trim(edit73.Text)+''',dw_jianli_time='''+trim(edit76.Text)
             +''',DW_lx_phone='''+trim(edit77.Text)+''',dw_email='''+trim(edit79.Text)
             +''',dw_chuanzhen='''+trim(edit80.Text)+''',DW_faren_name='''+trim(edit81.Text)
             +''',dw_faran_zhiwu='''+trim(edit82.Text)+''',DW_FAREN_zhicheng='''+trim(edit83.Text)
             +''',dw_jingli_name='''+trim(edit84.Text)+''',dw_jingli_zhiwu='''+trim(edit85.Text)
             +''',dw_jingli_zhicheng='''+trim(edit86.Text)+''',dw_jishu_name='''+trim(edit87.Text)
             +''',DW_JISHU_ZHIWU='''+trim(edit88.Text)+''',dw_jishu_zhicheng='''+trim(edit89.Text)
             +''',dw_shigu_cishu='''+trim(edit8.Text)+''',dw_shigu_sunshi='''+trim(edit9.Text)
             +''',dw_shigu_siwang='''+trim(edit10.Text)+''',dw_shigu_zhongshang='''+trim(edit26.Text)
             +''' where dw_name='''+trim(com_dwname.Text)+'''';
      ado_am.ExecSQL;
      datamodule1.ADOMainConn.CommitTrans;
    except
      datamodule1.ADOMainConn.RollbackTrans;
    end;
  exit;
  end;
  if ipagetab=4 then
  begin
    datamodule1.ADOMainConn.BeginTrans;
    try
      ado_am.Close;
      ado_am.SQL.Text:='update bid_danwei_xinxi set dw_cy_nmo='''+trim(edit90.Text)
             +''',dw_tuixiu='''+trim(edit91.Text)+''',dw_cy_pingjun='''+trim(edit92.Text)
             +''', dw_guanli='''+trim(edit93.Text)+''',dw_zz_above='''+trim(edit41.Text)
             +''',dw_have_zhicheng='''+trim(edit62.Text)+''',dw_zongji_zhicheng='''+trim(edit63.Text)
             +''',dw_gaoji_zhicheng='''+trim(edit64.Text)
             +''',DW_jishu_total='''+trim(edit95.Text)+''',DW_JISHU_zhongji='''+trim(edit96.Text)
             +''',dw_jishu_gaoji='''+trim(edit97.Text)+''',dw_jishu_tuixiiu='''+trim(edit98.Text)
             +''',dw_jingli_total='''+trim(edit103.Text)+''',DW_jingli_two='''+trim(edit104.Text)
             +''',dw_jingli_one='''+trim(edit106.Text)+''',DW_JINGLI_THREE='''+trim(edit105.Text)
             +''',dw_sgy_total='''+trim(edit107.Text)+''',dw_sgy_shanggang='''+trim(edit110.Text)
             +''',dw_zjy_total='''+trim(edit110.Text)+''',dw_zjy_shanggang='''+trim(edit109.Text)
             +''',dw_ysy_total='''+trim(edit94.Text)+''',dw_ysy_shanggan='''+trim(edit112.Text)
             +''',dw_aay_total='''+trim(edit110.Text)+''',dw_aay_shanggang='''+trim(edit113.Text)
             +''' where dw_name='''+trim(com_dwname.Text)+'''';
      ado_am.ExecSQL;
      datamodule1.ADOMainConn.CommitTrans;
    except
      datamodule1.ADOMainConn.RollbackTrans;
    end;
  exit;
  end;
  if ipagetab=5 then
  begin
    datamodule1.ADOMainConn.BeginTrans;
    try
      ado_am.Close;
      ado_am.SQL.Text:='update bid_danwei_xinxi set dw_zhuce_je='''+trim(edit114.Text)
             +''',dw_shishou_je='''+trim(edit115.Text)+''',dw_zichan_je='''+trim(edit116.Text)
             +''', dw_guyou_je='''+trim(edit117.Text)+''',dw_guding_je='''+trim(edit118.Text)
             +''',dw_liudong_je='''+trim(edit119.Text)+''',dw_faren_je='''+trim(edit120.Text)
             +''',dw_geren_je='''+trim(edit121.Text)
             +''',dw_fuzhai_je='''+trim(edit122.Text)+''',dw_jingzic='''+trim(edit123.Text)
             +''',dw_gat_je='''+trim(edit124.Text)+''',dw_waishang='''+trim(edit125.Text)
             +''',dw_sr_total='''+trim(edit126.Text)+''',dw_jzy_total='''+trim(edit127.Text)
             +''',dw_gdzc_zhejiu='''+trim(edit128.Text)+''',dw_jzy_add='''+trim(edit129.Text)
             +''',dw_lirun_ze='''+trim(edit130.Text)+''',dw_suideshui='''+trim(edit131.Text)
             +''',dw_ldz_baozhou='''+trim(edit132.Text)+''',dw_scsje='''+trim(edit133.Text)
             +''',dw_jinglr='''+trim(edit134.Text)+''',dw_yingye_lr='''+trim(edit136.Text)
             +''',dw_jingzc_sll='''+trim(edit135.Text)+''',DW_jzy_ldscl='''+trim(edit137.Text)
             +''',dw_scjy_yuanzhi='''+trim(edit138.Text)+''',dw_ziben_fzl='''+trim(edit139.Text)
             +''',dw_zxjy_jingzhi='''+trim(edit140.Text)+''',dw_ziben_bzzzl='''+trim(edit141.Text)
             +''' where dw_name='''+trim(com_dwname.Text)+'''';
      ado_am.ExecSQL;
      datamodule1.ADOMainConn.CommitTrans;
    except
      datamodule1.ADOMainConn.RollbackTrans;
    end;
  exit;
  end;
  if ipagetab=6 then
  begin
    datamodule1.ADOMainConn.BeginTrans;
    try
      ado_am.Close;
      ado_am.SQL.Text:='update bid_danwei_xinxi set dw_jiesn_one='''+trim(edit142.Text)
             +''',dw_jiesn_two='''+trim(edit143.Text)+''',dw_jies_two='''+trim(edit144.Text)
             +''', dw_jies_one='''+trim(edit145.Text)+''',dw_jiesn_three='''+trim(edit146.Text)
             +''',dw_jies_three='''+trim(edit148.Text)+''',dw_jxsb_sl='''+trim(edit147.Text)
             +''',dw_jxsb_yuanzhi='''+trim(edit149.Text)
             +''',dw_jxsb_jingzhi='''+trim(edit150.Text)+''',dw_jxsb_zgl='''+trim(edit151.Text)
             +''',dw_donglizpl='''+trim(edit152.Text)+''',dw_jishuzpl='''+trim(edit153.Text)
             +''' where dw_name='''+trim(com_dwname.Text)+'''';
      ado_am.ExecSQL;
      datamodule1.ADOMainConn.CommitTrans;
    except
      datamodule1.ADOMainConn.RollbackTrans;
    end;
  exit;
  end;
end;

procedure TFrm_DWXinXi.PageControl1Change(Sender: TObject);
begin
  if (ichoose=2) or (ichoose=0) then
     modify;
  ipagetab:=pagecontrol1.TabIndex;
  if ipagetab=2 then
  begin
    if com_leixing.text='监理' then
    begin
      edit42.Visible:=false;
      groupbox4.Visible:=false;
      groupbox9.Caption:='';
    end;
    if com_leixing.Text='施工' then
    begin
      edit42.Visible:=true;
      groupbox4.Visible:=true;
      groupbox9.Caption:='增项施工总承包资质';
    end;
  end;
  if (ipagetab=7) or (ipagetab=8) or (ipagetab=9) then
  begin
    btn_save.Enabled:=false;
    btn_add.Enabled:=false;
    btn_modify.Enabled:=false;
    bb_cancel.Enabled:=false;
    btn_del.Enabled:=false;
  end
  else
  begin
    if ichoose=0 then
      btn_save.Enabled:=false
    else
      btn_save.Enabled:=true;
    btn_add.Enabled:=true;
    btn_modify.Enabled:=true;
    bb_cancel.Enabled:=true;
    btn_del.Enabled:=true;
  end;
end;

procedure TFrm_DWXinXi.Com_DWnameChange(Sender: TObject);
begin
  if DragDrop=1 then
  begin
    LoadXinXI;
    DragDrop:=0;
  end;
end;

procedure TFrm_DWXinXi.btn_modifyClick(Sender: TObject);
begin
  btn_Add.Enabled:=false;
  btn_Del.Enabled:=false;
  btn_Save.Enabled:=true;
  ichoose:=2;
  btn_save.Enabled:=true;
end;

procedure TFrm_DWXinXi.btn_delClick(Sender: TObject);
var
  ssql:string;
begin
  if dw_id<1 then exit;

  ssql:='delete from bid_danwei_xinxi where dw_id='+trim(inttostr(dw_id));
  if DelAddInS(ssql) then
  begin
    adoquery1.Close;
    adoquery1.Open;
  end;
end;

procedure TFrm_DWXinXi.Com_DWnameDropDown(Sender: TObject);
var
  adoquery:tadoquery;
  i:Integer;
begin
  DragDrop:=1;
  adoquery:=tadoquery.create(nil);
  try
    adoquery.Close;
    adoquery.Connection:=datamodule1.ADOMainConn;
    adoquery.SQL.Text:='select dw_name from bid_danwei_xinxi where dw_name like ''%'
       +trim(com_dwname.Text)+'%''';
    adoquery.Open;
    adoquery.First;
    com_dwname.Items.Clear;
    for i:=0 to adoquery.RecordCount-1 do
    begin
      com_dwname.Items.Add(adoquery.fieldbyname('dw_name').AsString);
      adoquery.Next;
    end;
  finally
    freeandnil(adoquery);
  end;
end;

end.