This is default featured post 1 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured post 2 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured post 3 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured post 4 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured post 5 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

Selasa, 26 Juni 2012

trigger sql

membuat trigger baru
create trigger trigoninsbeli after insert on beli for each row
begin
    SELECT namasupplier into @namasupplier FROM supplier WHERE     kodesupplier=NEW.kodesupplier;
    insert into jurnal set keterangan=concat('Pembelian dari supplier dengan nama ',     @namasupplier), notransaksi=NEW.nobeli,jenistransaksi='Beli';
end
delimiter ;$$
' maksutnya create trigger (ciptakan trigger) trigoninsbeli (nama trigger yang dibuat : trigoninsbeli) after insert on beli ( trigger di jalankan setelah ada input di tabel beli) for each row ( pada setiap baris)
begin

 SELECT namasupplier (memilih yang ditampilkan exampler: namasuplliyer ) into @namasupplier (dengan definisi @namasupllier) FROM supplier ( dari tabel supplier ) WHERE ( dimana kondisinya )    kodesupplier=NEW.kodesupplier (kodesupplier = kodesupplier yang baru);
    insert into jurnal (input data ke tabel jurnal) set (atur) keterangan=concat(pengabungan column) ('Pembelian dari supplier dengan nama ',     @namasupplier), notransaksi=NEW.nobeli,jenistransaksi='Beli';

end


create trigger trigoninsdetbeli after insert on detbeli for each row begin
    select nojurnal into @nojurnal from jurnal where notransaksi=new.nobeli and jenistransaksi='Beli';
    select sum(qty*harga) into @jumlah from detbeli where nobeli=new.nobeli;
    replace into detjurnal set nojurnal=@nojurnal,kodeakun='5000',dk='D',jumlah=@jumlah;
    replace into detjurnal set nojurnal=@nojurnal,kodeakun='1000',dk='K',jumlah=@jumlah;
 
end
delimiter ;$$

create trigger trigoninsjual after insert on jual for each row
begin
    SELECT namapelanggan into @namapelanggan FROM pelanggan WHERE     kodepelanggan=NEW.kodepelanggan;
    insert into jurnal set keterangan=concat('Penjualan ke pelanggan dengan nama ',     @namapelanggan), notransaksi=NEW.nojual,jenistransaksi='Jual';
end
delimiter ;$$

create trigger trigoninsdetjual after insert on detjual for each row begin
    select nojurnal into @nojurnal from jurnal where notransaksi=new.nojual and jenistransaksi='Jual';
    select sum(qty*harga) into @jumlah from detjual where nojual=new.nojual;
    replace into detjurnal set nojurnal=@nojurnal,kodeakun='4000',dk='K',jumlah=@jumlah;
    replace into detjurnal set nojurnal=@nojurnal,kodeakun='1000',dk='D',jumlah=@jumlah;
 
end
delimiter ;$$

untuk memanggil trigger:
show triggers;

Minggu, 17 Juni 2012

function+procedure SQL

Procedure
membuat procedure :

CREATE PROCEDURE namabarang(IN kode varchar(10), OUT nama VARCHAR(30))
Begin
select namabarang INTO nama from barang where kodebarang=kode;
end

delimiter$$

 maksutnya :
"create procudre namaprocedure (IN'di input pada' exp: kode ,OUT'keluaranya pada column ' exp: nama)
begin
 select namabarang INTO 'dari isi column'exp: nama dari nama tabel WHERE'dimana' kodebarang=kode;
end

 memanggil  procdure:
CALL namabarang('B001',@nama);
SELECT @nama;

 maksutnya :
CALL nama procedure(kodenya exp:'B001',dengan tampilan exp:'nama');
SELECT(tampilkan) @nama;



CREATE PROCEDURE jumlahbarang(IN kode varchar(10), OUT param VARCHAR(30))
Begin
select CONCAT(namabarang, 'jumlah= ',jumlahstok) INTO param from barang where kodebarang=kode;
end

delimiter$$

 memanggil  procdure:
CALL jumlahbarang('B001',@info);
SELECT @info;


 menghapus procedure:
DROP Procedure namaprocedure;

pengertian FUNCTION

CREATE FUNCTION fnamabarang (kode VARCHAR(10)) RETURNS VARCHAR(30)
BEGIN
 select namabarang INTO @nama FROM barang WHERE kodebarang=kode;
 RETURN @nama;
END

 memanggil function :
SELECT namabarang('B001');

Senin, 30 April 2012

program dengan koneksi myvbql

untuk koneksi kita siapkan module
isi dengan coding :
Public MyConn As New MYSQL_CONNECTION

dan pada form akun ini kita isi coding untuk konek ke sql
Private Sub Form_Activate()
Dim sql As String
    Dim rs As MYSQL_RS
    sql = "SELECT * FROM akun"
    Set rs = MyConn.Execute(sql)
    If MyConn.Error.Number <> 0 Then MsgBox MyConn.Error.Description
   
    Do While Not rs.EOF
        Set lv = lvw.ListItems.Add(, , rs.Fields(0).Value)
        lv.ListSubItems.Add , , rs.Fields(1).Value
        lv.ListSubItems.Add , , rs.Fields(2).Value
        lv.ListSubItems.Add , , rs.Fields(3).Value
        lv.ListSubItems.Add , , rs.Fields(4).Value
        lv.ListSubItems.Add , , rs.Fields(5).Value
        rs.MoveNext
    Loop
End Sub
------------------------------------------------------
Private Sub Form_Load()
MyConn.OpenConnection "localhost", "root", "", "siapershdagang"
   
    If MyConn.Error.Number <> 0 Then
        MsgBox MyConn.Error.Description
   
    End If
End Sub
'karena database kita siapershdagang maka kita isi siapershdagang
-------------------------------------------------------
Coding Input
Private Sub CmdInput_Click()
    Dim sql As String
    Dim rs As MYSQL_RS
    sql = "INSERT into akun (kodeakun,namaakun,saldonormal,jenisrekening,kodeparent,kelompokrekening)values ('" & Text1.Text & "','" & Text2.Text & "','" & IIf(OptD.Value = True, "D", "K") & "','" & Combo2.Text & "','" & Text3.Text & "','" & Combo3.Text & "') "
    MyConn.Execute sql
    If MyConn.Error.Number <> 0 Then MsgBox MyConn.Error.Description + " " + sql
    lvw.ListItems.Clear
    sql = "SELECT * FROM akun"
    Set rs = MyConn.Execute(sql)
    If MyConn.Error.Number <> 0 Then MsgBox MyConn.Error.Description
   
    Do While Not rs.EOF
        Set lv = lvw.ListItems.Add(, , rs.Fields(0).Value)
        lv.ListSubItems.Add , , rs.Fields(1).Value
        lv.ListSubItems.Add , , rs.Fields(2).Value
        lv.ListSubItems.Add , , rs.Fields(3).Value
        lv.ListSubItems.Add , , rs.Fields(4).Value
        lv.ListSubItems.Add , , rs.Fields(5).Value
        rs.MoveNext
    Loop
End Sub
 --------------------------------------------------
Coding Edit
Private Sub CmdEdit_Click()
Dim sql As String
    Dim rs As MYSQL_RS
    sql = "update akun set namaakun='" & Text2.Text & "',saldonormal='" & IIf(OptD.Value = True, "D", "K") & "',jenisrekening='" & Combo2.Text & "',kodeparent='" & Text3.Text & "',kelompokrekening='" & Combo3.Text & "' where kodeakun='" & Text1.Text & "' "
    frmAkun.Tag = "Edit"
    frmAkun.Text1.Text = lvw.SelectedItem.Text
    frmAkun.Text2.Text = lvw.SelectedItem.SubItems(1)
    If lvw.SelectedItem.SubItems(2) = "D" Then
        frmAkun.OptD.Value = True
    Else
        frmAkun.OptK.Value = True
    End If
    If lvw.SelectedItem.SubItems(3) = "real" Then
        frmAkun.Combo2.ListIndex = 0
    ElseIf lvw.SelectedItem.SubItems(3) = "nominal" Then
        frmAkun.Combo2.ListIndex = 1
    End If
    frmAkun.Text3.Text = lvw.SelectedItem.SubItems(4)
    If lvw.SelectedItem.SubItems(5) = "aktiva" Then
        frmAkun.Combo3.ListIndex = 0
    ElseIf lvw.SelectedItem.SubItems(5) = "utang" Then
        frmAkun.Combo3.ListIndex = 1
    ElseIf lvw.SelectedItem.SubItems(5) = "modal" Then
        frmAkun.Combo3.ListIndex = 2
    ElseIf lvw.SelectedItem.SubItems(5) = "pendapatan" Then
        frmAkun.Combo3.ListIndex = 3
    ElseIf lvw.SelectedItem.SubItems(5) = "biaya" Then
        frmAkun.Combo3.ListIndex = 4
    End If
    MyConn.Execute sql
    If MyConn.Error.Number <> 0 Then MsgBox MyConn.Error.Description + " " + sql
    lvw.ListItems.Clear
    sql = "SELECT * FROM akun"
    Set rs = MyConn.Execute(sql)
    If MyConn.Error.Number <> 0 Then MsgBox MyConn.Error.Description
   
    Do While Not rs.EOF
        Set lv = lvw.ListItems.Add(, , rs.Fields(0).Value)
        lv.ListSubItems.Add , , rs.Fields(1).Value
        lv.ListSubItems.Add , , rs.Fields(2).Value
        lv.ListSubItems.Add , , rs.Fields(3).Value
        lv.ListSubItems.Add , , rs.Fields(4).Value
        lv.ListSubItems.Add , , rs.Fields(5).Value
        rs.MoveNext
    Loop
