1

PERTEMUAN IX

Merancang Menu Utama Program Aplikasi SIP dengan Microsoft Visual Studio 2010
1. Buka aplikasi Viusal Studio 2010

2. Pilih File New Project. Ubah nama project menjadi aplikasiSIP atau sesuai
keinginan Anda. Pilih tempat penyimpanannya lewat tombol Browse lalu OK.

3. Muncul lembar kerja Visual Basic 2010

 2

4. Isi lembar kerja Form1 dengan men-drag tools dari Toolbox yang berada di sebelah lembar
kerja Form1. Drag tool MenuStrip kemudian isi dengan menu berikut :
a. File : Data User, Keluar
b. Input Data : Data Customer, Data Barang
c. Transaksi : Penjualan
d. Laporan P e l a n g g a n , P e m a s o k , B a r a n g

5. Kita bisa memodifikasi form Menu Utama sesuai keinginan kita melalui jendela Porperties
yang berada di sebelah kanan lembar kerja. Seperti merubah nama header form, pada
Appearance ubah Text menjadi Menu Utama. Kemudian menambahkan background pada
rancangan form Menu Utama, pada Appearance, BackGroundImage, klik . Pilih Local
Source, Import. Pilih gambar yang diinginkan lalu OK. Ubah BackGroundImageLayout
menjadi Stretch. Ubah WindowsState menjadi Maximized. Kita juga bisa merubah nama
Form1 untuk memudahkan kita memanggilnya kembali dengan cara klik kanan [Link]
yang berada pada jendela Solution lalu ubah namanya menjadi formMenuUtama.

6. Ketikkan listing berikut pada lembar kerja formMenuUtama

Public Class formMenuUtama

Private Sub formMenuUtama_Load(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

End Sub

Private Sub DataUserToolStripMenuItem_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link]()
End Sub

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
End
End Sub

Private Sub DataCustomerToolStripMenuItem_Click(ByVal sender As [Link], ByVal e

As [Link]) Handles [Link]
[Link]()
End Sub
 3

Private Sub DataBarangToolStripMenuItem_Click(ByVal sender As [Link], ByVal

e As [Link]) Handles [Link]
[Link]()
End Sub

Private Sub PenjualanToolStripMenuItem_Click(ByVal sender As [Link], ByVal e

As [Link]) Handles [Link]
[Link]()
End Sub
End Class
 4

PERTEMUAN X

Perancangan Database SIP

1. Buka aplikasi SQL Server 2008 R2, klik Connect

2. Klik kanan Databases, pilih New Database. Isi Database name dengan Market_Kita atau
sesuai keinginan. Pilih Path penyimpanan database di
D:\aplikasiSIP \aplikas iSIP \aplikasiSIP \bin\D ebug lalu OK.

3. Buka Databases aplikasiSIP klik kanan Tables New Table. Buat tabel-tabel dengan
informasi sebagai berikut :
a. tbUser idUser char(10), namaUser varchar(50), pass varchar(50)
b. tbBarang idBarang char(10), namaBarang varchar(50), hargaBeli money, hargaJual
money, stok int
 5

d. tbJual noFaktur char(10), tglJual datetime, idUser char(10), idPelanggan char(10),

namaPelanggan varchar(50), idBarang char(10), namaBarang varchar(50), hargaJual
money, jlhBeli int, total money
f. tbCustomer idCus char(10), namaCustomer varchar(50), alamat varchar(50), telepon
varchar(50)

4. Buka Programmability klik kanan Stored Procedures New Stored Procedure.

 6

5. Hapus isi dari lembar kerja Stored Procedure lalu ketikkan procedure-procedure berikut ini
kemudian Execute.

tbUser
create procedure tampil
as
select * from tbUser
exec tampil

create procedure tambah

(
@idUser char(10),
@namaUser varchar(50),
@pass varchar(50)
)
as
insert into tbUser
values(@idUser,@namaUser,@pass)

create procedure ubah

@idUser char(10),
@namaUser varchar(50),
@pass varchar(50)
as
update tbUser set
namaUser=@namaUser,pass=@pass
where idUser=@idUser
select * from tbUser

