Bước 1: In Module Module1
Khai báo biến
Public username As String = " "
Bước 2: Tại form Login
Đặt đoạn code sau để lấy Login Username trong event LOGIN BUTTON CLICK
Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
Dim conn As New SqlConnection(Server=YourComputer\SQLEXPRESS;database=Database Name;uid=YourSQL_UserID;pwd=yourSQL_UserPass)
da = New SqlDataAdapter("Select * from TblSystemUser where Username='" & TxtUser.Text & "' and password='" & TxtPass.Text & "'", conn)
Try
conn.Open()
da.Fill(dt)
Catch ex As Exception
conn.Close()
End Try
If (dt.Rows.Count > 0) Then
Dim f As New FORMMain()
f.Show()
Me.Hide()
conn.Close()
username = Me.TxtUser.Text.Trim
Else
MsgBox("Wrong Username or Password")
TxtPass.Text = ""
TxtUser.Text = ""
TxtUser.Focus()
End If
conn.Close()
End Sub
Như vậy có thể sử dụng USERNAME cho các tác vụ khác trong phần mềm
Nguồn: Sharecode.vn