Langsung ke konten utama

Postingan populer dari blog ini

MySQL select data menggunakan perintah inner join

Oleh
Sebelum agan melakukan select data MySQL dengan Inner Joint siapkan table-table yang akan dijadikan sebagai bahan latihan. Buatlah database dengan nama penjualan: create database penjualan; tekan enter use penjualan;  tekan  enter 1.   Table custamer – kd_custamer varchar (5) Ket Primary key – nm_custcustamer varchar (25) – alamat varchar(35) – telpon varchar (14) – email varchar (20) Sql : create table custamer(kd_custamer varchar(5), nm_custamer varchar(25), alamat varchar(30), telepon varchar(14), email varcahar(30), primary key (kd_custamer)); //enter; isikan masing-masing 3 Record Sql : Insert Into custamer values (‘C_001′,’Panca Saputra’,'Jl.Kp Rambutan’,’02127301366′,’panca_2007ok’);   tekan  enter  Lakukan sebanyak 3 record lihat hasil gambar berikut.   Select *From custamer;  tekan  enter 2.   Table barang – kd_barang varchar (5) Ket primary key – nm_barang varchar (25) – satuan varchar (6) – harga ...
Posting Komentar
Baca selengkapnya

Contoh Program Penjualan Mengunakan if di turbo pascal 7.1

Oleh
Kali ini aku akan memmberikan contoh membuat program penjualan sederhana menggunakan if dengan Turbo Pascal 7.1. dulu aku membuat program ini buat tugas kuliah pemrograman terstruktur. :) ga' perlu banyak basa-basi karna emang udah basi sich.. :D let's do!! pertama tulis programnya kayak gini ya...   uses crt; var napem,nb:string[15] ;     hrg,jb,jh,disc,tot:real; begin clrscr; writeln; writeln('----------------------------------------'); writeln(' DATA PENJUALAN BUAH SEGAR /KG'); writeln('----------------------------------------'); writeln; write('Nama Pembeli     =  '); readln(napem); writeln; write('Buah Yang Dibeli =  '); readln(nb); writeln('.............................'); if nb='jeruk' then hrg:=5000 else if nb='mangga' then hrg:=7000 else if nb='apel' then hrg:=9000 else if nb='duren' then hrg:=11000; begin end; writeln; write('Harga Buah       =','Rp...
1 komentar
Baca selengkapnya