form_bakdatabase.frm

新世纪ERP系统管理源代码

VERSION 5.00
Begin VB.Form Frm_Bakdatabase 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "套帐备份"
   ClientHeight    =   3750
   ClientLeft      =   3915
   ClientTop       =   2205
   ClientWidth     =   5010
   HelpContextID   =   1017
   Icon            =   "Form_BakDataBase.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3750
   ScaleWidth      =   5010
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Height          =   315
      Left            =   4680
      Picture         =   "Form_BakDataBase.frx":038A
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   600
      Width           =   315
   End
   Begin VB.TextBox Text2 
      Height          =   285
      Left            =   3360
      MaxLength       =   15
      TabIndex        =   0
      Top             =   600
      Width           =   1305
   End
   Begin VB.CommandButton Command1 
      Caption         =   "取消&C"
      Height          =   345
      Index           =   1
      Left            =   3480
      TabIndex        =   6
      Top             =   3120
      Width           =   1305
   End
   Begin VB.Frame Frame1 
      Caption         =   "备份文件路径:"
      Height          =   3495
      Left            =   60
      TabIndex        =   2
      Top             =   150
      Width           =   3255
      Begin VB.TextBox Text1 
         Height          =   285
         Left            =   90
         Locked          =   -1  'True
         TabIndex        =   5
         Top             =   210
         Width           =   3075
      End
      Begin VB.DriveListBox Drive1 
         Appearance      =   0  'Flat
         Height          =   300
         Left            =   90
         TabIndex        =   4
         Top             =   600
         Width           =   3075
      End
      Begin VB.DirListBox Dir1 
         Height          =   2400
         Left            =   90
         TabIndex        =   3
         Top             =   990
         Width           =   3075
      End
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定&D"
      Height          =   345
      Index           =   0
      Left            =   3480
      TabIndex        =   1
      Top             =   2370
      Width           =   1305
   End
   Begin VB.Label Label1 
      Caption         =   "备份文件名:"
      Height          =   225
      Left            =   3390
      TabIndex        =   7
      Top             =   270
      Width           =   1125
   End
End
Attribute VB_Name = "Frm_Bakdatabase"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click(Index As Integer)
On Error Resume Next

If Index = 1 Then Unload Me: Exit Sub

If Trim(Text2.Text) = "" Then MsgBox "备份文件名不能为空！ ", 16: Text2.SetFocus: Exit Sub
If Trim(Text1.Text) = "" Then MsgBox "备份文件路径不能为空！ ", 16: Dir1.SetFocus: Exit Sub
Class.StatusBar "套帐正在备份...", False
Me.MousePointer = 12
Dim Error_int As Integer
If Len(Trim(Text1.Text)) = 3 Then Text1.Text = Mid(Trim(Text1.Text), 1, 2)
Cw_DataEnvi.dbo_HD_BakDatabase Text1.Tag, Trim(Text1.Text), Trim(Text2.Text), Error_int

Class.StatusBar "", True
Me.MousePointer = 0

If Error_int = 1 Then
   Form_main.Form_Load
   MsgBox "成功创建备份文件！ " & Chr(13) & Text1.Text & "\" & Text2.Text & ".Bak", 48
   Unload Me
   Else
   If Error_int = -1 Then
   MsgBox "备份文件创建失败！  ", 16
   End If
End If

If Err <> 0 Then
MsgBox Err.Description, 16
Class.StatusBar "", True
Me.MousePointer = 0
End If
End Sub

Private Sub Command2_Click()
Frm_BakFile.Show 1
If Trim(BakFile) <> "" Then
Text2.Text = BakFile

Drive1.Drive = BakFilePath
Dir1.Path = BakFilePath
Text1.Text = BakFilePath
End If
End Sub

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

Private Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
If Err <> 0 Then Drive1.Drive = Dir1.Path
End Sub

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