aboutunit.pas

来自「软件可自动完成SQL Server数据库和文档的数据定时自动备份」· PAS 代码 · 共 49 行

//*-----------------------------------------------------------------------------
//*  系统名称：数据自动备份系统
//*  作    者：陈春华
//*  开发时间：2005
//*  Windows2000 Server + SQL Server2000 + Delphi7
//*  功能简介：
//*              软件可自动完成SQL Server数据库和文档的数据定时自动备份，
//*          由用户选择对哪些数据库或文档进行数据备份，提供对备份、还原
//*          数据作业的管理、分析、日志跟踪等功能，备份频率不受限制。
//*-----------------------------------------------------------------------------

unit AboutUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  Tabout = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  about: Tabout;

implementation

{$R *.dfm}

procedure Tabout.Button1Click(Sender: TObject);
begin
  close;
end;

end.