u_zigeyspsbg.pas

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

unit U_Zigeyspsbg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls,Unit_TopParentForm,CELL50Lib_TLB,
  adodb,XMLIntf,XMLDoc,VCLZip, OleCtrls, SHDocVw;

type
  Tf_zigeyspsbg = class(Tfrm_TopParentForm)
    bb_Save: TBitBtn;
    listview1: TListView;
    Label7: TLabel;
    Edit1: TEdit;
    Label1: TLabel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Label6: TLabel;
    ListView2: TListView;
    Edit2: TEdit;
    Label2: TLabel;
    CheckBox1: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure Com_zhaoBiaoChange(Sender: TObject);
    procedure Com_GclxnameChange(Sender: TObject);
    procedure Com_xmnameChange(Sender: TObject);
    procedure loadfilename;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    Function  OpenFilePath(filename:string):string;
    procedure bb_SaveClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);//得到生成报表名称
  private
    { Private declarations }
    BtnSubmit        : string;
    AConnectting     : boolean;
    AConnectSecond   : Integer;
    bdsl:integer;
  public
    { Public declarations }
  end;

var
  f_zigeyspsbg: Tf_zigeyspsbg;

implementation

uses
  unit_public,systemobject,datamodule,DataAccessCommonShell,Unit_up_report;

{$R *.dfm}

function tf_zigeyspsbg.OpenFilePath(filename:string):string;
var
  i:Integer;
begin
   if filename='资审申请人' then
   begin
     result:=(GetFilePath+'zgyssqr.cll');
   end;
   if com_zhaobiao.Text='施工' then
   begin
     if filename='资格预审符合性检查-无类别' then
     begin
       result:=(GetFilePath+'0_zgyswjfhx.cll');
     end;
     if filename='资格预审符合性检查-第一类' then
     begin
       result:=(GetFilePath+'1_zgyswjfhx.cll');
     end;
     if filename='资格预审符合性检查-第二类' then
     begin
       result:=(GetFilePath+'2_zgyswjfhx.cll');
     end;
     if filename='资格预审符合性检查-第三类' then
     begin
       result:=(GetFilePath+'3_zgyswjfhx.cll');
     end;
     if filename='资格预审强制性检查-无类别' then
     begin
       result:=(GetFilePath+'0_qzxzgsc.cll');
     end;
     if filename='资格预审强制性检查-第一类' then
     begin
       result:=(GetFilePath+'1_qzxzgsc.cll');
     end;
     if filename='资格预审强制性检查-第二类' then
     begin
       result:=(GetFilePath+'2_qzxzgsc.cll');
     end;
     if filename='资格预审强制性检查-第三类' then
     begin
       result:=(GetFilePath+'3_qzxzgsc.cll');
     end;
     if filename='资格预审资审评分-无类别' then
     begin
       result:=(GetFilePath+'0_zgyspfhz.cll');
     end;
     if filename='资格预审资审评分-第一类' then
     begin
       result:=(GetFilePath+'1_zgyspfhz.cll');
     end;
     if filename='资格预审资审评分-第二类' then
     begin
       result:=(GetFilePath+'2_zgyspfhz.cll');
     end;
     if filename='资格预审资审评分-第三类' then
     begin
       result:=(GetFilePath+'3_zgyspfhz.cll');
     end;
     if filename='评分明细-无类别' then
     begin
       result:=(GetFilePath+'0_pfmx.cll');
     end;
     if filename='评分明细-第一类' then
     begin
       result:=(GetFilePath+'1_pfmx.cll');
     end;
     if filename='评分明细-第二类' then
     begin
       result:=(GetFilePath+'2_pfmx.cll');
     end;
     if filename='评分明细-第三类' then
     begin
       result:=(GetFilePath+'3_pfmx.cll');
     end;
     if filename='通过资格预审人-无类别' then
     begin
       result:=(GetFilePath+'0_tgzgyssqr.cll');
     end;
     if filename='通过资格预审人-第一类' then
     begin
       result:=(GetFilePath+'1_tgzgyssqr.cll');
     end;
     if filename='通过资格预审人-第二类' then
     begin
       result:=(GetFilePath+'2_tgzgyssqr.cll');
     end;
     if filename='通过资格预审人-第三类' then
     begin
       result:=(GetFilePath+'3_tgzgyssqr.cll');
     end;
     if filename='资格预审评审工作组名单' then
     begin
       result:=(GetFilePath+'zsgzz.cll');
     end;
   end;
   if com_zhaobiao.Text='监理' then
   begin
     for i:=1 to bdsl do
     begin
       if filename='资格预审符合性检查-'+inttostr(i) then
       begin
         result:=(GetFilePath+inttostr(i)+'_zgyswjfhx.cll');
       end;
     end;
     for i:=1 to bdsl do
     begin
       if filename='资格预审强制性检查-'+inttostr(i) then
       begin
         result:=(GetFilePath+inttostr(i)+'_qzxzgsc.cll');
       end;
     end;
     for i:=1 to bdsl do
     begin
       if filename='资格预审资审评分-'+inttostr(i) then
       begin
         result:=(GetFilePath+inttostr(i)+'_zgyspfhz.cll');
       end;
     end;
     for i:=1 to bdsl do
     begin
       if filename='评分明细-'+inttostr(i) then
       begin
         result:=(GetFilePath+inttostr(i)+'_pfmx.cll');
       end;
     end;
     if filename='通过资格预审人' then
     begin
       result:=(GetFilePath+'tgzgyssqr.cll');
     end;
     if filename='资格预审评审工作组名单' then
     begin
       result:=(GetFilePath+'zsgzz.cll');
     end;
   end;
   if com_zhaobiao.text='设计' then
   begin




   end;
