Login

Membuat form login di VB.Net 2008

Anda pasti tahu kegunaan Form Login, kira-kira untuk melakukan authentication terhadap user yang hendak menggunakan suatu aplikasi. Kali ini kita akan membuat Login Form, pertama-tama siapkan di MySQL sebuah database testing dan tabel bernama dt_user. Kurang lebih berikut penampakan tbl_user.

Buat juga 1 form yang akan dituju bila proses login berhasil. Tampilan form tersebut bebas saja. Berikut adalah kode untuk proses login yang akan kita gunakan :

Public Class Login

    Dim sql As String = "SELECT * from dt_user"

    Dim table As New DataTable

    Sub Awal()

        cmdENTER.Enabled = True

        cmdENTER.Text = "ADD"

    End Sub

    Private Sub Bersih()

        Me.txtPass.Text = ""

        Me.txtUser.Text = ""

    End Sub

    Private Sub cmdLOGIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdENTER.Click

        Dim sql As String = "SELECT * FROM dt_user where user_name = '" & txtUser.Text & "' and password = '" & txtPass.Text & "'"

        Try

            buka_db()

            With cmd

                .CommandText = sql

                .Connection = db

                .ExecuteNonQuery()

            End With

            SPPD.Show()

        Catch ex As Exception

            MsgBox("Maaf, User dan Password Salah")

        End Try

    End Sub

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

        Dim pindah As Integer = Asc(e.KeyChar)

        If txtUser.Text = "" Then

            'MsgBox("Data Tidak Boleh Kosong")

            txtUser.Text = ""

            txtUser.Focus()

        End If

    End Sub

   

    End Sub

End Class

About Me

About Me

Name              : Silvy Wardatul Kamilah

TTL                  : Banyuwangi, 09 Desember 1995

Address          : Jl. Sudirman No.14 Bajulmati, Wongsorejo, Banyuwangi

Pendidikan     : Amik Ibrahimy

Konsentrasi     : Programming

Program If pada VB.Net

Cara Membuat Program Beberapa If pada VB.Net. 
Program beberapa IF merupakan program yang di dalam intruksi programnya terdapat beberapa intruksi If. Langkah-langkah membuatnya sebagai berikut:
1. Desain Form sedemikian rupa hingga seperti contoh dibawah ini.

Membuat Program Beberapa If pada VB.Net

2. Lalu tambah kan kode listing dibawah ini pada form tersebut diatas.
Public Class Beberapa_If
Private Sub btnMulai_Click(sender As Object, e As EventArgs) Handles btnMulai.Click
txtQty.Text = ” ”
txtHarga.Text = ” ”
txtJml.Text = ” ”
txtDiskon.Text = ” ”
txtBayar.Text = ” ”
txtQty.Focus()
End Sub
Private Sub btnSelesai_Click(sender As Object, e As EventArgs) Handles btnSelesai.Click
End
End Sub
Private Sub btnHitung_Click(sender As Object, e As EventArgs) Handles btnHitung.Click
Dim mdis As Double
txtJml.Text = Val(txtQty.Text) * Val(txtHarga.Text)
If txtJml.Text > 1000000 Then
mdis = txtJml.Text * 0.3
txtDiskon.Text = mdis
rb30.Checked = True
Else
If txtJml.Text > 500000 Then
mdis = txtJml.Text * 0.2
txtDiskon.Text = mdis
rb20.Checked = True
Else
If txtJml.Text > 100000 Then
mdis = txtJml.Text * 0.1
txtDiskon.Text = mdis
rb10.Checked = True
Else
mdis = txtJml.Text * 0
txtBayar.Text = mdis
End If
End If
End If
txtBayar.Text = txtJml.Text – mdis
End Sub
End Class
3. Lau Run Project dan ketikkan pada kolom banyak barang = 3 dan harga barang = 180.000.

Membuat Program Beberapa If pada VB.Net

4. Lalu Klik tombol Hitung maka Jumlah, Diskon, Bayar dan Persen diskon akan otomatis terpilih.

Membuat Program Beberapa If pada VB.Net

5. Klik Tombol Mulai lalu Textbox akan merefresh dengan memanggil form dengan Textbox kosong dan siap untuk input data baru.

Membuat Program Beberapa If pada VB.Net

Datagridview

Cara menampilkan Data dari Database ke Datagridview pada VB.Net

 Listview dan Datagridview pada VB.Net tampilannya bisa dikatakan hampir sama. Tetapi Programer-programer sering menggunakan Datagridview daripada menggunakan Listview. Pada artikel kali ini akan coba membagikan bagaimana Cara Menampilkan Data dari Database ke Datagridview pada VB.Net sehingga program bisa berjalan sesuai dengan keinginan kita.

Cara Menampilkan Data dari Database ke Datagridview pada VB.Net

