unit_zishensqr.pas

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

unit Unit_ZiShenSqr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Unit_TopParentForm, Buttons, StdCtrls, ExtCtrls, ComCtrls, DB,
  ADODB;

type
  tfrm_ZiShenSqr = class(Tfrm_TopParentForm)
    Panel1: TPanel;
    Button1: TButton;
    Panel22: TPanel;
    Label3: TLabel;
    Panel33: TPanel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edt_dwname: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    ListView1: TListView;
    Memo1: TMemo;
    Panel11: TPanel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    ListView2: TListView;
    Label1: TLabel;
    ADO_xmdw: TADOQuery;
    ado_dwxx: TADOQuery;
    Label2: TLabel;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Com_xmnameChange(Sender: TObject);
    procedure Com_zhaoBiaoChange(Sender: TObject);
    procedure Com_GclxnameChange(Sender: TObject);
    procedure GetXmdw;
    procedure SpeedButton3Click(Sender: TObject);
    procedure getInfor(Adwname:string);
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure ListView2SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure Edt_dwnameKeyPress(Sender: TObject; var Key: Char);
    procedure getdwname;
    function GetDWLeixing:integer;//得到单位类型

  private
    { Private declarations }


  public
    { Public declarations }
  end;

var
  frm_ZiShenSqr: Tfrm_ZiShenSqr;

implementation

uses
  datamodule,systemobject,DataAccessCommonShell;

{$R *.dfm}

function tfrm_ZiShenSqr.GetDWLeixing:integer;//得到类别
begin
  if com_zhaobiao.Text='施工' then
    result:=1
  else if com_zhaobiao.Text='监理' then
    result:=2
  else if com_zhaobiao.Text='设计' then
    result:=3
  else
    result:=0;
end;

procedure tfrm_ZiShenSqr.getdwname;
var
  i:integer;
  Alistitem:TlistItem;
begin
  adoquery1.Close;
  adoquery1.SQL.Text:='select dw_id,dw_name from bid_danwei_xinxi where dw_leibie='
    +inttostr(GetDWLeixing)+'  order by dw_name';
  adoquery1.Open;
  adoquery1.First;
  listview1.Items.Clear;
  for i:=0 to adoquery1.RecordCount-1 do
  begin
    Alistitem:=listview1.Items.Add;
    Alistitem.Caption:=adoquery1.fieldbyname('dw_name').AsString;
    adoquery1.Next;
  end;

end;

procedure tfrm_ZiShenSqr.FormCreate(Sender: TObject);
begin
  GetItems(com_xmname,com_zhaobiao,com_gclxname,1);
  inherited;
  panel2.Caption:='资审人管理';
  //adoquery1.Active:=true;
  getdwname;
  Getxmdw;
end;

procedure tfrm_ZiShenSqr.Getxmdw;
var
  Alistitem:TlistItem;
  i:integer;
begin
  ADO_xmdw.Close;
  ado_xmdw.SQL.Text:='select a.dw_name from bid_danwei_xinxi a,bid_xmsqr b  '
       +' where a.dw_id=b.dw_id 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+')';
  ado_xmdw.Open;
  ado_xmdw.First;
  listview2.Items.Clear;
  edit1.Text:=inttostr(ado_xmdw.RecordCount);
  for i:=0 to ado_xmdw.RecordCount-1 do
  begin
    Alistitem:=listview2.Items.Add;
    Alistitem.Caption:=ado_xmdw.fieldbyname('dw_name').AsString;
    ado_xmdw.Next;
  end;
end;
procedure tfrm_ZiShenSqr.Button1Click(Sender: TObject);
begin
  inherited;
  if not panel22.Visible then
  begin
    panel22.Visible:=true;
    Button1.caption:='隐藏查询条件';
  end
  else
  begin
    panel22.Visible:=false;
    Button1.caption:='设置查询条件';
  end;
end;

procedure tfrm_ZiShenSqr.Button2Click(Sender: TObject);
var
  Alistitem:TlistItem;
  ssql:string;
  i:integer;