end;

procedure tf_zigeyspsbg.loadfilename;
var
  alistitem:tlistitem;
  str:string;
  adoquery:tadoquery;
  i:Integer;
begin
   listview1.Items.Clear;
   listview1.items.clear;
   if fileexists(GetFilePath+'zgyssqr.cll') then
   begin
     alistitem:=listview1.Items.Add;
     alistitem.Caption:='资审申请人';
   end;
   if com_zhaobiao.Text='施工' then
   begin
     if fileexists(GetFilePath+'0_zgyswjfhx.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='资格预审符合性检查-无类别';
     end;
     if fileexists(GetFilePath+'1_zgyswjfhx.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='资格预审符合性检查-第一类';
     end;
     if fileexists(GetFilePath+'2_zgyswjfhx.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='资格预审符合性检查-第二类';
     end;
     if fileexists(GetFilePath+'3_zgyswjfhx.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='资格预审符合性检查-第三类';
     end;
     if fileexists(GetFilePath+'0_qzxzgsc.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='资格预审强制性检查-无类别';
     end;
     if fileexists(GetFilePath+'1_qzxzgsc.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='资格预审强制性检查-第一类';
     end;
     if fileexists(GetFilePath+'2_qzxzgsc.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='资格预审强制性检查-第二类';
     end;
     if fileexists(GetFilePath+'3_qzxzgsc.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='资格预审强制性检查-第三类';
     end;
     if fileexists(GetFilePath+'0_zgyspfhz.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='资格预审资审评分-无类别';
     end;
     if fileexists(GetFilePath+'1_zgyspfhz.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='资格预审资审评分-第一类';
     end;
     if fileexists(GetFilePath+'2_zgyspfhz.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='资格预审资审评分-第二类';
     end;
     if fileexists(GetFilePath+'3_zgyspfhz.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='资格预审资审评分-第三类';
     end;
     if fileexists(GetFilePath+'0_pfmx.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='评分明细-无类别';
     end;
     if fileexists(GetFilePath+'1_pfmx.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='评分明细-第一类';
     end;
     if fileexists(GetFilePath+'2_pfmx.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='评分明细-第二类';
     end;
     if fileexists(GetFilePath+'3_pfmx.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='评分明细-第三类';
     end;
     if fileexists(GetFilePath+'0_tgzgyssqr.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='通过资格预审人-无类别';
     end;
     if fileexists(GetFilePath+'1_tgzgyssqr.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='通过资格预审人-第一类';
     end;
     if fileexists(GetFilePath+'2_tgzgyssqr.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='通过资格预审人第二类';
     end;
     if fileexists(GetFilePath+'3_tgzgyssqr.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='通过资格预审人-第三类';
     end;
     if fileexists(GetFilePath+'zsgzz.cll') then
     begin
       alistitem:=listview1.Items.Add;
       alistitem.Caption:='资格预审评审工作组名单';
     end;
   end;
   if com_zhaobiao.Text='监理' then
   begin
     adoquery:=tadoquery.Create(nil);
     try
       adoquery.Close;
       adoquery.Connection:=datamodule1.ADOMainConn;
       adoquery.SQL.Text:='select count(*) as sl 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+')';
       adoquery.Open;
       bdsl:=adoquery.fieldbyname('sl').AsInteger;
     finally
       freeandnil(adoquery);
     end;
     for i:=1 to bdsl do
     begin
       if fileexists(GetFilePath+inttostr(i)+'_zgyswjfhx.cll') then
       begin
         alistitem:=listview1.Items.Add;
         alistitem.Caption:='资格预审符合性检查-'+inttostr(i);
       end;
     end;
     for i:=1 to bdsl do
     begin
       if fileexists(GetFilePath+inttostr(i)+'_qzxzgsc.cll') then
       begin
         alistitem:=listview1.Items.Add;
         alistitem.Caption:='资格预审强制性检查-'+inttostr(i);
       end;
     end;
     for i:=1 to bdsl do
     begin
       if fileexists(GetFilePath+inttostr(i)+'_zgyspfhz.cll') then
       begin