亚洲欧美日韩爽爽影院,一本一本大道香蕉久在线精品,日本不卡一二三区

論壇中VB版里經(jīng)常見到一些朋友問到關(guān)于登陸的問題，這篇文章專門為初學(xué)的朋友提供一些幫助，當(dāng)然希望有更好辦法的高手給予指點。首先文件→新建→項目選擇windows應(yīng)用程序并在窗體上添加2個label控件、2個textbox控件、2 個buton控件如下圖（1-1）：

界面設(shè)計好后在button的click事件中寫入代碼如下：

（在程序頂部引用Imports System.Data.OleDb）    Private Sub BOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BOk.Click
        '定義
        Dim olecn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb")
        Dim olecm As New OleDbCommand("select * from Login", olecn)
        Dim olead As New OleDbDataAdapter
        Dim olerd As OleDbDataReader
        Dim pd As Boolean = False '定義boolean為后面錯誤處理使用
        Dim i As Integer
        olecm = New OleDbCommand("select * from Login", olecn)
        '與數(shù)據(jù)庫建立連接
        olecn.Open()
        olerd = olecm.ExecuteReader
        '循環(huán)判斷與數(shù)據(jù)庫中數(shù)據(jù)是否相同
        Do While olerd.Read()
            For i = 0 To olerd.FieldCount - 1
                If Trim(TUser.Text) = (olerd.Item("帳號")) And Trim(TPassword.Text) = (olerd.Item("密碼")) Then
                    MsgBox("成功登陸")
                    pd = True
                    Exit Sub
                End If
            Next
        Loop
        TUser.Text = ""
        TPassword.Text = ""
        TUser.Focus()
        olerd.Close()
        olecn.Close()
    End Sub          整個過程就做完了簡單吧。         QQ：174453914

溫馨提示：喜歡本站的話，請收藏一下本站！

人人做人人澡人人爽欧美,国产主播一区二区,久久久精品五月天,羞羞视频在线观看免费

當(dāng)前位置:蘿卜系統(tǒng)下載站 > 技術(shù)開發(fā)教程 > 詳細(xì)頁面

WindowsForm登陸窗體的制作

本類教程下載

系統(tǒng)下載排行