Pertama kita buat databasenya jangan lupa dengan tabelnya. Baiklah langsung saja, untuk mengikuti Tutorial kali ini anda butuh terlebih dahulu Cara Membuat Modul Koneksi Mysql Database pada VB.Net, kalo agan” ingin membuat Cara Menampilkan Data dari Database ke Datagridview pada VB.Net. Mungkin coding yang ane kasih bisa bantu, langsung saja ane kasih listingnya :
Sub Tampilgrid()
Call cekkoneksi()
sqlAdapter = New MySqlDataAdapter(“select * from barang ” & paramCari, sConnection)
Ds = New DataSet
sqlAdapter.Fill(Ds, “barang”)
DGV.DataSource = Ds.Tables(“barang”)
DGV.ReadOnly = True
End Sub
Sub AturDgv()
Try
DGV.Columns(0).Width = 100
DGV.Columns(1).Width = 400
DGV.Columns(2).Width = 180
DGV.Columns(3).Width = 120
DGV.Columns(4).Width = 120
DGV.Columns(5).Width = 120
DGV.Columns(6).Width = 180
DGV.Columns(0).HeaderText = “Kode Barang”
DGV.Columns(1).HeaderText = “Nama Barang”
DGV.Columns(2).HeaderText = “Harga Jual”
DGV.Columns(3).HeaderText = “Diskon”
DGV.Columns(4).HeaderText = “Stock”
DGV.Columns(5).HeaderText = “Retur”
DGV.Columns(6).HeaderText = “Harga Beli”
Catch ex As Exception
End Try
End Sub
Private Sub FormUtama_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Call cekkoneksi()
Call Tampilgrid()
Call AturDgv()
End Sub

Koneksi Database Dengan Module VB.Net 2008

 Membuat Koneksi Database Dengan Module. Tampilan Tutorila kita sebelumnya adalah seperti gambar dibawah :

Pada Solution Explorer hanya terdapat Form Menu Utama, langkah berikutnya menambahkan Module.
Klik Project - Add Module...

Klik Add

Setelah Klik Add, masukan Koding dibawah ini pada Module1

Dengan Koding diatas, Anda telah sukses membuat Koneksi Database dengan Module, untuk mengetesnya silahkan ikuti Tutorial berikutnya untuk membuat Form Login Dengan VB 2008

MySQL

 MySQL adalah sebuah sistem manajemen database. Database adalah sekumpulan data yang terstruktur. Data-data itu dapat suatu daftar belanja yang sangat sederhana sampai ke galeri lukisan atau banyaknya jumlah informasi pada jaringan perusahaan. Untuk menambah, mengakses dan memproses data yang tersimpan pada database komputer, kita membutuhkan manajemen database seperti MySQL. MySQL merupakan database yang sangat cepat, dapat diandalkan dan mudah untuk digunakan. Jika hal itu yang anda cari maka anda harus mencobanya. Selain itu, source programnya pun dapat anda dapatkan secara gratis dan syntax-syntaxnya mudah untuk dipahami dan tidak rumit serta pengaksesan database dapat dilakukan dengan mudah dan cepat.
                                              

a.     SQL dasar ambil data

SELECT * FROM namatabel WHERE kondisi ORDER BY namafield

b.       Tambah data

INSERT INTO namatabel (field_1, field_2, …, field_n) VALUES (nilai_1, nilai_2, …, nilai_n) WHERE kondisi

c.        Hapus data

DELETE FROM namatabel WHERE kondisi

d.       Perbarui data

UPDATE namatabel SET kolom_1=nilai_1, kolom_2=nilai_2, kolom_n=nilai_n WHERE kondisi[1].

MySQL memiliki beberapa keistimewaan, antara lain :

1)         Portabilitas. MySQL dapat berjalan stabil pada berbagai sistem operasi seperti Windows, Linux, FreeBSD, Mac Os X Server, Solaris, Amiga, dan masih banyak lagi.

2)         Perangkat lunak sumber terbuka. MySQL didistribusikan sebagai perangkat lunak sumber terbuka, dibawah lisensi GPL sehingga dapat digunakan secara gratis.

3)         Multi-user. MySQL dapat digunakan oleh beberapa pengguna dalam waktu yang bersamaan tanpa mengalami masalah atau konflik.

4)         'Performance tuning', MySQL memiliki kecepatan yang menakjubkan dalam menangani query sederhana, dengan kata lain dapat memproses lebih banyak SQL per satuan waktu.

5)         Ragam tipe data. MySQL memiliki ragam tipe data yang sangat kaya, seperti signed / unsigned integer, float, double, char, text, date, timestamp, dan lain-lain.

6)         Perintah dan Fungsi. MySQL memiliki operator dan fungsi secara penuh yang mendukung perintah Select dan Where dalam perintah (query).

7)         Keamanan. MySQL memiliki beberapa lapisan keamanan seperti level subnetmask, nama host, dan izin akses user dengan sistem perizinan yang mendetail serta sandi terenkripsi.

8)         Skalabilitas dan Pembatasan. MySQL mampu menangani basis data dalam skala besar, dengan jumlah rekaman (records) lebih dari 50 juta dan 60 ribu tabel serta 5 milyar baris. Selain itu batas indeks yang dapat ditampung mencapai 32 indeks pada tiap tabelnya.

9)         Konektivitas. MySQL dapat melakukan koneksi dengan klien menggunakan protokol TCP/IP, Unix soket (UNIX), atau Named Pipes (NT).

10)      Lokalisasi. MySQL dapat mendeteksi pesan kesalahan pada klien dengan menggunakan lebih dari dua puluh bahasa. Meski pun demikian, bahasa Indonesia belum termasuk di dalamnya.

11)      Antar Muka. MySQL memiliki antar muka (interface) terhadap berbagai aplikasi dan bahasa pemrograman dengan menggunakan fungsi API (Application Programming Interface).

12)      Klien dan Peralatan. MySQL dilengkapi dengan berbagai peralatan (tool)yang dapat digunakan untuk administrasi basis data, dan pada setiap peralatan yang ada disertakan petunjuk online.

13)      Struktur tabel. MySQL memiliki struktur tabel yang lebih fleksibel dalam menangani ALTER TABLE, dibandingkan basis data lainnya semacam PostgreSQL ataupun Oracle