?? frmdatabaseconninfo.frm
字號:
VERSION 5.00
Begin VB.Form frmDatabaseConnInfo
BorderStyle = 1 'Fixed Single
Caption = "數據庫連接參數設定"
ClientHeight = 2895
ClientLeft = 45
ClientTop = 330
ClientWidth = 4125
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2895
ScaleWidth = 4125
StartUpPosition = 1 '所有者中心
Begin VB.TextBox txtDatabase
Height = 270
Left = 1080
TabIndex = 10
Text = "txtDatabase"
Top = 1560
Width = 2535
End
Begin VB.TextBox txtPassWord
Height = 270
IMEMode = 3 'DISABLE
Left = 1080
PasswordChar = "*"
TabIndex = 9
Text = "txtPassWord"
Top = 1120
Width = 2535
End
Begin VB.TextBox txtUser
Height = 270
Left = 1080
TabIndex = 8
Text = "txtUser"
Top = 680
Width = 2535
End
Begin VB.TextBox txtServer
Height = 270
Left = 1080
TabIndex = 7
Text = "txtServer"
Top = 240
Width = 2535
End
Begin VB.CommandButton cmdCancle
Caption = "放棄"
Height = 375
Left = 2835
TabIndex = 6
Top = 2280
Width = 975
End
Begin VB.CommandButton cmdOK
Caption = "確定"
Height = 375
Left = 1575
TabIndex = 5
Top = 2280
Width = 975
End
Begin VB.CommandButton cmdTest
Caption = "測試"
Height = 375
Left = 315
TabIndex = 4
Top = 2280
Width = 975
End
Begin VB.Label lblErrorInfo
Caption = "lblErrorInfo"
ForeColor = &H000000FF&
Height = 255
Left = 360
TabIndex = 11
Top = 1920
Width = 3495
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "數據庫"
Height = 180
Left = 360
TabIndex = 3
Top = 1605
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "密 碼"
Height = 180
Left = 360
TabIndex = 2
Top = 1165
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "用戶名"
Height = 180
Left = 360
TabIndex = 1
Top = 725
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "服務器"
Height = 180
Left = 360
TabIndex = 0
Top = 285
Width = 540
End
End
Attribute VB_Name = "frmDatabaseConnInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'***********************************************************************
'* 過程名：cmdCancle_Click
'* 功 能：放棄按鈕CLICK事件響應
'* 參 數：
'* 版 本：2006.01.06 顏志軍 初版
'***********************************************************************
Private Sub cmdCancle_Click()
Unload Me
End Sub
'***********************************************************************
'* 過程名：cmdOK_Click
'* 功 能：確定按鈕CLICK事件響應
'* 參 數：
'* 版 本：2006.01.06 顏志軍 初版
'***********************************************************************
Private Sub cmdOK_Click()
If CheckInput() Then
'變量定義
Dim cfgFile As clsConfigFile
Dim server As String
Dim user As String
Dim pwd As String
Dim dataName As String
'取得設定值
server = Trim(txtServer.Text)
user = Trim(txtUser.Text)
pwd = Trim(txtPassWord.Text)
dataName = Trim(txtDatabase.Text)
'寫入配置
Set cfgFile = New clsConfigFile
cfgFile.WriteDatabasePara server, user, pwd, dataName
'關閉窗口
Unload Me
End If
End Sub
'***********************************************************************
'* 過程名：cmdTest_Click
'* 功 能：測試按鈕CLICK事件響應
'* 參 數：
'* 版 本：2006.01.06 顏志軍 初版
'***********************************************************************
Private Sub cmdTest_Click()
If CheckInput() Then
'變量定義
Dim conn As ADODB.Connection
Dim server As String
Dim user As String
Dim pwd As String
Dim dataName As String
'取得設定值
server = Trim(txtServer.Text)
user = Trim(txtUser.Text)
pwd = Trim(txtPassWord.Text)
dataName = Trim(txtDatabase.Text)
'測試連接
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=" & server & _
";Initial Catalog=" & dataName & _
";User Id=" & user & _
";Password=" & pwd & ";"
On Error GoTo SUBEND
conn.Open
If conn.State = adStateOpen Then
MsgBox "數據庫測試連接成功！", vbInformation Or vbOKOnly, "信息"
Exit Sub
End If
End If
SUBEND:
MsgBox "數據庫測試連接失敗！", vbExclamation Or vbOKOnly, "信息"
End Sub
'***********************************************************************
'* 過程名：Form_Load
'* 功 能：窗體LOAD事件響應
'* 參 數：
'* 版 本：2006.01.06 顏志軍 初版
'***********************************************************************
Private Sub Form_Load()
Dim cfgFile As clsConfigFile '配置讀寫對象
Dim server As String '服務器
Dim userName As String '用戶名
Dim passWord As String '密碼
Dim database As String '數據庫
'取得設定值
Set cfgFile = New clsConfigFile
cfgFile.GetDatabasePara server, userName, passWord, database
'顯示設定值
txtServer.Text = server
txtUser.Text = userName
txtPassWord.Text = passWord
txtDatabase.Text = database
'清空錯誤信息
lblErrorInfo.Caption = ""
End Sub
'***********************************************************************
'* 過程名：CheckInput
'* 功 能：檢查輸入信息
'* 參 數：
'* 版 本：2006.01.06 顏志軍 初版
'***********************************************************************
Private Function CheckInput() As Boolean
If Trim(txtServer.Text) = "" Then
lblErrorInfo.Caption = "請輸入服務器名或IP！"
CheckInput = False
ElseIf Trim(txtUser.Text) = "" Then
lblErrorInfo.Caption = "請輸入用戶名！"
CheckInput = False
ElseIf Trim(txtPassWord.Text) = "" Then
lblErrorInfo.Caption = "請輸入密碼！"
CheckInput = False
ElseIf Trim(txtDatabase.Text) = "" Then
lblErrorInfo.Caption = "請輸入數據庫名稱！"
CheckInput = False
Else
CheckInput = True
End If
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -