Cara Mengintegrasikan Ms Acces dengan Visual Basic [TUGAS Ane Gan...]

Beranda
Komunitas
Tech
Programmer Forum
Cara Mengintegrasikan Ms Acces dengan Visual Basic [TUGAS Ane Gan...]

rootkit.mab

15-11-2013 09:39

Cara Mengintegrasikan Ms Acces dengan Visual Basic [TUGAS Ane Gan...]

Selamat Datang Gan...di thread yang agak aneh ini.

Spoiler for buat MIMIN:

Sebelumnya saya mohon maaf kepada Mimin tersayang kalo thread ini kayak emoticon-Repost

Ini thread cuman buat Nugas Min...

Disini ane mau menyatukan 2 buah program yang satu keluarga (MS Acces dengan VB 6.0) dengan menggunakan program Sistem Informasi Infentaris.

A. Membuat Table pada Microsoft Acces
1. Membuat database baru
Buatlah tabel di MS Acces yang akan di satukan di VB.
Buka MS Acces pilih Blank Document, terus simpan dg nama Database.mdb

Spoiler for Membuat Database.mdb:

2. Mengganti nama tabel
Ganti nama tabel dengan "admin" caranya: klik kanan di judul tabel > Design View > masukan nama tabel
Tabel ini untuk menampung isi dari form login nanti

Spoiler for Mengganti nama tabel:

3. Memasukan atribut
Masukan atribut dalam tabel admin seperti: id_admin, nama, username, password

Spoiler for Menambah atribut:

4. Membuat tabel baru
Langkah Selanjutnya buat tabel baru caranya: pilih tab Create > Table

Spoiler for Membuat tabel admin:

Terus ganti tabel baru dengan nama "barang" caranya: sama kayak diatas
Tabel ini berisi data-data transaksi yang akan dihitung otomatis

Tambahkan atribut dalam tabel barang seperti: id_barang, nama_barang, tgl_masuk, jumlah, harga_satuan, harga_total

Spoiler for Atribut dari tabel barang:

5. Mengisi data dalam tabel
Sekarang kita menambahkan isi tabel caranya: klik kanan tabel "admin" > Datasheet View

Spoiler for Tampilan datasheet:

Masukan isi tabel terserah agan, kalo saya seperti ini

Spoiler for Isi dari tabel admin:

B. Membuat User Interface di VB
1. Buat kerangka program
Buatlah GUI untuk login seperti gambar ini

Spoiler for Interface login:

Keterangan:
1. Label nama judul
2. Label nama keterangan
3. Label nama total
4. Label nama tanggal
5. TextBox nama txt_pass
6. TextBox nama txt_user
7. TextBox nama txt_brg Multiline True Scrollbar 2
8. TextBox nama txt_jml
9. TextBox nama txt_hrg
10. CommandButton nama btn_login
11. CommandButton nama btn_logout
12. CommandButton nama btn_lihat
13. CommandButton nama btn_isi
14. CommandButton nama btn_clear
15. CommandButton nama btn_submit
16. DataGrid nama data
17. Calendar nama calendar
18. Addodc nama addodc

Catatan 16-18:
Untuk menamah item baru klik kanan Toolbar > Commponents > Centang sesuai keinginan > Apply

Spoiler for Menambah tool baru:

C. Kode Program
Sebelumnya agan buat Module dan Data Evirontment dulu caranya: klik kanan di project box > Add > Masukan kedua item tadi
Masukan kode ini di module

Spoiler for Copas aja gan:

Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset
Public RSdata As New ADODB.Recordset

Sub koneksi()
Set konek = New ADODB.Connection
Set RSdata = New ADODB.Recordset
konek.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DataBase.mdb;Persist Security Info=False"
End Sub

1. Kode untuk tampilan awal (first load)
Agan disini tinggal copas aja caranya: Pilih tab view > Code > Copas kode di bawah gan

Spoiler for Copas aja gan:

Dim total_harga, jml_brg, hrg_brg As Double

'Untuk menyembunyikan semua tool'
Private Sub Form_Load()
total.Visible = False
tanggal.Visible = False
txt_brg.Visible = False
txt_jml.Visible = False
txt_hrg.Visible = False
btn_logout.Visible = False
btn_lihat.Visible = False
btn_isi.Visible = False
btn_clear.Visible = False
btn_submit.Visible = False
data.Visible = False
calendar.Visible = False
addodc.Visible = False
End Sub

Private Sub txt_user_GotFocus()
If txt_user.Text = "username" Then
txt_user.Text = ""
End If
End Sub

Private Sub txt_user_LostFocus()
If txt_user.Text = "" Then
txt_user.Text = "username"
End If
End Sub

Private Sub txt_pass_GotFocus()
If txt_pass.Text = "password" Then
txt_pass.Text = ""
txt_pass.PasswordChar = "*"
End If
End Sub

Private Sub txt_pass_LostFocus()
If txt_pass.Text = "" Then
txt_pass.PasswordChar = ""
txt_pass.Text = "password"
End If
End Sub

Private Sub txt_brg_GotFocus()
If txt_brg.Text = "Nama Barang" Then
txt_brg.Text = ""
End If
End Sub

Private Sub txt_brg_LostFocus()
If txt_brg.Text = "" Then
txt_brg.Text = "Nama Barang"
End If
End Sub

Private Sub txt_jml_GotFocus()
If txt_jml.Text = "Jumlah Barang" Then
txt_jml.Text = ""
End If
End Sub

Private Sub txt_jml_LostFocus()
If txt_jml.Text = "" Then
txt_jml.Text = "Jumlah Barang"
End If
End Sub

Private Sub txt_hrg_GotFocus()
If txt_hrg.Text = "Harga Satuan" Then
txt_hrg.Text = ""
End If
End Sub

Private Sub txt_hrg_LostFocus()
If txt_hrg.Text = "" Then
txt_hrg.Text = "Harga Satuan"
End If
End Sub

2. Kode untuk tombol

Spoiler for Copas aja gan:

'Tombol Login'
Private Sub btn_login_Click()
If conn.State = 1 Then conn.Close
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Persist Security Info=False"

If RS.State = 1 Then RS.Close
RS.Open "select * from admin where username= '" & txt_user.Text & "' And password = '" & txt_pass.Text & "'", conn, 3, 3

If Not RS.EOF Then
MsgBox "Selamat datang di PROGRAM INFORMASI INVENTARIS"

keterangan.Visible = False
total.Visible = True
tanggal.Visible = True
tanggal.Visible = True
txt_pass.Text = "password"
txt_pass.Enabled = False
txt_user.Text = "username"
txt_user.Enabled = False
txt_brg.Visible = True
txt_jml.Visible = True
txt_hrg.Visible = True
btn_logout.Visible = True
btn_login.Visible = False
btn_lihat.Visible = True
btn_isi.Visible = True
btn_clear.Visible = True
btn_submit.Visible = True

ElseIf (txt_user.Text = "username" Or txt_pass.Text = "") Then
MsgBox "Anda Belum Memasukan Username dan Password", vbCritical, "WARNING !!!"
txt_user.SetFocus
Else
MsgBox "Data Salah!", vbCritical, "LOGIN"
txt_user.Text = "username"
txt_pass.Text = "password"
txt_user.SetFocus
End If
End Sub

'Tombol Logout'
Private Sub btn_logout_Click()
txt_user.Enabled = True
txt_pass.Enabled = True
txt_user.SetFocus
txt_brg.Visible = False
txt_brg.Text = "Nama Barang"
txt_jml.Visible = False
txt_jml.Text = "Jumlah Barang"
txt_hrg.Visible = False
txt_hrg.Text = "Harga Satuan"
total.Visible = False
total.Caption = "Total Harga: "
tanggal.Visible = False
tanggal.Caption = "Klik untuk isi tanggal"
keterangan.Visible = True
btn_clear.Visible = False
btn_submit.Visible = False
btn_isi.Visible = False
btn_lihat.Visible = False
btn_logout.Visible = False
btn_login.Visible = True
data.Visible = False
calendar.Visible = False
End Sub

'Tombol Isi'
Private Sub btn_isi_Click()
txt_brg.Visible = True
txt_jml.Visible = True
txt_hrg.Visible = True
total.Visible = True
tanggal.Visible = True
btn_clear.Visible = True
btn_submit.Visible = True
data.Visible = False
End Sub

