Berikut adalah pemenuhan dari UTS matakuliah Rekayasa Perangkat Lunak.
Perancangan Sistem Penjualan di Toko Baju. Untuk Program yang digunakan adalah Visual Basic dan Microsof Access.
Hal-hal yag harus dilakukan adalah :
1. Membuat Desain Form Di Vb
2. Membuat Database di Microsoft Access
3. Koneksikan antara Vb dengan Ms.Access
Membuat database di Acces dengan judul DbPenjualan
tabel-tabel yang dibuat adalah :
1.Tabel Baju
2.TabelAdmin
Perancangan Sistem Penjualan di Toko Baju. Untuk Program yang digunakan adalah Visual Basic dan Microsof Access.
Hal-hal yag harus dilakukan adalah :
1. Membuat Desain Form Di Vb
2. Membuat Database di Microsoft Access
3. Koneksikan antara Vb dengan Ms.Access
Membuat database di Acces dengan judul DbPenjualan
tabel-tabel yang dibuat adalah :
1.Tabel Baju
2.TabelAdmin
tabel baju & tabel admin :
perancangan formnya di visual basic :
form admin :
Public Class Form1
Private Sub TadminBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TadminBindingNavigatorSaveItem.Click
Me.Validate()
Me.TadminBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbpenjualanDataSet)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DbpenjualanDataSet.tadmin' table. You can move, or remove it, as needed.
Me.TadminTableAdapter.Fill(Me.DbpenjualanDataSet.tadmin)
End Sub
End Clas
Private Sub TadminBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TadminBindingNavigatorSaveItem.Click
Me.Validate()
Me.TadminBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbpenjualanDataSet)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DbpenjualanDataSet.tadmin' table. You can move, or remove it, as needed.
Me.TadminTableAdapter.Fill(Me.DbpenjualanDataSet.tadmin)
End Sub
End Clas
form baju :
Public Class Form4
Private Sub TbajuBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TbajuBindingNavigatorSaveItem.Click
Me.Validate()
Me.TbajuBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbpenjualanDataSet1)
End Sub
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DbpenjualanDataSet1.tbaju' table. You can move, or remove it, as needed.
Me.TbajuTableAdapter.Fill(Me.DbpenjualanDataSet1.tbaju)
End Sub
Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
End Sub
End Class
Private Sub TbajuBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TbajuBindingNavigatorSaveItem.Click
Me.Validate()
Me.TbajuBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbpenjualanDataSet1)
End Sub
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DbpenjualanDataSet1.tbaju' table. You can move, or remove it, as needed.
Me.TbajuTableAdapter.Fill(Me.DbpenjualanDataSet1.tbaju)
End Sub
Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
End Sub
End Class
Tidak ada komentar:
Posting Komentar