Tugas4



1.       1. Membuat  Tabel Pembelian

No
Field
Type
Size
Ketetangan
1
Nonota
Varchar
10
Primary Key
2
Kdbrg
Varchar
10
Secondary Key
3
Kdsupplier
Varchar
10
Secondary Key
4
Tanggalbeli
Date


5
Jumlahbeli
Integer


6
Hargabeli
Integer


7
Total
Integer















 2. Mengesi Tabel
































Komentar

Posting Komentar

Postingan populer dari blog ini

GODONG

Gambar
Godong  adalah ibu kota kecamatan di kabupaten  Grobogan . Godong terbilang daerah yang sudah terhitung maju jika dilihat dari tingkat pendidikan, tingkat ekonomi dan infrastrukturnya. Lokasi yang sangat strategis yang menghubungkan ke beberapa kota, diantaranya Semarang,  Boyolali ,  Demak ,  Kudus  dan  Purwodadi , menjadikan Godong sebagai kecamatan di kabupaten Grobogan yang mengalami kemajuan pesat dibandingkan dengan kecamatan lain di Grobogan.  Pasar godong yang berarti pasar daun, seiring dengan waktu akhirnya dikenal dengan sebutan Godong (baca ; nggodong), daerah ini pada zaman dahulu sangat rimbun dengan tanaman keras berbagai spesies, diantaranya adalah tanaman jati. Aliran sungai dan banyaknya kanal didaerah ini menunjukkan bahwa daerah ini telah lama dihuni dan termasuk daerah yang subur. Wisata didaerah ini yang dapat dikunjungi antara lain adalah fenomena alam gas metana ( CH4 ) yang menyembur dan terbakar secara alamiyah selama ratusan tahun silam yang dinamakan Api A
Baca selengkapnya

SQL Tugas 6

Gambar
1. Tampilkan nama supplier yang barangnya indomie     select Nmsup from Supplier     join Pembelian on Supplier.Kdsup = Pembelian.Kdsup     join Barang on Barang.kdbrg = Pembelian.Kdbrg     where Barang.nmbrg='pepsodent' 2. Tampilkan jumlah beli yang nama barangnya indomie      select Jumlahbeli from Pembelian      join barang on barang.kdbrg=Pembelian.Kdbrg     where Barang.nmbrg='pepsodent' 3. Tampilkan nama barang yang harga beli di atas 10.000      select Barang.nmbrg from Barang      join Pembelian on Barang.kdbrg=Pembelian.Kdbrg     where pembelian.Hargabeli > 10000 4. Tampilan kode supplier, nama supplier yang totalnya pembelian diatas 100.00      select Supplier.Kdsup, Supplier.Nmsup from Supplier      join Pembelian on Supplier.Kdsup=Pembelian.Kdsup      where Pembelian.Total > 100000 5. Tampilkan jenis barang yang stok nya habis      select jnsbrg from Barang      join Pembelian on Barang.kdbrg=Pembelian.Kdbrg     where Ba
Baca selengkapnya

KELOMPOK (045,043,080) Tampilan Aplikasi

Gambar
Setelah kemarin kita membuat 3 tabel yaitu tabel barang, tabel supplier dan tabel pembelian. Sekarang kita akan membuat aplikasi beradasarkan 3 tabel tersebut menggunakan VB.net sebagai bahasa pemogramannya dan SQL Server 2014 sebagai databasenya. Cara Mengoneksikan Ke Database SQL Server 2014 Imports System.Data Imports System.Data.Sql Imports System.Data.SqlClient Module mdlkoneksi     Public comSQL As New SqlClient.SqlCommand     Public sql As String     Public conn As New SqlConnection     Public str As String = "Data Source=SARJONO-PC;Initial Catalog=KelompokSangar;Integrated Security=True"     Public Sub bukakoneksi()         If conn.State = ConnectionState.Closed Then             conn.ConnectionString = str             Try                 conn.Open()                 'MsgBox("Koneksi Berhasil")             Catch ex As Exception                 MsgBox("Koneksi Gagal: " & ex.ToString)             End Try         End If
Baca selengkapnya