?? frmmain.frm
字號(hào):
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "數(shù)據(jù)庫管理助手"
ClientHeight = 3930
ClientLeft = 45
ClientTop = 435
ClientWidth = 6825
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3930
ScaleWidth = 6825
StartUpPosition = 3 '窗口缺省
Begin VB.Frame fraMain
Caption = "數(shù)據(jù)庫操作"
Height = 3075
Index = 4
Left = 6300
TabIndex = 13
Top = 120
Width = 6495
Begin VB.Label lblAlert
Caption = "正在建立數(shù)據(jù)庫，請(qǐng)稍等..."
Height = 975
Left = 1080
TabIndex = 14
Top = 1140
Width = 4455
End
End
Begin VB.Frame fraMain
Caption = "還原數(shù)據(jù)庫"
Height = 3075
Index = 2
Left = 6360
TabIndex = 19
Top = 180
Width = 6495
Begin VB.TextBox txtRestorePath
Height = 315
Left = 1980
TabIndex = 21
Top = 1140
Width = 3315
End
Begin VB.CommandButton cmdShowDialog
Caption = "..."
Height = 315
Index = 1
Left = 5340
TabIndex = 20
Top = 1140
Width = 435
End
Alignment = 1 'Right Justify
Caption = "備份文件路徑："
Height = 195
Left = 480
TabIndex = 22
Top = 1200
Width = 1455
End
End
Begin VB.Frame fraMain
Caption = "備份數(shù)據(jù)庫"
Height = 3075
Index = 3
Left = 6360
TabIndex = 15
Top = 480
Width = 6495
Begin VB.CommandButton cmdShowDialog
Caption = "..."
Height = 315
Index = 0
Left = 5340
TabIndex = 18
Top = 1140
Width = 435
End
Begin MSComDlg.CommonDialog dlgMain
Left = 5400
Top = 2160
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.TextBox txtBackupPath
Height = 315
Left = 1980
TabIndex = 16
Top = 1140
Width = 3315
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "備份路徑："
Height = 195
Left = 840
TabIndex = 17
Top = 1200
Width = 1095
End
End
Begin VB.Frame fraMain
Caption = "請(qǐng)選擇所需要的操作"
Height = 3075
Index = 1
Left = 6420
TabIndex = 8
Top = 180
Width = 6495
Begin VB.OptionButton optBackupDB
Caption = "備份數(shù)據(jù)庫"
Height = 255
Left = 1020
TabIndex = 12
Top = 1020
Width = 3855
End
Begin VB.OptionButton optRestoreDB
Caption = "恢復(fù)數(shù)據(jù)庫"
Height = 255
Left = 1020
TabIndex = 11
Top = 1500
Width = 3855
End
Begin VB.OptionButton optReCreateDB
Caption = "重建數(shù)據(jù)庫（當(dāng)前的數(shù)據(jù)將不會(huì)被保存，請(qǐng)謹(jǐn)慎使用）"
Height = 255
Left = 1020
TabIndex = 10
Top = 2100
Width = 5235
End
Begin VB.OptionButton optCreateDB
Caption = "創(chuàng)建數(shù)據(jù)庫（第一次運(yùn)行時(shí)用）"
Height = 255
Left = 1020
TabIndex = 9
Top = 540
Width = 3855
End
End
Begin VB.CommandButton cmdQuit
Caption = "完成(&F)"
Height = 435
Left = 4800
TabIndex = 7
Top = 3360
Width = 1515
End
Begin VB.CommandButton cmdNext
Caption = "下一步(&N) >>"
Height = 435
Left = 3075
TabIndex = 6
Top = 3360
Width = 1515
End
Begin VB.CommandButton cmdPre
Caption = "<< (&P)上一步"
Height = 435
Left = 1560
TabIndex = 5
Top = 3360
Width = 1515
End
Begin VB.Frame fraMain
Caption = "請(qǐng)輸入服務(wù)器參數(shù)"
Height = 3075
Index = 0
Left = 180
TabIndex = 0
Top = 180
Width = 6495
Begin VB.TextBox txtPassWord
Height = 315
Left = 1920
TabIndex = 2
Top = 1740
Width = 2415
End
Begin VB.TextBox txtAccout
Height = 315
Left = 1920
TabIndex = 1
Text = "sa"
Top = 1200
Width = 2415
End
Begin VB.Label Label5
Caption = " 數(shù)據(jù)庫帳號(hào)和密碼請(qǐng)使用安裝時(shí)設(shè)定的帳號(hào)和密碼，如果你不清楚，請(qǐng)不要更改下邊的設(shè)定，單擊下一步繼續(xù)操作。"
Height = 495
Left = 480
TabIndex = 23
Top = 480
Width = 5175
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "帳號(hào)："
Height = 255
Left = 900
TabIndex = 4
Top = 1260
Width = 915
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "密碼："
Height = 255
Left = 900
TabIndex = 3
Top = 1800
Width = 915
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdNext_Click()
' 備份頁面
If cmdQuit.Tag = 3 Then
If Trim$(txtBackupPath.Text) <> "" Then
DoEvents
Call ShowFrame(4)
Call BackupDB(Trim$(txtBackupPath.Text))
cmdNext.Enabled = False
Else
MsgBox "必須指定一個(gè)文件名。", vbCritical + vbOKOnly, "系統(tǒng)提示"
End If
End If
' 恢復(fù)頁面
If cmdQuit.Tag = 2 Then
If MsgBox("恢復(fù)數(shù)據(jù)庫將不保存目前的數(shù)據(jù)，請(qǐng)確認(rèn)一定要恢復(fù)數(shù)據(jù)庫嗎？", vbQuestion + vbYesNo, "系統(tǒng)提示") = vbYes Then
If Trim$(txtRestorePath.Text) <> "" Then
DoEvents
Call ShowFrame(4)
Call RestoreDB(Trim$(txtRestorePath.Text))
cmdNext.Enabled = False
Else
MsgBox "必須指定一個(gè)文件名。", vbCritical + vbOKOnly, "系統(tǒng)提示"
End If
End If
End If
'第一個(gè)頁面時(shí)執(zhí)行
If cmdQuit.Tag = 0 Then
Call ShowFrame(1)
If optCreateDB.Value = False And optBackupDB.Value = False And optRestoreDB.Value = False And optReCreateDB.Value = False Then
cmdNext.Enabled = False
Else
cmdNext.Enabled = True
End If
End If
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -