u_zishenwj.pas

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

unit U_ZiShenWj;

interface

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

type
  Tf_zishenwj = class(Tfrm_TopParentForm)
    bb_Save: TBitBtn;
    lv_Main: TListView;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Memo1: TMemo;
    SpeedButton1: TSpeedButton;
    OpenDialog1: TOpenDialog;
    WebBrowserExport: TWebBrowser;
    TimerConncet: TTimer;
    TimerExport: TTimer;
    hf_DownInfo: THTTPGet;
    SaveDialog1: TSaveDialog;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure lv_MainSelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure SpeedButton1Click(Sender: TObject);
    procedure GetList;
    procedure BitBtn1Click(Sender: TObject);
    procedure TimerConncetTimer(Sender: TObject);
    procedure TimerExportTimer(Sender: TObject);
    procedure bb_SaveClick(Sender: TObject);
    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_zishenwj: Tf_zishenwj;

implementation

uses
  DataAccessCommonShell,SystemObject,datamodule,unit_public;

{$R *.dfm}

procedure TF_zishenwj.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=1';
    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_zishenwj.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tf_zishenwj.FormDestroy(Sender: TObject);
begin
  f_zishenwj:=nil;
end;

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

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

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

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


procedure Tf_zishenwj.lv_MainSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  inherited;
  edit1.Text:=lv_main.Selected.SubItems[0];
  memo1.Text:=lv_main.Selected.SubItems[1];
end;

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

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

procedure Tf_zishenwj.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_zishenwj.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=1)=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,1 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=1'
            +' 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_zishenwj.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;

end.