create procedure hapus

@idUser char(10)
as
delete from tbUser where idUser=@idUser

tbBarang
create procedure tampilBarang

as
select * from tbBarang
exec tampilBarang

create procedure tambahBarang

(
@idBarang char(10),
@namaBarang varchar(50),
@hargaBeli money,
@hargaJual money,
@stok int
)
as
insert into tbBarang
values(@idBarang,@namaBarang,@hargaBeli,@hargaJual,@stok)

create procedure ubahBarang

@idBarang char(10),
@namaBarang varchar(50),
@hargaBeli money,
@hargaJual money,
@stok int
as
update tbBarang set
namaBarang=@namaBarang,hargaBeli=@hargaBeli ,hargaJual=@hargaJual,stok=@stok
where idBarang=@idBarang
select * from tbBarang

create procedure hapusBarang

@idBarang char(10)
as
delete from tbBarang where idBarang=@idBarang
 7

tbJual
create procedure tampilJual
as
select * from tbJual
exec tampilJual

create procedure tambahJual

(
@noFaktur char(10),
@tglJual datetime,
@idUser char(10),
@idPelanggan char(10),
@namaPelanggan varchar(50),
@idBarang char(10),
@namaBarang varchar(50),
@hargaJual money,
@jlhBeli int,
@total money
)
as
insert into tbJual
values(@noFaktur,@tglJual,@idUser,@idPelanggan,@namaPelanggan,@idBarang,@namaB
arang,@hargaJual,@jlhBeli,@total)

create procedure ubahJual

@noFaktur char(10),
@tglJual datetime,
@idUser char(10),
@idPelanggan char(10),
@namaPelanggan varchar(50),
@idBarang char(10),
@namaBarang varchar(50),
@hargaJual money,
@jlhBeli int,
@total money
as
update tbJual set
tglJual=@tglJual,idUser=@idUser,idPelanggan =@idPelanggan,namaPelanggan=@namaPe
langgan,idBarang=@idBarang,namaBarang=@namaBarang ,hargaJual=@hargaJual,jlhBeli
=@jlhBeli,total=@total
where noFaktur=@noFaktur
select * from tbJual

create procedure hapusJual

@noFaktur char(10)
as
delete from tbJual where noFaktur=@noFaktur

tbCustomer
create procedure tampilCustomer
as
select * from tbCustomer
exec tampilCustomer

create procedure tambahCustomer

(
@idCustomer char(10),
@namaCustomer varchar(50),
@alamat varchar(50),
@telepon varchar(50)
)
as
insert into tbCustomer
values(@idPelanggan,@namaPelanggan,@alamat ,@telepon)

create procedure ubahCustomer

@idCustomer char(10),
@namaCustomer varchar(50),
@alamat varchar(50),
@telepon varchar(50)
as
 8
update tbCustomer set
namaCustomer=@namaCustomer,alamat=@alamat ,telepon=@telepon
where idCustomer=@idCustomer
select * from tbCustomer

create procedure hapusCustomer

@idCustomer char(10)
as
delete from tbCustomer where idCustomer=@idCustomer

Membuat Koneksi Database

1. Pilih Data Add New Data Source Database, klik Next

2. Pilih Dataset, klik Next

 9

3. Pilih New Connection

4. Pilih server name yang sesuai dengan Database PC kita kemudian pilih database
aplikasiSIP lalu klik Test Connection. Jika sukses klik OK.

5. Klik Next
 10

6. Klik Next

7. Beri centang pada Tables lalu Finish

8. Selanjutnya buat Modul untuk koneksi. Pilih Project Add Module, klik Add
 11

9. Ketikkan listing berikut pada lembar kerja Module1

Imports [Link]
Module Module1
Public conn As
SqlConnection Public da
As SqlDataAdapter
Public ds As New
DataSet Public cmd As
SqlCommand Public rd As
SqlDataReader Public
str As String

Public Sub koneksi()

str = "Data Source=TOSHIBA-PC;Initial Catalog=aplikasiSIP;Integrated
Security=True"
conn = New SqlConnection(str)
If [Link] = [Link]
Then [Link]()
End If
End Sub
End Module