怎樣在VB中設置密碼

首先 文件→新建→項目 選擇windows應用程序 並在窗體上添加2個label控件、2個textbox控件、2 個buton控件 界面設計好後在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)

'與數據庫建立連接

olecn.Open()

olerd = olecm.ExecuteReader

'循環判斷與數據庫中數據是否相同

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

整個過程就做完了簡單吧。

希望對您有所幫助

上一篇:FPGA時序問題：begin end之間的順序執行代碼是按照什麽時鐘頻率執行的還是其他時序方式？

下一篇:Oracle截取最後4位數據。