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


评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值