界面很简单,五个控件txtServerName、cboDatabase、txtUserName、txtPassword、cbWindowsAuthentication
下面是VB.Net后台代码:
Imports System Imports System.Diagnostics Imports System.Configuration Imports System.Xml Imports System.Text Imports System.Reflection
Public Class frmMain ??? Inherits System.Windows.Forms.Form
#Region " Windows 窗体设计器生成的代码 "
??? Public Sub New() ??????? MyBase.New()
??????? ''''该调用是 Windows 窗体设计器所必需的。 ??????? InitializeComponent()
??????? ''''在 InitializeComponent() 调用之后添加任何初始化
??? End Sub
??? ''''窗体重写 dispose 以清理组件列表。 ??? Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) ??????? If disposing Then ??????????? If Not (components Is Nothing) Then ??????????????? components.Dispose() ??????????? End If ??????? End If ??????? MyBase.Dispose(disposing) ??? End Sub
??? ''''Windows 窗体设计器所必需的 ??? Private components As System.ComponentModel.IContainer
??? ''''注意: 以下过程是 Windows 窗体设计器所必需的 ??? ''''可以使用 Windows 窗体设计器修改此过程。 ??? ''''不要使用代码编辑器修改它。 ??? Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox ??? Friend WithEvents txtServerName As System.Windows.Forms.TextBox ??? Friend WithEvents cbWindowsAuthentication As System.Windows.Forms.CheckBox ??? Friend WithEvents grpLogin As System.Windows.Forms.GroupBox ??? Friend WithEvents lblPassword As System.Windows.Forms.Label ??? Friend WithEvents lblUserName As System.Windows.Forms.Label ??? Friend WithEvents txtPassword As System.Windows.Forms.TextBox ??? Friend WithEvents txtUserName As System.Windows.Forms.TextBox ??? Friend WithEvents grbDatabase As System.Windows.Forms.GroupBox ??? Friend WithEvents cboDatabase As System.Windows.Forms.ComboBox ??? Friend WithEvents btnCancel As System.Windows.Forms.Button ??? Friend WithEvents btnOk As System.Windows.Forms.Button ??? Friend WithEvents lblServer As System.Windows.Forms.Label ??? Private Sub InitializeComponent() ??????? Me.GroupBox1 = New System.Windows.Forms.GroupBox ??????? Me.txtServerName = New System.Windows.Forms.TextBox ??????? Me.cbWindowsAuthentication = New System.Windows.Forms.CheckBox ??????? Me.grpLogin = New System.Windows.Forms.GroupBox ??????? Me.lblPassword = New System.Windows.Forms.Label ??????? Me.lblUserName = New System.Windows.Forms.Label ??????? Me.txtPassword = New System.Windows.Forms.TextBox ??????? Me.txtUserName = New System.Windows.Forms.TextBox ??????? Me.grbDatabase = New System.Windows.Forms.GroupBox ??????? Me.cboDatabase = New System.Windows.Forms.ComboBox ??????? Me.btnCancel = New System.Windows.Forms.Button ??????? Me.btnOk = New System.Windows.Forms.Button ??????? Me.lblServer = New System.Windows.Forms.Label ??????? Me.GroupBox1.SuspendLayout() ??????? Me.grpLogin.SuspendLayout() ??????? Me.grbDatabase.SuspendLayout() ??????? Me.SuspendLayout() ??????? '''' ??????? ''''GroupBox1 ??????? '''' ??????? Me.GroupBox1.Controls.Add(Me.txtServerName) ??????? Me.GroupBox1.Controls.Add(Me.cbWindowsAuthentication) ??????? Me.GroupBox1.Controls.Add(Me.grpLogin) ??????? Me.GroupBox1.Controls.Add(Me.grbDatabase) ??????? Me.GroupBox1.Controls.Add(Me.btnCancel) ??????? Me.GroupBox1.Controls.Add(Me.btnOk) ??????? Me.GroupBox1.Controls.Add(Me.lblServer) ??????? Me.GroupBox1.Location = New System.Drawing.Point(8, 8) ??????? Me.GroupBox1.Name = "GroupBox1" ??????? Me.GroupBox1.Size = New System.Drawing.Size(321, 237) ??????? Me.GroupBox1.TabIndex = 15 ??????? Me.GroupBox1.TabStop = False ??????? Me.GroupBox1.Text = "数据库设置" ??????? '''' ??????? ''''txtServerName ??????? '''' ??????? Me.txtServerName.Location = New System.Drawing.Point(115, 30) ??????? Me.txtServerName.Name = "txtServerName" ??????? Me.txtServerName.Size = New System.Drawing.Size(178, 21) ??????? Me.txtServerName.TabIndex = 10 ??????? Me.txtServerName.Text = "" ??????? '''' ??????? ''''cbWindowsAuthentication ??????? '''' ??????? Me.cbWindowsAuthentication.Location = New System.Drawing.Point(38, 60) ??????? Me.cbWindowsAuthentication.Name = "cbWindowsAuthentication" ??????? Me.cbWindowsAuthentication.Size = New System.Drawing.Size(173, 22) ??????? Me.cbWindowsAuthentication.TabIndex = 1 ??????? Me.cbWindowsAuthentication.Text = "使用Windows验证" ??????? '''' ??????? ''''grpLogin ??????? '''' ??????? Me.grpLogin.Controls.Add(Me.lblPassword) ??????? Me.grpLogin.Controls.Add(Me.lblUserName) ??????? Me.grpLogin.Controls.Add(Me.txtPassword) ??????? Me.grpLogin.Controls.Add(Me.txtUserName) ??????? Me.grpLogin.Location = New System.Drawing.Point(29, 65) ??????? Me.grpLogin.Name = "grpLogin" ??????? Me.grpLogin.Size = New System.Drawing.Size(269, 73) ??????? 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").V [1] [2] 下一页 [C语言系列]C# WinForm 中Label自动换行 解决方法 [电脑应用]c# winform 打包部署 自定义界面 或设置开机启动 [电脑应用]C# WinForm 关闭登陆窗体,打开主窗体的实现 [C语言系列]winform datagridview如何获取选中行的索引 [C语言系列]c# _winform实现网页上用户自动登陆,模拟网站登录 [C语言系列]C#的winform中实现tabPage的隐藏 . [C语言系列]C# WinForm中Application.StartupPath与AppDomain… [聊天工具]Gmail推出新功能:Web Clip__天极Yesky [聊天工具]Web MSN你玩了吗__天极Yesky [系统软件]WinForm 程序实现XP风格
|