vb.net登陆界面

最新推荐文章于 2023-06-05 01:16:29 发布

weixin_47367503

最新推荐文章于 2023-06-05 01:16:29 发布

阅读量812

点赞数 2

分类专栏： vb.net 文章标签： vb.net

本文链接：https://blog.csdn.net/weixin_47367503/article/details/105797398

版权

本文介绍如何使用VB.NET创建一个登录窗体，提供源代码供参考。

摘要由CSDN通过智能技术生成

今天我们来做一个登陆窗体，下面请看源码哦：

 Imports System.Data
Imports System.Data.OleDb

Public Class Login
     Inherits System.Windows.Forms.Form
Dim ServerLog As New AddServer
   Dim StrServer As String = ServerLog.TSever.Text
   Private Conn As New OleDbConnection("Integrated Security=SSPI;Packet Size=4096;Data Source='" & StrServer & "';Tag with column collation when possible=False;Initial Catalog=ys;Use Procedure for Prepare=1;Auto Translate=True;Persist Security Info=False;Provider=SQLOLEDB.1;Workstation ID='" & StrServer & "';Use Encryption for Data=False")
   Private DC As New OleDbConnection
   Private DA As New OleDbDataAdapter
   Private DS As New DataSet
   Dim Adminform As New Administrator
   Dim stuform As New student
   Dim Teaform As New Teacher
 
   Private Function Query(ByVal QueryString As String) As Boolean
       DS.Clear()
       Try
           DA = New OleDbDataAdapter(QueryString, Conn)
           DA.Fill(DS, "TMInfo")
       Catch
           MessageBox.Show(Err.Description, "警告", _
           MessageBoxButtons.OK, MessageBoxIcon.Warning)
           Exit Function
       End Try
       Dim dt As New DataTable
       dt = DS.Tables.Item(0)

       If account.Text =