Rizq Technology – Exploring Your iDea.

Let’s make this VB more useful, kita akan coba menggunakan SELECTION pada Visual Basic.

Case: Kita membuat 3 Form.

form 1 di gunakan utk login user

form 2 adalah interface login user

from 3 adalah hasil dari validasi user yang sudah login.

=> pertama kita membuat form utk user menentukan utk “Login atau End”

=> Kedua kita tampilkan interface Login user

=> Ketiga jika validasi di langkah kedua BENAR, maka form ketiga akan di tampilkan.

Source Code Form 1 :

Private Sub Command1_Click()
If Text1.Text = "rizq" And Text2.Text = "basic" Then
Image1.Visible = True
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
MsgBox "User dan Password Anda benar"
ElseIf Text1.Text = "rizq" And Text2.Text <> "basic" Then
Image1.Visible = True
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
MsgBox "User Anda Benar, Password Anda salah"
ElseIf Text1.Text <> "rizq" And Text2.Text = "basic" Then
Image1.Visible = False
Text1.Enabled = False
Text2.Enabled = False
Command1.Enabled = False
MsgBox "User Anda Benar, Password Anda salah"
Else
MsgBox "User nama dan Passwordnya Salah !"
Text1.Text = ""
Text2.Text = ""

End If
End Sub

Private Sub Form_Activate()
Text1.SetFocus
Image1.Visible = False

End Sub

Private Sub Image1_Click()

End Sub

SCREENSHOT BELOW :

form1 di bawah ini menggunakan image utk menampilkan jika – LOGIN USER berhasil. dan jika PROGRAM baru di RUN, gambar tersebut tidak tampil, Gambar baru tampil setelah data yg di masukan VALID.

SOURCE CODE form 2 :

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form1.Show
Form2.Enabled = False
Form3.Visible = False

End Sub

Private Sub Form_Load()

End Sub

SCREENSHOOT BELOW :

ini adalah form pertama yang akan di TAMPILKAN jika RUN program ini. Jika anda meng-klik END programp langsung di Terminate / Tutup, Jika anda klik LOGIN, maka program akan di arah kan pada form 1 yaitu form interface login user.

=> Source Code form 3.

Private Sub Form_Load()

End Sub

SCREENSHOOT BELOW :

ini adalah form KOSONG tanpa ada atribut/property yg di taruh di dalam-nya. ini hanya pembuktian JIKA LOGIN user berhasil maka form ini akan muncul.

Jika kita sudah membuat semua form tsb beserta attribut dan code-code-nya. Jalankan Program TSB.

SCREENSHOOT BELOW :

Souce Code Download HERE.

• Follow us on Twitter, or subscribe to the rizqtech RSS Feed for more daily web development and articles.

Enjoy this Post!

Related Post

• Aplikasi Sederhana ODBC Visual Basic (Part 2).
• Visual Basic#2