Tutorial
Membuat aplikasi Login
Di harapkan membaca dengan teliti dan jangan lewatkan 1 kalimat pun...!!!!
1. Buka aplikasi Microsoft Visual Studio 2005 (VB.NET)
2. Setelah membuka maka akan tampil gambar seperti di bawah ini: Pilih file > New > Project Ctrl+shift+N)
3. Perhatikan gambar panah di bawah ini. NOTE :Name adalah nama project yang kita buat, sedangkan Location itu tempat kita menyimpan folder project,
4. Pilih atau Klick browse , maka akan tampil seperti gambar di bawah ini. lalu pilih Open
5. Pilih atau Klick View > Toolbox >klick autohide
6. - Perhatikan gambar dan tabel di bawah ini :
- Form tersebut berkaitan dengan toolbox sebagai gambar tampilan, properties sebagai pemanngil coding.
Berikut tabel yang menunjukan keterangan gambar form diatas :
No.
|
Toolbox
|
Properties
|
1.
|
Klick form
|
ð
Name : Login
|
ð
Text : FormLogin
|
||
2.
|
Label
|
ð
Name : Label1
|
ð
Text : LOGIN
|
||
3.
|
Groupbox
|
ð
Name : GroupBox1
|
ð
Text : Masukkan UserName dan Password
|
||
4.
|
Textbox
|
ð
Name : txtuser
|
ð
Text : (kosongkan)
|
||
5.
|
Textbox
|
ð
Name : txtPass
|
ð
Text :
(kosongkan)
|
||
6.
|
Button
|
ð
Name:txtcancel
|
ð
Text : CANCEL
|
||
7.
|
ProgressBar
|
ð
Name : ProgressBar1
|
-
|
||
8.
|
Label
|
ð
Name : lblloading
|
ð
Text : lblloading
|
||
9.
|
Button
|
ð
Name : btnlogin
|
ð
Text : LOGIN
|
||
10.
|
Label
|
ð
Name : Label3
|
ð
Text : Paassword
|
||
11.
|
Label
|
ð
Name : Label4
|
ð
Text : USERNAME
|
7. Tambahkan fungsi 2 timer untuk menjalankan progressBarr.
8. Lalu tekan tombol F5 (Start Debugging ). untuk melihat tampilan aplikasi yang kita buat. sampai tahap ini sepenuh nya belum selesai. di sini kita memerlukan , coding dan database untuk memperlengkapi aplikasi ini.
9. Disini kita membuat database menggunakan aplikasi Microsoft Office Acces, Yang saya gunakan adalah Microsoft Office Acces 2007.
10. Buka Microsoft Office Acces 2007. klick atau pilih Blank database > ubah nama menjadi dbgaji> klick gambar folder>pilih penyimpanan database di folder LOGIN yang di awal kita buat tadi > klick folder windowsaplication1>folder bin>OK. setelah itu kita pilih create.
11. Klick View pada Ms.acces ubah table dengan klick view . ubah menjadi LOGIN.
12. Klick kanan LOGIN:Table > Pilih Design View.
Ubah ID menjadi UserName menggunakan DataType:Text. dan di kolom bawah nya tambahkan Password. Tampilan akan seperti gambar di bawah ini. >Close Ms.acces
13. Masuk ke aplikasi Microsoft visual studio /Vb.Net tadi. klick project >pilih add windwos form.
tambahkan label di form 2. ketik lah di properties>Text>Selamat Datang.
14. Setelah itu kita buat module nya terlebih dahulu. untuk memanggil database yang kita buat. agar di kaitkan dengan coding/code pemanggil database. cara nya yaitu : Pilih Project >pilih add module. >klick 2x module. ketiklah coding di bawah ini :
--------------------------------------------------------------------------------------------------------------------
Imports System.Data.OleDb
Module Module1
Public myCn As New OleDbConnection
Dim strconnection As String
Public Sub bukaKoneksi()
strconnection = "provider=microsoft.jet.OLEDB.4.0;data source=" & _
Application.StartupPath & "\dbgaji.mdb;"
myCn = New OleDbConnection(strconnection)
If myCn.State <> ConnectionState.Closed Then
myCn.Close()
End If
myCn.Open()
End Sub
End Module
----------------------------------------------------------------------------------------------------------------------
15. Klick atau pilih form1. klick kanan form1
Coding di Form1:
----------------------------------------------------------------------------------------------------------------
Imports System.Data.OleDb
Imports System.Data
Public Class From1
Private Sub From1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
bukaKoneksi()
bersih()
btncancel.Text = "CANCEL"
txtuser.Focus()
End Sub
Private Sub bersih()
txtuser.ResetText()
txtPass.ResetText()
End Sub
Private Sub btnlogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnlogin.Click
Try
Dim login As OleDb.OleDbDataAdapter
login = New OleDb.OleDbDataAdapter("SELECT * LOGIN WHERE Password='" & txtPass.Text & "'", Module1.myCn)
Dim dt As New DataTable
dt.Clear()
login.Fill(dt)
If dt.Rows.Count = 0 Then
MsgBox("User Name dan Password tidak terdaftar ")
bersih()
txtuser.Focus()
Exit Sub
End If
Dim dr As DataRow
For Each dr In dt.Rows
If txtPass.Text = dr("password") Then
MsgBox("Selamat Datang" & _
vbCrLf & txtuser.Text & vbCrLf & "Tekan OK untuk masuk", _
MsgBoxStyle.OkOnly)
Timer1.Enabled = True
End If
Next dr
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information)
End Try
End Sub
Private Sub btncancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btncancel.Click
Dim ask As String
ask = MsgBox("Apa anda mau keluar?", MsgBoxStyle.OkCancel, "Mau Keluar")
If ask = vbOK Then
Application.Exit()
End If
End Sub
Private Sub txtPass_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPass.KeyPress
If e.KeyChar = Chr(13) Then
Me.btnlogin.Focus()
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value += 2
If ProgressBar1.Value <= 50 Then
lblloading.Text = "Loading..."
ElseIf ProgressBar1.Value <= 70 Then
lblloading.Text = "Please Wait..."
End If
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
Me.Hide()
Dim a As New Form2
a.Show()
End If
End Sub
End Class
------------------------------------------------------------------------------------------------------------------
16. Tekan f5. masukkan id dan password anda. lalu klick login... maka akan masuk ke form 2 dan
Selesai.... Semoga bermanfaat guys... !!! ☺☺☕☕
0 comments:
Post a Comment