Friday, June 28, 2013

Perintah SQL "Union"

Assalamualaikum temen-temen.


Diakhir bulan pengennya refresing kepala dulu ah, mungkin ada temen-temen yang sudah tak asing dengan perintah union, dimana Union ntu bertujuan untuk menggabungkan isi dari 2 tabel secara vertikal.


Syarat untuk menggabungkan 2 tabel atau lebih ntu yaitu jumlah field yang dipilih atau ditampilkan harus sama antara tabel satu dengan tabel yang lain.
Misal : field yang ditampilkan berjumlah dua, maka record – record dari 2 tabel tersebut digabungkan dalam 2 field tersebut.

sebagai contoh kita punya dua table yang mempunya field yang sama yaitu table pemasukan dan pengeluaran, berikut gambarnya.



Jadi cara penulisan / Struktur penulisan koding union yaitu dengan menggunakan perintah :

Select from
Union 
(Select from )



Sedangkan untuk contoh table diatas kita menggunakan perintah sebagai berikut :

Select No_Nota, Tanggal, Keterangan, Harga From Pemasukan
Union 
(Select  No_Nota, Tanggal, Keterangan, Harga From Pengeluaran)

Order by tanggal

Sehingga Output yang dihasilkan dari perintah tersebut setelah di jalankan menjadi seperti gambar dibawah ini :




Bagaimana sobat, ini bisa diterapkan di beberapa bahasa pemrograman yang lain seperti delphi, VB atau yang lainya. semoga bermanfaat. key....

by dot_exe

Thursday, June 6, 2013

Menghitung Tanggal

Assalamualaikum,wr.wb....

Buat temen-temen yang mungkin bingung neh gimana sih caranya menghitung tanggal, apa sama codingnya dengan menghitung bilangan di komponen edit atau yang lain...??
berikut ta kasi sedikit koding, yang mungkin sangat umum digunakan oleh temen-teman delphier yang lain yaitu menggunakan perintah trunc. mari kita coba. key....


OK. sebelum kita ke koding, buatlah desain form seperti gambar diatas. dan jangan lupa doa dulu. key ^_^

Setelah membuat desain form diatas, untuk perintah / koding mengurangi tanggal awal dan akhir gunakan perintah berikut :

Selisihnya := runc(datetimepicker2.date) - trunc(datetimepicker1.date);

  If CheckBox1.Checked=False Then
     Label3.Caption:=IntToStr(Selisihnya div 365)+' Tahun' else
     Label3.Caption:=IntToStr(Selisihnya)+' Hari'; 

untuk perintah runc, merupakan perintah untuk mengubah nilai date menjadi angka yang sehingga dapat dihitung, jika tidak menggunakan perintah tersebut maka nilai dari komponen datetimepicker tidak dapat di pindah ke integer. 

sedangkan perintah, Selisihnya div 365 merupakan peritah untuk menyederhanakan menjadi tahu (1 tahun = 365 hari).

sedangkan untuk perintah proses pada menghitung umur berikut kodingnya : 

umur:=trunc(Now) - trunc(DateTimePicker3.date);
  If CheckBox2.Checked=False Then
     Label6.Caption:=IntToStr(umur div 365)+' Tahun' else
     Label6.Caption:=IntToStr(umur)+' Hari';
 
oya, jangan lupa tambahkan variable selisihnya dan variable umur di varible global. dengan tipe data Integer. selamat mencoba

untuk mendownload contoh program diatas, silahkan klik disini