u_frmmain.dfm

delphi编写成的模拟ＳＱＬＳＥＶＥＲ数据库还原数据库的程序

object frmMain: TfrmMain
  Left = 48
  Top = 69
  Width = 712
  Height = 497
  Caption = #36824#21407' [e-mail]'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 73
    Width = 704
    Height = 8
    Cursor = crVSplit
    Align = alTop
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 81
    Width = 704
    Height = 389
    ActivePage = TabSheet3
    Align = alClient
    TabIndex = 2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #25968#25454#24211
      object Splitter2: TSplitter
        Left = 0
        Top = 224
        Width = 696
        Height = 5
        Cursor = crVSplit
        Align = alBottom
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 696
        Height = 224
        Align = alClient
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'dbid'
            Width = 37
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Width = 200
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'filename'
            Visible = True
          end>
      end
      object DBGrid2: TDBGrid
        Left = 0
        Top = 229
        Width = 696
        Height = 132
        Align = alBottom
        DataSource = DataSource2
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'fileid'
            Width = 47
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dbid'
            Width = 46
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Width = 200
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'filename'
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = #36824#21407#25968#25454#24211#25991#20214
      ImageIndex = 1
      object Label1: TLabel
        Left = 16
        Top = 16
        Width = 21
        Height = 13
        Caption = 'mdf'
      end
      object Label2: TLabel
        Left = 16
        Top = 48
        Width = 21
        Height = 13
        Caption = 'ldf'
      end
      object Label3: TLabel
        Left = 8
        Top = 104
        Width = 52
        Height = 13
        Caption = #25968#25454#24211#21517
      end
      object edtMDF: TEdit
        Left = 48
        Top = 16
        Width = 393
        Height = 21
        TabOrder = 0
      end
      object Button2: TButton
        Left = 448
        Top = 16
        Width = 105
        Height = 25
        Caption = #25171#24320#25968#25454#24211#25991#20214
        TabOrder = 1
        OnClick = Button2Click
      end
      object edtLDF: TEdit
        Left = 48
        Top = 48
        Width = 393
        Height = 21
        TabOrder = 2
      end
      object edtDb: TEdit
        Left = 60
        Top = 100
        Width = 75
        Height = 21
        TabOrder = 3
      end
      object Button5: TButton
        Left = 16
        Top = 184
        Width = 121
        Height = 25
        Caption = #28155#21152#20026#26032#30340#25968#25454#24211
        TabOrder = 4
        OnClick = Button5Click
      end
      object cbPath: TCheckBox
        Left = 8
        Top = 128
        Width = 137
        Height = 17
        Caption = #31227#21160#25991#20214#21040#25351#23450#30446#24405
        TabOrder = 5
      end
      object edtMasterpath: TEdit
        Left = 8
        Top = 152
        Width = 145
        Height = 21
        TabOrder = 6
        Text = 'edtMasterpath'
      end
      object lstDB1: TListBox
        Left = 480
        Top = 56
        Width = 121
        Height = 113
        ItemHeight = 13
        TabOrder = 7
      end
    end
    object TabSheet3: TTabSheet
      Caption = #36824#21407#22791#20221#25991#20214
      ImageIndex = 2
      object Label4: TLabel
        Left = 160
        Top = 48
        Width = 42
        Height = 13
        Caption = 'Label4'
      end
      object GroupBox1: TGroupBox
        Left = 144
        Top = 112
        Width = 521
        Height = 233
        Caption = #22791#20221#25991#20214#20449#24687
        TabOrder = 6
        object DBGrid3: TDBGrid
          Left = 16
          Top = 16
          Width = 473
          Height = 89
          DataSource = ds2
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'MediaName'
              Width = 150
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MediaSetId'
              Width = 96
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FamilyCount'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FamilySequenceNumber'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MediaFamilyId'
              Width = 201
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MediaSequenceNumber'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MediaLabelPresent'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MediaDescription'
              Width = 200
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SoftwareName'
              Width = 202
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SoftwareVendorId'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MediaDate'
              Visible = True
            end>
        end
        object DBGrid4: TDBGrid
          Left = 16
          Top = 128
          Width = 473
          Height = 81
          DataSource = ds3
          TabOrder = 1
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'LogicalName'
              Width = 114
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PhysicalName'
              Width = 258
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Type'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FileGroupName'
              Width = 200
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Size'
              Width = 74
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'MaxSize'
              Width = 130
              Visible = True
            end>
        end
      end
      object lstDB2: TListBox
        Left = 0
        Top = 0
        Width = 137
        Height = 361
        Align = alLeft
        ItemHeight = 13
        TabOrder = 0
      end
      object Button3: TButton
        Left = 144
        Top = 16
        Width = 75
        Height = 25
        Caption = #22791#20221
        TabOrder = 1
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 264
        Top = 88
        Width = 75
        Height = 25
        Caption = #36824#21407
        TabOrder = 2
        OnClick = Button4Click
      end
      object CheckBox1: TCheckBox
        Left = 152
        Top = 91
        Width = 81
        Height = 17
        Caption = #24378#21046#36824#21407
        Checked = True
        State = cbChecked
        TabOrder = 3
      end
      object edtBakFile: TEdit
        Left = 152
        Top = 64
        Width = 441
        Height = 21
        TabOrder = 4
        Text = 'edtBakFile'
      end
      object Button6: TButton
        Left = 600
        Top = 64
        Width = 89
        Height = 25
        Caption = #36873#25321#22791#20221#25991#20214
        TabOrder = 5
        OnClick = Button6Click
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 704
    Height = 73
    Align = alTop
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 8
      Top = 32
      Width = 73
      Height = 25
      Caption = 'connect'
      OnClick = SpeedButton1Click
    end
    object Label5: TLabel
      Left = 576
      Top = 48
      Width = 91
      Height = 13
      Caption = '[e-mail]'
    end
    object Button1: TButton
      Left = 8
      Top = 0
      Width = 73
      Height = 25
      Caption = #26032#24314#36830#25509
      TabOrder = 0
      OnClick = Button1Click
    end
    object cmbCnn: TComboBox
      Left = 79
      Top = 0
      Width = 441
      Height = 21
      ItemHeight = 13
      TabOrder = 1
    end
  end
  object cnn: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=master'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 120
    Top = 32
  end
  object qry1: TADOQuery
    Connection = cnn
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select dbid,name,filename from sysdatabases')
    Left = 152
    Top = 32
  end
  object DataSource1: TDataSource
    DataSet = dstDatabase
    Left = 416
    Top = 32
  end
  object qry2: TADOQuery
    Connection = cnn
    CursorType = ctStatic
    DataSource = DataSource1
    Parameters = <>
    SQL.Strings = (
      'RESTORE LABELONLY from [040719145353]')
    Left = 184
    Top = 32
  end
  object DataSource2: TDataSource
    DataSet = dstFilename
    Left = 384
    Top = 32
  end
  object dstDatabase: TADODataSet
    Connection = cnn
    CursorType = ctStatic
    CommandText = 'select dbid,name,filename from sysdatabases'
    Parameters = <>
    Left = 256
    Top = 32
  end
  object dstFilename: TADODataSet
    Connection = cnn
    CursorType = ctStatic
    CommandText = 'select fileid,dbid,name,filename from sysaltfiles'
    DataSource = DataSource1
    IndexFieldNames = 'dbid'
    MasterFields = 'dbid'
    Parameters = <>
    Left = 304
    Top = 32
  end
  object OpenDialog: TOpenDialog
    Filter = 'sqlserver'#25991#20214'|*.mdf;*.ldf|*.*|*.*'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    OptionsEx = [ofExNoPlacesBar]
    Left = 408
    Top = 88
  end
  object qryAttach: TADOQuery
    Connection = cnn
    Parameters = <>
    Left = 344
    Top = 32
  end
  object qry3: TADOQuery
    Connection = cnn
    CursorType = ctStatic
    DataSource = DataSource1
    Parameters = <>
    SQL.Strings = (
      'RESTORE FILELISTONLY  from [040719145353]')
    Left = 216
    Top = 32
  end
  object ds2: TDataSource
    DataSet = qry2
    Left = 456
    Top = 32
  end
  object ds3: TDataSource
    DataSet = qry3
    Left = 488
    Top = 32
  end
end