大佬教程收集整理的这篇文章主要介绍了vb.net – 当点击“btnLogin”时,我的表单会减小.,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
Imports System.Data.OleDb Public Class frmLogin Public AdminDetails As Boolean Public SuccessfulLoginUsername As String Dim provider As String Dim dataFile As String Dim connString As String Dim myConnection As OleDbConnection = New OleDbConnection Private Sub btnLogin_Click(sender As Object,e As EventArgs) Handles btnLogin.Click provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" dataFile = Application.StartupPath & "\SAC1 Database.mdb" connString = provider & dataFile myConnection.ConnectionString = connString Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM [tblUsers] WHERE [Username] = '" & txtUsername.Text & "' AND [Password] = '" & txtPassword.Text & "'",myConnection) myConnection.Open() Dim dr As OleDbDataReader = cmd.ExecuteReader Dim userFound As Boolean = False Dim FirstName As String = "" Dim LastName As String = "" While dr.Read userFound = True FirstName = dr("FirstName").ToString LastName = dr("LastName").ToString End While If userFound = True Then If txtUsername.Text = "admin" And txtPassword.Text = "password" Then AdminDetails = True SuccessfulLoginUsername = txtUsername.Text Else AdminDetails = False SuccessfulLoginUsername = txtUsername.Text End If frmMenu.Show() frmMenu.lblTitle.Text = "Welcome " & FirstName & " " & LastName frmMenu.lblGreeting.Text = "Howdy! " & FirstName & " " & LastName & ". What would you like to do today?" Else MsgBox("Sorry,username or password not found",MsgBoxStyle.OkOnly,"Invalid Login") End If myConnection.Close() End Sub Private Sub btnExit_Click(sender As Object,e As EventArgs) Handles btnExit.Click Close() End End Sub Private Sub linklblCreateAccount_LinkClicked(sender As Object,e As LinkLabelLinkClickedEventArgs) Handles linklblCreateAccount.LinkClicked frmCreateAccount.Show() End Sub End Class
简单的解决方案是让您的应用程序了解DPI.
>从“项目”菜单中,选择“您的项目名称” – 属性.
>选择“应用程序”选项卡,然后单击“查看窗口设置”按钮.
>根据您的VS版本,您可能会也可能不会在文件中包含以下内容.
<!-- <application xmlns="urn:schemas-microsoft-com:asm.v3"> <windowsSettings> <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware> </windowsSettings> </application> -->
如果找到此块,则删除第一行和最后一行(“<! - ”和“ - >”).如果它不存在,请在文件中的最后一个标记之前添加这些行.
>重建您的申请.
以上是大佬教程为你收集整理的vb.net – 当点击“btnLogin”时,我的表单会减小.全部内容,希望文章能够帮你解决vb.net – 当点击“btnLogin”时,我的表单会减小.所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。