dlgdatabasebkopen.frm

排队分诊管理系统源代码！该代码使用VB6开发环境

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 dlgDatabaseBKOpen 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "设置备份文件"
   ClientHeight    =   4635
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6975
   Icon            =   "dlgDatabaseBKOpen.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4635
   ScaleWidth      =   6975
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdDelete 
      Caption         =   "删除备份(&D)"
      Height          =   375
      Left            =   240
      TabIndex        =   9
      Top             =   4080
      Width           =   1455
   End
   Begin VB.CommandButton cmdQuit 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   5760
      TabIndex        =   8
      Top             =   4080
      Width           =   975
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "设置(&S)"
      Height          =   375
      Left            =   4800
      TabIndex        =   7
      Top             =   4080
      Width           =   975
   End
   Begin VB.TextBox txtFileName 
      Height          =   300
      Left            =   4680
      TabIndex        =   3
      Top             =   240
      Width           =   1575
   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        =   2
      Top             =   240
      Width           =   350
   End
   Begin VB.Frame fra1 
      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             =   0
      _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 lblPath 
      BorderStyle     =   1  'Fixed Single
      Height          =   300
      Left            =   1800
      TabIndex        =   6
      Top             =   240
      Width           =   2775
   End
   Begin VB.Label Label2 
      Caption         =   "注：这里的路径都指服务器上目录路径。"
      Height          =   255
      Left            =   240
      TabIndex        =   5
      Top             =   3840
      Width           =   3375
   End
End
Attribute VB_Name = "dlgDatabaseBKOpen"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'********************************************************************************
'   窗体        : dlgDatabaseBKOpen 数据库备份文件设置
'   生成        : Jack Xu     2001.11.6
'   代码编写    : Jack Xu     2001.11.6
'   说明        : 数据库操作的权限必须很高。
'********************************************************************************
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
    cmdOpenFile.Enabled = False
    cmdDelete.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 = "dlgDatabaseBKOpen"
    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 dlgDatabaseBKOpen = 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 = cdlOFNCreatePrompt Or cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNNoReadOnlyReturn _
                Or cdlOFNOverwritePrompt Or cdlOFNLongNames Or cdlOFNNoChangeDir
    CommonDialog1.ShowSave
    
    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 = "dlgDatabaseBKOpen"
    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 _