【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了main_xt_sjbf.frm提供大家参考，希望对大家有所帮助!

    VERSION 5.00
    Begin VB.Form main_xt_sjbf 
       BorderStyle     =   3  'Fixed Dialog
       Caption         =   "系统设置——【数据备份】"
       ClientHeight    =   1935
       ClientLeft      =   3825
       ClientTop       =   5295
       ClientWidth     =   4680
       Icon            =   "main_xt_sjbf.frx":0000
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   1935
       ScaleWidth      =   4680
       ShowInTaskbar   =   0   'False
       StartUpPosition =   1  '所有者中心
       Begin VB.TextBox Text1 
          Height          =   285
          Left            =   2070
          TabIndex        =   3
          Top             =   330
          Width           =   1110
       End
       Begin VB.CommandButton Command2 
          Caption         =   "退出"
          Height          =   405
          Left            =   2475
          TabIndex        =   1
          Top             =   1215
          Width           =   1590
       End
       Begin VB.CommandButton Command1 
          Caption         =   "开始备份"
          Height          =   405
          Left            =   555
          TabIndex        =   0
          Top             =   1215
          Width           =   1590
       End
       Begin VB.Label Label1 
          BackStyle       =   0  'Transparent
          Caption         =   "将数据备份到              盘"
          Height          =   270
          Left            =   915
          TabIndex        =   2
          Top             =   390
          Width           =   3015
       End
    End
    Attribute VB_Name = "main_xt_sjbf"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Form_Activate()
      '赋值给text1
      text1.Text = "A"
    End Sub
    Private Sub Command1_Click()            '确认数据备份
      YesNo = MsgBox("准备好了吗？", vbNo + vbQuestion)
      If YesNo = vbNo Then
         Exit Sub
      End If
      On Error GoTo errprompt
      Me.MousePointer = 11
      MkDir (text1.Text & ":\数据备份")
      FileCopy App.Path & "\yyjxc.mdb", text1.Text & ":\数据备份\yyjxc.mdb"
      Me.MousePointer = 0
      MsgBox "数据已备份完毕。"
    errprompt:
      Me.MousePointer = 0
      Select Case Err.Number
        Case 57
          MsgBox "磁盘已满！", vbCritical
        Case 70
          MsgBox "磁盘写保护！", vbCritical
      End Select
    End Sub
    Private Sub Command2_Click()
      Load frm_main
      frm_main.Show
      frm_main.Enabled = True
      Unload Me
    End Sub
    Private Sub Form_Unload(Cancel As Integer)
      frm_main.Enabled = True
    End Sub
    

上一篇：ScheduleForm.pas
下一篇：高仿QQandroid源码，可以直接在android手机上运行，我测试过OK-