??????? Me.grpLogin.TabIndex = 2
??????? Me.grpLogin.TabStop = False
??????? ''''
??????? ''''lblPassword
??????? ''''
??????? Me.lblPassword.Location = New System.Drawing.Point(10, 43)
??????? Me.lblPassword.Name = "lblPassword"
??????? Me.lblPassword.Size = New System.Drawing.Size(76, 22)
??????? Me.lblPassword.TabIndex = 13
??????? Me.lblPassword.Text = "密码"
??????? Me.lblPassword.TextAlign = System.Drawing.ContentAlignment.MiddleRight
??????? ''''
??????? ''''lblUserName
??????? ''''
??????? Me.lblUserName.Location = New System.Drawing.Point(10, 17)
??????? Me.lblUserName.Name = "lblUserName"
??????? Me.lblUserName.Size = New System.Drawing.Size(76, 26)
??????? Me.lblUserName.TabIndex = 14
??????? Me.lblUserName.Text = "用户"
??????? Me.lblUserName.TextAlign = System.Drawing.ContentAlignment.MiddleRight
??????? ''''
??????? ''''txtPassword
??????? ''''
??????? Me.txtPassword.Location = New System.Drawing.Point(86, 43)
??????? Me.txtPassword.Name = "txtPassword"
??????? Me.txtPassword.PasswordChar = Microsoft.VisualBasic.ChrW(42)
??????? Me.txtPassword.Size = New System.Drawing.Size(173, 21)
??????? Me.txtPassword.TabIndex = 4
??????? Me.txtPassword.Text = ""
??????? ''''
??????? ''''txtUserName
??????? ''''
??????? Me.txtUserName.Location = New System.Drawing.Point(86, 17)
??????? Me.txtUserName.Name = "txtUserName"
??????? Me.txtUserName.Size = New System.Drawing.Size(173, 21)
??????? Me.txtUserName.TabIndex = 3
??????? Me.txtUserName.Text = ""
??????? ''''
??????? ''''grbDatabase
??????? ''''
??????? Me.grbDatabase.Controls.Add(Me.cboDatabase)
??????? Me.grbDatabase.Location = New System.Drawing.Point(29, 142)
??????? Me.grbDatabase.Name = "grbDatabase"
??????? Me.grbDatabase.Size = New System.Drawing.Size(269, 52)
??????? Me.grbDatabase.TabIndex = 5
??????? Me.grbDatabase.TabStop = False
??????? Me.grbDatabase.Text = "数据库"
??????? ''''
??????? ''''cboDatabase
??????? ''''
??????? Me.cboDatabase.ItemHeight = 12
??????? Me.cboDatabase.Location = New System.Drawing.Point(14, 22)
??????? Me.cboDatabase.Name = "cboDatabase"
??????? Me.cboDatabase.Size = New System.Drawing.Size(240, 20)
??????? Me.cboDatabase.TabIndex = 6
??????? ''''
??????? ''''btnCancel
??????? ''''
??????? Me.btnCancel.Location = New System.Drawing.Point(176, 202)
??????? Me.btnCancel.Name = "btnCancel"
??????? Me.btnCancel.Size = New System.Drawing.Size(90, 25)
??????? Me.btnCancel.TabIndex = 8
??????? Me.btnCancel.Text = "&C取消"
??????? ''''
??????? ''''btnOk
??????? ''''
??????? Me.btnOk.Location = New System.Drawing.Point(72, 202)
??????? Me.btnOk.Name = "btnOk"
??????? Me.btnOk.Size = New System.Drawing.Size(90, 25)
??????? Me.btnOk.TabIndex = 7
??????? Me.btnOk.Text = "&O确定"
??????? ''''
??????? ''''lblServer
??????? ''''
??????? Me.lblServer.Location = New System.Drawing.Point(29, 30)
??????? Me.lblServer.Name = "lblServer"
??????? Me.lblServer.Size = New System.Drawing.Size(77, 26)
??????? Me.lblServer.TabIndex = 9
??????? Me.lblServer.Text = "服务器"
??????? Me.lblServer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
??????? ''''
??????? ''''frmMain
??????? ''''
??????? Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
??????? Me.ClientSize = New System.Drawing.Size(336, 253)
??????? Me.Controls.Add(Me.GroupBox1)
??????? Me.Name = "frmMain"
??????? Me.GroupBox1.ResumeLayout(False)
??????? Me.grpLogin.ResumeLayout(False)
??????? Me.grbDatabase.ResumeLayout(False)
??????? Me.ResumeLayout(False)
??? End Sub
#End Region
?
??? Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
??????? Dim xmlDoc As XmlDocument
??????? Dim topM As XmlNodeList
??????? xmlDoc = New XmlDocument
??????? xmlDoc.Load("Web.config")
??????? topM = xmlDoc.DocumentElement.ChildNodes
??????? For Each element As XmlElement In topM
??????????? If element.Name.ToLower() = "appsettings" Then
??????????????? Dim _node As XmlNodeList = element.ChildNodes
??????????????? If _node.Count > 0 Then
??????????????????? For Each el As XmlElement In _node
??????????????????????? If el.Attributes("key").InnerXml = "ServerName" Then _
??????????????????????????? txtServerName.Text = el.Attributes("value").Value
??????????????????????? If el.Attributes("key").InnerXml = "DataBaseName" Then _
??????????????????????????? cboDatabase.Text = el.Attributes("value").Value
??????????????????????? If el.Attributes("key").InnerXml = "UserName" Then _
???????????????????????????? txtUserName.Text = SecurityService.SymmetricDecrypt(el.Attributes("value").Value)
??????????????????????? If el.Attributes("key").InnerXml = "Password" Then _
??????????????????????????? txtPassword.Text = SecurityService.SymmetricDecrypt(el.Attributes("value").Value)
??????????????????????? If el.Attributes("key").InnerXml = "WindowsAuthentication" Then _
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
