我在 VS-2008 中创建了两个表单,login_F 和switchBoard_F
. login_F
是用户的登录表单,它验证用户的登录,然后witchBoard_F
从函数中打开 s:
每当login_F
,关闭它也关闭switchBoard_F
。我希望 switchBoard_F
一直打开并关闭s login_F
,但我不知道switchBoard_F
在我关闭 s 时哪个代码正在关闭我的login_F
?
这是代码:
Private Sub SaveUSerInfo()
Dim cmd As New SqlCommand("sp_InsertLogReg", conn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add(New SqlParameter("@EmpID", My.Settings.UserID))
cmd.Parameters.Add(New SqlParameter("@sHostName", System.Net.Dns.GetHostName()))
cmd.Parameters.Add(New SqlParameter("@sUserName", System.Environment.UserName()))
cmd.Parameters.Add(New SqlParameter("@ApplicationName", My.Settings.gAppName))
'cmd.ExecuteNonQuery()
Dim newID As Integer = CInt(cmd.ExecuteScalar()) 'return LogRegID
'get UserGroup
Dim strSQL As String = "SELECT tblKOCEmp.EmpID, tblKOCEmp.Name, tblOrg.GroupName, tblOrg.Active"
strSQL = strSQL + " FROM tblKOCEmp "
strSQL = strSQL + " INNER JOIN tblOrg ON dbo.tblKOCEmp.OrgCode = dbo.tblOrg.OrgCode"
strSQL = strSQL + " WHERE (dbo.tblOrg.Active = 1)"
strSQL = strSQL + " AND (tblKOCEmp.EmpID =" + My.Settings.UserID + ")"
cmd = New SqlCommand(strSQL, conn)
cmd.CommandType = CommandType.Text
Dim dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
If dr.HasRows Then
While dr.Read
If Not IsDBNull(dr.Item("Name")) Then
My.Settings.UserName = (dr.Item("Name"))
My.Settings.GroupName = (dr.Item("GroupName"))
End If
End While
End If
dr.Close()
My.Settings.LogRegID = newID 'store LogRegID to mySettings
switchBoard_F.Show()
login_F.Close()
End Sub