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"

Twitter Delicious Facebook Digg Stumbleupon Favorites More