企业管理

开发平台：
Visual Basic

Form_BakDataBase.frm：源码内容
							VERSION 5.00
Begin VB.Form Frm_Bakdatabase 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "套帐备份"
   ClientHeight    =   5175
   ClientLeft      =   3915
   ClientTop       =   2205
   ClientWidth     =   6030
   HelpContextID   =   1017
   Icon            =   "Form_BakDataBase.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5175
   ScaleWidth      =   6030
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Height          =   315
      Left            =   5625
      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           =   2205
   End
   Begin VB.CommandButton Command1 
      Caption         =   "取消&C"
      Height          =   345
      Index           =   1
      Left            =   3600
      TabIndex        =   6
      Top             =   4275
      Width           =   2205
   End
   Begin VB.Frame Frame1 
      Caption         =   "备份文件路径:"
      Height          =   4920
      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          =   3660
         Left            =   90
         TabIndex        =   3
         Top             =   990
         Width           =   3075
      End
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定&D"
      Height          =   345
      Index           =   0
      Left            =   3555
      TabIndex        =   1
      Top             =   3750
      Width           =   2205
   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

						