unit_xiangxi.pas

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

    combobox1.Items.Clear;
    for i:=0 to adoquery.RecordCount-1 do
    begin
      combobox1.Items.Add(adoquery.fieldbyname('dw_name').AsString);
      adoquery.Next;
    end;
  finally
    freeandnil(adoquery);
  end;
end;
procedure tfrm_xiangxi.GetCanshu;   //获得参数信息
var
  adoquery:tadoquery;
  i:Integer;
begin
  adoquery:=tadoquery.Create(nil);
  try
    adoquery.Close;
    adoquery.Connection:=datamodule1.ADOMainConn;
    try
      adoquery.sql.Text:='select * 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;
      edt_caiwu_total.Text:=adoquery.fieldbyname('cs_caiwu_total').AsString;
      edt_caiwu_hege.Text:=adoquery.fieldbyname('cs_caiwu_hege').AsString;
      edt_jishu_total.Text:=adoquery.fieldbyname('cs_jishu_total').AsString;
      edt_jishu_hege.Text:=adoquery.fieldbyname('cs_jishu_hege').AsString;
      edit6.Text:=adoquery.fieldbyname('cs_renshu').AsString;
      edt_jingyan_total.Text:=adoquery.fieldbyname('cs_jingyan_total').AsString;
      edt_jingyan_hege.Text:=adoquery.Fieldbyname('cs_jingyan_hege').AsString;
      edt_zuidi.Text:=adoquery.fieldbyname('cs_zuidixian').AsString;
      edt_duanshu.Text:=adoquery.fieldbyname('CS_ZUIDUOSQDS').AsString;
      edt_zuiduo.Text:=adoquery.fieldbyname('CS_ZUIDUOSQR').asstring;
      edt_guanlian.text:=adoquery.fieldbyname('cs_guanlian').AsString;
      if com_zhaobiao.Text='施工' then
      begin
        combobox2.Text:='请选择';
        Getxmleibie(combobox2);
      end
      else if  com_zhaobiao.Text='监理' then
      begin
        adoquery.Close;
        combobox2.Enabled:=true;
        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;
        combobox2.Items.Clear;
        for i:=0 to adoquery.RecordCount-1 do
        begin
          combobox2.Items.Add(adoquery.fieldbyname('bd_name').AsString);
          adoquery.Next;
        end;
      end;
    except
      freeandnil(adoquery);
      exit;
    end;
  finally
    FreeAndNil(adoquery);
  end;
end;

procedure TFrm_Xiangxi.FormCreate(Sender: TObject);
var
  adoquery:tadoquery;
  i :Integer;
begin
  GetItems(com_xmname,com_zhaobiao,com_gclxname,1);
  dropdown:=0;
  adoquery:=tadoquery.Create(nil);
  try
    adoquery.Close;
    adoquery.Connection:=DataModule1.ADOMainConn;
    adoquery.SQL.Text:='select xm_name  from bid_xiangmu_xinxi ';  ///获得列表
    adoquery.Open;
    adoquery.First;
    com_xmname.Items.Clear;
    for i:=0 to adoquery.RecordCount-1 do
    begin
      com_xmname.items.add(adoquery.FieldByName('xm_name').AsString);
      adoquery.Next;
    end;
    adoquery.Close;
    adoquery.SQL.Text:='select zblx_name  from bid_zhaobiao_leixing';
    adoquery.Open;
    adoquery.First;
    com_zhaobiao.Items.Clear;
    for i:=0 to adoquery.RecordCount-1 do
    begin
      com_zhaobiao.items.add(adoquery.FieldByName('zblx_name').AsString);
      adoquery.Next;
    end;
    adoquery.Close;
    adoquery.SQL.Text:='select gclx_name  from bid_gongcheng_leixing ';
    adoquery.Open;
    adoquery.First;
    com_gclxname.Items.Clear;
    for i:=0 to adoquery.RecordCount-1 do
    begin
      com_gclxname.items.add(adoquery.FieldByName('gclx_name').AsString);
      adoquery.Next;
    end;
    if xmbdgc.XM_ISBn='000'  then com_xmname.Text:='请选择项目'
    else   com_xmname.Text:=xmbdgc.XM_NAME;
    if xmbdgc.BDLX_ID='0'  then com_zhaobiao.Text:='施工'
    else   com_zhaobiao.Text:=xmbdgc.BDLX_NAME;
    if xmbdgc.gCLX_ID='0'  then com_gclxname.Text:='请选择工程类型'
    else  com_gclxname.Text:=xmbdgc.GCLX_NAME;
    GetCanshu;//获得参数信息
  finally
    FreeAndNil(adoquery);
  end;
