UAS REKAYASA PERANGKAT LUNAK

 Membuat aplikasi sederhana di vb 2012 dengan menggunakan ms. acces

program ini saya buat  untuk memenuhi syarat salah satu UAS mata kuliah (RPL),sesuai dengan analisa kebutuhan dan perancangan sistem yan sudah di gamabarkan, berikut perancangan yang saya buat:
1. Membuat data base di ms acces

• buka ms acces
• pili create new data base
• buatlah data base s
• esuai rancangan aplikasi (saya buat 2 table)(
• able pertama ( saya kasih nama DB_tugas
• table kedua (say kasih nama DB_tugas1 

setelah database dibuat, table pertama berisikan: 

• kode barang
• nama barang
• harga barang
• stock barang

table kedua berisikan ;

• nama barang
• harga barang 

tampilan designya seperti ini:

dan table kedua design nya sepeeti ini :

kemudian jika sudah membuat database,buatlah program di vb

• buka visual studio 2012
• pilih new project
• beri nama project (saya tidak merubah nama project)(webaplication2)
• kemudian buat lah desain yang sesuai kita rancang
• label (4), textboxt (5) dan button (4). dan datagrid untuk pilihan tampilan (saya buat webform2) 

 

• 

maka setela di run hasilnya seperti ini

sekaran kita input code di masing-masing button
buton save (button1) code seperti  dibawah ini :

•  code button SAVE

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        objekKoneksi.Open()
        Dim tambah As String = "INSERT INTO DB_tugas values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "') "
        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
        oCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("Sukses")

• code button view saya (button 3)

 Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Response.Redirect("WebForm2.aspx")
    End Sub

•     code button SEARCH

Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If Not Len(TextBox5.Text) = 0 Then
            objekKoneksi.Close()
            objekKoneksi.Open()
            Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM DB_tugas where Kodebarang='" + TextBox5.Text + "'", objekKoneksi)

            Xreader = ocmd.ExecuteReader()
            If Xreader.HasRows Then
                Xreader.Read()
                TextBox1.Text = Xreader("Kodebarang")
                TextBox2.Text = Xreader("Namabarang")
                TextBox3.Text = Xreader("Hargabarang")
                TextBox4.Text = Xreader("Stockbarang")

            Else
                TextBox5.Text = "kode barang Tidak ada"
                Exit Sub
            End If
            Xreader.Close()

        End If

•  code button CLEAR

rotected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox5.Text = ""

        TextBox1.Focus()
    End Sub

setelah diinput code nya hasil runningya seperti ini:
(hasil running save)  data yang kita save jika berhasil akan otomatis masuk ke database di ms acces.

 

 Hasil running view tampilan seperti ini

Hasil runing button search tampilan nya seperti ini:
saya masukan kode barang yang sudah saya save = (ty1)

maka data akan muncul data yang kita cari seperti tampilan diatas.

Hasil runing Clear

maka data akan kosong kembali setelah input data selesai.
selesesai (terimkasih)