Membuat Aplikasi Penjualan VB 6.0 menggunakan DataBase Access (Form Pelanggan)

Kali ini, saya akan sedikit menjelaskan bagaimana cara membuat Form Pelanggan yang nantinya akan digunakan sebagai salah satu pondasi suatu aplikasi sederhana yang akan kita buat. Coding itu nantinya bisa anda rubah sesuai kebutuhan anda, dan tentu saja source yang saya berikan pada kesempatan kali ini sangatlah sederhana. Anda harus mengembangkan kembali sehingga aplikasi yang anda bangun bisa menjadi lebih baik dan mendekati sempurna.

                                                                        Gambar 1.1

Seperti pada gambar 1.1 diatas, bisa kita lihat form entri pelanggan yang akan kita buat. Ini belum sepenuhnya lengkap sebagai suatu aplikasi, ini hanya sepenggal menu yang akan menjadi pondasi suatu aplikasi penjualan yang akan kita buat. Setelah ini saya akan menjabarkan bagaimana Source Coding yang membangun Form Pelanggan tersebut. Apabila anda ingin merubahnya, sebaiknya anda jg membongkar coding tersebut. Untuk menampung pertanyaan, silahkan masukan beberapa pertanyaan kedalam komentar ada blog ini. Sebelum itu saya ingatkan kepada anda bahwa dalam hal ini saya menggunakan Microsoft Access 2003 sebagai media penyimpanan data, anda jg bisa mengganti dengan media penyimpanan data yang lain, tetapi coding untuk koneksi tersebut harus anda rubah juga,,


Berikut ini Source Coding yang anda perlukan :


Dim CONN As New ADODB.Connection
Dim rspelanggan As New ADODB.Recordset
'Sebagai

Sub koneksi()
Set CONN = New ADODB.Connection
Set rspelanggan = New ADODB.Recordset
CONN.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\DBJUAL.mdb"
End Sub

Private Sub Command1_Click()
If Command1.Caption = "INPUT" Then
    Command1.Caption = "SIMPAN"
    Command2.Enabled = False
    Command3.Enabled = False
    Command4.Caption = "BATAL"
    Call TERBUKA
    Text1.SetFocus
Else
    If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = "" Then
        MsgBox "DATA BELUM LENGKAP"
        If Text1 = "" Then
            Text1.SetFocus
        ElseIf Text2 = "" Then
            Text2.SetFocus
         ElseIf Text3 = "" Then
            Text3.SetFocus
         ElseIf Text4 = "" Then
            Text4.SetFocus
         ElseIf Text5 = "" Then
            Text5.SetFocus
        End If
    Else
        Dim SIMPAN As String
        SIMPAN = "INSERT INTO PELANGGAN(KODEPLG,NAMAPLG,ALAMATPLG,TELEPONPLG,PERSONPLG) VALUES " & _
        "('" & Text1 & "', '" & Text2 & "', '" & Text3 & "', '" & Text4 & "', '" & Text5 & "')"
        CONN.Execute SIMPAN
        Call SEMULA
    End If
End If
End Sub
Private Sub Command2_Click()
If Command2.Caption = "EDIT" Then
    Command2.Caption = "SIMPAN"
    Command1.Enabled = False
    Command3.Enabled = False
    Command4.Caption = "BATAL"
    Call TERBUKA
    Text1.SetFocus
Else
    Dim EDIT As String
    EDIT = "UPDATE PELANGGAN SET NAMAPLG ='" & Text2 & "',ALAMATPLG='" & Text3 & "',TELEPONPLG='" & Text4 & "',PERSONPLG='" & Text5 & "' WHERE KODEPLG='" & Text1 & "'"
    CONN.Execute EDIT
    Call SEMULA
End If
End Sub

Private Sub Command3_Click()
Command1.Enabled = False
Command2.Enabled = False
Command4.Caption = "BATAL"
Call TERBUKA
Text1.SetFocus
End Sub

Private Sub Command4_Click()
If Command4.Caption = "TUTUP" Then
    End
Else
    Call SEMULA
End If
End Sub

Private Sub FORM_ACTIVATE()
Call koneksi
ADO.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & App.Path & "\DBJUAL.MDB"
ADO.RecordSource = "PELANGGAN"
ADO.Refresh
Set DG.DataSource = ADO
DG.Refresh
End Sub

Sub TERBUKA()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
End Sub

Sub TERKUNCI()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
End Sub

Sub TAMPILKANDATA()
Text2 = rspelanggan!NAMAPLG
Text3 = rspelanggan!ALAMATPLG
Text4 = rspelanggan!TELEPONPLG
Text5 = rspelanggan!PERSONPLG
End Sub

Sub KOSONGKAN()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
End Sub

Sub SEMULA()
FORM_ACTIVATE
Call KOSONGKAN
Call TERKUNCI

Command1.Caption = "INPUT"
Command2.Caption = "EDIT"
Command3.Caption = "HAPUS"
Command4.Caption = "TUTUP"

Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True

End Sub

Private Sub Form_Load()
Call SEMULA
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Text1.MaxLength = 6
If KeyAscii = 13 Then
    If Command1.Caption = "SIMPAN" Then
        Call koneksi
        rspelanggan.Open "SELECT * FROM PELANGGAN WHERE KODEPLG='" & Text1 & "'", CONN
        If Not rspelanggan.EOF Then
            Call TAMPILKANDATA
            MsgBox "KODE SUDAH ADA, GANTI KODE LAIN"
            Call KOSONGKAN
            Text1.SetFocus
        Else
            Text2.SetFocus
        End If
    End If
   
    If Command2.Caption = "SIMPAN" Then
        Call koneksi
        rspelanggan.Open "SELECT * FROM PELANGGAN WHERE KODEPLG='" & Text1 & "'", CONN
        If Not rspelanggan.EOF Then
                Call TAMPILKANDATA
                Text2.SetFocus
        Else
            MsgBox "KODE TIDAK ADA"
            Text1.SetFocus
        End If
    End If
    If Command3.Enabled = True Then
            Call koneksi
            rspelanggan.Open "SELECT * FROM PELANGGAN WHERE KODEPLG='" & Text1 & "'", CONN
            If Not rspelanggan.EOF Then
                Call TAMPILKANDATA
                pesan = MsgBox("YAKIN AKAN DIHAPUS", vbYesNo)
                If pesan = vbYes Then
                    Dim HAPUS As String
                    HAPUS = "DELETE *FROM PELANGGAN WHERE KODEPLG='" & Text1 & "'"
                    CONN.Execute HAPUS
                    Call SEMULA
                Else
                    Call SEMULA
                End If
            Else
                MsgBox "KODE TIDAK DITEMUKAN"
                Text1.SetFocus
                Text1 = ""
            End If
        End If
End If
End Sub


Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text3.SetFocus
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text4.SetFocus
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text5.SetFocus
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0
End Sub

'PERSONPLG
Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
    If Command1.Caption = "SIMPAN" Then
        Command1.SetFocus
    ElseIf Command2.Caption = "SIMPAN" Then
            Command2.SetFocus
    End If
End If
End Sub