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