u_zhaobiaowj.pas

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

unit U_ZhaoBiaowj;

interface

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

type
  Tf_zhaobiaowj = class(Tfrm_TopParentForm)
    bb_Save: TBitBtn;
    Memo1: TMemo;
    SpeedButton1: TSpeedButton;
    Edit1: TEdit;
    Label7: TLabel;
    Label3: TLabel;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    hf_DownInfo: THTTPGet;
    TimerConncet: TTimer;
    TimerExport: TTimer;
    lv_Main: TListView;
    BitBtn1: TBitBtn;
    WebBrowserExport: TWebBrowser;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure bb_SaveClick(Sender: TObject);
    procedure TimerExportTimer(Sender: TObject);
    procedure TimerConncetTimer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure GetList;
    procedure Com_zhaoBiaoChange(Sender: TObject);
    procedure Com_GclxnameChange(Sender: TObject);
    procedure Com_xmnameChange(Sender: TObject);
  private
    { Private declarations }
    ExportUrl        : string;
    ExportSuccessUrl : string;
    ExportFailUrl    : string;
    BtnSubmit        : string;
    ReadDownURL      : string;
    AConnectting     : boolean;
    AConnectSecond   : Integer;
  public
    { Public declarations }
  end;

var
  f_zhaobiaowj: Tf_zhaobiaowj;

implementation

{$R *.dfm}

uses
  DataAccessCommonShell, DataModule,unit_public,SystemObject;


procedure Tf_zhaobiaowj.GetList;
var
  adoquery:tadoquery;
  listitem:tlistitem;
begin
  adoquery:=tadoquery.Create(nil);
  try
    adoquery.Connection:=datamodule1.ADOMainConn;
    adoquery.Close;
    adoquery.SQL.Text:='select * from bid_wenjian1 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 wj1_leixing=2';
    adoquery.Open;
    lv_main.Items.Clear;
    if adoquery.RecordCount=0 then exit;    
    listitem:=lv_main.Items.Add;
    listitem.Caption:='';
    listitem.SubItems[0]:=adoquery.fieldbyname('wj1_showmame').AsString;
    listitem.SubItems[1]:=adoquery.fieldbyname('wj1_miaoshu').AsString;
  finally
    freeandnil(adoquery);
  end;
end;

procedure Tf_zhaobiaowj.FormCreate(Sender: TObject);
begin
  GetItems(com_xmname,com_zhaobiao,com_gclxname,2);
  inherited;
  panel2.Caption:='招标文件管理';
  if userInfor.user_type<>0 then
    bitbtn1.Visible:=False;
  getlist;  
end;

procedure Tf_zhaobiaowj.Com_zhaoBiaoChange(Sender: TObject);
begin
  inherited;
  getlist;
end;

procedure Tf_zhaobiaowj.Com_GclxnameChange(Sender: TObject);
begin
  inherited;
  getlist;
end;

procedure Tf_zhaobiaowj.Com_xmnameChange(Sender: TObject);
begin
  inherited;
  getlist;
end;


procedure Tf_zhaobiaowj.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  if OpenDialog1.Execute then
     edit1.Text:=opendialog1.FileName;
end;

procedure Tf_zhaobiaowj.bb_SaveClick(Sender: TObject);
begin
  inherited;
  //if not DirectoryExists(GetFilePath) then
  //  CreateDir(GetFilePath);
  if saveDialog1.Execute then
  begin
    hf_DownInfo .URL := ReadDownURL ;
    hf_DownInfo .FileName := savedialog1.FileName;
    hf_DownInfo.GetFile;
  end;
end;

procedure Tf_zhaobiaowj.TimerExportTimer(Sender: TObject);
var
  adoquery:tadoquery;
begin
  inherited;
  if not WebBrowserExport.Busy then
  begin
    if WebBrowserExport.LocationURL<>ExportSuccessUrl then
    begin
      application.MessageBox('上传失败！', PChar(Caption), MB_OK+MB_ICONEXCLAMATION);
      TimerExport.Enabled:=False;
    end;
    adoquery:=tadoquery(nil);
    try
      adoquery.Close;
      adoquery.Connection:=datamodule1.ADOMainConn;
      datamodule1.ADOMainConn.BeginTrans;
      try
        adoquery.SQL.Text:='if (select Count(*) from bid_wenjian1 where xmgczb_id='
            +'(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 wj1_leixing=2)=0'
            +' begin'
            +' insert into bid_wenjian1(xmgczb_id,wj1_showmame,wj1_miaoshu,wj1_realname,wj1_leixing)'
            +' select xmgczb_Id,'''+trim(edit1.Text)+''','''+trim(memo1.Text)+''',xmgczb_Id,2 from bid_xmgczb'
            +' where xm_isbn='''+trim(xmbdgc.XM_ISBn)+''' and gclx_id='+xmbdgc.gCLX_ID
            +' and zblx_id='+xmbdgc.BDLX_ID
            +' end else begin'
            +' update bid_wenjian1 set wj1_showname='+quotedstr(trim(edit1.Text))+',wj1_miaoshu='
            +quotedstr(trim(memo1.Text))+' where xmgczb_id=(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 wj1_leixing=2'
            +' end';
        adoquery.ExecSQL;
        datamodule1.ADOMainConn.CommitTrans;
      except
        datamodule1.ADOMainConn.RollbackTrans;
      end;
    finally
      freeandnil(adoquery);
    end;

    application.MessageBox('上传成功！', PChar(Caption), MB_OK+MB_ICONEXCLAMATION);
    TimerExport.Enabled:=False;
  end;
end;

procedure Tf_zhaobiaowj.TimerConncetTimer(Sender: TObject);
begin
  inherited;
  inc(AConnectSecond);
  if not AConnectting then
  begin
    if ExportUrl <> '' then
    begin
      WebBrowserExport.Navigate(ExportUrl);
      AConnectting := True;
    end
    else
    begin
      TimerConncet.Enabled := False;
      application.MessageBox('参数错误，请设置上报服务器地址，如果仍有问题请与开发商联系！', PChar(Caption), MB_OK+MB_ICONEXCLAMATION);
      close;
    end;
  end;
  if WebBrowserExport.Busy then       // ExportBusy
  begin
    if AConnectSecond > 20 then
    begin
      application.MessageBox('连接邮件服务器失败！', PChar(Caption), MB_OK+MB_ICONEXCLAMATION);
      TimerConncet.Enabled := false;
    end;
  end
  else
  begin
    TimerConncet.Enabled := false;
    TimerExport.Enabled := true;
  end;
end;

procedure Tf_zhaobiaowj.BitBtn1Click(Sender: TObject);
begin
  inherited;
  //AConnectSecond:=0;
  //AConnectting:=False;
  //TimerConncet.Enabled := true;
end;

end.