0

再一次问好。

我们有一个网络表单，员工可以使用它来请求诸如从远程位置通过 VPN 访问公司资源之类的事情。

我正在从 Active Directory 填充一个下拉列表框。这工作正常。

然后我有一个文本框，它也通过简单地分配登录用户的值从 Active Directory 填充，如下所示：

textbox1.Text = User.Identity.Name

基于分配给 textbox1.Text 的我的名字的值

其余的 texboxes 使用以下代码填充了我的工作信息：

    textbox1.Text = User.Identity.Name
    textbox1.Text = StrConv(textbox1.Text, vbProperCase)

    txtdate.Text = DateTime.Now.ToString("MM/dd/yyyy")
    Try
        'Creates a Directory Entry Instance with the Username and Password provided
        Dim deSystem As New DirectoryEntry("LDAP://OU=Departments,DC=domaname, DC=com", "usrname", "password")

        'Authenticacion type Secure
        deSystem.AuthenticationType = AuthenticationTypes.Secure

        'Creates a Directory Searcher Instance
        Dim dsSystem As New DirectorySearcher(deSystem)

        'sAMAccountName is equal to our username passed in.            
        dsSystem.Filter = "sAMAccountName=" & textbox1.Text

        'Properties that the Procedures will load from Active Directory
        dsSystem.PropertiesToLoad.Add("mail") 'email address
        dsSystem.PropertiesToLoad.Add("department") 'dept
        dsSystem.PropertiesToLoad.Add("physicalDeliveryOfficeName") 'office
        dsSystem.PropertiesToLoad.Add("title") 'title, eg programmer1
        dsSystem.PropertiesToLoad.Add("telephoneNumber") 'phone
        dsSystem.PropertiesToLoad.Add("streetAddress") 'street address
        dsSystem.PropertiesToLoad.Add("l") 'city
        dsSystem.PropertiesToLoad.Add("st") 'state
        dsSystem.PropertiesToLoad.Add("postalCode") 'zip code
        dsSystem.PropertiesToLoad.Add("EmployeeId") 'empid 
        dsSystem.PropertiesToLoad.Add("givenName") '//first name from active directory
        dsSystem.PropertiesToLoad.Add("sn") '//lastname from active directory
        'Find the user data
        Dim srSystem As SearchResult = dsSystem.FindOne()

        'Obtains the properties recently loaded
        txtemail.Text = srSystem.Properties("mail").Item(0).ToString
        dept.Text = srSystem.Properties("department").Item(0).ToString
        office.Text = srSystem.Properties("physicalDeliveryOfficeName").Item(0).ToString
        txttitle.Text = srSystem.Properties("title").Item(0).ToString
        phone.Text = srSystem.Properties("telephoneNumber").Item(0).ToString
        workaddress.Text = srSystem.Properties("streetAddress").Item(0).ToString
        city.Text = srSystem.Properties("l").Item(0).ToString
        state.Text = srSystem.Properties("st").Item(0).ToString
        zipcode.Text = srSystem.Properties("postalCode").Item(0).ToString
        hiddenempId.Value = srSystem.Properties("EmployeeId").Item(0).ToString
        HiddenFName.Value = srSystem.Properties("givenName").Item(0).ToString
        HiddenLName.Value = srSystem.Properties("sn").Item(0).ToString

这也很好。

这就是我的问题所在。

最初，当用户登录时，根据 Active Directory 中记录的用户名，其余文本框将填充用户的信息。抱歉在这里重复我自己。

但是，有时登录的用户不一定是需要请求的用户。

换句话说，我可以登录来填写另一个员工的请求。

在这种情况下，我需要从 Active Directory 填充的下拉列表中选择要完成请求的用户的名称。

当我从下拉列表中选择此名称时，它会替换我自己在 textbox1.Text 上的名称。

这工作正常，但其余的文本框保留我自己的信息。

我需要做些什么来确保替换我在 textbox1.Text 上的原始名称的名称也替换了其余文本框中的信息？

我将根据要求发布其他信息。

提前谢谢了

4

1 回答 1

1

不是在表单加载时加载所有文本框，而是从TextChanged用户名文本框的事件中加载它们。这样，每当用户名文本框发生更改时，所有其他文本框都会自动重新加载以反映更改。

于 2013-02-12T16:43:40.650 回答