开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 文章/文档 > 软件设计/软件工程 > 查看源码
frmDataCopy.frm
资源名称：0123..rar　[点击查看]
上传用户：naidiweb
上传日期：2013-08-15
资源大小：672k
文件大小：3k
源码类别：

软件设计/软件工程

开发平台：

WORD

frmDataCopy.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form frmDataCopy 
  3.    AutoRedraw      =   -1  'True
  4.    Caption         =   "数据备份"
  5.    ClientHeight    =   1770
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   5505
  9.    BeginProperty Font 
  10.       Name            =   "宋体"
  11.       Size            =   14.25
  12.       Charset         =   134
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    LinkTopic       =   "Form1"
  19.    MDIChild        =   -1  'True
  20.    ScaleHeight     =   1770
  21.    ScaleWidth      =   5505
  22.    Begin VB.CommandButton cmdCopy 
  23.       Caption         =   "开始备份"
  24.       BeginProperty Font 
  25.          Name            =   "宋体"
  26.          Size            =   9
  27.          Charset         =   134
  28.          Weight          =   400
  29.          Underline       =   0   'False
  30.          Italic          =   0   'False
  31.          Strikethrough   =   0   'False
  32.       EndProperty
  33.       Height          =   360
  34.       Left            =   480
  35.       TabIndex        =   1
  36.       Top             =   1050
  37.       Width           =   1425
  38.    End
  39.    Begin VB.CommandButton cmdExit 
  40.       Caption         =   "退出"
  41.       BeginProperty Font 
  42.          Name            =   "宋体"
  43.          Size            =   9
  44.          Charset         =   134
  45.          Weight          =   400
  46.          Underline       =   0   'False
  47.          Italic          =   0   'False
  48.          Strikethrough   =   0   'False
  49.       EndProperty
  50.       Height          =   360
  51.       Left            =   3210
  52.       TabIndex        =   0
  53.       Top             =   1050
  54.       Width           =   1425
  55.    End
  56.    Begin VB.Label Label1 
  57.       AutoSize        =   -1  'True
  58.       Caption         =   "车辆管理系统数据备份"
  59.       BeginProperty Font 
  60.          Name            =   "新宋体"
  61.          Size            =   21.75
  62.          Charset         =   134
  63.          Weight          =   400
  64.          Underline       =   0   'False
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       ForeColor       =   &H00FF00FF&
  69.       Height          =   435
  70.       Left            =   480
  71.       TabIndex        =   2
  72.       Top             =   195
  73.       Width           =   4500
  74.    End
  75. End
  76. Attribute VB_Name = "frmDataCopy"
  77. Attribute VB_GlobalNameSpace = False
  78. Attribute VB_Creatable = False
  79. Attribute VB_PredeclaredId = True
  80. Attribute VB_Exposed = False
  81. Private Sub cmdCopy_Click()
  82.   On Error Resume Next
  83.   FileCopy App.Path & "clgl.mdb", App.Path & "数据库备份clgl.mdb"
  84.   MsgBox "备份成功！", , "系统提示"
  85. End Sub
  87. Private Sub cmdExit_Click()
  88.   MDIForm1.StatusBar1.Panels(1).Text = ""
  89.   Set adoCon = New ADODB.Connection
  90.   adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "clgl.mdb" & ";Persist Security Info=False"
  91.   Unload Me
  92. End Sub
  93. Private Sub Form_Load()
  94.   frmDataCopy.Width = 5640
  95.   frmDataCopy.Height = 2190
  96.   adoCon.Close
  97. End Sub
  98. Private Sub Form_Unload(Cancel As Integer)
  99.   Set adoCon = New ADODB.Connection
  100.   adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "clgl.mdb" & ";Persist Security Info=False"
  101. End Sub