Membuat form Pelanggan Di VB 6

beuh dapet tugas nih bikin form pelanggan terus koneksikan ke databasenya..
sekalian aja dewh di posting mungkin bisa jadi bahan pelajaran buat yang lain.


-->

Source code :

-->

Option Explicit

Dim conjual As ADODB.Connection

Dim rsbarang As ADODB.Recordset

Private Sub cmdhapus_Click()

Dim dhs As String

dhs = "delete from pelanggan where kode_plg = '" & txtkode_plg & "'"

conjual.Execute dhs, , adCmdText

If rsbarang.BOF Then

MsgBox "Tidak Ada Data", vbInformation, "Informasi"

End If

kosong

rsbarang.Requery

Adodc1.Refresh

End Sub

Private Sub cmdkeluar_Click()

If cmdkeluar.Caption = "&keluar" Then

Unload Me

Else

cmdkeluar.Caption = "&keluar"

kosong

End If

End Sub

Private Sub cmdsimpan_Click()

Dim dhs As String

If cmdsimpan.Caption = "&simpan" Then

dhs = "insert into pelanggan (kode_plg,nama_plg,alamat,jen_kel,no_telp) values('" & txtkode_plg & "','" & txtnama_plg & "','" & txtalamat & "','" & txtjen_kel & "','" & txtno_telp & "')"

conjual.Execute dhs, , adCmdText

Else

dhs = "update pelanggan set kode_plg='" & txtkode_plg & "',nama_plg='" & txtnama_plg & "',alamat='" & txtalamat & "',jen_kel ='" & txtjen_kel & "',no_telp=' " & txtno_telp & "' where kode_plg='" & txtkode_plg & "'"

conjual.Execute dhs, , adCmdText

End If

rsbarang.Requery

kosong

Adodc1.Refresh

End Sub

Private Sub kosong()

txtkode_plg = ""

txtnama_plg = ""

txtalamat = ""

txtjen_kel = ""

txtno_telp = ""

cmdsimpan.Enabled = False

cmdhapus.Enabled = False

cmdsimpan.Caption = "&simpan"

cmdkeluar.Caption = "&keluar"

txtkode_plg.SetFocus

Adodc1.Refresh

End Sub

Private Sub Form_Load()

Dim dhs As String

Set conjual = New ADODB.Connection

conjual.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Visual\database\dbjual.mdb;Mode=ReadWrite;Persist Security Info=False"

conjual.Open

Set rsbarang = New ADODB.Recordset

dhs = "select * from pelanggan"

rsbarang.Open dhs, conjual, adOpenDynamic, adLockOptimistic, adCmdText

End Sub

Private Sub txtalamat_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjen_kel.SetFocus

End If

End Sub

Private Sub txtjen_kel_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtno_telp.SetFocus

End If

End Sub

Private Sub txtkode_plg_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

If KeyAscii = 13 Then

If Len(Trim$(txtkode_plg)) = 0 Then

MsgBox "Kode Pelanggan harus diisi", vbInformation, "Informasi"

txtkode_plg.SetFocus

Exit Sub

End If

If Len(Trim$(txtkode_plg)) < 5 Or Len(Trim$(txtkode_plg)) > 5 Then

MsgBox "Kode barang harus 5 karakter ", vbInformation, "Informasi"

txtkode_plg.SetFocus

Exit Sub

End If

Dim dhs As String

Set rsbarang = New ADODB.Recordset

dhs = "select * from pelanggan where kode_plg='" & txtkode_plg & "'"

Set rsbarang = conjual.Execute(dhs, , adCmdText)

If rsbarang.BOF And rsbarang.EOF Then

MsgBox "data baru", vbInformation, "Informasi"

cmdsimpan.Caption = "&simpan"

Else

MsgBox "Data Sudah Ada. ", vbInformation, "Informasi"

cmdsimpan.Caption = "&Update"

txtkode_plg = rsbarang!kode_plg

txtnama_plg = rsbarang!nama_plg

txtalamat = rsbarang!alamat

txtjen_kel = rsbarang!jen_kel

txtno_telp = rsbarang!no_telp

cmdhapus.Enabled = True

End If

txtnama_plg.SetFocus

cmdsimpan.Enabled = True

cmdkeluar.Caption = "&keluar"

End If

End Sub

Private Sub txtnama_plg_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtalamat.SetFocus

End If

End Sub

Tampilan Form Pelanggan :

-->

Tampilan jika kode pelanggan lebih dari 5 atau lebih kecil dari 5 :

-->

Pengisian data pelanggan :

 

-->

Setelah di isi tombol button simpan dan hapus menjadi hilang:

 

-->

Jika data sudah ada :

 

-->

Jika data sudah ada maka tombol simpan berubah menjadi tombol update dan akan ditampilkan data tersebut :

 

-->

Jika data yang sudah ada di update maka nama pelanggan yang tadinya dendi menjadi dinda :

 

-->

jika data yang sudah ada di hapus :

 

-->

Jika data kosong :

Script Program Dapat Di Download Dalam Bentuk Format ( Zip )
Klik Disini
atau
Informasi