begin
  inherited;
  adoquery1.close;
  ssql:=' select dw_id,dw_name from bid_danwei_xinxi where  '
       +' dw_name like ''%'+trim(edt_dwname.Text)+'%'' ';
  if combobox1.items.indexof(trim(combobox1.Text))>=0 then
    ssql:=ssql+' and dw_qyzc_sheng='''+trim(combobox1.Text)+'''';
  if combobox2.items.indexof(trim(combobox2.Text))>=0 then
    ssql:=ssql+ ' and dw_qyxx_sheng='''+trim(combobox2.Text)+'''';
  ssql:=ssql+' and dw_leibie='+inttostr(GetDWLeixing)+' order by dw_name';
  adoquery1.SQL.Text:=ssql;
  adoquery1.Open;
  adoquery1.First;
  listview1.Items.Clear;
  for i:=0 to adoquery1.RecordCount-1 do
  begin
    Alistitem:=listview1.Items.Add;
    Alistitem.Caption:=adoquery1.fieldbyname('dw_name').AsString;
    adoquery1.Next;
  end;
end;

procedure tfrm_ZiShenSqr.SpeedButton2Click(Sender: TObject);
var
  adoquery:tadoquery;
  maxdwbm:string;
begin
  inherited;
  adoquery:=tadoquery.Create(nil);
  try
    adoquery.Connection:=datamodule1.ADOMainConn;
    datamodule1.ADOMainConn.BeginTrans;
    try
      adoquery.Close;
      adoquery.SQL.Text:=' if (select count(*) from bid_xmsqr where dw_id in (select dw_id from bid_danwei_xinxi where'
           +' dw_name='''+trim(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 +'))=0 begin'
           +' insert into bid_xmsqr(xmgczb_id,dw_id) select xmgczb_id,dw_id '
           +' from bid_xmgczb a,bid_danwei_xinxi b where b.dw_name='''+trim(listview1.Selected.caption)
           +''' and a.xm_isbn='''+trim(xmbdgc.XM_ISBn)+''' and a.gclx_id='+xmbdgc.gCLX_ID
           +' and a.zblx_id='+xmbdgc.BDLX_Id+' end';
      adoquery.ExecSQL;
      datamodule1.ADOMainConn.CommitTrans;
    except
      datamodule1.ADOMainConn.RollbackTrans;
    end;
  except
    FreeAndnil(adoquery);
  end;
  Getxmdw;
end;

procedure tfrm_ZiShenSqr.SpeedButton3Click(Sender: TObject);
var
  adoquery:tadoquery;
begin
  inherited;
  adoquery:=tadoquery.Create(nil);
  try
    adoquery.Connection:=datamodule1.ADOMainConn;
    datamodule1.ADOMainConn.BeginTrans;
    try
      adoquery.Close;
      adoquery.SQL.Clear;
      adoquery.SQL.Text:='delete from bid_xmsqr where dw_id in (select dw_id from bid_danwei_xinxi where dw_NAME='''
           +trim(listview2.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;
  except
    FreeAndnil(adoquery);
  end;
  Getxmdw;
end;

procedure tfrm_ZiShenSqr.Com_xmnameChange(Sender: TObject);
begin
  inherited;
  Getxmdw;
end;

procedure tfrm_ZiShenSqr.Com_zhaoBiaoChange(Sender: TObject);
begin
  inherited;
  getdwname;
  Getxmdw;
end;

procedure tfrm_ZiShenSqr.Com_GclxnameChange(Sender: TObject);
begin
  inherited;
  Getxmdw;
end;
procedure tfrm_ZiShenSqr.getInfor(Adwname:string);
var
  adoquery:tadoquery;
begin
  adoquery:=tadoquery.Create(nil);
  try
    adoquery.Connection:=datamodule1.ADOMainConn;
    adoquery.Close;
    adoquery.SQL.TexT:='select dw_name,dw_qyzc_sheng,dw_qyxx_sheng from bid_danwei_xinxi '
               +' where dw_name='''+Adwname+'''';
    adoquery.Open;
    memo1.Lines.Clear;
    memo1.Lines.Add('所选单位信息:');
    memo1.Lines.Add('单位名称:'+adoquery.fieldbyname('dw_name').AsString);
    memo1.Lines.Add('单位注册地址:'+adoquery.fieldbyname('dw_qyzc_sheng').AsString);
    memo1.Lines.Add('单位详细地址'+adoquery.fieldbyname('dw_qyxx_sheng').AsString);
    memo1.Lines.Add('单位资质情况:');
    adoquery.SQL.Text:='select b.zz_mlb,b.zz_main,b.zz_mjb,b.zz_cblb1,b.zz_cbjb1,'
           +'b.zz_cblb2,b.zz_cbjb2,b.zz_cblb3,b.zz_cbjb3,b.zz_cblb4,b.zz_cbjb4,b.zz_cblb5,b.zz_cbjb5,b.zz_cblb6,b.zz_cbjb6 '
           +' ,b.zz_cblb7,b.zz_cbjb7,b.zz_cblb8,b.zz_cbjb8,b.zz_cblb9,b.zz_cbjb9,b.zz_cblb10,b.zz_cbjb10'
           +',b.zz_cblb11,b.zz_cbjb11,zz_zylb1,zz_zyjb1,zz_zylb2,zz_zyjb2,zz_zylb3,zz_zyjb3'
           +',zz_zylb4,zz_zyjb4,zz_zylb5,zz_zyjb5 from bid_danwei_xinxi a,bid_danwei_zizhi b '
           +' where a.dw_name='''+Adwname+''' and '
           +' a.dw_id=b.dw_id ';
    adoquery.Open;
    memo1.Lines.Add('  '+adoquery.fieldbyname('zz_mlb').AsString
      +adoquery.fieldbyname('zz_main').AsString+adoquery.fieldbyname('zz_mjb').AsString+','
      +adoquery.fieldbyname('zz_cblb1').AsString+adoquery.fieldbyname('zz_cbjb1').AsString+','
      +adoquery.fieldbyname('zz_cblb2').AsString+adoquery.fieldbyname('zz_cbjb2').AsString+','
      +adoquery.fieldbyname('zz_cblb3').AsString+adoquery.fieldbyname('zz_cbjb3').AsString+','
      +adoquery.fieldbyname('zz_cblb4').AsString+adoquery.fieldbyname('zz_cbjb4').AsString+','
      +adoquery.fieldbyname('zz_cblb5').AsString+adoquery.fieldbyname('zz_cbjb5').AsString+','
      +adoquery.fieldbyname('zz_cblb6').AsString+adoquery.fieldbyname('zz_cbjb6').AsString+','
      +adoquery.fieldbyname('zz_cblb7').AsString+adoquery.fieldbyname('zz_cbjb7').AsString+','
      +adoquery.fieldbyname('zz_cblb8').AsString+adoquery.fieldbyname('zz_cbjb8').AsString+','
      +adoquery.fieldbyname('zz_cblb9').AsString+adoquery.fieldbyname('zz_cbjb9').AsString+','
      +adoquery.fieldbyname('zz_cblb10').AsString+adoquery.fieldbyname('zz_cbjb10').AsString+','
      +adoquery.fieldbyname('zz_cblb11').AsString+adoquery.fieldbyname('zz_cbjb11').AsString+','
      +adoquery.fieldbyname('zz_zylb1').AsString+adoquery.fieldbyname('zz_zyjb1').AsString+','
      +adoquery.fieldbyname('zz_zylb2').AsString+adoquery.fieldbyname('zz_zyjb2').AsString+','
      +adoquery.fieldbyname('zz_zylb3').AsString+adoquery.fieldbyname('zz_zyjb3').AsString+','
      +adoquery.fieldbyname('zz_zylb4').AsString+adoquery.fieldbyname('zz_zyjb4').AsString+','
      +adoquery.fieldbyname('zz_zylb5').AsString+adoquery.fieldbyname('zz_zyjb5').AsString);
  finally
    freeandnil(adoquery);
  end;
end;

procedure tfrm_ZiShenSqr.ListView1SelectItem(Sender: TObject;
  Item: TListItem; Selected: Boolean);
begin
  inherited;
  IF Selected=TRUE THEN
  begin
    getinfor(trim(listview1.Selected.Caption));
  end;
end;

procedure tfrm_ZiShenSqr.ListView2SelectItem(Sender: TObject;
  Item: TListItem; Selected: Boolean);
begin
  inherited;
  IF Selected=TRUE THEN
  begin
    getinfor(trim(listview2.Selected.Caption));
  end;

end;

procedure tfrm_ZiShenSqr.Edt_dwnameKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
  if key=#13 then
    Button2Click(sender);
end;

end.