End Sub
-----------------------------------------------
Coding Hapus
Private Sub CmdHapus_Click()
Dim sql As String
    If MsgBox("Yakinkah Data Ini Nak Di Hapus?", vbQuestion + vbYesNo, "konfirmasi") = vbYes Then
        sql = "DELETE from akun WHERE kodeakun='" & lvw.SelectedItem.Text & "'"
        MyConn.Execute sql
    End If
    lvw.ListItems.Clear
    Dim rs As MYSQL_RS
    sql = "SELECT * FROM akun"
    Set rs = MyConn.Execute(sql)
    If MyConn.Error.Number <> 0 Then MsgBox MyConn.Error.Description
   
    Do While Not rs.EOF
        Set lv = lvw.ListItems.Add(, , rs.Fields(0).Value)
        lv.ListSubItems.Add , , rs.Fields(1).Value
        lv.ListSubItems.Add , , rs.Fields(2).Value
        lv.ListSubItems.Add , , rs.Fields(3).Value
        lv.ListSubItems.Add , , rs.Fields(4).Value
        lv.ListSubItems.Add , , rs.Fields(5).Value
        rs.MoveNext
    Loop
End Sub
-----------------------------------------------
Coding Keluar
Private Sub CmdKeluar_Click()
Unload Me
End Sub
----------------------------------------------
Coding Cari
Private Sub CmdCari_Click()
   Dim sql As String
    Dim rs As MYSQL_RS
    sql = "select * from akun where kodeakun like '%" & Text4.Text & "%' or namaakun like '%" & Text4.Text & "%' or saldonormal like '%" & Text4.Text & "%'or jenisrekening like '%" & Text4.Text & "%'or kodeparent like '%" & Text4.Text & "%'or kelompokrekening like '%" & Text4.Text & "%'"
    MyConn.Execute sql
    If MyConn.Error.Number <> 0 Then MsgBox MyConn.Error.Description + " " + sql
    lvw.ListItems.Clear
    Set rs = MyConn.Execute(sql)
    If MyConn.Error.Number <> 0 Then MsgBox MyConn.Error.Description
   
    Do While Not rs.EOF
       
        Set lv = lvw.ListItems.Add(, , rs.Fields(0).Value)
        lv.ListSubItems.Add , , rs.Fields(1).Value
        lv.ListSubItems.Add , , rs.Fields(2).Value
        lv.ListSubItems.Add , , rs.Fields(3).Value
        lv.ListSubItems.Add , , rs.Fields(4).Value
        lv.ListSubItems.Add , , rs.Fields(5).Value
        rs.MoveNext
    Loop
End Sub
----------------------------------------------------
Setingan Pada Listview (Lvw)
klik kanan propertis pada lvw maka akan muncul gambar ini
pada view usahan pilih 3-lvwreport agar pada tampilan tabel bisa ditampilkan per coloum.Pada labelEdit isi 1-lvwmanual agar kita bisa mengisi tabel tersebut secara manual dan centang pada Gridlines untuk menampilkan garis pada tiap coloum.
dan pada Column Headers klik InsertColumn pada text isi nama" untuk tampilan header column


Minggu, 08 April 2012

saat dhelpi eror

jika anda mengalami hal ini pada program dhelpi anda mungkin menjengkelkan ya???

tapi semua itu akhirnya ditemukan solusinya deh...tertolong deh gur...
nie gan hal yang dibutuh kan silangkan ambil lybrarinya di sini
setelah di download extrax dengan winrar 
setelah selesai di extrax
isinya mysql.dll
semua di copy
di taruh ke C://windows/system
sama C://windows/system32
dah cuma gitu aja gan solusinya untuk dhelpi yang eror seperti itu...hehehe mudah kan 
moda ini bisa bermanfaat bagi kalian...

Sabtu, 03 Maret 2012

java

bagi yang ingin download tutorial java silahkan ...
ini ada sebagian link nya...moga bermanfaat ...

silahkan di download
exemplar :

Kamis, 01 Maret 2012

tutorial dhelpi

delphi

tutorial visual basic 6

