qbbf.frm

个人财务管理系统 管理个人收入支出和年月统计

VERSION 5.00
Begin VB.Form qbbf 
   BackColor       =   &H00C0E0FF&
   BorderStyle     =   0  'None
   Caption         =   "数据备份"
   ClientHeight    =   5670
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6270
   Icon            =   "qbbf.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5670
   ScaleWidth      =   6270
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame2 
      BackColor       =   &H00D8D7D5&
      Height          =   4935
      Left            =   240
      TabIndex        =   2
      Top             =   480
      Width           =   5775
      Begin VB.Frame Frame1 
         BackColor       =   &H00D8D7D5&
         Caption         =   "选择备份地址:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   3615
         Left            =   240
         TabIndex        =   6
         Top             =   240
         Width           =   4935
         Begin VB.DirListBox Dir1 
            Height          =   2610
            Left            =   120
            TabIndex        =   8
            Top             =   720
            Width           =   4695
         End
         Begin VB.DriveListBox Drive1 
            Height          =   300
            Left            =   120
            TabIndex        =   7
            Top             =   360
            Width           =   4695
         End
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         Height          =   270
         Left            =   1560
         Locked          =   -1  'True
         TabIndex        =   5
         Top             =   4080
         Width           =   3615
      End
      Begin VB.CommandButton Command1 
         BackColor       =   &H0080FF80&
         Caption         =   "备份"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   720
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   4440
         Width           =   975
      End
      Begin VB.CommandButton Command2 
         BackColor       =   &H0080FF80&
         Caption         =   "退出"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   4080
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   4440
         Width           =   975
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackColor       =   &H00C0E0FF&
         BackStyle       =   0  'Transparent
         Caption         =   "显示文件地址:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   120
         TabIndex        =   9
         Top             =   4080
         Width           =   1365
      End
   End
   Begin VB.FileListBox File1 
      Height          =   270
      Left            =   4080
      TabIndex        =   0
      Top             =   5880
      Width           =   1215
   End
   Begin VB.Image Image1 
      Height          =   5655
      Left            =   0
      Picture         =   "qbbf.frx":27A2
      Stretch         =   -1  'True
      Top             =   0
      Width           =   6255
   End
   Begin VB.Image Image2 
      Height          =   255
      Left            =   5880
      Picture         =   "qbbf.frx":8F25
      Stretch         =   -1  'True
      Top             =   0
      Width           =   255
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "数据备份"
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   2280
      TabIndex        =   1
      Top             =   120
      Width           =   2535
   End
End
Attribute VB_Name = "qbbf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private Sub form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
     ReleaseCapture
 
      SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
     ReleaseCapture
 
      SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

Private Sub Command1_Click()
On Error GoTo thth
If Right(Text1.Text, 1) <> "\" Then Text1.Text = Text1.Text & "\"
Dim qi, qfi As Integer
FileCopy App.Path & "\MISER.MDB", Trim(Text1.Text) & "zkbf.mdb"
Beep
 MsgBox "文件备份成功!", 48, "提示"
Exit Sub
thth:
 If Err = 70 Then
     Beep
     MsgBox "文件备份成功！", 48, "提示"
  End If
End Sub

Private Sub Command2_Click()
Unload qbbf
End Sub

Private Sub Dir1_Change()
Text1.Text = Dir1.Path
End Sub

Private Sub Drive1_Change()
On Error GoTo aa
Dir1.Path = Drive1.Drive
Exit Sub
aa:
  If Err = 68 Then
   MsgBox "请插入光盘!", 48, "提示"
  End If
End Sub

Private Sub Form_Load()
Text1.Text = Dir1.Path
End Sub

Private Sub Image2_Click()
Unload Me
End Sub

Private Sub Label2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
 
      SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub