?? dmoform.vb
字號(hào):
Public Class DMOForm
Dim objSQLSERVER As SQLDMO.SQLServer
Dim databaseForm As New DatabaseObject
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objApp As New SQLDMO.Application
Dim objAvailableSvr As SQLDMO.NameList
objAvailableSvr = objApp.ListAvailableSQLServers()
Dim i As Integer
If objAvailableSvr.Count > 0 Then
For i = 1 To objAvailableSvr.Count
'列出所有可用的SQL SERVER服務(wù)器
ComboBox1.Text = objAvailableSvr.Item(i)
Next
End If
rbWindows.Select()
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''ch06 示例2
''
''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
objSQLSERVER = New SQLDMO.SQLServer
' On Error GoTo ErrorHandler
If rbDbUser.Checked Then
objSQLSERVER.LoginTimeout = -1
objSQLSERVER.LoginSecure = False
objSQLSERVER.AutoReConnect = False
objSQLSERVER.Connect(ComboBox1.SelectedText, tbAccount.Text, tbPassword.Text)
MsgBox("用戶(hù)" + objSQLSERVER.Login + "成功登錄服務(wù)器" + objSQLSERVER.NetName + "。")
Else
objSQLSERVER.LoginSecure = True
objSQLSERVER.Connect(ComboBox1.SelectedText)
MsgBox("用以Windows身份" + "成功登錄服務(wù)器" + objSQLSERVER.NetName + "。")
End If
databaseForm.Server = objSQLSERVER
databaseForm.ShowDialog()
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''ch06 示例2
''
''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub rbWindows_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbWindows.CheckedChanged
Label2.Enabled = False
Label3.Enabled = False
tbAccount.Enabled = False
tbPassword.Enabled = False
End Sub
Private Sub rbDbUser_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbDbUser.CheckedChanged
Label2.Enabled = True
Label3.Enabled = True
tbAccount.Enabled = True
tbPassword.Enabled = True
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''ch06 示例2
''
''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub DMOForm_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
objSQLSERVER = Nothing
databaseForm = Nothing
End Sub
End Class
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -