DONGSHENG6/客户端升级/u_update.pas

unit u_update;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB,inifiles, BusinessSkinForm, bsSkinData, bsSkinCtrls,
  ComCtrls, ExtCtrls,ShellApi, VCLUnZip, VCLZip, kpSFXCfg, StdCtrls,
  Buttons;

type
  TForm1 = class(TForm)
    t_sys_soft: TADOQuery;
    t_sys_softDSDesigner2: TBlobField;
    bsStoredSkin1: TbsStoredSkin;
    bsSkinData1: TbsSkinData;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    Timer1: TTimer;
    SFXConfig1: TSFXConfig;
    unzipper: TVCLUnZip;
    Button1: TButton;
    BitBtn1: TBitBtn;
    VCLZip1: TVCLZip;
    procedure t_sys_softBeforeOpen(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure unzipperUnZipComplete(sender: TObject; FileCount: Integer);
    procedure BitBtn1Click(Sender: TObject);
    procedure VCLZip1UnZipComplete(sender: TObject; FileCount: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.t_sys_softBeforeOpen(DataSet: TDataSet);
var
  str:string;
  inifile1:Tinifile;
begin
  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
  str:='';
  str:='Provider='+inifile1.ReadString('database','Provider','');
  str:=str+'Password='+inifile1.ReadString('database','Password','');
  str:=str+'Persist Security Info='+inifile1.ReadString('database','Persist Security Info','');
  str:=str+'User ID='+inifile1.ReadString('database','User ID','');
  str:=str+'Initial Catalog='+inifile1.ReadString('database','Initial Catalog','');
  str:=str+'Data Source='+inifile1.ReadString('database','Data Source','');
  t_sys_soft.ConnectionString:=str;
  inifile1.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  t_sys_soft.open;
  Timer1.Enabled:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    with unzipper do
    begin
      zipname:=ExtractFilePath(Application.ExeName)+'DONGSHENGWEB.zip';
      ReadZip;
      FilesList.Add('*.*');
      DestDir :='E:\CESHI\DS';
      UnZip;
    end;
end;

procedure TForm1.unzipperUnZipComplete(sender: TObject;
  FileCount: Integer);
begin
  ShowMessage('<27><><EFBFBD><EFBFBD>');
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    with VCLZip1 do
    begin
      FilesList.Clear;
      FilesList.Add('E:\CESHI\DS\*.*');
      DestDir :='E:\CESHI';
      zipname:=ExtractFilePath(Application.ExeName)+'DONGSHENGWEB1123.zip';
      Zip;
    end;
end;

procedure TForm1.VCLZip1UnZipComplete(sender: TObject; FileCount: Integer);
begin
  ShowMessage('<27><><EFBFBD><EFBFBD>');
end;

end.