ini lanjutan tutorial yang kemarin...
vb 6


moga ini kan jadi bermanfaat bagi kita semua?
bagi agan - agan yang punya tutrial yang lain kita saling link dan share ya....
koment anda akan membantu berkembangnya ilmu kita...
"GOOD LUCK"

Sabtu, 25 Februari 2012

Shutdown Melalui Jaringan

mungkin anda orang yang jail...? tapi apalah arti sebuah kejailan ketika itu hanya merepotkan diri sendiri dan oranglain .

disi saya akan membahas gimana sih kita men shutdown lepi dosen kita dari jarah jauh ketika kita jengkel ma mereka....wkwkwkwkwkwkwk..?
Peringatan ? :
jangan ditiru ya perbuatan ini... karena terlalu berbahaya jika dilakukan oleh yang bukan ahlinya
Asal mereka terkonek internet yang 1 jaringan ma kita...kita bisa ngjailin siapapun mereka ...hehehe so suiiit...


 ini saya kasih cara instannya aja :
Maklum orind alias orang indonesia gak mo cara ribet ...he eh... termasuk saya juga???? gitu kan gan apalagi oprek oprek terminalnya windows ampuuun deh...salah oprek sistem hancur dah tuh windows...

Langkah 1 :
* download sofwarenya dulu... ini gan
* terus extrax ya pake winrar aja gan dah cukup kok... dah taukan winrar..
* lo dah di extrax instal dulu sofwarenya...yang dah sering nginstal aplikasi pasti gak kerepotan karena mudah kok...
Langkah 2 :
* buka sofware yang dah terinstal tadi...alias aplikasinya gan..bisa kan
* nie saya urutkan langkahnya :
  ** start ==> all program ==>lantricks ==> lanshutdown
lo dah ke buka aplikasinya ikuti langkah berikutnya yaaa.....
sabar dikit yaaa.. tak ambil nafas dulu....
==========================
<><><><><><><><><><><><><>
==========================
capek mong panjang lebar..
nie langkah terakhir gan.
Langkah 3 :
* ni sekarang lu mulai pake gambar gan

sample delete aja gan... terus lakukan ini : 
 ** klik list ==> import ==> form Network Neightborhood
maka akan muncul ini 

tuh kelanjutannya dah ada di gambar gan tinggal shutdown deh komputer mana yang mau di shutdown dari lepi/compi agan... dalam sample yang di shutdown Laviola 02...
So...jangan jail - jail yaaa..hehehehe..
nie gue uji coba di warnet gue gan...Maklum user Gue serba aneh - aneh mintanya...
 * mas tolong restart/shutdown komputer num ini deh num itulah ... Terpaksa deh pake ini biar cepet..habisnya lo pake billing agak lama sih *

Jumat, 17 Februari 2012

Tutorial Dasar Visual Basic

moga ini bisa jadi referensi anda untuk kreatif dalam mengembangkan diri anda dan anda lebih menyukainya...
VB itu asyik juga loooh gan....gak kalah seruu juga java...heheheheh?

silahkan baca - baca....

asyiknya VB

Kamis, 16 Februari 2012

PROFIL

ARTIKEL KU
Semua yang telah aku pelajari akan tertuang disini......


   pelajaran yang berharga yang tak kan pernah ternilai 

awal belajar tentang komputer , desain , pemograman 



awalnya berat terasakan..namun akhirnya semua terbayar sudah dengan kesenangan...


Buka pada setiap linknya yang ada di menu bar...
moga jadi bermanfaat bagi anda...


inilah aku


mandala
sekarsuli, klaten utara, klaten

Minggu, 12 Februari 2012

cara pakai Qur'an in word

Cara pakai  Qur'an in word

Pertama instal dulu aplikasinya Qur'an in Word
 Download dulu aplikasinya disini
 extract dulu seperti gambar ini


selanjutnya klick double pada set up Qur'an in word sepeti gambar di bawah ini
selanjutnya tinggal next terus sampai finish

setelah selesai instal Qur'an in word kita buka Ms office klick Add-in
klick Al-qur'an ==> 
Get Arabic + Get translate ( untuk tulisan arab dan terjemahan indonesianya )
Get Arabic ( untuk tulisan arabnya saja )
Get translate ( untuk terjemahan indonesianya saja )
Setelah muncul seperti gambar dibawah ini isi untuk Surat di pilih Surat dalam Qur'an, Ayat untuk pilhan ayat berapa sampai berapa, Translate harus di centang agar keluar terjemahannya. Jika tidak maka tidak akan keluar terjemahannya.
Moga bermanfaat tuk kalian semua.

Twitter Delicious Facebook Digg Stumbleupon Favorites More