frmbeifen.frm

来自「本软件系本人自学VB过程中试写,后来经不断改进完成,经试用比较完整,又修补了一些」· FRM 代码 · 共 83 行

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form frmbeifen 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "数据管理"
   ClientHeight    =   1305
   ClientLeft      =   45
   ClientTop       =   405
   ClientWidth     =   4095
   Icon            =   "frmbeifen.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1305
   ScaleWidth      =   4095
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin MSComDlg.CommonDialog dlg3 
      Left            =   120
      Top             =   120
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton cmdhuifu 
      Caption         =   "数据恢复(&H)"
      Height          =   615
      Left            =   2280
      TabIndex        =   1
      Top             =   360
      Width           =   1215
   End
   Begin VB.CommandButton cmdbeifen 
      Caption         =   "数据备份(&B)"
      Height          =   615
      Left            =   600
      TabIndex        =   0
      Top             =   360
      Width           =   1335
   End
End
Attribute VB_Name = "frmbeifen"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdbeifen_Click() '备份功能
   Dim fso As New Scripting.FileSystemObject
    
    dlg3.FileName = ""
    dlg3.Filter = "备份文件(*.baf)|*.baf"
    dlg3.InitDir = App.Path
    dlg3.ShowSave
    If dlg3.FileName <> "" Then
        If Dir(dlg3.FileName) <> "" Then
            If MsgBox("已经存在文件" & dlg3.FileName & "，是否替换？", 36, "警告") = vbNo Then
            Exit Sub
        End If
    End If
    fso.CopyFile App.Path & "\config.dll", dlg3.FileName, True
    End If
    Unload Me
    End Sub

Private Sub cmdhuifu_Click() '恢复功能
    Dim fso As New Scripting.FileSystemObject
    dlg3.FileName = ""
    dlg3.Filter = "备份文件(*.baf)|*.baf"
    dlg3.InitDir = App.Path
    dlg3.ShowOpen
    If dlg3.FileName <> "" Then
        If Dir(dlg3.FileName) = "" Then
        MsgBox "请选择文件。", 48, "警告"
        Exit Sub
    End If
    fso.CopyFile dlg3.FileName, App.Path & "\config.dll", True
    End If
    Unload Me
End Sub