unit u_sys_update;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, DB, ADODB,
  dxDBTLCl, dxGrClms, StdCtrls, Mask, DBCtrls, ComCtrls, BusinessSkinForm,
  bsSkinCtrls,ShellApi,inifiles,IdFTP, bsSkinTabs, bsSkinShellCtrls,
  ExtCtrls;

type
  Tfrm_sys_update = class(TForm)
    t_sys_soft_update: TADOQuery;
    t_sys_soft_update1: TDataSource;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    Panel1: TPanel;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridDateColumn;
    Panel2: TPanel;
    bsSkinGroupBox1: TbsSkinGroupBox;
    DBRichEdit1: TDBRichEdit;
    bsSkinPanel3: TbsSkinPanel;
    Label3: TLabel;
    bsSkinButton2: TbsSkinButton;
    bsSkinLabel1: TbsSkinLabel;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_sys_update: Tfrm_sys_update;

implementation

uses u_main;

{$R *.dfm}

procedure Tfrm_sys_update.FormShow(Sender: TObject);
var
  table:Tadoquery;
begin
  try
    table:=Tadoquery.Create(application);
    table.Connection:=frm_main.db;
    table.SQL.text:='select 版本号 from t_sys_soft';
    table.open;
    Label3.Caption:='当前版本：'+table.fieldbyname('版本号').asstring;
  finally
    table.free;
  end;  
  t_sys_soft_update.Open;
end;

procedure Tfrm_sys_update.bsSkinButton2Click(Sender: TObject);
begin
  close;
end;

end.