Share login and registration form in vb.net with access database,

bachmaiguest

New member
#loginform #RegistrationForm #vb.net #AccessDatabase #database #SQL ** Mẫu đăng nhập và đăng ký trong VB.NET với cơ sở dữ liệu truy cập **

Bài viết này sẽ chỉ cho bạn cách tạo mẫu đăng nhập và đăng ký trong VB.NET với cơ sở dữ liệu truy cập.Chúng tôi sẽ sử dụng các công nghệ sau:

* Vb.net
* Cơ sở dữ liệu truy cập
* Phiên bản nhỏ gọn SQL Server

## 1. Tạo một dự án mới

Đầu tiên, chúng ta cần tạo một dự án mới trong Visual Studio.Để làm điều này, hãy mở Visual Studio và chọn tệp **> mới> Dự án **.Trong hộp thoại ** New Project **, chọn ** Visual Basic> Windows Forms Ứng dụng ** và nhấp vào ** OK **.

## 2. Thêm tham chiếu đến cơ sở dữ liệu truy cập

Tiếp theo, chúng ta cần thêm một tham chiếu đến cơ sở dữ liệu truy cập.Để thực hiện việc này, nhấp chuột phải vào dự án trong ** Solution Explorer ** và chọn ** Thêm tham chiếu **.Trong hộp thoại ** Thêm tham chiếu **, chọn **. Net Framework ** và sau đó mở rộng nút ** dữ liệu **.Chọn ** System.Data.sqlserverce ** và nhấp vào ** OK **.

## 3. Tạo bảng cơ sở dữ liệu

Bây giờ chúng ta cần tạo các bảng cơ sở dữ liệu.Để thực hiện việc này, hãy mở cơ sở dữ liệu Access và tạo các bảng sau:

*** Người dùng **
*** id ** (autonumber)
*** Tên người dùng ** (văn bản)
*** Mật khẩu ** (văn bản)
* **Cố gắng đăng nhập**
*** id ** (autonumber)
*** Tên người dùng ** (văn bản)
*** Ngày ** (DateTime)

## 4. Tạo các biểu mẫu

Tiếp theo, chúng ta cần tạo các biểu mẫu cho các trang đăng nhập và đăng ký.Để thực hiện việc này, nhấp chuột phải vào dự án trong ** Solution Explorer ** và chọn ** Thêm> Biểu mẫu Windows **.Đặt tên cho biểu mẫu ** Loginform ** và nhấp vào ** Thêm **.Lặp lại quá trình này để tạo một biểu mẫu gọi là ** Đăng kýform **.

## 5. Thêm các điều khiển vào các biểu mẫu

Bây giờ chúng ta cần thêm các điều khiển vào các biểu mẫu.Để thực hiện việc này, kéo và thả các điều khiển sau từ Hộp công cụ ** ** vào ** loginform ** Mẫu:

*** Nhãn ** (cho tiêu đề)
*** TextBox ** (cho tên người dùng)
*** Mật khẩu hộp mật khẩu ** (cho mật khẩu)
*** nút ** (cho nút đăng nhập)

## 6. Thêm trình xử lý sự kiện

Bây giờ chúng ta cần thêm trình xử lý sự kiện cho các mẫu đăng nhập và đăng ký.Để thực hiện việc này, nhấp đúp vào nút ** Đăng nhập ** trên biểu mẫu ** LoginForm ** để mở trình xử lý sự kiện ** nhấp **.Trong trình xử lý sự kiện, thêm mã sau:

`` `VBNet
Dim Conn là SQLConnection mới ("Nguồn dữ liệu = localhost; catalog ban đầu = loginApp; tích hợp bảo mật = true")
Dim CMD dưới dạng SQLCommand mới ("Chọn * từ người dùng WHERE userName = @username và mật khẩu = @password", Conn)
cmd.parameter.addwithValue ("@username", txtusername.text)
cmd.parameter.addwithValue ("@mật khẩu", txtpassword.text)
Conn.open ()
Dim dr as sqldatareader = cmd.executereader ()
Nếu Dr.hasrows thì
'Người dùng đã được xác thực
Đăng nhập (DR)
Khác
'Người dùng chưa được xác thực
Showloginerror ()
Kết thúc nếu
Conn.Close ()
`` `

