WinForm设计之SQLServer登录窗体

最新推荐文章于 2022-10-20 22:58:38 发布

水如烟

最新推荐文章于 2022-10-20 22:58:38 发布

阅读量4k

点赞数

分类专栏： VB.NET应用点滴文章标签： sqlserver winform button string 数据库服务器

本文链接：https://blog.csdn.net/lzmtw/article/details/1434927

版权

VB.NET应用点滴专栏收录该内容

120 篇文章 0 订阅

订阅专栏

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