frmsjbf.frm

来自「企业工资管理系统的具体实现」· FRM 代码 · 共 149 行

VERSION 5.00
Begin VB.Form frmsjbf 
   Caption         =   "数据备份"
   ClientHeight    =   4365
   ClientLeft      =   2175
   ClientTop       =   2100
   ClientWidth     =   7860
   Icon            =   "frmsjbf.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   4365
   ScaleWidth      =   7860
   Begin VB.CommandButton Command3 
      Caption         =   "退  出"
      Height          =   390
      Left            =   6570
      TabIndex        =   3
      Top             =   3570
      Width           =   1305
   End
   Begin VB.CommandButton Command2 
      Caption         =   "确  定"
      Height          =   390
      Left            =   5250
      TabIndex        =   2
      Top             =   3570
      Width           =   1305
   End
   Begin VB.CommandButton Command1 
      Caption         =   "浏览(&B)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   6855
      TabIndex        =   1
      Top             =   2250
      Width           =   1020
   End
   Begin VB.TextBox Text1 
      Height          =   345
      Left            =   2835
      TabIndex        =   0
      Top             =   2265
      Width           =   4005
   End
   Begin VB.Label Label3 
      Caption         =   "先输入要进行备份的路径，或点击浏览找到要备份到的文件夹，然后点击确定即可进行备份。"
      ForeColor       =   &H00004080&
      Height          =   375
      Left            =   2955
      TabIndex        =   6
      Top             =   1095
      Width           =   4980
   End
   Begin VB.Label Label2 
      Caption         =   "为了防止系统崩溃或者磁盘损坏带来不必要的数据丢失，请每天进行数据处理后都进行一次数据备份。"
      ForeColor       =   &H00004080&
      Height          =   375
      Left            =   2970
      TabIndex        =   5
      Top             =   660
      Width           =   4935
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "数据备份："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   210
      Left            =   3000
      TabIndex        =   4
      Top             =   255
      Width           =   1050
   End
   Begin VB.Image Image1 
      Height          =   4455
      Left            =   -15
      Picture         =   "frmsjbf.frx":030A
      Stretch         =   -1  'True
      Top             =   -75
      Width           =   2805
   End
End
Attribute VB_Name = "frmsjbf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
frmxz.Show 1
'commondialog1.Filter ="all files(*.*)|*.*|
End Sub

Private Sub Command2_Click()
Call cmcopy
End Sub

Private Sub Command3_Click()
Unload Me
End Sub
Sub cmcopy()
Dim result As Long, fileop As SHFILEOPSTRUCT
If Text1.Text = "" Then
    MsgBox "请选择或创建需要备份的路径", vbCritical, "路径"
    Exit Sub
End If
With fileop
        .hwnd = Me.hwnd
        .wFunc = FO_COPY
'        .pFrom = "C:\PROGRAM FILES\MICROSOFT VISUAL BASIC\VB.HLP" & vbNullChar & "C:\PROGRAM FILES\MICROSOFT VISUAL BASIC\README.HLP" & vbNullChar & vbNullChar
'       .pFrom = "C:\*.*" & vbNullChar & vbNullChar
        .pFrom = App.path & "\data\*.*" & vbNullChar & vbNullChar

        .pTo = Trim(Text1.Text) & vbNullChar & vbNullChar
'        .fFlags = FOF_ALLOWUNDO
        .fFlags = FOF_SIMPLEPROGRESS Or FOF_FILESONLY
End With
result = SHFileOperation(fileop)
If result <> 0 Then
        ' Operation failed
        'MsgBox Err.LastDllError
Else
        If fileop.fAnyOperationsAborted <> 0 Then
                      MsgBox "Operation Failed"
         End If
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Call cmcopy
End If
End Sub