end;

procedure TFrm_Xiangxi.Com_xmnameChange(Sender: TObject);
begin
   if (com_zhaobiao.Items.IndexOf(com_zhaobiao.Text)>=0)  and (com_gclxname.items.indexof(com_gclxname.Text)>=0) then
     GetXmbdgc(com_xmname.text,com_zhaobiao.text,com_gclxname.text);
   GetCanshu;
end;

procedure TFrm_Xiangxi.Com_zhaoBiaoChange(Sender: TObject);
begin
  if (com_xmname.Items.IndexOf(com_xmname.Text)>=0)  and (com_gclxname.Items.IndexOf(com_gclxname.Text)>=0) then
     GetXmbdgc(com_xmname.text,com_zhaobiao.text,com_gclxname.text);
  GetCanshu;
  frm_xiangxi.PageControl1.Pages[0].TabVisible:=not frm_xiangxi.PageControl1.Pages[0].TabVisible;
  frm_xiangxi.PageControl1.Pages[1].TabVisible:=not frm_xiangxi.PageControl1.Pages[1].TabVisible;
  frm_xiangxi.PageControl1.Pages[2].TabVisible:=not frm_xiangxi.PageControl1.Pages[2].TabVisible;
  frm_xiangxi.PageControl1.Pages[3].TabVisible:=not frm_xiangxi.PageControl1.Pages[3].TabVisible;
  frm_xiangxi.PageControl1.Pages[4].TabVisible:=not frm_xiangxi.PageControl1.Pages[4].TabVisible;
  frm_xiangxi.PageControl1.Pages[5].TabVisible:=not frm_xiangxi.PageControl1.Pages[5].TabVisible;
end;

procedure TFrm_Xiangxi.Com_GclxnameChange(Sender: TObject);
begin
  if (com_xmname.Items.IndexOf(com_xmname.Text)>=0)  and (com_zhaobiao.Items.IndexOf(com_zhaobiao.Text)>=0) then
     GetXmbdgc(com_xmname.text,com_zhaobiao.text,com_gclxname.text);
  GetCanshu;
end;

procedure TFrm_Xiangxi.BitBtn3Click(Sender: TObject);
var
  adoquery:tadoquery;
  xmgczb_id:string;
  renshu:Integer;
