Source Code CRUD & Tutorial Membuat Program CRUD dengan VB6

Source Code CRUD & Tutorial Membuat Program CRUD dengan VB6

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : Source Code CRUD & Tutorial Membuat Program CRUD dengan 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 Saya ingin membagikan bagaimana membuat form Data input lengkap dengan tombol Tambah, Simpan, Ubah dan Hapus dengan mudah. Dalam contoh ini saya 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 :
Tutorial Membuat Program Create, Read, Update, dan Delete (CRUD) Database di VB6
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:
Source Code CRUD VB6
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 :
KONTROLPROPERTINILAI
LABEL1CaptionNo.Supplier
LABEL2CaptionNama Supplier
LABEL3CaptionAlamat Supplier
LABEL4CaptionKota
COMMAND1CaptionTambah
COMMAND2CaptionSimpan
COMMAND3CaptionUbah
COMMAND4CaptionBatal
COMMAND5CaptionHapus
COMMAND6CaptionCari
COMMAND7CaptionKeluar
TEXT1Data Field
Data Source
no_supplier
Adodc1
TEXT2Data Field
Data Source
nama_supplier
Adodc1
TEXT3Data Field
Data Source
alamat_supplier
Adodc1
TEXT4Data Field
Data Source
kota
Adodc1
DataGrid1Data Source
AllowUpdate
Adodc1
False
Adodc1Connection 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.
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang ", " pada halaman dibawah ini.

0 Response to "Source Code CRUD & Tutorial Membuat Program CRUD dengan VB6"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel