form login

Temen-temen semuanya…

Saya mau kasih informasi nich tentang listview..

Kalau kalian semua pada belum ngerti coding yang ada dalam tampilan form ini. Kalian tinggal baca codingnya di bawah ini…

Liat codingnya satu per satu ya teman-teman…

Public Class Form_login

    Private Sub Buttonlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonlogin.Click

        If username.Text = "" Or password.Text = "" Then

            MsgBox("Maaf, Username dan Password harus di isi")

        ElseIf username.Text = "lennisundari" And password.Text = "alforever" Then

            Form3.Show()

            Me.Hide()

        Else

            MsgBox("username / Password salah")

            username.Text = ""

            password.Text = ""

            username.Focus()

        End If

    End Sub

    Private Sub Buttonkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonkeluar.Click

        Me.Close()

    End Sub

End Class

Setelah coding ini kalian ketikkan, langkah selanjutnya tekan F5 lalu muncul deh tampilan loginnya. Kalian selanjutnya ketikkan dalam tampilannya, username yang sesuai dan password yang tepat ya teman-teman.. kalau tidak, maka kalian disuruh ngulangi lagi dech..

Kalau password kalian sudah cocok, klik login lalu akan muncul tampilan seperti ini sob….

 

Nah..

Disitu kan ada tampilannya, dan kita pilih salah satu menu dalam filenya..

Kalau kalian pilih pelanggan, maka akan muncul seperti ini sob..

Coding buat form pelanggan seperti ini sob…

Public Class _30november2013

    Private Sub Buttonkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonkeluar.Click

        Dim A As String

        A = MsgBox("Apakah Anda Yakin Ingin Keluar?", MsgBoxStyle.YesNo)

        If A = vbYes Then

            Me.Close()

        End If

    End Sub

    Private Sub Buttonhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonhapussemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub Buttonhapusitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonhapusitem.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub Buttonhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonhapus.Click

        kodepelanggan.Text = ""

        namapelanggan.Text = ""

        alamat.Text = ""

        notelepon.Text = ""

    End Sub

    Sub rancang_tabel()

        LV.Columns.Add("Kode Pelanggan", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Nama Pelanggan", 100, HorizontalAlignment.Left)

        LV.Columns.Add("Alamat", 100, HorizontalAlignment.Left)

        LV.Columns.Add("No. Telepon", 100, HorizontalAlignment.Left)

        LV.GridLines = True

        LV.FullRowSelect = True

        LV.View = View.Details

    End Sub

    Sub isi_tabel()

        Dim x As New ListViewItem

        x.Text = kodepelanggan.Text

        x.SubItems.Add(namapelanggan.Text)

        x.SubItems.Add(alamat.Text)

        x.SubItems.Add(notelepon.Text)

        LV.Items.Add(x)

    End Sub

    Private Sub _30november2013_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call rancang_tabel()

    End Sub

    Private Sub Buttonsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsimpan.Click

        Call isi_tabel()

    End Sub

    Private Sub kodepelanggan_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kodepelanggan.KeyPress

        If kodepelanggan.Text = "FE 001" Then

            namapelanggan.Text = "Lenni Sundari"

            alamat.Text = "Tanjung Morawa"

            notelepon.Text = "085309098767"

        ElseIf kodepelanggan.Text = "FE 002" Then

            namapelanggan.Text = "Riki Sudirman"

            alamat.Text = "Ujung Batu"

            notelepon.Text = "081263989897"

        ElseIf kodepelanggan.Text = "FE 003" Then

            namapelanggan.Text = "Indah Lestari"

            alamat.Text = "Lubuk Pakam"

            notelepon.Text = "081950508970"

        ElseIf kodepelanggan.Text = "FE 004" Then

            namapelanggan.Text = "Rini Astuti"

            alamat.Text = "Marendal"

            notelepon.Text = "085267789097"

        ElseIf kodepelanggan.Text = "FE 005" Then

            namapelanggan.Text = "Muhammad Shodiq"

            alamat.Text = "Sm. Raja"

            notelepon.Text = "087890909897"

        End If

    End Sub

End Class

Kalian ketik aja kode pelanggan yang sesuai di dalam tampilan tersebut. Kalau sudah selesai, pasti akan muncul deh dibawahnya. Lalu kalian simpan di dalam tampilan listviewnya friends…

Nich tampilan penyimpanan di dalam listviewnya..

Sampai sini dulu ya belajarnya friends…

Semoga informasi ini dapat bermanfaat untuk kita semua…