frm_note_set.frm

oracle和sql自动备份系统

VERSION 5.00
Begin VB.Form Frm_note_set 
   Caption         =   "设置数据库备份的向导"
   ClientHeight    =   3855
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5370
   Icon            =   "Frm_note_set.frx":0000
   LinkTopic       =   "Form6"
   MaxButton       =   0   'False
   ScaleHeight     =   3855
   ScaleWidth      =   5370
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdNav 
      Caption         =   "上一步(&N)"
      Height          =   312
      Index           =   2
      Left            =   2640
      MaskColor       =   &H00000000&
      TabIndex        =   7
      Tag             =   "103"
      Top             =   3240
      Width           =   1092
   End
   Begin VB.CommandButton cmdNav 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   312
      Index           =   1
      Left            =   840
      MaskColor       =   &H00000000&
      TabIndex        =   5
      Tag             =   "101"
      Top             =   3240
      Width           =   1092
   End
   Begin VB.CommandButton cmdNav 
      Caption         =   "设置完成(&F)"
      Height          =   312
      Index           =   4
      Left            =   3960
      MaskColor       =   &H00000000&
      TabIndex        =   4
      Tag             =   "104"
      Top             =   3240
      Width           =   1215
   End
   Begin VB.Frame Frame2 
      Caption         =   "设置自动备份的记录数："
      Height          =   2175
      Left            =   120
      TabIndex        =   0
      Top             =   720
      Width           =   5055
      Begin VB.OptionButton Opt_note_week 
         Caption         =   "每周"
         Height          =   180
         Left            =   960
         TabIndex        =   10
         Top             =   960
         Value           =   -1  'True
         Width           =   1335
      End
      Begin VB.TextBox Txt_note_week 
         Alignment       =   2  'Center
         Height          =   375
         Left            =   3000
         TabIndex        =   9
         Text            =   "Txt_note_week"
         Top             =   960
         Width           =   975
      End
      Begin VB.TextBox Txt_note_day 
         Alignment       =   2  'Center
         Height          =   375
         Left            =   3000
         TabIndex        =   8
         Text            =   "Txt_note_day"
         Top             =   360
         Width           =   975
      End
      Begin VB.OptionButton Opt_note_month 
         Caption         =   "每月"
         Height          =   255
         Left            =   960
         TabIndex        =   2
         Top             =   1530
         Width           =   735
      End
      Begin VB.TextBox Txt_note_month 
         Alignment       =   2  'Center
         Height          =   375
         Left            =   3000
         TabIndex        =   1
         Text            =   "Txt_note_month"
         Top             =   1440
         Width           =   975
      End
      Begin VB.OptionButton Opt_note_day 
         Caption         =   "每天"
         Height          =   180
         Left            =   960
         TabIndex        =   3
         Top             =   360
         Width           =   1335
      End
   End
   Begin VB.Label Label4 
      Caption         =   "设置数据库自动备份库文件存在记录数"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   240
      Width           =   4335
   End
End
Attribute VB_Name = "Frm_note_set"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdNav_Click(Index As Integer)

Dim inttmp As Integer

Select Case Index

  Case 0
  
  
  Case 1
  
  Unload Me
  
  Case 2
  
  Call Save_regedit
  
  Frm_time_set.Show
  
  Unload Me
  
  Case 3
  
 
  Case 4
  
  Call Save_regedit
  
  Tempstr = "完成系统文件存在记录数设置。"
  
  Call writerizhi(Tempstr, Len(Tempstr))
  
  If GetSetting("databackup", "sysinformation", "opthand") = "True" Then
  
    If MsgBox("按确定开始备份数据库？", vbOKCancel + vbDefaultButton1 + vbQuestion, Frmmain.Caption) = vbOK Then

        If GetSetting("databackup", "sysinformation", "OptOracle") = "True" Then

           Call Oraclebackup
        
          Else
        
          Call Sqlbackup
          
        End If

      End If
        
    End If
  
  Unload Me

  End Select
  
End Sub

Private Sub Form_Load()
   CenterForm Me
    
    On Error GoTo errhandler
    
    Opt_note_day.Value = Frm_time_set.Opt_day.Value
    
    Opt_note_month.Value = Frm_time_set.Opt_month.Value
    
    Opt_note_week.Value = Frm_time_set.Opt_week.Value
    
    Txt_note_day.Text = GetSetting("databackup", "sysinformation", "Txt_note_day")
     
    Txt_note_month.Text = GetSetting("databackup", "sysinformation", "Txt_note_month")
    
    Txt_note_week.Text = GetSetting("databackup", "sysinformation", "Txt_note_week")
    
    If Opt_note_day.Value = True Then Call Opt_note_day_Click
    
    If Opt_note_month.Value = True Then Call Opt_note_month_Click
     
    If Opt_note_week.Value = True Then Call Opt_note_week_Click
   
     
    Exit Sub

errhandler:
     
     Txt_note_day.Text = ""
     
     Txt_note_month.Text = ""
     
     Txt_note_week.Text = ""
     
     Call Opt_note_day_Click
     
End Sub

Private Sub Opt_note_day_Click()

    Txt_note_day.Enabled = True
    
    Txt_note_month.Enabled = False
    
    Txt_note_week.Enabled = False
    
    Txt_note_week.BackColor = &HE0E0E0
    
    Txt_note_day.BackColor = &HFFFFFF
    
    Txt_note_month.BackColor = &HE0E0E0
    
End Sub

Private Sub Opt_note_month_Click()

    Txt_note_day.Enabled = False
    
    Txt_note_month.Enabled = True
    
    Txt_note_week.Enabled = False
    
    Txt_note_week.BackColor = &HE0E0E0
    
    Txt_note_day.BackColor = &HE0E0E0
    
    Txt_note_month.BackColor = &HFFFFFF

End Sub
Private Sub Opt_note_week_Click()

    Txt_note_day.Enabled = False
    
    Txt_note_month.Enabled = False
    
    Txt_note_week.Enabled = True
    
    Txt_note_week.BackColor = &HFFFFFF
    
    Txt_note_day.BackColor = &HE0E0E0
    
    Txt_note_month.BackColor = &HE0E0E0


End Sub

Private Sub Save_regedit()
 
  SaveSetting "databackup", "sysinformation", "Txt_note_day", Trim(Txt_note_day.Text)
      
  SaveSetting "databackup", "sysinformation", "Txt_note_month", Trim(Txt_note_month.Text)
  
  SaveSetting "databackup", "sysinformation", "Txt_note_week", Trim(Txt_note_week.Text)

End Sub