.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
使用VB.Net做一个配置web.config功能的WinForm(原创)

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

界面很简单,五个控件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").Value)
??????????????????????? If el.Attributes("key").InnerXml = "WindowsAuthentication" Then _
?????????????????????????? Me.cbWindowsAuthentication.Checked = Convert.ToBoolean(el.Attributes("value").Value)
??????????????????? Next
??????????????? End If

??????????? End If
??????? Next

??? End Sub

??? '**********************************************************************************************
??? '** Class:????????? GetDatabases
??? '**
??? '** Description:???
??? '**********************************************************************************************
??? Private Sub GetDatabases()

??????? Try

??????????? Dim oDatabase As New Database
??????????? cboDatabase.BeginUpdate()
??????????? Cursor.Current = Cursors.WaitCursor

??????????? Configuration.Server = txtServerName.Text
??????????? Configuration.Database = "master" 'cboDatabase.Text
??????????? Configuration.Password = txtPassword.Text
??????????? Configuration.UserName = txtUserName.Text
??????????? Configuration.WindowsAuthentication = cbWindowsAuthentication.Checked


??????????? Dim rd As SqlClient.SqlDataReader
??????????? rd = oDatabase.GetDatabases
??????????? While rd.Read()
??????????????? cboDatabase.Items.Add(rd.GetString(1))
??????????? End While
??????????? rd.Close()
??????????? cboDatabase.Sorted = True


??????? Catch AComException As System.Runtime.InteropServices.COMException

??????????? cboDatabase.DataSource = Nothing
??????????? cboDatabase.Items.Clear()
??????????? cboDatabase.Text = ""

??????????? MsgBox("Could not connect to " & txtServerName.Text & ".", MsgBoxStyle.Exclamation, _
??????????????? "SQL Connection Error")
??????? Catch e1 As Exception
??????????? MsgBox(e1.Message)

??????? Finally

??????????? cboDatabase.EndUpdate()
??????????? Cursor.Current = Cursors.Default

??????? End Try

??? End Sub

??? Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
??????? 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 _
?????????????????????????? el.Attributes("value").Value = txtServerName.Text
??????????????????????? If el.Attributes("key").InnerXml = "DataBaseName" Then _
?????????????????????????? el.Attributes("value").Value = cboDatabase.Text
??????????????????????? If el.Attributes("key").InnerXml = "UserName" Then _
?????????????????????????? el.Attributes("value").Value = SecurityService.SymmetricEncrypt(txtUserName.Text)
??????????????????????? If el.Attributes("key").InnerXml = "Password" Then _
?????????????????????????? el.Attributes("value").Value = SecurityService.SymmetricEncrypt(txtPassword.Text)
??????????????????????? If el.Attributes("key").InnerXml = "WindowsAuthentication" Then _
????????????????????????? el.Attributes("value").Value = Me.cbWindowsAuthentication.Checked.ToString()
??????????????????? Next
??????????????? End If

??????????? End If
??????? Next

??????? ' Write XML to file
??????? xmlDoc.Save("Web.config")
??????? Me.Close()

??? End Sub

??? Private Sub cbWindowsAuthentication_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbWindowsAuthentication.CheckedChanged

??????? If cbWindowsAuthentication.Checked Then
??????????? txtUserName.Text = ""
??????????? txtPassword.Text = ""
??????????? txtUserName.Enabled = False
??????????? txtPassword.Enabled = False
??????? Else
??????????? txtUserName.Enabled = True
??????????? txtPassword.Enabled = True
??????? End If

??????? Configuration.WindowsAuthentication = cbWindowsAuthentication.Checked
??? End Sub

??? Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
??????? If MsgBox("Are you sure you want to exit w/o configuring the database?", MsgBoxStyle.OKCancel) = MsgBoxResult.OK Then
??????????? Me.Close()
??????? End If
??? End Sub
??? Private Sub txtPassword_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPassword.LostFocus
??????? If cbWindowsAuthentication.Checked Or (txtUserName.Text <> "" And txtPassword.Text <> "") Then
??????????? GetDatabases()
??????? End If
??? End Sub
End Class

SecurityService类是用来加/解密的,这样用户就无法直接从Web.config中看到数据库用户和密码了。




相关文章

相关软件