Cara Membuat Form Data Input Lengkap dengan Tombol Tambah,Simpan, Hapus dan Ubah 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.

Ok bagi Anda yang penasaran bagaimana cara membuatnya langsung ajah ikuti langkah-langkah pembuatannya berikut dibawah ini:

Membuat Form Data Input Lengkap dengan Tombol Tambah, Simpan, Ubah dan Hapus :

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

 Buatlah databse dan tabel diatas  dengan menggnakan VisData lihat cara membuat database dan tabel dengan visdata.

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 atau cara mengkoneksikan database dan menampilkan isi  tabel.

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 tip kali semoga bermanfaa. Selamat mencoba semoga suksess....!!!!!!!!!

Related Post: Aplikasi sederhana Database