TUTORIAL PEMBUATAN PROGRAM PERSEDIAAN BARANG YANG DIKONEKSIKAN DENGAN DATABASE MENGGUNAKAN ADODC DAN DATAGRID

Sebelumnya Assalamuallaikum wr.wb

        Tutorial ,disini saya akan sedikit memberikan wawasan kepada para pengunjung. Untuk itu saya membuat TUTORIAL yang sangat simple dan mudah dipahami oleh yang masih baru belajar. Untuk membuat Program Persediaan barang yang harus anda butuhkan adalah :
1. Aplikasi Visual Basic 6.0
2. Database ( menggunakan Microsoft Acces )
3. dan yang terakhir Kemauan untuk bisa

      Pada kesempatan kali ini saya akan sedikit menjelaskan gambaran bagaimana Program Persediaan barang itu, yang pertama diProgram yang akan kita buat ada berbagai fitur :
1. Simpan , berguna untuk menyimpan data kedatabase.
2. Hapus , berguna untuk menghapus data yang ditandai / yang ingin anda hapus.
3. Ubah , untuk mengubah data atau bisa dikatakan memperbaharui data.
4. Tambah , berguna untuk menginputkan atau menambahkan data yang ingin kita tambahkan      
kedalam program
5. Keluar , Sebagai tombol untuk keluar dari Program.

Ini adalah Tutorial yang paling mudah dan Simple Anda dapat .
Mendapatkan Program' nya di Link Download

LANGKAH PEMBUATAN PROGRAM

1.Pertama – tama Kita harus mempersiapkan Bahan – Bahan yang perlu digunakan :

1.Microsoft Visual Basic 6.0 Enterprise Edition

2. Selanjutnya Form, yang akan digunakan untuk membuat dasar suatu program. Untuk membuatnya seperti dibawah ini: Click File => Standart EXE Kemudian click Open

3. Sebelumnya disarankan untuk membuat database terlebih dahulu seperti dibawah ini :

Jangan lupa simpan Database diatas dengan nama Persediaan barang.mbd ( menggunakan format Acces 2002-2003 ) dan dijadikkan satu dengan program yang akan dibuat

4. Dasar Pembuatan Program , bahan – bahan yang di gunakkan sebagai berikut :

Dasar Pembuatan Program

1.Label ( jumlah 6 )

2.ComandBottom ( jumlah 5 )

3.ComboBox ( jumlah 1 )

4.DataGrid ( jumlah 1 )

5.Adodc ( jumlah 1 )

Khusus untuk DataGrid dan Adodc  , Kita harus    menambahkan dulu di ToolBox dengan cara:

Click Ctrl + T => Kemudian pilih Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB) => Click Apply  dan Ok

Penempatan dari Dasar Pembuatan Program

5.Mengoneksikan Database ke Program yang tadi di buat menggunakan Adodc :

Click Kanan Adodc => ADODC Property

Click  Use Koneksi Stringth => Build

Pilih Microsoft Jet 4.0 OLE DB Provider Setelah memilih itu, Kemudian Click Next

Selanjutnya Pilih Tempat penyimpanan ,Sebagai pencari Database agar dapat terkoneksi dengan program tadi melalui DataGrid yang telah dibuat :

Setelah anda menamabahkan Database ,kemudian Click Test Conecction => Ok Selanjutnya Apply => Click Ok 

Click DataGrid => Cari DataResource dan isikan = Adodc1. 

Kemudian Click Adodc =>Cari RecordSource dan Click  tombol … lalu anda akan masuk di :

Click  Command Type dan ganti menjadi  2-adCmdTable , kemudian Table or Stored Procedure Name dan ganti menjadi Barang. Kemudian setelah proses tersebut Click Apply dan Ok

6. Mengganti Nama dan Memberikkan Coding di Program Dengan Cara :

Cara mengganti  di Property:

•Click Form1         => Caption => ganti  “Persediaan Barang”

•Click Label  1       => Caption => ganti  “Cari”

•Click Label  2       => Caption => ganti  “Kode Barang”

•Click Label  3       => Caption => ganti  “Nama Barang”

•Click Label  4       => Caption => ganti  “Jumlah Barang”

•Click Label  5       => Caption => ganti  “Satuan”

•Click TextBox 1-5 =>   Text   => ganti (KOSONGKAN)

•Click ComboBox   =>   Text    => ganti “Pilihan”

