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

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

软件设计/软件工程

开发平台：

WORD

frmDataHF.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form frmDataHF 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "数据恢复"
  5.    ClientHeight    =   1860
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4950
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MDIChild        =   -1  'True
  12.    MinButton       =   0   'False
  13.    Picture         =   "frmDataHF.frx":0000
  14.    ScaleHeight     =   1860
  15.    ScaleWidth      =   4950
  16.    ShowInTaskbar   =   0   'False
  17.    Begin VB.CommandButton cmdExit 
  18.       Caption         =   "退出"
  19.       Height          =   435
  20.       Left            =   3105
  21.       TabIndex        =   1
  22.       Top             =   1170
  23.       Width           =   1335
  24.    End
  25.    Begin VB.CommandButton cmdHF 
  26.       Caption         =   "开始恢复"
  27.       Height          =   435
  28.       Left            =   360
  29.       TabIndex        =   0
  30.       Top             =   1170
  31.       Width           =   1335
  32.    End
  33.    Begin VB.Label Label1 
  34.       AutoSize        =   -1  'True
  35.       Caption         =   "车辆管理系统数据恢复"
  36.       BeginProperty Font 
  37.          Name            =   "新宋体"
  38.          Size            =   15.75
  39.          Charset         =   134
  40.          Weight          =   400
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       ForeColor       =   &H00FF00FF&
  46.       Height          =   315
  47.       Left            =   870
  48.       TabIndex        =   2
  49.       Top             =   390
  50.       Width           =   3300
  51.    End
  52. End
  53. Attribute VB_Name = "frmDataHF"
  54. Attribute VB_GlobalNameSpace = False
  55. Attribute VB_Creatable = False
  56. Attribute VB_PredeclaredId = True
  57. Attribute VB_Exposed = False
  58. Private Sub cmdExit_Click()
  59.   MDIForm1.StatusBar1.Panels(1).Text = ""
  60.   Set adoCon = New ADODB.Connection
  61.   adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "clgl.mdb" & ";Persist Security Info=False"
  62.   Unload Me
  63. End Sub
  64. Private Sub cmdHF_Click()
  65.   On Error Resume Next
  66.   FileCopy App.Path & "数据库备份clgl.mdb", App.Path & "clgl.mdb"
  67.   MsgBox "恢复成功！", , "系统提示"
  68. End Sub
  69. Private Sub Form_Load()
  70.     frmDataHF.Width = 5040
  71.     frmDataHF.Height = 2235
  72.     adoCon.Close
  73. End Sub
  75. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  76.   cmdExit_Click
  77. End Sub
  79. Private Sub Form_Unload(Cancel As Integer)
  80.   Set adoCon = New ADODB.Connection
  81.   adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "clgl.mdb" & ";Persist Security Info=False"
  82. End Sub