【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-main_xtgl_sjbf.frm的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    VERSION 5.00
    Begin VB.Form main_xtgl_sjbf 
       Caption         =   "系统管理——【数据备份】"
       ClientHeight    =   2280
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   4680
       Icon            =   "main_xtgl_sjbf.frx":0000
       LinkTopic       =   "Form1"
       ScaleHeight     =   2280
       ScaleWidth      =   4680
       StartUpPosition =   1  '所有者中心
       Begin VB.CommandButton Command2 
          Caption         =   "退出"
          Height          =   420
          Left            =   1230
          TabIndex        =   1
          Top             =   1275
          Width           =   2175
       End
       Begin VB.CommandButton Command1 
          Caption         =   "数据备份"
          Height          =   420
          Left            =   1230
          TabIndex        =   0
          Top             =   645
          Width           =   2175
       End
    End
    Attribute VB_Name = "main_xtgl_sjbf"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Command1_Click()
    '设置鼠标样式
      Me.MousePointer = 11
    '备份数据库
      FileCopy App.Path & "\zbjxc.mdb", App.Path & "\zbjxc" & Date & ".mdb"
      Me.MousePointer = 0
      MsgBox "数据已备份完毕。"
    End Sub
    Private Sub Command2_Click()
      frm_main.Enabled = True
      Unload Me
    End Sub
    Private Sub Form_Unload(Cancel As Integer)
      frm_main.Enabled = True
    End Sub
    

上一篇：main_xtgl_qxgl.frm
下一篇：美术教学中网络信息论文