•Click Command 1 => Caption => ganti “SIMPAN”

•Click Command 2 => Caption => ganti “HAPUS”

•Click Command 3 => Caption => ganti “UBAH”

•Click Command 4 => Caption => ganti “ TAMBAH”

•Click Command 5 => Caption => ganti “KELUAR” 

Memberikkan Codding kedalam Program

A. Click View Code dan Ketikkan Coding dibawah ini kedalam Text 1 :

Private Sub Text1_Change()

If Combo1 = "KodeBarang" Then

Adodc1.RecordSource = "select *from Barang where left (KodeBarang,13) like '%" & Text1.Text & "%'"

Adodc1.Refresh

Else

Adodc1.RecordSource = "select *from Barang where left (NamaBarang,20) like '%" & Text1.Text & "%'"

Adodc1.Refresh

End If

End Sub

B. Masukkan Coding ini di Command1/simpan :

Private Sub Command1_Click()
 If (Text1.Text <> "") And (Text2.Text <> "") And (Text3.Text <> "") Then
With Adodc1.Recordset
If MsgBox("Record pada table masih kosong", vbSystemModal + vbYesNo + vbQuestion, "Kepastian") = vbYes Then
Adodc1.Recordset.Save
End If
.Fields(0) = Text2.Text
.Fields(1) = Text3.Text
.Fields(2) = Text4.Text
.Fields(3) = Text5.Text
End With
End If
End Sub

C. Masukkan Codding dan ketikkan di Command 2/ hapus:

Private Sub Command2_Click()
 If MsgBox("Apa anda yakin ??? Anda akan menghapus file yang ditandai!!", vbSystemModal + vbYesNo + vbQuestion, "Kepastian") = vbYes Then
Adodc1.Recordset.Delete
End If
End Sub

D. Masukkan Codding dan Ketikkan di Command3/ubah:

Private Sub Command3_Click()
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub

E. Masukkan Codding dan Ketikkan di Command4/tambah:

Private Sub Command4_Click()
If (Text2.Text <> "") And (Text3.Text <> "") And (Text4.Text <> "") And (Text5.Text <> "") Then
Adodc1.Recordset.AddNew
Adodc1.Recordset!KodeBarang = Text2
Adodc1.Recordset!NamaBarang = Text3
Adodc1.Recordset!Jumlah = Text4
Adodc1.Recordset!Satuan = Text5
Adodc1.Recordset.Update
Else
MsgBox "Mohon Diisi dengan Lengkap", vbCritical, "Peringatan"
End If
End Sub

F. Masukkan Codding dan Ketikkan di Commad5/Keluar:

Private Sub Command5_Click()
S = MsgBox("Anda Mau Keluar!!! Baiklah, Terima Kasih :D .. Pilih Option Yes ", vbQuestion + vbYesNo, "KELUAR")
If S = vbYes Then
End
End If
End Sub

G. Masukkan Codding dan Ketikkan di Combo1/Pilihan:

Private Sub Combo1_Click()
If Combo1.ListItems.Count <> 0 Then
   Call OpenTable("SELECT * FROM [barang] WHERE kd_brg='" & Combo1.ListItems.Item(Combo1.SelectedItem.Index).Text & "'", rsRS)   
        With rsRS
           If Not .EOF Then
              Call Tampilkan
          End If
        End With  
Me.Command2.Enabled = True
Me.Command3.Enabled = True
Me.Text1.Text = ""
End If
End Sub

H. Masukkan Codding dan Ketikkan di Form1/Persediaan Barang:

Private Sub Form_Load()
Combo1.AddItem "KodeBarang"
Combo1.AddItem "NamaBarang"
End Sub

Jika anda masih bingung , tenang saja jangan khuwatir :D
Saya sudah bikin Video Tutorial'nya yang berminat anda bisa download di (Link  Download)

monggo

Semoga Postingan yang saya buat kali ini bisa dapat membantu teman-teman. Jikalau ada yang ditanyakan bisa kirim lewat gmail : "budikusmiantoro@gmail.com"

SELAMAT MENCOBA : ByNICE_GUYS

Jangan lupa untuk like post dan komen ya :D. Terima Kasih Sudah berkunjung di Blog-OSIS ini. "JIKA ANDA MEMILIKI KEMAUAN DAN USAHA , DISITULAH KEBERHASILAN MUNCUL."