unit_zishenrenwj.pas

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

unit Unit_zishenrenwj;

interface

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

type
  TFrm_ZiShenRenwj = class(Tfrm_TopParentForm)
    Panel1: TPanel;
    ListView1: TListView;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Memo_ms: TMemo;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ComboBox1: TComboBox;
    Label8: TLabel;
    Edt_name: TEdit;
    ComboBox2: TComboBox;
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    Label3: TLabel;
    Button2: TButton;
    Com_leibie: TComboBox;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    edt_wdname: TEdit;
    Label10: TLabel;
    Edt_dwname: TEdit;
    SpeedButton1: TSpeedButton;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    btn_add: TButton;
    btn_del: TButton;
    ListView3: TListView;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    ListView2: TListView;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label11: TLabel;
    Edit4: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2DropDown(Sender: TObject);
    procedure GetComItem;  //得到单位信息
    procedure getList;
    procedure ComboBox2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Com_zhaoBiaoChange(Sender: TObject);
    procedure Com_GclxnameChange(Sender: TObject);
    procedure Com_xmnameChange(Sender: TObject);
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure Getbiaoduan;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure btn_delClick(Sender: TObject);
    procedure btn_addClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
    dropdown:integer;
  public
    { Public declarations }
  end;

var
  Frm_ZiShenRenwj: TFrm_ZiShenRenwj;

implementation

uses
  unit_zishenr,DataModule,SystemObject,DataAccessCommonShell,unit_public;

{$R *.dfm}

procedure TFrm_ZiShenRenwj.Getbiaoduan; //加载数据
var
  adoquery:tadoquery;
  i:Integer;
begin
  com_leibie.Items.Clear;
  com_leibie.Text:='请选择';
  if com_zhaobiao.Text='施工' then
  begin
    GetXMleibie(com_leibie);
    if com_leibie.Items[0]='无类别' then
    begin
      com_leibie.ItemIndex:=0;
      com_leibie.Enabled:=false;
    end
    else
      com_leibie.Enabled:=true;
    label6.Caption:='请选择类别';
    listview1.Columns[2].Caption:='类别';
    //btn_del.Visible:=false;
    //btn_add.Visible:=false;
  end;
  if com_zhaobiao.Text='监理' then
  begin
    label6.Caption:='请选择标段';
    com_leibie.Enabled:=True;
    listview1.Columns[2].Caption:='标段';
    //btn_add.Visible:=true;
    //btn_del.Visible:=true;
    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;
      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_ZiShenRenwj.getList;
var
  AListItem  : TListItem;
  I:Integer;
  sl:Integer;//记录单位数量
  dw_name:String;
  ado_wj:tadoquery;
