Aplikasi Penjualan Dengan Visual Basic 6 – Part 3 – CRUD Data User

Silahkan anda buat desain form seperti dibawah ini

Kemudian masuk ke jendela kode dan copykan source code dibawah ini

Sub Kosongkan()
    Text1 = ""
    Text2 = ""
    Text3 = ""
    Text4 = ""
    Combo1 = ""
    
End Sub

Sub DataBaru()
    Text2 = ""
    Text3 = ""
    Text4 = ""
    Combo1 = ""
    Text2.SetFocus
    
End Sub

Sub Ketemu()
    On Error Resume Next
    Text2 = RSKasir!namakasir
    Text3 = RSKasir!pwdkasir
    Combo1 = RSKasir!Status
    Text2.SetFocus
    
End Sub

Sub CariData()
    Call Koneksi
    RSKasir.Open "SELECT * FROM TBLUsers WHERE kodekasir='" & Text1 & "'", CONN
    RSKasir.Requery
    
End Sub

Sub TampilLevel()
    Call Koneksi
    RSKasir.Open "SELECT DISTINCT status FROM TBLUsers", CONN
    RSKasir.Requery
    Combo1.Clear
    Do While Not RSKasir.EOF
        Combo1.AddItem RSKasir!Status
        RSKasir.MoveNext
    Loop
    
End Sub

Sub AturDataGrid()
    DataGrid1.HeadLines = 1.5
    DataGrid1.Columns(0).Caption = "Kode"
    DataGrid1.Columns(1).Caption = "Nama Lengkap"
    DataGrid1.Columns(1).Width = 2700
    DataGrid1.Columns(2).Caption = "Password"
    DataGrid1.Columns(3).Caption = "Level"
End Sub

Sub HiddenPassword()
    Call Koneksi
    Adodc1.ConnectionString = LokasiData
    Adodc1.RecordSource = "TBLUsers"
    Set DataGrid1.DataSource = Adodc1
    Adodc1.Recordset.MoveFirst
    Do While Not Adodc1.Recordset.EOF
        Adodc1.Recordset!pwdkasir = "*****"
        Adodc1.Recordset.MoveNext
    Loop
End Sub

Private Sub Command1_Click()
    If Text1 = "" Or Text2 = "" Or Text3 = "" Or Combo1 = "" Then
        MsgBox "Data belum lengkap", vbExclamation, "Warning"
        Exit Sub
    Else
        Call CariData
        If RSKasir.EOF Then
            SQLSimpan = "INSERT INTO TBLUsers VALUES ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Combo1 & "')"
            CONN.Execute SQLSimpan
        Else
            SQLEdit = "UPDATE TBLUsers SET  Namakasir='" & Text2 & "', pwdkasir='" & Text3 & "', status='" & Combo1 & "' WHERE kodekasir='" & Text1 & "'"
            CONN.Execute SQLEdit
        End If
        Call Kosongkan
        Call Form_Activate
        Text1.SetFocus
    End If
    
End Sub

Private Sub Command2_Click()
    If Text1 = "" Then
        MsgBox "ID masih kosong...", vbExclamation, "Warning"
        Text1.SetFocus
        Exit Sub
    Else
        pesan = MsgBox("Yakin akan hapus data ini ...?", vbYesNo, "Information")
        If pesan = vbYes Then
            hapus = "DELETE * FROM TBLUsers WHERE kodekasir='" & Text1 & "'"
            CONN.Execute hapus
            Call Kosongkan
            Call Form_Activate
            Text1.SetFocus
        Else
            Call Kosongkan
            Text1.SetFocus
        End If
    End If
        
End Sub

Private Sub Command3_Click()
    Call Kosongkan
    Text1.SetFocus
End Sub

Private Sub Command4_Click()
    Unload Me
End Sub

Private Sub exit_Click()
    Unload Me
End Sub

Private Sub help_Click()
    FormAbout.Show vbModal
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
        If Text1 = "" Then
            MsgBox "ID tidak boleh kosong"
            Text1.SetFocus
            Exit Sub
        Else
            Call CariData
            If RSKasir.EOF Then
                Call DataBaru
            Else
                Call Ketemu
            End If
        End If
    End If
            
End Sub

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

Private Sub Text3_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then Combo1.SetFocus
End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then Command1.SetFocus
End Sub

Private Sub Text4_Change()
    Call Koneksi
    RSKasir.Open "SELECT * FROM TBLUsers WHERE namakasir LIKE '%" & Text4 & "%'", CONN
    RSKasir.Requery
    If RSKasir.EOF Then
        MsgBox "tidak ada data ditemukan", vbInformation, "Information"
    Else
        Adodc1.ConnectionString = LokasiData
        Adodc1.RecordSource = "SELECT * FROM TBLUsers WHERE namakasir LIKE '%" & Text4 & "%'"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        DataGrid1.Refresh
        Adodc1.Recordset.MoveFirst
        Call HiddenPassword
        Call AturDataGrid
    End If
    
End Sub

Private Sub Form_Activate()
    Call Koneksi
    Adodc1.ConnectionString = LokasiData
    Adodc1.RecordSource = "TBLUsers"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
    DataGrid1.Refresh
    Call HiddenPassword
    Call AturDataGrid
    Call TampilLevel
    
End Sub

Private Sub Form_Load()
    Call Koneksi
    Call Kosongkan
End Sub

Tampilan akhir dari desain dan coding diatas adalah sebagai berikut

Daftar semua artikel untuk tutorial Cara Membuat Aplikasi Penjualan Dengan Visual Basic 6 ini..

• Aplikasi Penjualan Dengan Visual Basic 6 – Part 1 – Desain Database
• Aplikasi Penjualan Dengan Visual Basic 6 – Part 2 – Membuat Modul Koneksi
• Aplikasi Penjualan Dengan Visual Basic 6 – Part 3 – CRUD Data User