unit_verupdate.pas

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

unit Unit_VERUpdate;

interface

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

type
  TFRM_VERUpdate = 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_VERUpdate: TFRM_VERUpdate;

implementation
   uses dmmain;
{$R *.DFM}

procedure TFRM_VERUpdate.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_VERUpdate.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_VERUpdate.FlatButton2Click(Sender: TObject);
begin
close;
end;

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

procedure TFRM_VERUpdate.FlatButton1Click(Sender: TObject);
begin
if lAppVersion<>lCurVersion then
	if application.MessageBox(pchar('是否用 '+lAppVersion+' 更新当前版本'),'提示',MB_OKCANCEL)=IDOK then
       		begin

        	end;
end;

end.