db_destinationcontent.pas

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

unit DB_DestinationContent;

{
代码单元名称：通用数据库备份工具设备内容窗口
从属软件：大连资金清算中心打码机管理信息系统
开发单位：大连理工大学计算机技术研究所软件工程研究室
作者：王树润
时间：2001,1,30
}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls;

type
  TDB_DfmDestinationContent = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    DestinationNameEdit: TEdit;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    DestinationName: string;
    MyServerName: string;
    constructor Create(Owner: TComponent; ADestinationName: string;
      AMyServerName: string); overload;
  end;

implementation

uses DB_DataModule1, PublicUnit;

{$R *.DFM}

{ TDfmDestinationContent }

//构造函数======================================================================

constructor TDB_DfmDestinationContent.Create(Owner: TComponent;
  ADestinationName: string; AMyServerName: string);
begin
  inherited Create(Owner);
  DestinationName := ADestinationName;
  MyServerName := AMyServerName;
end;

//窗体==========================================================================

procedure TDB_DfmDestinationContent.FormShow(Sender: TObject);
var
  i: integer;
begin
  DBGrid1.DataSource := DB_DfmDataModule1.DataSource1;
  DestinationNameEdit.Text := DestinationName;
  DB_DfmDataModule1.ADOConnection1.ConnectionString :=
    'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=' +
    PublicUnit.DbUser
    + ';Password=' + PublicUnit.DbPass + ';Initial Catalog=msdb;Data Source=' +
    PublicUnit.ServerName;
  with DB_DfmDataModule1.ADOQuery1 do
  begin
    Close;
    Sql.Clear;
    Sql.Add('RESTORE HEADERONLY FROM ' + DestinationName);
    try
      open;
    except
      ShowMessage('error');
      Exit;
    end;
    FieldByName('BackupDescription').Visible := False;
    FieldByName('ExpirationDate').Visible := False;
    FieldByName('Compressed').Visible := False;
    FieldByName('Position').Visible := False;
    FieldByName('DeviceType').Visible := False;
    FieldByName('UserName').Visible := False;
    FieldByName('DatabaseVersion').Visible := False;
    FieldByName('DatabaseCreationDate').Visible := False;
    FieldByName('FirstLsn').Visible := False;
    FieldByName('LastLsn').Visible := False;
    FieldByName('CheckpointLsn').Visible := False;
    //FieldByName('DatabaseBackupLsn').Visible := False;
    FieldByName('BackupStartDate').Visible := False;
    FieldByName('SortOrder').Visible := False;
    FieldByName('CodePage').Visible := False;
    FieldByName('UnicodeLocaleID').Visible := False;
    FieldByName('UnicodeComparisonStyle').Visible := False;
    FieldByName('CompatibilityLevel').Visible := False;
    FieldByName('SoftwareVendorID').Visible := False;
    FieldByName('SoftwareVersionMajor').Visible := False;
    FieldByName('SoftwareVersionMinor').Visible := False;
    FieldByName('SoftwareVersionBuild').Visible := False;
    FieldByName('DifferentialBaseLsn').Visible := False;
    FieldByName('Flags').Visible := False;
    FieldByName('BindingId').Visible := False;
    FieldByName('RecoveryForkId').Visible := False;
    FieldByName('Collation').Visible := False;
    FieldByName('MachineName').Visible := False;
    FieldByName('BackupName').DisplayLabel := '备份后库名';
    FieldByName('BackupType').DisplayLabel := '备份类型';
    FieldByName('ServerName').DisplayLabel := '服务器名称';
    FieldByName('DatabaseName').DisplayLabel := '数据库名称';
    FieldByName('BackupSize').DisplayLabel := '备份容量';
    FieldByName('BackupFinishDate').DisplayLabel := '备份完成时间';
  end;
  for i := 0 to DBGrid1.FieldCount - 1 do
    DBGrid1.Fields[i].DisplayWidth := 1;
end;

//关闭==========================================================================

procedure TDB_DfmDestinationContent.Button1Click(Sender: TObject);
begin
  DB_DfmDataModule1.ADOQuery1.Close;
  DB_DfmDataModule1.ADOConnection1.Close;
  Close;
end;

end.