WEB LISTING 1: VB Code for the Login Form


Private Sub cmdCancel_Click()
Unload Me
Set frmLogin = Nothing
End
End Sub

Private Sub optAuthentication_Click(Index As Integer)
If optAuthentication(Index).Value = True And Index = 0 Then
txtUserID.Enabled = False
txtPassword.Enabled = False
Else
txtUserID.Enabled = True
txtPassword.Enabled = True
End If
End Sub

Private Sub cmdLogin_Click()
If lstServers.Text = "" Then
MsgBox "Please select a server from the dropdown list!", _
vbCritical, "Select Server"
End If
Me.Hide
frmDmo.Show
End Sub

Private Sub Form_Load()
Dim dmoApp As SQLDMO.Application
Dim dmoServerGroup As ServerGroup
Dim dmoServer As RegisteredServer

Set dmoApp = New SQLDMO.Application
lstServers.AddItem "(Local)"
For Each dmoServerGroup In dmoApp.ServerGroups
For Each dmoServer In dmoServerGroup.RegisteredServers
lstServers.AddItem dmoServer.Name
Next
Next
lstServers.Text = "(Local)"

Set dmoApp = Nothing
Set dmoServerGroup = Nothing
Set dmoServer = Nothing
End Sub