Database Toko Kue menggunakan aplikasi VB.NET

yak kali ini saya akan membahas tentang cara membuat Database pada sebuah Toko Kue . Berikut langkah-langkahnya.

1. Aktifkan aplikasi VB.NET

2. Buat database pada Microsoft Office Access

 

 

 

 

 

3. Jika sudah disimpan, buat Desain pada aplikasi Photoshop, seperti  dibawah ini

    - untuk form 1

 

      - Untuk form 2

        - Untuk fom 3

 

4. Lalu masukkan kodingan pada setiap form nya :

- Kodingan Form 1 

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "husna" And TextBox2.Text = "1" Then
            MessageBox.Show("Anda berhasil Login", "husna", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Form2.Visible = True
            Me.Visible = False
        Else
            MessageBox.Show("Maaf Salah Password", "husna", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Application.Exit()
    End Sub
End Class
 

- Kodingan form 2

Public Class Form2

    Private Sub TokoKueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TokoKueToolStripMenuItem.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

    Private Sub QuitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitToolStripMenuItem.Click
        Application.Exit()
    End Sub
End Class

- Kodingan form 3 

Imports System.Data.OleDb

Public Class Form3
    Public DB As OleDbConnection
    Public CMD As OleDbCommand
    Public ADP As OleDbDataAdapter
    Public DR As OleDbDataReader
    Public DS As New DataSet
    Dim SQL As String

    Public Sub OpenDB()
        Dim alamat = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = database3.mdb"
        DB = New OleDbConnection(alamat)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub
    Sub menampilkanCari()
        ADP = New OleDbDataAdapter("SELECT * FROM tblkue where kode = '" & ComboBox1.Text & "'", DB)
        DS = New DataSet
        ADP.Fill(DS, "tblkue")
        DataGridView1.DataSource = DS.Tables("tblkue")
    End Sub

    Sub TampilRecordKue()
        ADP = New OleDbDataAdapter("SELECT * FROM tblkue", DB)
        DS = New DataSet
        ADP.Fill(DS, "tblkue")
        DataGridView1.DataSource = DS.Tables("tblkue")
    End Sub
    Sub HapusText()
        TextBox1.Text = ""
        ComboBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    End Sub
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call OpenDB()
        Call HapusText()
        Call TampilRecordKue()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "blo" Then TextBox1.Text = "kue bolu"
        If ComboBox1.Text = "tar" Then TextBox1.Text = "kue tar"
        If ComboBox1.Text = "brw" Then TextBox1.Text = "kue brownis"
        If ComboBox1.Text = "lps" Then TextBox1.Text = "kue lapis"
        If ComboBox1.Text = "dnt" Then TextBox1.Text = "kue donat"
        If ComboBox1.Text = "blo" Then TextBox2.Text = "50000"
        If ComboBox1.Text = "tar" Then TextBox2.Text = "60000"
        If ComboBox1.Text = "brw" Then TextBox2.Text = "70000"
        If ComboBox1.Text = "lps" Then TextBox2.Text = "30000"
        If ComboBox1.Text = "dnt" Then TextBox2.Text = "15000"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SQL = "INSERT INTO tblkue(Kode, jenis, harga, nama, alamat) " & _
                       " values('" & ComboBox1.Text & "','" & _
                                     TextBox1.Text & "','" & _
                                     TextBox2.Text & "','" & _
                                     TextBox3.Text & "','" & _
                                     TextBox4.Text & "')"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call TampilRecordKue()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call HapusText()
        ComboBox1.Focus()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        SQL = "DELETE FROM tblkue Where Kode='" & ComboBox1.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call TampilRecordKue()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        MessageBox.Show("Jika ingin keluar Lewat menu UTAMA", "Admin", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        menampilkanCari()
    End Sub
End Class 

4. jika sudah maka RUN Program 

 

 

\

Ya sekian langkah-langkah membuat database Toko kue pada aplikasi VB.NET , semoga bermanfaat . terimaksih yang sudah membaca blog saya^^

 

Read More

Membuat Predikat kelulusan menggunakan Visual Basic

Blog saya kali ini akan membahas tentang cara membuat Predikat kelulusan menggunakan aplikasi Visual Basic NET. Berikut langkah-langkahnya ;

1. Aktifkan aplikasi Visual Basic NET, jika sudah buat desain seperti dibawah

2. Jika sudah masukkan kodingan seperti dibawah ;

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nil As Integer


        nil = CInt (TextBox1.Text)

        If nil > 4.0 Then
            MessageBox.Show("Input tidak valid", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        ElseIf nil >= 3.51 Then
            MessageBox.Show("Cumlaude", "Pesan", MessageBoxButtons.OK, MessageBoxIcon.Information)
        ELSEIf nil >= 2.76 Then
            MessageBox.Show("Sangat Memuaskan", "Pesan", MessageBoxButtons.OK, MessageBoxIcon.Information)
        ElseIf nil >= 2.0 Then
            MessageBox.Show("Memuaskan", "Pesan", MessageBoxButtons.OK, MessageBoxIcon.Information)
       ElseIf nil>= 0.9 Then
            MessageBox.Show("Tidak dapat predikat", "Pesan", MessageBoxButtons.OK, MessageBoxIcon.Information)
        ElseIf nil < 0.0 Then
            MessageBox.Show("Input tidak valid", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)


        End If

    End Sub
End Class

3. Lalu RUN program tersebut

Ya sekian blog saya kali ini, semoga bermanfaat bagi para pembaca sekalian. terimakasih ^^

Read More

Cara membuat data nilai pada aplikasi Visual Basic

Baiklah kali ini saya akan membahas tentang cara membuat data nilai pada aplikasi Visual Basic. Berikut langkah-langkahnya:

1. Buka aplikasi Microsoft Visual Studio 2005,

2. Jika sudah buat desain pada form tersebut, seperti dibawah ini

3. Selanjutnya masukkan kodingan dibawah ini

Public Class Form1

    Private Sub Form1_Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles   MyBase.Load
        Button1.Enabled = False
    End Sub

    Private Sub TextBox1_TextChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Button1.Enabled = True
        If  TextBox1.Text.Trim = "" Or TextBox2.Text.Trim = "" Then
            Button1.Enabled = False
        End If
    End Sub

    Private Sub TextBox2_TextChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        Button1.Enabled = True
        If TextBox1.Text.Trim = "" Or TextBox2.Text.Trim = "" Then
            Button1.Enabled = False
        End If
    End Sub
    Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Select Case TextBox1.Text.Trim.ToUpper
            Case "HUSNA"
                MessageBox.Show("selamat datang Husna", "pesan")
            Case "HILIYAH"
                MessageBox.Show("selamat datang Hiliyah", "pesan")
            Case "ANGEL"
                MessageBox.Show("selamat datang Angel", "pesan")
            Case "TIFAN"
                MessageBox.Show("selamat datang Tifan", "pesan")
            Case "BELA"
                MessageBox.Show("selamat datang Bela", "pesan")
            Case "DIAN"
                MessageBox.Show("selamat datang Dian", "pesan")
            Case Else
                MessageBox.Show("anda siapa ya ???", "pesan")

        End Select
        On Error Resume Next
        Select Case CInt(TextBox2.Text.Trim)
            Case Is < 6
                MessageBox.Show("nilai anda kurang dari 6", "pesan")
            Case Is < 8
                MessageBox.Show("nilai anda dalam range 6-8", "pesan")
            Case Is <= 10
                MessageBox.Show("nilai anda dalam range 8-10", "pesan")
            Case Else
                MessageBox.Show("nilai anda tidak valid", "pesan")

        End Select
    End Sub

4. Yup setelah dimasukan kodingannya , maka Run Program. 

Sekian blog saya hari ini, semoga bermanfaat. Terimakasih sudah membaca^^ 

Read More