Artikel Terkait Tutorial VB6
Cara Membuat Form Data Input Lengkap dengan Tombol Tambah, Simpan, Hapus dan Ubah dengan VB6 - Selamat pagi para pencinta tip dan trik visual basic semua, pada pertemuan kali ini kami ingin membagikan bagaimana membuat form Data input lengkap dengan tombol Tambah, Simpan, Ubah dan Hapus dengan mudah. Dalam contoh ini kami menngunakan tabel Supplier.
Membuat program inputan data untuk sebuah aplikasi terutama yang berhubungan data konsumen maka kita harus membuatnya secara lengkap yang tentu saja harus dilengkapi dengan tombol pendukung seperti Simpan, Hapus, Edit dan Tambah.Keempat inilah yang paling penting dalam kelangsungan pemeliharaan data-data konsumen Anda.Sehingga kita dengan mundah untuk menambah atau mengurangi junlah data. Untuk membuat Aplikasi ini tip dan trik menggunakan Database Acces dengan koneksi ADODC.
Dalam dunia programing sering terdengar CRUD
Apa itu CRUD? CRUD itu singkatan dari : Create, Read, Update dan Delete. Kali ini kita akan mencoba membuat suatu aplikasi sederhana yang terdiri dari proses-proses tersebut : Create, Read, Update dan Delete (CRUD) - membuat, membaca, merubah, menghapus data dalam database menggunakan Microsoft Visual Basic 6.0.
Ok bagi Anda yang penasaran bagaimana cara membuatnya langsung ajah ikuti langkah-langkah pembuatannya berikut dibawah ini:
Program CRUD VB6 (Create, Read, Update, dan Delete)
1. Buatlah dulu Database dan Tabelnya.Misal buat Nama Databasenya: Penjualan dan Tabelnya : Supplier.
Buatlah tabel seperti di bawah ini :
TABEL SUPPLIER
No_Supplier Text 6 Primary Key
Nama_Supplier Text 50
Alamat_supplier Text 50
Kota Text 50
2. Setelah Anda membuat database dan tabelnya sekarang buka Form VB6 Anda.
Tambahkan di form Anda 4 Label, 7 CommandButton, 1 DataGrid, 4 TextBox dan 1 Adodc, buatlah dan desainlah form seperti gambar dibawah :
 |
| desain form yang sudah diatur |
3. Setelah selesai men-desain form.Sekarang klik Adodc1 dan koneksikan ke database Anda yang baru Anda buat dengan ConectionString
4. Langkah selanjutnya klik Datagrid1 pada bagian properties Datasource : Adodc1
Sampai disini Anda sudah bisa menampilkan data Supplier di Datagrid
5.Sekarang kita akan menampilkan TEXBOX dengan Database.Caranya:
- Klik Text1. Pada Propertiesnya klik Datasource : Adodc1 dan DataField :no_supplier,lihat
gambar dibawah:
 |
| Pengisian Database Properties |
-Selanjutnya lanjutkan untuk mengisi Text2, Text3 dan Text4 dengan cara yang sama tapi berbeda di
Data Field-nya sesuaikan dengan judul labelnya.
Sampai disini Textbox Anda sudah terisi database supplier. coba jalankan dengan F5
6. Sekarang kita akan membuat CommandButton aturlah Captionnya seperti tabel dibawah ini :
| KONTROL | PROPERTI | NILAI |
| LABEL1 | Caption | No.Supplier |
| LABEL2 | Caption | Nama Supplier |
| LABEL3 | Caption | Alamat Supplier |
| LABEL4 | Caption | Kota |
| COMMAND1 | Caption | Tambah |
| COMMAND2 | Caption | Simpan |
| COMMAND3 | Caption | Ubah |
| COMMAND4 | Caption | Batal |
| COMMAND5 | Caption | Hapus |
| COMMAND6 | Caption | Cari |
| COMMAND7 | Caption | Keluar |
| TEXT1 | Data Field Data Source | no_supplier Adodc1 |
| TEXT2 | Data Field Data Source | nama_supplier Adodc1 |
| TEXT3 | Data Field Data Source | alamat_supplier Adodc1 |
| TEXT4 | Data Field Data Source | kota Adodc1 |
| DataGrid1 | Data Source AllowUpdate | Adodc1 False |
| Adodc1 | Connection String Recordsource | Di folder masing-masing Nama Tabel Anda (Supplier) |
7. Setelah Anda membuat CommandButton, Copy kode dibawah ini :
Sub kuncidata()
Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
Text4.Locked = True
End Sub
Sub bukadata()
Text1.Locked = False
Text2.Locked = False
Text3.Locked = False
Text4.Locked = False
End Sub
Private Function cekdata() As Integer
If Not Text1.Text Like "S#####" Then
cekdata = 0
Text1.SetFocus
SendKeys "{Home}+{End}"
Exit Function
End If
If Text2.Text = "" Then
cekdata = 0
Text2.SetFocus
SendKeys "{Home}+{End}"
Exit Function
End If
If Text3.Text = "" Then
cekdata = 0
Text3.SetFocus
SendKeys "{Home}+{End}"
Exit Function
End If
If Text4.Text = "" Then
cekdata = 0
Text4.SetFocus
SendKeys "{Home}+{End}"
Exit Function
End If
cekdata = 1
End Function
Sub tombolnormal()
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = False
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Adodc1.Visible = True
End Sub
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Adodc1.Caption = "Record ke " + str(Adodc1.Recordset.AbsolutePosition) + "dari " + str(Adodc1.Recordset.RecordCount) + " Record"
End Sub
Private Sub Command1_Click()
'tambah record
Call bukadata
Adodc1.Recordset.AddNew
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Adodc1.Visible = False
End Sub
Private Sub Command2_Click()
'Simpan record
If Not Adodc1.Recordset.EditMode = adEditNone Then
hasil = cekdata()
If hasil = 1 Then
Adodc1.Recordset.Update
Call tombolnormal
Call kuncidata
Else
MsgBox "Pengisian Data Salah!!!", vbOKOnly, "Perhatian"
Exit Sub
End If
End If
Call tombolnormal
Call kuncidata
End Sub
Private Sub Command3_Click()
'Ubah record
Call tombolnormal
Call bukadata
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Adodc1.Visible = False
End Sub
Private Sub Command4_Click()
'Batal
Adodc1.Recordset!no_supplier = ""
Adodc1.Recordset.CancelUpdate
Adodc1.Recordset.MoveLast
Adodc1.Recordset.Delete
Call tombolnormal
Call kuncidata
End Sub
Private Sub Command5_Click()
'hapus record
psn = MsgBox("Apakah Anda yakin ingin menghapus Kode " + Adodc1.Recordset!no_supplier + " ?", vbYesNo, "Perhatian")
If psn = vbYes Then
Adodc1.Recordset.Delete
Else
MsgBox "Batal Menghapus Record!!!!", vbOKOnly, "Perhatian"
End If
End Sub
Private Sub Command6_Click()
'cari record
Adodc1.Recordset.MoveFirst
yangdicari = InputBox("Masukan Kode Supplier yang di cari", "Cari Kode Supplier")
Adodc1.Recordset.Find "no_supplier='" + yangdicari + "'"
If Adodc1.Recordset.EOF Then
Adodc1.Refresh
End If
End Sub
Private Sub Command7_Click()
'keluar dari program
End
End Sub
Private Sub Form_Activate()
Text1.MaxLength = 6
Text2.MaxLength = 50
Text3.MaxLength = 50
Text4.MaxLength = 50
Call kuncidata
End Sub
Private Sub Form_Load()
tombolnormal
End Sub
8.Simpan hasil pekerjaan Anda dan jalankan dengan F5.
Demikian Source Code CRUD VB6 dan Tutorial Membuat Program Create, Read, Update, dan Delete (CRUD) Database di VB6. Semoga bermanfaat. Selamat mencoba semoga suksess.
Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :
Rekomendasi Web Hosting
- 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
- 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
- 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).