begin
  ado_wj:=tadoquery.Create(nil);
  try
    ado_wj.Close;
    ado_wj.Connection:=datamodule1.ADOMainConn;
    if com_zhaobiao.Text='施工' then
    begin
      ado_wj.Close;
      ado_wj.SQL.Text:='select dwbm_id,WJ2_SHOWNAME,dw_name,wj2_leibie as t3 from bid_wenjian2 a,bid_xmgczb '
              +'b,bid_danwei_xinxi c where A.wj2_leixing=1 and a.dw_id=c.dw_id and a.xmgczb_id= b.xmgczb_id and b.xm_isbn='''
              +trim(xmbdgc.XM_ISBn)+''' and b.gclx_id='+xmbdgc.gCLX_ID
              +' and b.zblx_id='+xmbdgc.BDLX_Id+' order by dwbm_id ';
      ado_wj.Open;
      ado_wj.First;
      listview1.Clear;
      dw_name:='';
      for i:=0 to ado_wj.RecordCount-1 do
      begin
        AListItem:=listview1.Items.Add;
        //alistitem.caption:=ado_wj.fieldbyname('dwbm_id').AsString;
        alistitem.caption:=ado_wj.fieldbyname('dw_name').AsString;
        alistitem.SubItems.Add(ado_wj.fieldbyname('WJ2_SHOWNAME').AsString);
        if ado_wj.fieldbyname('t3').AsString='0' then
          alistitem.SubItems.Add('')
        else
          alistitem.SubItems.Add(ado_wj.fieldbyname('t3').AsString);
        if dw_name<>ado_wj.fieldbyname('dw_name').AsString then
        begin
          sl:=sl+1;
          dw_name:=ado_wj.fieldbyname('dw_name').AsString;
        end;
        ado_wj.Next;
      end;
      edit3.Text:=inttostr(sl);
    end;
    if com_zhaobiao.Text='监理' then
    begin
      ado_wj.SQL.Text:='select dwbm_id,wj2_showname,dw_name,bd_name as t3 from'
              +'(select dwbm_id,bd_isbn,wj2_showname,dw_name  from bid_wenjian2 a,bid_xmgczb b,bid_danwei_xinxi c'
              +' where A.wj2_leixing=1 and a.dw_id=c.dw_id and a.xmgczb_id= b.xmgczb_id and b.xm_isbn='''
              +trim(xmbdgc.XM_ISBn)+''' and b.gclx_id='+xmbdgc.gCLX_ID
              +' and b.zblx_id='+xmbdgc.BDLX_Id+') a left join bid_biaoduan_xinxi b on a.bd_isbn=b.bd_isbn order by dwbm_id ';
      ado_wj.Open;
      ado_wj.First;
      listview1.Clear;
      dw_name:='';
      sl:=0;
      for i:=0 to ado_wj.RecordCount-1 do
      begin
        AListItem:=listview1.Items.Add;
        //alistitem.caption:=ado_wj.fieldbyname('dwbm_id').AsString;
        alistitem.caption:=ado_wj.fieldbyname('dw_name').AsString;
        alistitem.SubItems.Add(ado_wj.fieldbyname('WJ2_SHOWNAME').AsString);
        alistitem.SubItems.Add(ado_wj.fieldbyname('t3').AsString);
        if dw_name<>ado_wj.fieldbyname('dw_name').AsString then
        begin
          sl:=sl+1;
          dw_name:=ado_wj.fieldbyname('dw_name').AsString;
        end;
        ado_wj.Next;
      end;
      edit3.Text:=inttostr(sl);
    end;

    //加载该项目全部单位
    ado_wj.Close;
    ado_wj.SQL.Text:='select dw_name from bid_xmsqr a,bid_danwei_xinxi b where a.dw_id=b.dw_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 dw_name ';
    ado_wj.Open;
    listview3.Items.Clear;
    for i:=0 to ado_wj.RecordCount-1 do
    begin
      AListItem:=listview3.Items.Add;
      alistitem.Caption:=ado_wj.fieldbyname('dw_name').AsString;
      ado_wj.Next;
    end;
    edit4.Text:=inttostr(ado_wj.RecordCount);

    ado_wj.Close;
    ado_wj.sql.Text:='select dw_name from bid_danwei_xinxi where dw_id in (select dw_id from '
        +' bid_xmsqr 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+') and dw_id not in(select dw_id from bid_wenjian2 where '
       +' wj2_leixing=1 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+')))';
    ado_wj.Open;
    listview2.Clear;
    for i:=0 to ado_wj.RecordCount-1 do
    begin
      AListItem:=listview2.Items.Add;
      alistitem.Caption:=ado_wj.fieldbyname('dw_name').AsString;
      ado_wj.Next;
    end;
    edit2.Text:=inttostr(ado_wj.RecordCount);
  finally
    freeandnil(ado_wj);
  end;
end;


procedure TFrm_ZiShenRenwj.Com_zhaoBiaoChange(Sender: TObject);
begin
  inherited;
  Getbiaoduan;
  if (com_xmname.Items.IndexOf(com_xmname.Text)>=0)  and (com_zhaobiao.Items.IndexOf(com_zhaobiao.Text)>=0) then
  begin
    getList;