VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "*\AYXCtrs\YXCtrls.vbp"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form dlgDatabaseRestore 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "數據庫恢復"
   ClientHeight    =   4635
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6975
   Icon            =   "dlgDatabaseRestore.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4635
   ScaleWidth      =   6975
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdQuit 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   5760
      TabIndex        =   9
      Top             =   4080
      Width           =   975
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "恢復(&R)"
      Height          =   375
      Left            =   4800
      TabIndex        =   8
      Top             =   4080
      Width           =   975
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "刪除備份(&D)"
      Height          =   375
      Left            =   240
      TabIndex        =   7
      Top             =   4080
      Width           =   1455
   End
   Begin VB.CommandButton cmdOpenFile 
      Caption         =   "..."
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   6.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   6360
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   240
      Width           =   350
   End
   Begin VB.TextBox txtFileName 
      Height          =   300
      Left            =   4560
      TabIndex        =   2
      Top             =   240
      Width           =   1695
   End
   Begin VB.Frame Frame1 
      Caption         =   "備份文件列表"
      Height          =   3015
      Left            =   240
      TabIndex        =   0
      Top             =   720
      Width           =   6495
      Begin YXCtrls.yxFlexGrid ctlXPFlexGrid 
         Height          =   2655
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   6255
         _ExtentX        =   11033
         _ExtentY        =   4683
         OddRowBkColor   =   0
         EvenRowBkColor  =   0
         BackColor       =   16777215
      End
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   0
      Top             =   120
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Height          =   300
      Index           =   1
      Left            =   240
      TabIndex        =   4
      Top             =   240
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   529
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Bevel           =   2
            Object.Width           =   4586
            MinWidth        =   4586
            Text            =   "備份文件名："
            TextSave        =   "備份文件名："
         EndProperty
      EndProperty
   End
   Begin VB.Label Label2 
      Caption         =   "注：這里的路徑都指服務器上目錄路徑。"
      Height          =   255
      Left            =   240
      TabIndex        =   6
      Top             =   3840
      Width           =   3255
   End
   Begin VB.Label lblPath 
      BorderStyle     =   1  'Fixed Single
      Height          =   300
      Left            =   1800
      TabIndex        =   5
      Top             =   240
      Width           =   2655
   End
End
Attribute VB_Name = "dlgDatabaseRestore"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'********************************************************************************
'   窗體        : dlgDatabaseRestore 數據庫恢復
'   生成        : Jack Xu     2001.11.7
'   代碼編寫    : Jack Xu     2001.11.7
'   說明        : 數據庫操作的權限必須很高。
'********************************************************************************
Option Explicit
Dim m_tagErrInfo As TYPE_ERRORINFO                 ' 錯誤信息

'''''''''''''''''''''''''''''''''''''''''''''''''''
' 用戶選中的行
Dim m_lSelRow As Long

'''''''''''''''''''''''''''''''''''''''''''''''''''
' ctlXPFlexGrid 控件的列標題和列的排序方式
Const m_strColumnHeads = "文件名" & vbTab & "備份時間" & vbTab & "完全/增量備份" & vbTab _
                & "用戶名"
'''''''''''''''''''''''''''''''''''''''''''''''''''
' SQL 檢索語句
Dim m_strSQL As String

Private Sub Form_Load()
    On Error GoTo ERROR_EXIT
    If Not InitXPFlexGridControl Then GoTo ERROR_EXIT
    If Not OpenDB Then GoTo ERROR_EXIT
    cmdOk.Enabled = False
    cmdDelete.Enabled = False
    
    cmdOpenFile.Enabled = False
    If RunningOnSQLServer Then cmdOpenFile.Enabled = True
    lblPath.Caption = GetSQLServerSysPath & "\BACKUP\"
    Exit Sub
ERROR_EXIT:
    m_tagErrInfo.strErrDate = Format(Now, "yyyy-mm-dd hh:mm:ss")
    m_tagErrInfo.strErrFile = "dlgDatabaseRestore"
    m_tagErrInfo.strErrFunc = "Form_Load"
    m_tagErrInfo.nErrNum = Err.Number
    m_tagErrInfo.strErrDesc = Error(Err.Number)
    If Err.Number <> 0 Then Err.Clear
    modErrorInfo.WriteErrLog m_tagErrInfo
End Sub

'***************************************************
' 釋放內存
Private Sub Form_Terminate()
    On Error Resume Next
    Set dlgDatabaseRestore = Nothing
End Sub

'***********************************
' 打開文件操作
Private Sub cmdOpenFile_Click()
    On Error GoTo ERROR_EXIT
    Dim strFileName As String, strPath As String
    
    CommonDialog1.DialogTitle = "設置備份文件名"
    CommonDialog1.InitDir = lblPath.Caption
    CommonDialog1.DefaultExt = ".dat"
    CommonDialog1.Filter = "備份文件(*.BAK)|*.BAK"
    CommonDialog1.FilterIndex = 1
    CommonDialog1.Flags = cdlOFNFileMustExist Or cdlOFNPathMustExist Or cdlOFNNoReadOnlyReturn _
                    Or cdlOFNHideReadOnly Or cdlOFNLongNames Or cdlOFNNoChangeDir
    CommonDialog1.ShowOpen
    
    If Trim(CommonDialog1.FileName) <> "" Then
        If Not FilterFileName(CommonDialog1.FileName, strPath, strFileName) Then GoTo ERROR_EXIT
        lblPath.Caption = strPath
        txtFileName.Text = CommonDialog1.FileTitle
        If Trim(lblPath.Caption) = "" Or Trim(txtFileName.Text) = "" Then GoTo ERROR_EXIT
        cmdOk.Enabled = True
    End If
    Exit Sub
ERROR_EXIT:
    m_tagErrInfo.strErrDate = Format(Now, "yyyy-mm-dd hh:mm:ss")
    m_tagErrInfo.strErrFile = "dlgDatabaseRestore"
    m_tagErrInfo.strErrFunc = "Form_Load"
    m_tagErrInfo.nErrNum = Err.Number
    m_tagErrInfo.strErrDesc = Error(Err.Number)
    If Err.Number <> 0 Then Err.Clear
    modErrorInfo.WriteErrLog m_tagErrInfo
End Sub

'***********************************
' 確定操作
Private Sub cmdOK_Click()
    On Error GoTo ERROR_EXIT
    '檢查文件名
    If Trim(txtFileName.Text) = "" Or InStr(txtFileName.Text, "\") > 0 _
            Or InStr(txtFileName.Text, ":") > 0 Then
        MsgBox "請正確輸入文件名！", vbOKOnly Or vbExclamation, "操作提示"
        Exit Sub
    End If
    
    modDatabase.RestoreDataBase lblPath.Caption & txtFileName.Text