[hamada558]

في VB ممكن تعمل موديول وفي تستخدم هيكل بيانات Structure متل

كود :

Structure str_user
    Dim fullname As String
    Dim update As Boolean
    Dim insert As Boolean
    Dim delete As Boolean
    Dim print As Boolean
    Dim search As Boolean
End Structure
Public user As New str_user

حتستخدم user منشان تعرف بيانات المستخدم (fullname, update, insert, delete, print, search)

ومنشان تملاهم بالبيانات بكود الدخول

كود :

Public Function GetUser(ByVal username As String, ByVal password As String) As Boolean

    Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM users WHERE username=? AND password=?", cnn)
    da.SelectCommand.Parameters.AddWithValue("@u", username)
    da.SelectCommand.Parameters.AddWithValue("@p", password)

    Dim dt As New DataTable
    Dim ret As Integer = da.Fill(dt)

    If ret > 0 Then
        user.fullname = dt.Rows(0)("fullname")
        user.update = dt.Rows(0)("update")
        user.insert = dt.Rows(0)("insert")
        user.delete = dt.Rows(0)("delete")
        user.print = dt.Rows(0)("print")
        user.search = dt.Rows(0)("search")
        Return True

    Else
        Return False

    End If

End Function

ولمن المستخدم يريد الدخول في البرنامج تستخدم LoginUser واذا رجعت ب true يبقى تمام تم الدخول والا خطا

هاد متال ممككن يوضح اكتر