SOURCE CODE MEMBUAT FORM LOGIN
BeberaPa cOntoh Cara Pembuatan Form Login
Pertama yaNg hArus disiaPin adaLah :
1.koMpuTEr LengkaP dengan sOFtwaRe VB...hehehe
2.cemiLan..tAkut kaLo Laper
3.keTik Listing iNi...
4.obJek2nya teLaah sendiRi yah... :)
coNtoh 1.
agAk Ribet neH
Dim tes As String
On Error GoTo salah
'menentukan Password
Data1.Recordset.Index = "NAMA"
Data1.Recordset.Seek "=", txtusername
'jika txtpass tidak sesuai dengan isian di Field NIK
If Data1.Recordset!NIK <> txtpass Then
MsgBox "DATA ANDA TIDAK DITEMUKAN !!!", vbOKOnly, "SMA 113 JAKARTA"
txtusername.Enabled = True
txtusername = ""
txtusername.SetFocus
'untuk menampung jumlah kesalahan
salah = salah + 1
If salah = 1 Then
MsgBox "bla bla bla"
Else
If salah = 2 Then
MsgBox "bla bla bla"
Else
End
End If
End If
Else
'jika jenis user bukan USER / Jenisnya ADMINISTRATOR
If Data1.Recordset!JENIS_USER <> "USER" Then
MsgBox "bla bla bla"
Me.Hide
MenuuTama.Show
MenuuTama.mnufile.Visible = True
MenuuTama.mnulaporan.Visible = True
MenuuTama.mnupembuat.Visible = True
'untuk memainkan sebuah Lagu
tes = sndPlaySound(App.Path + "\test.wav", (&H1 Or &H8))
'untuk menutup agent yang ada
With Agent1
.Connected = True
.Characters.Character("merlin").StopAll
.Characters.Unload "merlin"
End With
Else
NamaAdmin = txtusername.Text '==> menampung nama admin
MsgBox "bla bla bla"
Me.Hide
MenuuTama.Show
MenuuTama.mnufile.Visible = False
MenuuTama.mnulaporan.Visible = True
MenuuTama.mnupembuat.Visible = False
'sama kaya diatas deh pokoknya
tes = sndPlaySound(App.Path + "\test1.wav", (&H1 Or &H8))
With Agent1
.Connected = True
.Characters.Character("merlin").StopAll
.Characters.Unload "merlin"
End With
End If
End If
Exit Sub
salah:
MsgBox "bLa bLA bLA"
ismasuk.Enabled = True
salah = salah + 1
If salah = 1 Then
MsgBox "bLa bLa bLa"
Else
If salah = 2 Then
MsgBox "bLa bLA bLA"
Else
End
End If
End If
txtusername.Enabled = True
txtusername.SelStart = 0
txtusername.SelLength = Len(txtusername.Text)
txtusername.SetFocus
txtpass.Enabled = False
Agent1.Characters.Character("Merlin").Play ("Greet")
Agent1.Characters.Character("Merlin").Play ("explain")
Agent1.Characters.Character("Merlin").Speak ("MASUKAN PASSWORD DAN USERNAME ANDA . . . KEMUDIAN KLIK MASUK !!!")
Agent1.Characters.Character("Merlin").Play ("Processing")
'End If
txtusername.Text = NamaAdmin
End Sub
cOntoh 2.
yaNg gamPang
On Error GoTo salah
If txtpassword = "" Or txtusername = "" Then
MsgBox "Data Harus Diisi", vbInformation, "Info"
txtusername.SetFocus
Else
Data1.Recordset.Index = "kode"
Data1.Recordset.Seek "=", txtusername
If Data1.Recordset!Password <> txtpassword Then
MsgBox "Data Anda Tidak Ditemukan", vbInformation, "Informasi"
salah = salah + 1
If salah = 1 Then
MsgBox "Kesempatan Anda TinggaL 2x Lagi", vbInformation, "Info"
Else
If salah = 2 Then
MsgBox "Kesempatan Anda TinggaL 1x Lagi", vbInformation, "Info"
Else
End
End If
End If
Else
If Data1.Recordset!jenis <> "USER" Then
Me.Hide
FrmMenuUtama.Show
FrmMenuUtama.mnufile.Enabled = True
Else
Me.Hide
FrmMenuUtama.Show
FrmMenuUtama.mnufile.Enabled = False
End If
End If
Exit Sub
salah:
MsgBox "Data Anda Tidak Ditemukan", vbInformation, "Informasi"
salah = salah + 1
If salah = 1 Then
MsgBox "Kesempatan Anda TinggaL 2x Lagi", vbInformation, "Info"
Else
If salah = 2 Then
MsgBox "Kesempatan Anda TinggaL 1x Lagi", vbInformation, "Info"
Else
End
End If
End If
End If
End Sub
seMoga daPat di mengerti yah kawaN...