'Tombol Lihat'
Private Sub btn_lihat_Click()
txt_brg.Visible = False
txt_jml.Visible = False
txt_hrg.Visible = False
total.Visible = False
tanggal.Visible = False
btn_clear.Visible = False
btn_submit.Visible = False
total.Visible = False
data.Visible = True

jumbar = Val(txt_jml.Text)
harbar = Val(txt_hrg.Text)
total = jumbar * harbar

Call koneksi
addodc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Persist Security Info=False"
addodc.RecordSource = "barang"
addodc.RecordSource = "select * from barang"
addodc.Refresh
Set data.DataSource = addodc
data.Refresh
End Sub

'Tombol Clear'
Private Sub btn_clear_Click()
txt_brg.Text = "Nama Barang"
txt_jml.Text = "Jumlah Barang"
txt_hrg.Text = "Harga Satuan"
total.Caption = "Total Harga: "
tanggal.Caption = "Klik untuk isi tanggal"
End Sub

'Tombol Submit'
Private Sub btn_submit_Click()
jumbar = Val(txt_jml.Text)
harbar = Val(txt_hrg.Text)
total = jumbar * harbar

Dim SQLsimpan As String
If (txt_brg.Text = "Nama Barang" Or txt_jml.Text = "Jumlah Barang" Or txt_hrg.Text = "Harga Satuan" Or tanggal = "Klik untuk isi tanggal") Then
MsgBox "Isi Data Dengan Lengkap"
txt_brg.SetFocus

Else
If Not IsNumeric(txt_jml.Text) Then
MsgBox "Masukan Harus Angka"
txt_jml.Text = ""
txt_jml.SetFocus
Exit Sub

If Not IsNumeric(txt_hrg.Text) Then
MsgBox "Masukan Harus Angka!"
txt_hrg.Text = ""
txt_hrg.SetFocus
Exit Sub
End If
End If

Call koneksi
addodc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb;Persist Security Info=False"
addodc.RecordSource = "select * from barang"
addodc.Refresh
addodc.Recordset.AddNew
addodc.Recordset.Fields("nama_barang") = txt_brg.Text
addodc.Recordset.Fields("tgl_masuk") = tanggal.Caption
addodc.Recordset.Fields("jumlah") = txt_jml.Text
addodc.Recordset.Fields("harga_satuan") = txt_hrg.Text
addodc.Recordset.Fields("harga_total") = total.Caption
addodc.Recordset.Update
MsgBox "Data Berhasil Diisi"

txt_brg.Text = "Nama Barang"
txt_jml.Text = "Jumlah Barang"
txt_hrg.Text = "Harga Satuan"
total.Caption = "Total Harga: "
tanggal.Caption = "Klik untuk isi tanggal"
End If
End Sub

3. Kode untuk label

Spoiler for Copas aja gan:

'Menampilkan kalender'
Private Sub tanggal_Click()
calendar.Visible = True
End Sub

'Rumus kalkulasi'
Private Sub total_Click()
jml_brg = Val(txt_jml.Text)
hrg_brg = Val(txt_hrg.Text)
total_harga = jml_brg * hrg_brg
total.Caption = "Total Harga: " & total
End Sub

'Jika di klik akan hilang'
Private Sub calendar_Click()
tanggal.Caption = calendar.Value
calendar.Visible = False
End Sub

Catatan:
Kalo gak jalan coba samain nama variabelnya

D. Jalankan Programnya
Kalo udah di save semua maka jalankan programnya gan emoticon-Smilie

Spoiler for penampakan:

Ane tahu gan ini ribet, jadi silakan download aja sourcenya disini:

Spoiler for link download:

[url]http://www.4*shared.com/zip/lgBQKmYl/LP7_A_1205193_Muhammad_Arif_Bi.html?[/url]

Hapus tanda %2A okeh?!

1.5K

Kutip

Balasan

Guest

Tulis komentar menarik atau mention replykgpt untuk ngobrol seru

Urutan

Terbaru

Terlama

Guest

Tulis komentar menarik atau mention replykgpt untuk ngobrol seru

Komunitas Pilihan