📄 frmmain.frm
字号:
Width = 1470
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00E7DFE7&
Caption = "Oracle备份程序"
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 = 22
Top = 795
Width = 1470
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00E7DFE7&
Caption = "连接串"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 360
TabIndex = 8
Top = 360
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00E7DFE7&
Caption = "密码"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 4920
TabIndex = 7
Top = 360
Width = 420
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00E7DFE7&
Caption = "用户"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 2
Left = 2760
TabIndex = 6
Top = 360
Width = 420
End
End
Begin VB.CommandButton CmdExit
BackColor = &H00E7DFE7&
Caption = "隐 藏"
Height = 495
Left = 6120
TabIndex = 1
Top = 5880
Width = 1335
End
Begin VB.Image imgTitleButtonPic
Height = 255
Index = 1
Left = 8160
Picture = "frmMain.frx":0442
Top = 240
Visible = 0 'False
Width = 255
End
Begin VB.Image imgTitleButtonPic
Height = 255
Index = 0
Left = 7680
Picture = "frmMain.frx":268B
Top = 240
Visible = 0 'False
Width = 255
End
Begin VB.Image imgIcon
Height = 240
Left = 90
Picture = "frmMain.frx":4898
Stretch = -1 'True
Top = 90
Width = 240
End
Begin VB.Image imgTitleButton
Height = 255
Index = 2
Left = 6825
Picture = "frmMain.frx":4CDA
Top = 75
Width = 255
End
Begin VB.Image imgTitleButton
Height = 255
Index = 1
Left = 6525
Picture = "frmMain.frx":6FB1
Top = 75
Width = 255
End
Begin VB.Image imgTitleButton
Height = 255
Index = 0
Left = 6225
Picture = "frmMain.frx":91BE
Top = 75
Width = 255
End
Begin VB.Image imgCorner
Height = 105
Index = 3
Left = 8400
Picture = "frmMain.frx":B38F
Top = 6720
Width = 105
End
Begin VB.Image imgCorner
Height = 105
Index = 2
Left = 0
Picture = "frmMain.frx":D3E2
Top = 6720
Width = 105
End
Begin VB.Image imgCorner
Height = 105
Index = 1
Left = 7050
Picture = "frmMain.frx":F43C
Top = 0
Width = 105
End
Begin VB.Image imgCorner
Height = 105
Index = 0
Left = 0
Picture = "frmMain.frx":1148C
Top = 0
Width = 105
End
Begin VB.Image imgBorder
Height = 45
Index = 2
Left = 0
Picture = "frmMain.frx":134DA
Top = 6840
Width = 18000
End
Begin VB.Image imgBorder
Height = 13500
Index = 1
Left = 8520
Picture = "frmMain.frx":15C70
Top = 0
Width = 45
End
Begin VB.Image imgBorder
Height = 13500
Index = 0
Left = 0
Picture = "frmMain.frx":182F2
Top = 720
Width = 45
End
Begin VB.Label lblTitle
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "自动备份系统"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000246B&
Height = 330
Left = 135
TabIndex = 0
Top = 105
Width = 6900
End
Begin VB.Image imgTitle
Height = 420
Left = 45
Picture = "frmMain.frx":1A962
Top = 0
Width = 18000
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public LastState As Integer '窗体的状态
Private Const HTCAPTION = 2
Private Const HTTOP = 12
Private Const HTTOPLEFT = 13
Private Const HTTOPRIGHT = 14
Private Const HTBOTTOM = 15
Private Const HTBOTTOMLEFT = 16
Private Const HTBOTTOMRIGHT = 17
Private Const HTLEFT = 10
Private Const HTRIGHT = 11
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const WM_NCLBUTTONUP = &HA2
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
'************************************************************************
'** 此段为后加信息
'**
'**
'**
'************************************************************************
Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Private Const BIF_RETURNONLYFSDIRS = 1 '从这里开始为API声明
Private Const BIF_DONTGOBELOWDOMAIN = 2
Private Const MAX_PATH = 260
Private Declare Function SHBrowseForFolder Lib "Shell32" _
(lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32" _
(ByVal pidList As Long, _
ByVal lpBuffer As String) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _
(ByVal lpString1 As String, ByVal _
lpString2 As String) As Long
Private Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Dim CmdLine As String
Dim Exppath As String
Private LogFile As String
Private DmpFile As String
Private FinishBack As Boolean
Dim iNum As Integer
Dim iLIst As Integer
Private Sub CmdAlter_Click()
ItemEanble
CmdSave.Enabled = True
Timer1.Enabled = False
End Sub
Private Sub CmdBackup_Click()
If Len(TxtDmpPath) > 0 Then BackData
' DelOldFile
If Len(TxtTag) > 0 Then BackFile
End Sub
Private Sub CmdExit_Click()
Me.WindowState = 1
End Sub
Private Sub CmdFileD_Click()
Dim lpIDList As Long
Dim sbuffer As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfo
szTitle = "请选择文件夹"
With tBrowseInfo
.hWndOwner = Me.hwnd
.lpszTitle = lstrcat(szTitle, "")
.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With
lpIDList = SHBrowseForFolder(tBrowseInfo)
If (lpIDList) Then
sbuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sbuffer
sbuffer = Left(sbuffer, InStr(sbuffer, vbNullChar) - 1)
TxtTag = sbuffer
End If
End Sub
Private Sub CmdFileS_Click()
Dim lpIDList As Long
Dim sbuffer As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfo
szTitle = "请选择文件夹"
With tBrowseInfo
.hWndOwner = Me.hwnd
.lpszTitle = lstrcat(szTitle, "")
.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With
lpIDList = SHBrowseForFolder(tBrowseInfo)
If (lpIDList) Then
sbuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sbuffer
sbuffer = Left(sbuffer, InStr(sbuffer, vbNullChar) - 1)
TxtSoure = sbuffer
End If
End Sub
Private Sub CmdOpen_Click()
Cdlgopen.InitDir = Exppath
Cdlgopen.ShowOpen
txtexp.Text = Cdlgopen.FileName
End Sub
Private Sub CmdOraFl_Click()
Dim lpIDList As Long
Dim sbuffer As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfo
szTitle = "请选择文件夹"
With tBrowseInfo
.hWndOwner = Me.hwnd
.lpszTitle = lstrcat(szTitle, "")
.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With
lpIDList = SHBrowseForFolder(tBrowseInfo)
If (lpIDList) Then
sbuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sbuffer
sbuffer = Left(sbuffer, InStr(sbuffer, vbNullChar) - 1)
TxtDmpPath = sbuffer
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -