Pemrograman Database Dengan Access

Wawan Adityapratama

Email : wawans57@yahoo.com

 Pin : 29a1822c

 

Database

1.      Buatlah sebuah database dengan menggunakan microsoft access, berinama database barang.

2.      Kemudian buatlah tabel dengan field seperti di bawah ini, dan beri nama tabel tersebut dengan nama tabel barang

3.      Simpan database anda.

Program

1.      Buatlah project baru dengan klik menu file new project kemudian pilih yang Standard EXE

2.      Kemudian tambahkan components Adodc untuk koneksi database dengan cara klik menu project kemudian pilih components. Beri tanda centang pada Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB) seperti gambar di bawah ini kemudian klik tombol OK.

3.      Setelah component adodc dan datagrid ditambahkan, di panel ToolBox yang berada di sebelah kiri layar terdapat icon Adodc dan DataGrid seperti gambar di bawah ini

 

4.      Selanjutnya buatlah form seperti gambar di bawah ini dengan keterangan sebagai berikut :

Control	Property	Setting	Enable
Form	Name	Barang	True
	Caption	Barang
	Border Style	Fixed Single
	Start Up Position	Center Screen
CommandButton	Name	cmdsimpan	False
	Caption	Simpan
CommandButton	Name	cmdbatal	True
	Caption	Batal
CommandButton	Name	cmdupdate	False
	Caption	Update
CommandButton	Name	cmdhapus	False
	Caption	Hapus
CommandButton	Name	cmdKeluar	True
	Caption	Keluar
CommandButton	Name	cmdcari	True
	Caption	Cari
Label	Caption	Entry Data Barang	True
Label	Caption	Id Barang	True
Label	Caption	Nama Barang	True
Label	Caption	Jenis Barang	True
Label	Caption	Produksi	True
Label	Caption	Harga Pokok	True
Label	Caption	Harga Jual	True
Label	Caption	Stok	True
Label	Caption	Data yang dicari	True
Label	Caption	Berdasarkan	True
TextBox	Name	Txt_Id_Barang	True
TextBox	Name	Txt_Nama	False
TextBox	Name	Txt_Jenis	False
TextBox	Name	Txt_Produksi	False
TextBox	Name	Txt_Harga	False
TextBox	Name	Txt_Harga_Jual	False
TextBox	Name	Txt_Stok	False
TextBox	Name	Txt_Cari	True
ComboBox	Name	Txt_Kriteria	True
	List	Nama Barang
		Jenis Barang
		Produksi
Adodc	Name	Adodc1	False
DataGrid	DataSource	Adodc1	True

5.      Kemudian Klik kanan pada component adodc pada form, pilih adodc properties, nanti akan muncul tampilan seperti gambar di bawah ini.

6.      Tekan tombol Build dan akan keluar tampilan seperti di bawah ini. Pilih Connect to Microsoft Jet 4.0 OLE DB Provider. Kemudian tekan tombol next.

7.      Tekan tombol  kemudian pilih lokasi file database yang telah dibuat sebelumnya. Kemudian tekan tombol OK.

8.      Selanjutnya tekan tombol Test Connection untuk melakukan tes koneksi dengan database yang bersangkutan. Jika koneksi berhasil akan muncul dialog box Test Connection Succeeded . Jika Koneksi gagal coba ulangai langkah 7.

9.      Kembali ke Property Adodc. Pilih tab RecordSource dan ketikkan perintah sql select * from petugas  pada Command Text (SQL) seperti gambar berikut ini.

10.  Kemudian buka view code  dengan menekan tombol  yang ada di sebelah kanan atas. Silahkan ketik codenya sebagai berikut :

Private Sub cmdbatal_Click()

‘event ketika tombol batal di klik

‘akan memanggil fungsi kosong dan enable_false

kosong

enable_false

cmdupdate.Enabled = False

cmdhapus.Enabled = False

cmdsimpan.Enabled = False

Adodc1.RecordSource = "select * from barang"

Adodc1.Refresh

End Sub

Private Sub kosong()

‘fungsi ini digunakan untuk mengosongkan textbox

Txt_Id_Barang.Text = ""

Txt_Nama.Text = ""

Txt_Jenis.Text = ""

Txt_Produksi.Text = ""

Txt_Harga.Text = ""

Txt_Harga_Jual.Text = ""

Txt_Stok.Text = ""

End Sub

Private Sub enable_true()

‘fungsi ini digunakan untuk mengaktifkan textbox

Txt_Nama.Enabled = True

Txt_Jenis.Enabled = True

Txt_Produksi.Enabled = True

Txt_Harga.Enabled = True

Txt_Harga_Jual.Enabled = True

Txt_Stok.Enabled = True

End Sub

Private Sub enable_false()

‘fungsi ini digunakan untuk mengunci textbox

Txt_Nama.Enabled = False

Txt_Jenis.Enabled = False

Txt_Produksi.Enabled = False

Txt_Harga.Enabled = False

Txt_Harga_Jual.Enabled = False

Txt_Stok.Enabled = False

End Sub

Private Sub cmdcari_Click()

‘event ketika tombol cari di klik

If Txt_Cari.Text = "" Then

    MsgBox "Masukkan data yang akan dicari"

Else

    If Txt_Kriteria.Text = "Nama Barang" Then

        Adodc1.RecordSource = "select * from barang where nama_barang LIKE '%" & Txt_Cari.Text & "%' "

    ElseIf Txt_Kriteria.Text = "Jenis Barang" Then

        Adodc1.RecordSource = "select * from barang where jenis_barang LIKE '%" & Txt_Cari.Text & "%'"

    ElseIf Txt_Kriteria.Text = "Produksi" Then

        Adodc1.RecordSource = "select * from barang where produksi LIKE '%" & Txt_Cari.Text & "%'"

    Else

        MsgBox "Masukkan Kriteria"

    End If

    Adodc1.Refresh

End If

End Sub

Private Sub cmdhapus_Click()

‘event ketika tombol hapus di klik

Adodc1.Recordset.Delete

cmdbatal.Value = True

End Sub

Private Sub cmdkeluar_Click()

‘event ketika tombol keluar di klik

Unload Me

End Sub

Private Sub cmdsimpan_Click()

‘event ketika tombol simpan di klik

‘maka terjadi pengecekan pada inputan di tiap-tiap textbox

If Txt_Id_Barang.Text = "" Then

    MsgBox "Masukkan id barang"

ElseIf Txt_Nama.Text = "" Then

    MsgBox "Masukkan nama barang"

ElseIf Txt_Jenis.Text = "" Then

    MsgBox "Masukkan jenis barang"

ElseIf Txt_Produksi.Text = "" Then

    MsgBox "Masukkan produksi"

ElseIf Txt_Harga.Text = "" Then

    MsgBox "Masukkan harga pokok"

ElseIf Txt_Harga_Jual.Text = "" Then

    MsgBox "Masukkan harga jual"

ElseIf Txt_Stok.Text = "" Then

    MsgBox "Masukkan Stok"

Else

    ‘jika semua data inputan tidak ada yang kosong maka data akan di simpan di database

    Adodc1.Recordset.AddNew

    Adodc1.Recordset!Id_Barang = Txt_Id_Barang.Text

    Adodc1.Recordset!Nama_Barang = Txt_Nama.Text

    Adodc1.Recordset!Jenis_Barang = Txt_Jenis.Text

    Adodc1.Recordset!Produksi = Txt_Produksi.Text

    Adodc1.Recordset!Harga = Txt_Harga.Text

    Adodc1.Recordset!Harga_Jual = Txt_Harga_Jual.Text

    Adodc1.Recordset!stok = Txt_Stok.Text

    Adodc1.Recordset.Update

    cmdbatal.Value = True

End If

End Sub

Private Sub cmdupdate_Click()

‘event ketika tombol update di klik

‘maka terjadi pengecekan pada inputan di tiap-tiap textbox

If Txt_Id_Barang.Text = "" Then

    MsgBox "Masukkan id barang"

ElseIf Txt_Nama.Text = "" Then

    MsgBox "Masukkan nama barang"

ElseIf Txt_Jenis.Text = "" Then

    MsgBox "Masukkan jenis barang"

ElseIf Txt_Produksi.Text = "" Then

    MsgBox "Masukkan produksi"

ElseIf Txt_Harga.Text = "" Then

    MsgBox "Masukkan harga pokok"

ElseIf Txt_Harga_Jual.Text = "" Then

    MsgBox "Masukkan harga jual"

ElseIf Txt_Stok.Text = "" Then

    MsgBox "Masukkan Stok"

Else

    ‘jika semua data inputan tidak ada yang kosong maka data akan di update di database

   ‘berbeda dengan code untuk simpan jika melakukan update data

    ‘code Adodc1.Recordset.AddNew  tidak ditulis

    Adodc1.Recordset!Nama_Barang = Txt_Nama.Text

    Adodc1.Recordset!Jenis_Barang = Txt_Jenis.Text

    Adodc1.Recordset!Produksi = Txt_Produksi.Text

    Adodc1.Recordset!Harga = Txt_Harga.Text

    Adodc1.Recordset!Harga_Jual = Txt_Harga_Jual.Text

    Adodc1.Recordset!stok = Txt_Stok.Text

    Adodc1.Recordset.Update

    cmdbatal.Value = True

    cmdbatal.Value = True

End If

End Sub

Private Sub DataGrid1_Click()

‘event ketika datagrid di klik

‘maka terjadi pengecekan apakah di datagrid terdapat data

If Adodc1.Recordset.BOF = True And Adodc1.Recordset.EOF = True Then

    MsgBox "data kosong"

Else

            ‘jika terdapat data maka akan ditampilkan di textbox masing-masing

            Txt_Id_Barang.Text = Adodc1.Recordset!Id_Barang

            Txt_Nama.Text = Adodc1.Recordset!Nama_Barang

            Txt_Jenis.Text = Adodc1.Recordset!Jenis_Barang

            Txt_Produksi.Text = Adodc1.Recordset!Produksi

            Txt_Harga.Text = Adodc1.Recordset!Harga

            Txt_Harga_Jual.Text = Adodc1.Recordset!Harga_Jual

            Txt_Stok.Text = Adodc1.Recordset!stok

            cmdupdate.Enabled = True

            cmdhapus.Enabled = True

            enable_true

End If

End Sub

Private Sub Txt_Harga_Jual_KeyPress(KeyAscii As Integer)

‘event ketika terjadi penekanan tombol enter pada txt_harga_jual

‘maka cursor akan mengarah ke txt_stok

If KeyAscii = 13 Then

    Txt_Stok.SetFocus

End If

End Sub

Private Sub Txt_Harga_KeyPress(KeyAscii As Integer)

‘event ketika terjadi penekanan tombol enter pada txt_harga

‘maka cursor akan mengarah ke txt_harga_jual

If KeyAscii = 13 Then

    Txt_Harga_Jual.SetFocus

End If

End Sub

Private Sub Txt_Id_Barang_KeyPress(KeyAscii As Integer)

‘event ketika terjadi penekanan tombol enter pada txt_id_barang

‘maka terjadi pengecekan inputan, jika kosong akan muncul pesan masukkan id barang

If KeyAscii = 13 Then

    If Txt_Id_Barang.Text = "" Then

        MsgBox "masukkan id barang"

    Else

       ‘pengecekan apakah id barang ada di database

        Adodc1.RecordSource = "select * from barang where id_barang='" & Txt_Id_Barang.Text & "'"

        Adodc1.Refresh

       ‘jika ada maka data akan di tampilkan di text box masing-masing

        If Adodc1.Recordset.BOF = False And Adodc1.Recordset.EOF = False Then

            Txt_Nama.Text = Adodc1.Recordset!Nama_Barang

            Txt_Jenis.Text = Adodc1.Recordset!Jenis_Barang

            Txt_Produksi.Text = Adodc1.Recordset!Produksi

            Txt_Harga.Text = Adodc1.Recordset!Harga

            Txt_Harga_Jual.Text = Adodc1.Recordset!Harga_Jual

            Txt_Stok.Text = Adodc1.Recordset!stok

            cmdupdate.Enabled = True

            cmdhapus.Enabled = True

            enable_true

        End If

        ‘jika tidak ada maka tombol simpan akan aktif dan cursor mengarah ke txt_nama

        If Adodc1.Recordset.RecordCount = 0 Then

            cmdsimpan.Enabled = True

            enable_true

            Txt_Nama.SetFocus

        End If

    End If

End If

End Sub

Private Sub Txt_Jenis_KeyPress(KeyAscii As Integer)

‘event ketika terjadi penekanan tombol enter pada txt_jenis

‘maka cursor akan mengarah ke txt_produksi

If KeyAscii = 13 Then

    Txt_Produksi.SetFocus

End If

End Sub

Private Sub Txt_Nama_KeyPress(KeyAscii As Integer)

‘event ketika terjadi penekanan tombol enter pada txt_nama

‘maka cursor akan mengarah ke txt_jenis

If KeyAscii = 13 Then

    Txt_Jenis.SetFocus

End If

End Sub

Private Sub Txt_Produksi_KeyPress(KeyAscii As Integer)

‘event ketika terjadi penekanan tombol enter pada txt_produksi

‘maka cursor akan mengarah ke txt_harga

If KeyAscii = 13 Then

    Txt_Harga.SetFocus

End If

End Sub

Private Sub Txt_Stok_KeyPress(KeyAscii As Integer)

‘event ketika terjadi penekanan tombol enter pada txt_stok

‘maka cursor akan mengarah ke tombol simpan

If KeyAscii = 13 Then

    cmdsimpan.SetFocus

End If

End Sub