Cara Membuat Aplikasi Pengolahan Data Pelanggan Dengan Visual Basic 6.0

Oleh peistar

Saturday, 6 May 2017

Bagikan :

Tweet

Berikut ini adalah contoh pembuatan aplikasi untuk pengolahan data para pelanggan dengan menggunakan bahasa pemrograman Visual Basic 6.0. adapun langkah-langkah pengerjaanya sebagai berikut :

Cara Koneksi Visual Basic 6.0 Dengan Database

- Langkah Pertama : Saudara dapat mendisain tampilan Form seperti gambar dibawah ini.

- Langkah Kedua : Pada tombol “Simpan” => klik 2 kali. Masukan Coding Program dibawah ini, sesuaikan Field yang saudara akan gunakan.

Coding Tombol Simpan :

Set RS = New ADODB.Recordset

If Text1.Text = "" Then

MsgBox "Isi Data Dulu Coy", vbCritical, "Peringatan!"

Text1.SetFocus

Else

Conek.Execute "insert into Mekanik values ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "')"

barasiah

Tampil_Data

Text1.SetFocus

End If

- Langkah Ketiga : Lakukan seperi Langkah Kedua => klik 2 kali pada tombol “Ubah” . Masukan Coding Program dibawah ini.

Coding Tombol Ubah :

Conek.Execute ("update Mekanik set Id_Mekanik = '" & Text1.Text & "', Nm_Mekanik = '" & Text2.Text & "', Alamat_Mekanik = '" & Text3.Text & "', Telpon = '" & Text4.Text & "' where Id_Mekanik= '" & Text1.Text & "'")

MsgBox "Data Anda Sudah Di Perbaiki"

Tampil_Data

barasiah

Text1.SetFocus

- Langkah Keempat : Masih sama persis dengan Langkah Kedua => klik 2 kali pada tombol “Hapus” maka saudara nanti akan diarahkan kedalam area code program kemudian saudara dapat memasukan Coding Program dibawah ini.

Coding Tombol Hapus :

Conek.Execute "delete from Mekanik where Id_Mekanik = '" & Text1.Text & "'"

MsgBox "Data Berhasil di Hapus"

barasiah

Tampil_Data

Text1.SetFocus

- Langkah Kelima : Pada tombol keluar saudara dapat memasukan perintah dibawah ini.

Coding Tombol Keluar :

Unload Me

- Langkah Keenam : Agar tombol “Ubah” dan “Hapus” bisa digunakan. Saudara dapat memasukan coding program dibawah ini kedalam Text1 “ID Mekanik” dengan Prosedure Change.

Coding Panggil Data :

Set RS = New ADODB.Recordset

RS.Open "select*from Mekanik where Id_Mekanik ='" & Text1.Text & "'", Conek, adOpenKeyset

If RS.RecordCount <> 0 Then

Text2.Text = RS!Nm_Mekanik

Text3.Text = RS!Alamat_Mekanik

Text4.Text = RS!Telpon

MsgBox "Data Sudah Ada Coy!!!", vbCritical, "Peringatan!"

End If

- Langkah Ketujuh : Untuk menampilkan data pada saat data diinputkan dan tampil pada “DataGrid”. Saudara dapat membuat sebuah Class tersendiri dengan nama “Tampil_Data”. Dengan Coding Program dibawah ini.

Coding Tampil Data :

Set RS = New ADODB.Recordset

RS.CursorLocation = adUseClient

RS.Open "select*from Mekanik", Conek, adOpenKeyset, adLockBatchOptimistic

With DataGrid1

Set DataGrid1.DataSource = RS

DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell

DataGrid1.Refresh

End With

Catatan : Jangan lupa perkenalkan Class “Tampil_Data” tersebut pada “Form_Load”.

- Langkah Kedelapan : Untuk membersihkan layar input saudara dapat membuat sebuah “Class” baru dengan nama “barasiah”. Kemudian perkenalkan pada Tombol “Simpan, Ubah, Hapus”.

Coding Bersih Layar :

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

- Langkah Kesepuluh : Pada tombol “Cetak Data”. Saudara dapat memasukan Coding Program dibawah ini.

Coding Cetak Data :

CrystalReport1.ReportFileName = App.Path & "\LMekanik.rpt"

CrystalReport1.RetrieveDataFiles

CrystalReport1.WindowState = crptMaximized

CrystalReport1.Action = 0

Catatan : Saudara harus menampilkan “Componen”  “CrystalReport” pada Form yang digunakan.

Selamat mencoba...!!! semoga bermanfaat. Wasalam...

Tag : Pemrograman Visual Basic 6.0