Mã này sẽ kết nối với cơ sở dữ liệu, kiểm tra xem tên người dùng và mật khẩu có hợp lệ, sau đó đăng nhập người dùng hoặc hiển thị thông báo lỗi.

## 7. Thêm logic đăng nhập

Mã sau đây hiển thị logic cho biểu mẫu đăng nhập:

`` `VBNet
Đăng nhập phụ riêng (dr as sqldatareader)
'Đặt người dùng hiện tại thành người dùng đã đăng nhập
Application.user = Dr.GetFieldValue ("Tên người dùng")
'Chuyển hướng người dùng đến trang chủ
Mẫu.Homeform.Show ()
Kết thúc phụ

Sub ShowLoginerror ()
'Hiển thị thông báo lỗi cho người dùng
MessageBox.Show ("Tên người dùng hoặc mật khẩu không hợp lệ.", "Lỗi đăng nhập", MessageBoxButtons.ok, MessageBox
=======================================
#loginform #RegistrationForm #vb.net #AccessDatabase #database #SQL **Login and Registration Form in VB.NET with Access Database**

This article will show you how to create a login and registration form in VB.NET with an Access database. We will use the following technologies:

* VB.NET
* Access Database
* SQL Server Compact Edition

## 1. Create a New Project

First, we need to create a new project in Visual Studio. To do this, open Visual Studio and select **File > New > Project**. In the **New Project** dialog box, select **Visual Basic > Windows Forms Application** and click **OK**.

## 2. Add a Reference to the Access Database

Next, we need to add a reference to the Access database. To do this, right-click on the project in the **Solution Explorer** and select **Add Reference**. In the **Add Reference** dialog box, select **.NET Framework** and then expand the **Data** node. Select **System.Data.SqlServerCe** and click **OK**.

## 3. Create the Database Tables

Now we need to create the database tables. To do this, open the Access database and create the following tables:

* **Users**
* **ID** (AutoNumber)
* **Username** (Text)
* **Password** (Text)
* **LoginAttempts**
* **ID** (AutoNumber)
* **Username** (Text)
* **Date** (DateTime)

## 4. Create the Forms

Next, we need to create the forms for the login and registration pages. To do this, right-click on the project in the **Solution Explorer** and select **Add > Windows Form**. Name the form **LoginForm** and click **Add**. Repeat this process to create a form called **RegistrationForm**.

## 5. Add the Controls to the Forms

Now we need to add the controls to the forms. To do this, drag and drop the following controls from the **Toolbox** to the **LoginForm** form:

* **Label** (for the title)
* **TextBox** (for the username)
* **PasswordBox** (for the password)
* **Button** (for the login button)

## 6. Add the Event Handlers

Now we need to add the event handlers for the login and registration forms. To do this, double-click on the **Login** button on the **LoginForm** form to open the **Click** event handler. In the event handler, add the following code:

```vbnet
Dim conn As New SqlConnection("Data Source=localhost;Initial Catalog=LoginApp;Integrated Security=True")
Dim cmd As New SqlCommand("SELECT * FROM Users WHERE Username = @Username AND Password = @Password", conn)
cmd.Parameters.AddWithValue("@Username", txtUsername.Text)
cmd.Parameters.AddWithValue("@Password", txtPassword.Text)
conn.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader()
If dr.HasRows Then
' The user has been authenticated
LoginUser(dr)
Else
' The user has not been authenticated
ShowLoginError()
End If
conn.Close()
```

This code will connect to the database, check if the username and password are valid, and then either log the user in or show an error message.

## 7. Add the Login Logic

The following code shows the logic for the login form:

```vbnet
Private Sub LoginUser(dr As SqlDataReader)
' Set the current user to the logged in user
Application.User = dr.GetFieldValue("Username")
' Redirect the user to the home page
Forms.HomeForm.Show()
End Sub

Private Sub ShowLoginError()
' Show an error message to the user
MessageBox.Show("Invalid username or password.", "Login Error", MessageBoxButtons.OK, MessageBox
 
Join Telegram ToolsKiemTrieuDoGroup
Back
Top