APLIKASI JUAL BELI HP DI KONTER .NET

 1.FORM LOGIN

  

 Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Call Koneksi
RSKasir.Open "select * from kasir where namaksr='" & Text1 & "'",
Conn
If Not RSKasir.EOF Then
Text1.Enabled = False
Text2.SetFocus
Else
MsgBox "nama kasir tidak terdaftar"
Text1.SetFocus
Text1 = ""
End If
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Call Koneksi
RSKasir.Open "SELECT * FROM KASIR WHERE NAMAKSR='" & Text1 & "' AND
PASSWORDKSR='" & Text2 & "'", Conn
If Not RSKasir.EOF Then
Text2.Enabled = False
Text3 = RSKasir!kodeksr
Me.Visible = False
MENU.Show
MENU.STBar.Panels(1).Text = LOGIN.Text1
MENU.STBar.Panels(2).Text = LOGIN.Text3
Else
MsgBox "PASSWORD SALAH"
Text2.SetFocus
Text2 = ""
End If
End If
End Sub

2.FORM BRANDA

 Public Class penjualan

    Private Sub penjualan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tipe.Items.Add("NOKIA")
        tipe.Items.Add("SAMSUNG")
        tipe.Items.Add("SIEMEN")
        tipe.Items.Add("MOTOROLA")

        kondisi.Items.Add("BARU")
        kondisi.Items.Add("SECOND")

        harga.Text = 0
     End Sub
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        tipe.Text = ""
        seri.Text = ""
        kondisi.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total_harga.Text = ""
    End Sub


    Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged
        seri.Items.Clear()

        If tipe.Text = "NOKIA" Then
            seri.Items.Add("N70")
            seri.Items.Add("N73")
        ElseIf tipe.Text = "SAMSUNG" Then
            seri.Items.Add("SIII")
            seri.Items.Add("GYOUNG")
        ElseIf tipe.Text = "SEIMEN" Then
            seri.Items.Add("C55")
            seri.Items.Add("M55")
        ElseIf tipe.Text = "MOTOROLA" Then
            seri.Items.Add("MX31")
            seri.Items.Add("XM31")
        End If

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub

    Private Sub kondisi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kondisi.SelectedIndexChanged
        harga.Text = 0
        If seri.Text = "N70" And kondisi.Text = "BARU" Then
            harga.Text = 1950000
        ElseIf seri.Text = "N70" And kondisi.Text = "SECOND" Then
            harga.Text = 1000000
        ElseIf seri.Text = "N73" And kondisi.Text = "BARU" Then
            harga.Text = 1850000
        ElseIf seri.Text = "N73" And kondisi.Text = "SECOND" Then
            harga.Text = 1200000
        ElseIf seri.Text = "SIII" And kondisi.Text = "BARU" Then
            harga.Text = 1750000
        ElseIf seri.Text = "SIII" And kondisi.Text = "SECOND" Then
            harga.Text = 1400000
        ElseIf seri.Text = "GYOUNG" And kondisi.Text = "BARU" Then
            harga.Text = 1550000
        ElseIf seri.Text = "GYOUNG" And kondisi.Text = "SECOND" Then
            harga.Text = 14300000
        ElseIf seri.Text = "C55" And kondisi.Text = "BARU" Then
            harga.Text = 2000000
        ElseIf seri.Text = "C55" And kondisi.Text = "SECOND" Then
            harga.Text = 1850000
        ElseIf seri.Text = "MX31" And kondisi.Text = "BARU" Then
            harga.Text = 800000
        ElseIf seri.Text = "MX31" And kondisi.Text = "SECOND" Then
            harga.Text = 400000
        ElseIf seri.Text = "XM31" And kondisi.Text = "BARU" Then
            harga.Text = 560000
        Else
            harga.Text = 300000
        End If
    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
        If e.KeyChar = Chr(13) Then
            total_harga.Text = harga.Text * jumlah.Text
        End If
    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
        total_harga.Text = harga.Text * jumlah.Text
    End Sub
End Class

Read More