begin
  if trim(edit6.Text)='' then
    renshu:=500
  else
    renshu:=strtoint(edit6.text);
  adoquery:=tadoquery.Create(nil);
  try
    adoquery.Close;
    adoquery.Connection:=datamodule1.ADOMainConn;
    datamodule1.ADOMainConn.BeginTrans;
    try
      adoquery.SQL.Text:='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;
      xmgczb_id:=adoquery.fieldbyname('xmgczb_id').asstring;
      adoquery.SQL.Text:='if (select count(*) 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+'))=0  '
                        +' begin '
                        +' insert into bid_canshu_save(cs_renshu,xmgczb_id,cs_caiwu_total,cs_caiwu_hege,cs_jishu_total,'
                        +' cs_jishu_hege,cs_jingyan_total,'+' cs_jingyan_hege,cs_ZUIDUOSQDS,cs_zuidixian, '
                        +' cs_zuiduosqr,cs_guanlian) values('+inttostr(renshu)+','+trim(xmgczb_id)+','''+trim(edt_caiwu_total.Text)
                        +''','''+trim(edt_caiwu_hege.text)+''','''+trim(edt_jishu_total.Text)+''','''+trim(edt_jishu_hege.Text)+''','''
                        +trim(edt_jingyan_total.Text)+''','''+trim(edt_jingyan_hege.Text)+''','''+trim(edt_duanshu.Text)+''','''
                        +trim(edt_zuidi.Text)+''','''+trim(edt_zuiduo.Text)+''','''+TRIM(edt_guanlian.Text)+''')'
                        +' end else begin '
                        +' update bid_canshu_save set cs_renshu='+inttostr(renshu)+' ,cs_caiwu_total='''+trim(edt_caiwu_total.Text)
                        +''',cs_caiwu_hege='''+trim(edt_caiwu_hege.text)+''',cs_jishu_total='''+trim(edt_jishu_total.Text)
                        +''',cs_jishu_hege='''+trim(edt_jishu_hege.Text)+''',cs_jingyan_total='''
                        +trim(edt_jingyan_total.Text)+''',cs_jingyan_hege='''+trim(edt_jingyan_hege.Text)
                        +''',cs_zuiduosqds='''+trim(edt_duanshu.Text)+''',cs_zuidixian='''
                        +trim(edt_zuidi.Text)+''',cs_zuiduosqr='''+trim(edt_zuiduo.Text)+''',cs_guanlian='''+TRIM(edt_guanlian.Text)+''''
                        +' where xmgczb_id='+trim(xmgczb_id)
                        +' end ';
      adoquery.ExecSQL;
      datamodule1.ADOMainConn.CommitTrans;
      showmessage('保存成功');
    except
      datamodule1.ADOMainConn.RollbackTrans;
    end;
  finally
    freeandnil(adoquery);
  end;
end;

procedure TFrm_Xiangxi.Button1Click(Sender: TObject);
begin
  if groupbox1.Visible=false then
  begin
    groupbox1.Visible:=true;
    button1.Caption:='隐藏参数信息';
    exit;
  end;
  if groupbox1.Visible=true then
  begin
     groupbox1.Visible:=false;
     button1.Caption:='显示参数信息';
  end;
end;

procedure TFrm_Xiangxi.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    getDw_name;
    dropdown:=1;
  end;
end;

procedure TFrm_Xiangxi.ComboBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if dropdown=3 then edit5.SetFocus;
  if dropdown<>1 then exit;
  begin
    combobox1.DroppedDown:=true;
    dropdown:=2;
  end;
end;

procedure TFrm_Xiangxi.ComboBox1DropDown(Sender: TObject);
begin
  inherited;
  dropdown:=2;
  getDw_name;
end;

procedure TFrm_Xiangxi.Edt_wKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in['0'..'9','.',#8,#13]) then
     Key:=#0;
end;

procedure TFrm_Xiangxi.Edt_jzcKeyPress(Sender: TObject; var Key: Char);
begin
   if not (Key in['0'..'9','.',#8,#13]) then
     Key:=#0;
end;

procedure TFrm_Xiangxi.Edt_tKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in['0'..'9','.',#8,#13]) then
     Key:=#0;
end;

procedure TFrm_Xiangxi.Edt_zyzjKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in['0'..'9','.',#8,#13]) then
     Key:=#0;
end;

procedure TFrm_Xiangxi.Edt_gszKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in['0'..'9','.',#8,#13]) then
     Key:=#0;
end;

procedure TFrm_Xiangxi.Edt_syjzKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in['0'..'9','.',#8,#13]) then
     Key:=#0;
end;

procedure TFrm_Xiangxi.Edt_xdKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in['0'..'9','.',#8,#13]) then
     Key:=#0;
end;

procedure TFrm_Xiangxi.Edt_wExit(Sender: TObject);
begin
  if (trim(edt_t.text)='') or (trim(edt_gsz.Text)='') then
  begin
    edt_cwnl.Text:='';
    edt_caiwu.Text:='';
    exit;
  end;
  GetCwnl;
  if (trim(edt_zjnl.Text)='') or (trim(edt_tbnl.Text)='') or (trim(edt_cwnl.Text)='') then exit;
    getcaiwu;
end;

procedure tfrm_xiangxi.GetCwnl;
var
  icwnl:real;
begin
  icwnl:=strtofloat(edt_gsz.Text)/strtofloat(edt_t.Text);
  icwnl:=strtofloat(edt_w.text)/icwnl;
  if icwnl<1 then
  begin
    edt_cwnl.Text:='0';
    exit;
  end;
  if (icwnl>=1) and (icwnl<2) then
  begin
     edt_cwnl.Text:='4';
     exit;
  end;
  if (icwnl>=2) and (icwnl<3) then
  begin
    edt_cwnl.Text:='6';
    exit;
  end;
  if (icwnl>=3) and (icwnl<4) then
  begin
    edt_cwnl.Text:='7';
    exit;
  end;
  if icwnl>=4 then
  begin
    edt_cwnl.Text:='8';
    exit;
  end;
end;

procedure tfrm_xiangxi.Getzjnl;
var
  a,b:real;
begin