Selasa, 03 Juli 2012

Contoh program Visual Basic

create database penjualan

use penjualan

create table barang(
KdBarang char(4) not null primary key,
NamaBarang varchar (30) not null,
Harga money,
JmlStok int
)

create table pelanggan(
KdPelanggan char(4) not null primary key,
NamaPelanggan varchar(50) not null,
Alamat varchar(100),
Telp char(12)
)

create table Penjualan(
KdJual char(4) not null primary key,
TglJual datetime,
KdPelanggan char(4) not null foreign key
references Pelanggan(Kdpelanggan)
)

create table DetailPenjualan(
KdJual char(4) not null foreign key
references Penjualan(KdJual),
KdBarang char(4) not null foreign key
references Barang(KdBarang),
HargaJual money,
Jumlah int
)

select * from barang
insert into barang values ('B001','Mouse Optic',90000,94)
insert into barang values ('B002','flash disk 4GB',79000,48)
insert into barang values ('B003','keyboard',39000,94)
insert into barang values ('B004','web cam',95000,19)
insert into barang values ('B005','modem',299000,29)

select * from pelanggan
insert into pelanggan values ('P001','Armita','Ngawi','0856250147')
insert into pelanggan values ('P002','adin','Ngawi','0856250158')
insert into pelanggan values ('P003','astuti','Ngawi','0856250123')
insert into pelanggan values ('P004','tongtong','Ngawi','0856250190')
insert into pelanggan values ('P005','makmur','Ngawi','0856250167')
update pelanggan
set Telp = '0856250147'
where KdPelanggan = 'P001'
update pelanggan
set Telp = '0856250167'
where KdPelanggan = 'P005'

select * from penjualan
insert into penjualan values ('J001','2012-01-17','P001')
insert into penjualan values ('J002','2012-01-17','P002')
insert into penjualan values ('J003','2012-01-18','P003')
insert into penjualan values ('J004','2012-01-19','P004')
insert into penjualan values ('J005','2012-01-20','P005')
insert into penjualan values ('J006','2012-01-21','P006')

select * from DetailPenjualan
insert into DetailPenjualan values ('J001','B002',92000,1)
insert into DetailPenjualan values ('J001','B002',85000,2)
insert into DetailPenjualan values ('J002','B003',45000,1)
insert into DetailPenjualan values ('J002','B002',85000,3)
insert into DetailPenjualan values ('J003','B001',92000,2)
insert into DetailPenjualan values ('J004','B004',98000,2)
insert into DetailPenjualan values ('J004','B003',45000,2)

select namabarang as 'nama', jmlstok as 'jumlah' from barang

select namapelanggan from pelanggan where namapelanggan like '%A%'

update barang set namabarang = 'LCD', harga = 120000 where Kdbarang = 'B005'

select barang.namabarang, detailpenjualan.hargajual
from barang, detailpenjualan
where barang.Kdbarang = detailpenjualan.Kdbarang

select pelanggan.namapelanggan
from pelanggan, penjualan
where tgljual='2012-01-17'and pelanggan.kdpelanggan=penjualan.kdpelanggan

select detailpenjualan.hargajual
from detailpenjualan, barang
where barang.jmlstok=94 and barang.kdbarang=detailpenjualan.kdbarang
)
select * from penjualan

Tidak ada komentar:

Posting Komentar