unit_helpversionupdate.pas

delphi开发的中国移动大客户管理系统,后台数据库为oracle

unit Unit_HelpVersionUpdate;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, TFlatCheckBoxUnit, TFlatButtonUnit, StdCtrls,
  TFlatMemoUnit, ExtCtrls, Grids, DBGrids, Psock, NMFtp,shellapi,inifiles;

type
  TFRM_HelpVersionUpdate = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    me_UPCONTENT: TFlatMemo;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    Panel3: TPanel;
    Query_normal: TQuery;
    dsNormal: TDataSource;
    Panel4: TPanel;
    Label1: TLabel;
    Label_version: TLabel;
    Label3: TLabel;
    Label_REDATE: TLabel;
    Label5: TLabel;
    Panel5: TPanel;
    DBGrid1: TDBGrid;
    NMFTP1: TNMFTP;
    procedure Query_normalAfterScroll(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FlatButton1Click(Sender: TObject);
  private
    lAppVersion:string;
    lCurVersion:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_HelpVersionUpdate: TFRM_HelpVersionUpdate;

implementation
   uses dmmain;
{$R *.DFM}

procedure TFRM_HelpVersionUpdate.Query_normalAfterScroll(DataSet: TDataSet);
begin
with query_normal do
    begin
        if active then
            begin
		lAppVersion:=fieldbyname('VERSION').asstring;
                Label_version.caption:=lAppVersion;
                Label_REDATE.caption:=fieldbyname('MODITIME').asstring;
                me_UPCONTENT.Text:=fieldbyname('MODICONTENT').asstring;
            end;
    end;
end;

procedure TFRM_HelpVersionUpdate.FormShow(Sender: TObject);
begin
if not dm_main.Txtpzb.Active then
   dm_main.Txtpzb.Open;
lCurVersion := DM_Main.Txtpzb.FieldByName('version').AsString;
Panel3.Caption:='当前软件版本:'+lCurVersion;
Query_normal.Open;

end;

procedure TFRM_HelpVersionUpdate.FlatButton2Click(Sender: TObject);
begin
close;
end;

procedure TFRM_HelpVersionUpdate.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

procedure TFRM_HelpVersionUpdate.FlatButton1Click(Sender: TObject);
var
    remotefile:string;
    filename:string;
    localfile:string;
    myinifile:Tinifile;
begin
if lAppVersion<>lCurVersion then
    if application.MessageBox(pchar('是否用 '+lAppVersion+' 更新当前版本'),'提示',MB_OKCANCEL)=IDOK then
    	begin
	    Filename:=ExtractFilePath(Paramstr(0))+'CONFIG.ini';
            myinifile:=Tinifile.create(filename);
            myinifile.writestring('selectversion','version',lAppVersion);
            shellexecute(handle,'open','UPDateVersion.exe','','D:\gxy\vip_new\dhgl8_28',SW_SHOWDEFAULT);
            application.Terminate;
        end;
end;

end.