Login Form

Question

Mohon pencerahan dari semua kawan - kawan.

Saya kesulitan mencari solusi dalam menentukan login pada awal aplikasi. Maksudnya, saya hanya ingin menggunakan form login pada saat awal aplikasi digunakan saja, jadi jika aplikasi di close dan akan digunakan di kemudian hari tidak perlu login form lagi. Jadi tidak usah menggunakan logout dan user tidak perlu login terus jika ingin menggunakan aplikasi untuk di kemudian hari.

Terima kasih.

Answer 1

Hi Arya,

kamu bisa memiliki beberapa pilihan scenario

1. Skenario 1: Skenario pasca instalasi, pengguna mengisikan login pada saat aplikasi dipasangkan. Hasil login divalidasi oleh installer. Installer seperti install anywhere,, Windows Installer dan InstallShield mendukung proses logika ini,
2. Skenario 2: Skenario pertama kali login. pengguna mengisikan login pada saat aplikasi pertama kali. Hal ini bisa dilakukan pada saat aplikasi dimulai dia mengecek ke settings pengguna (user settings, pada VB lihat namespace My.) apakah ada nilai login, jika ada maka tidak perlu menampilkan halaman login langsung ke awal, jika belum maka diminta login

---

Agile and ALM blog at http://ridilabs.net :)

Answer 2

Hai Arya Salam Kenal...Solusi saya untuk kamu adalah seperti ini. Pada Setting Designer, tambahkan sebuah setingan dengan nama isLogin dengan tipe boolean. Setelah di tambahkan, setingan tersebut akan bisa di akses dari objek My.Settings

Pada form login kamu pasti ada tombol Login atau Masuk atau Ok atau apalah......

Jika login data yang di masukkan user valid...dan login berhasil maka ubah properti My.Settings.isLogin menjadi True dengan kode My.Settings.isLogin = True

Selanjutnya buat juga metode logout untuk mengganti nilai isLogin menjadi false. Pada metode logout tersebut, ketikkan kode ini My.Settings.isLogin = False

Selanjutnya pada startup form aplikasi kamu (misalnya start up form-nya ada pada form1) pada Form.Load events ketikkan code untuk memeriksa apakah nilai isLogin adalah True atau tidak. Jika nilainya False maka tampilkan Form Login.

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    If Not My.Settings.isLogin Then LoginForm.Show()

End Sub

referensi (My.Settings Object) : https://msdn.microsoft.com/en-us/library/saa62613.aspx

Semoga bermanfaat

Answer 3

Mas, kemaren saya coba pake my.setting.islogin awalnya sukses. Tapi knp hari ini saya coba tidak bisa y. Oh iy, sekedar info, sy menggunakan itu bukan buat login tapi saat aplikasi muncul dan ada input box. Mohon pencerahannya kembali mas.

Answer 4

Hallo Arya. Berikut ini saya membuat sebuah aplikasi windows sederhana menggunakan Visual Studio 2012 untuk mendemonstrasikan penggunaan My.Settings untuk login. Saya membuat 2 form dengan nama Login.vb dan MainForm.vb dapat anda lihat pada gambar berikut ini.

MainForm.vb adalah startup form. artinya jika aplikasi di jalankan MainForm.vb adalah form pertama yang akan di tampilkan. Selanjutnya saya menambahkan sebuah properti dengan nama isLogin pada objek My.Settings dengan tipe Boolean dan default value adalah False (lihat gambar di bawah).

Selanjutnya saya menambahkan satu label dan 3 button control pada MainForm dengan nama btnLogout, btnExit dan btnProgrammer (lihat gambar berikut).

adapun tampilan untuk form Login adalah sebagai berikut

Pada form login terdapat 2 textbox dengan nama tbUsername dan tbPassword serta 2 button dengan nama btnOk dan btnCancel.

Selanjutnya, berikut adalah kode pada MainForm.vb

Public Class MainForm

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        Application.Exit()
    End Sub

    Private Sub btnProgrammer_Click(sender As Object, e As EventArgs) Handles btnProgrammer.Click
        MsgBox("Aplikasi ini di buat oleh Cheries Mewengkang" & vbNewLine _
               & "Copyright 2015")
    End Sub

    Private Sub btnLogout_Click(sender As Object, e As EventArgs) Handles btnLogout.Click
        My.Settings.isLogin = False
    End Sub

    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If My.Settings.isLogin = False Then
            Login.ShowDialog(Me)
        End If
    End Sub
End Class

dan berikut adalah kode untuk form Login.vb

Public Class Login

    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub

    Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click
        If Me.tbUsername.Text = "user" And _
            Me.tbPassword.Text = "password" Then
            My.Settings.isLogin = True
            Me.Close()
        End If
    End Sub

    Private Sub Login_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        If My.Settings.isLogin = False Then Application.Exit()
    End Sub
End Class

Pada demo di atas username adalah "user" dan password adalah "password". Silahkan di coba.

Catatan tambahan : menggunkan objek My.Settings untuk menyimpan data sensitif seperti username dan password bukanlah praktek yang baik. Ada baiknya password dan username di simpan pada database (Access, SQL Server, SQL Compact Edition, MySQL dll).