【标题】：WinForm设计之SQLServer登录窗体
【关键字】：WinForm,SQLServer
【来源】：http://blog.csdn.net/lzmtw/archive/2006/12/08/1434927.aspx

WinForm设计之SQLServer登录窗体

Author：水如烟

代码见应用类代码和辅助类代码

这个类使处理登录SqlServer服务器显得非常简单。

示例代码：

Public Class MainForm

    Private gConnectionString As String

    '初始
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mLoginInformation As New LzmTW.uSystem.uData.uSql.LoginInformation
        With mLoginInformation
            .ServerName = "192.168.0.250,9001" '服务器名称+端口号
            .Database = "Northwind"
            .Save() '保存至　x:\Documents and Settings\{用户}\Application Data\{组织名称}\{程序名称}\{版本号}\LoginInformation.dat
        End With
    End Sub

    '一般使用,它从配置文件中读取参数
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim mSqlLoginService As New LzmTW.uSystem.uData.uSql.SqlLoginService
        With mSqlLoginService

            If .TestConnect() Then '如果连接不成功,弹出设置窗体
                Me.gConnectionString = mSqlLoginService.LoginInformation.ConnectionStringBuilder.ConnectionString
                Console.WriteLine(Me.gConnectionString)
                'continue
            Else
                'exit ?
            End If
        End With
    End Sub

    '重置登录信息
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim mSqlLoginService As New LzmTW.uSystem.uData.uSql.SqlLoginService
        mSqlLoginService.ResetLoginInformation()
    End Sub
End Class

重置效果：

如果要启用初始窗体,即SplashScreenForm,那么,代码示意如下:

Public Class MainForm

    Private gConnectionString As String

    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LzmTW.uSystem.uWindows.uForms.uMainForm.SplashScreenHelper.SendMessage("正在尝试连接数据库....")
        Threading.Thread.Sleep(1000)

        Dim mSqlLoginService As New LzmTW.uSystem.uData.uSql.SqlLoginService

        With mSqlLoginService

            If .TestConnect() Then
                LzmTW.uSystem.uWindows.uForms.uMainForm.SplashScreenHelper.SendMessage("连接成功。")
                Me.gConnectionString = mSqlLoginService.LoginInformation.ConnectionStringBuilder.ConnectionString
                Threading.Thread.Sleep(1000)
            Else
                LzmTW.uSystem.uWindows.uForms.uMainForm.SplashScreenHelper.SendMessage("连接数据库失败,请与系统管理员联系。程序将退出。")
                Threading.Thread.Sleep(1000)

                Me.Close()
            End If
        End With
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mSqlLoginService As New LzmTW.uSystem.uData.uSql.SqlLoginService
        mSqlLoginService.ResetLoginInformation()
    End Sub

End Class

将动态aspx页面转换成为静态html页面的几种方法：【上一篇】
编程修改读写web.config文件：【下一篇】

【相关文章】

WinForm设计之进度消息提示窗体

WinForm设计之插件

WinForm控件开发总结(二)------使用和调试自定义控件

sqlserver2000悲观与乐观锁定

WinForm设计之配置文件

WinForm控件开发总结(一)------开篇

查询SqlServer 2005的表结构

WinForm设计之About窗体

WinForm设计之初始窗体(SplashScreenForm)

C#中结合使用SQLDMO实现备份、还原SQLserver数据库