ايجاد حساب كاربري براي برنامه و Login شدن بآن

[ROSTAM2]

اينم يادم رفت بگم براي نمايش پنجره Login قبل از اجراي برنامه اين متد رو در يك ماجول بنويسيد:

 Sub ShowLoginForm()

        FirstForm.UsersTableAdapter1.Fill(FirstForm.UserAc  countsDataSet1.Users)

        If FirstForm.UsersTableAdapter1.GetCountUsers = 0 Then

            Exit Sub

        End If

        LoginForm.UserBox.Items.Clear()

        With FirstForm.UserAccountsDataSet1

            For I = 0 To .Users.Count - 1

                LoginForm.UserBox.Items.Add(.Users.Item(I).UserNam  e)

            Next

        End With

        If LoginForm.ShowDialog(FirstForm) = DialogResult.Cancel Then

            End

        End If

        CurrentUserName = LoginForm.UserName

        CurrentPassword = LoginForm.Password

    End Sub

سپس وارد Application Events از Project Properties لبه Application شده و اين متد را در پروسيجر StartUp صدا بزنيد:

  Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupE  ventArgs) Handles Me.Startup

            ShowLoginForm()

  End Sub