p_server.pas

这个是我自己写的

unit p_Server;

interface

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

type
  Tfrm_Server = class(TForm)

    Updae: TADOConnection;
    Label1: TLabel;
    ed_cxName: TEdit;
    bt_Open: TBitBtn;
    OpenDialog: TOpenDialog;
    sp_in_cxInfo: TADOStoredProc;
    bt_Update: TBitBtn;
    sb_zt: TStatusBar;
    Timer1: TTimer;
    Label2: TLabel;
    ed_cxNO: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    XPManifest1: TXPManifest;
    Label4: TLabel;
    cb_FileName: TComboBox;
    procedure bt_OpenClick(Sender: TObject);
    procedure bt_UpdateClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure cb_FileNameCloseUp(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Server: Tfrm_Server;
  DD:String = '.';
  bz:integer = 0;

implementation

uses p_cxThread;

{$R *.dfm}




procedure Tfrm_Server.bt_OpenClick(Sender: TObject);
begin
  if OpenDialog.Execute then
  begin
    cxName := OpenDialog.FileName;
    ed_cxName.Text := cxName;
  end else
  begin
    Exit;
  end;
end;

procedure Tfrm_Server.bt_UpdateClick(Sender: TObject);
var
  MyThread:cxThread;
begin
  sb_zt.Panels[0].Text := '正在上传文件';
  Timer1.Enabled := True;
  MyThread:=cxThread.Create(False);
end;

procedure Tfrm_Server.FormCreate(Sender: TObject);
begin
  if not Updae.Connected then
    Updae.Connected := True;
end;

procedure Tfrm_Server.Timer1Timer(Sender: TObject);
begin
  if Length(sb_zt.Panels[0].Text) < 40 then
    sb_zt.Panels[0].Text := sb_zt.Panels[0].Text+DD
  else
    sb_zt.Panels[0].Text := '正在上传文件.';
  if (bz=1) then
  begin
    Timer1.Enabled := False;
    sb_zt.Panels[0].Text := '文件上传成功！';
  end;
  if bz=2 then
  begin
    Timer1.Enabled := False;
    sb_zt.Panels[0].Text := '文件上传失败！';
  end;
end;

procedure Tfrm_Server.cb_FileNameCloseUp(Sender: TObject);
begin
  ed_cxNO.Text := IntToStr(TComBoBox(Sender).ItemIndex+1);
end;

end.