Jumat, 28 Desember 2012

Syntac PHP - ORACLE Gudang Semen

Connection PHP - ORACLE.

<?php
$con=ocilogon("system","ekosupriyanto","//localhost:1521/xe"); 
if (!$con) 
     echo "Gagal Terkoneksi Dengan Database Oracle"; 
else 
    echo "Koneksi Dengan Database Oracle Sukses"; 
?>


Insert PHP - ORACLE.
<html>
<head>
<title>Contoh Penggunaan Insert</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">



<?php
$idsupplier=$_POST["idsupplier"];
$namasupplier=$_POST["namasupplier"];
$alamat=$_POST["alamat"];
$jeniskelamin=$_POST["jeniskelamin"];
$jumlah=$_POST["jumlah"];
$tanggalmasukbarang=$_POST["tanggalmasukbarang"];
$status=$_POST["status"];
$namasemen=$_POST["namasemen"];

$con=ocilogon("system","ekosupriyanto","//localhost:1521/xe");

if (($idsupplier<>"")&&($namasupplier<>"")&&($alamat<>"")&&($jeniskelamin<>"")&&($jumlah<>"")&&($tanggalmasukbarang<>"")&&($status<>"")&&($namasemen<>"")){
$sql=ociparse($con,"insert into tabel3 values('$idsupplier','$namasupplier','$alamat','$jeniskelamin','$jumlah','$tanggalmasukbarang','$status','$namasemen')");
ociexecute($sql);

}

$sql=ociparse($con,"select * from tabel3");
ociexecute($sql);

print("<table border=1>");

print("<th>ID_SUPPLIER</th><th>NAMA_SUPPLIER</th><th>ALAMAT</th><th>JENIS_KELAMIN</th><th>JUMLAH</th><th>TANGGAL_MASUK_BARANG</th><th>STATUS</th><th>NAMA_SEMEN</th>");

while (ocifetch($sql)){
print("<tr><td>");
echo ociresult($sql,"ID_SUPPLIER");
print("</td><td>");
echo ociresult($sql,"NAMA_SUPPLIER");
print("</td><td>");
echo ociresult($sql,"ALAMAT");
print("</td><td>");
echo ociresult($sql,"JENIS_KELAMIN");
print("</td><td>");
echo ociresult($sql,"JUMLAH");
print("</td><td>");
echo ociresult($sql,"TANGGAL_MASUK_BARANG");
print("</td><td>");
echo ociresult($sql,"STATUS");
print("</td><td>");
echo ociresult($sql,"NAMA_SEMEN");
print("</td></tr>");
}
print("</table>");
ocilogoff($con);

?>
<br>
<UPDATE DATA>
<form name="kirim" method="POST" action="">
ID Supplier <input type="text" name="idsupplier"> <br>
Nama Supplier <input type="text" name="namasupplier"> <br>
Alamat<input type="text" name="alamat"> <br>
Jenis Kelamin<input type="text" name="jeniskelamin"> <br>
Jumlah<input type="text" name="jumlah"> <br>
Tanggal Masuk barang<input type="text" name="tanggalmasukbarang"> <br>
Status<input type="text" name="status"> <br>
Nama Semen<input type="text" name="namasemen">
<input type="submit" name="Submit" value="TAMBAH DATA">
</form>

</body>
</html>

Update PHP - ORACLE.

<html> 
<head> 
<title>Contoh Penggunaan Update</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> 
</head> 
<body bgcolor="#FFFFFF" text="#000000"> 


<?php 
$idSupplier=$_POST["idSupplier"]; 
$namaSemen=$_POST["namaSemen"]; 

$con=ocilogon("system","ekosupriyanto","//localhost:1521/xe"); 

if (($idSupplier<>"") && ($namaSemen<>"")) {
  $sql=ociparse($con,"update tabel3 set NAMA_SEMEN='$namaSemen'
where ID_SUPPLIER='$idSupplier'");  
  ociexecute($sql);
}

$sql=ociparse($con,"select * from tabel3"); 
ociexecute($sql); 

print("<table border=1>");

print("<th>ID_SUPPLIER</th><th>NAMA_SUPPLIER</th><th>ALAMAT</th><th>JENIS_KELAMIN</th><th>JUMLAH</th><th>TANGGAL_MASUK_BARANG</th><th>STATUS</th><th>NAMA_SEMEN</th>"); 

while (ocifetch($sql)){ 
print("<tr><td>"); 
echo ociresult($sql,"ID_SUPPLIER"); 
print("</td><td>"); 
echo ociresult($sql,"NAMA_SUPPLIER"); 
print("</td><td>"); 
echo ociresult($sql,"ALAMAT"); 
print("</td><td>");
echo ociresult($sql,"JENIS_KELAMIN"); 
print("</td><td>");
echo ociresult($sql,"JUMLAH"); 
print("</td><td>");
echo ociresult($sql,"TANGGAL_MASUK_BARANG"); 
print("</td><td>");
echo ociresult($sql,"STATUS"); 
print("</td><td>");
echo ociresult($sql,"NAMA_SEMEN"); 
print("</td></tr>"); 

print("</table>");
ocilogoff($con); 

?> 
<br>
<UPDATE DATA>
<form name="kirim" method="POST" action=""> 
  Masukkan ID Supplier <input type="text" name="idSupplier"> <br>
  Update Nama Semen <input type="text" name="namaSemen"> 
  <input type="submit" name="Submit" value="UPDATE"> 
</form> 

</body> 
</html>


Where PHP - ORACLE.

<html> 
<head> 
<title>Contoh Penggunaan Where</title> 
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1"> 
</head> 
<body bgcolor="#FFFFFF" text="#000000"> 


<?php 
$Nama_Supplier=$_POST["Nama_Supplier"]; 
?> 

<form name="kirim" method="POST" action=""> 
  Nama Supplier <input type="text" name="Nama_Supplier"> 
  <input type="submit" name="Submit" value="Kirim"> 
</form>

<?php 

if ($Nama_Supplier<>""){ 
$con=ocilogon("system","ekosupriyanto","//localhost:1521/xe"); 
$sql=ociparse($con,"select * from tabel3 where
Nama_Supplier='$Nama_Supplier'"); 
ociexecute($sql); 
print("<table border=1>");
print("<th>ID SUPPLIER</th><th>NAMA SUPPLIER</th><th>ALAMAT</th><th>JENIS KELAMIN</th><th>JUMLAH</th><th>TANGGAL MASUK BARANG</th><th>STATUS</th><th>NAMA SEMEN</th>");
while (ocifetch($sql)){ 
print("<tr><td>"); 
echo ociresult($sql,"ID_SUPPLIER"); 
print("</td><td>"); 
echo ociresult($sql,"NAMA_SUPPLIER"); 
print("</td><td>"); 
echo ociresult($sql,"ALAMAT"); 
print("</td><td>");
echo ociresult($sql,"JENIS_KELAMIN"); 
print("</td><td>");
echo ociresult($sql,"JUMLAH"); 
print("</td><td>");
echo ociresult($sql,"TANGGAL_MASUK_BARANG"); 
print("</td><td>");
echo ociresult($sql,"STATUS"); 
print("</td><td>");
echo ociresult($sql,"NAMA_SEMEN"); 
print("</td></tr>");  

print("</table>");

ocilogoff($con);} 
?> 
</body> 
</html>

Delete PHP - ORACLE.

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

 <html> 
<head> 
<title>Contoh Penggunaan Delete</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> 
</head> 
<body bgcolor="#FFFFFF" text="#000000">


<?php
$idSupplier=$_POST["idSupplier"]; 

$con=ocilogon("system","ekosupriyanto","//localhost:1521/xe"); 

if ($idSupplier<>""){
  $sql=ociparse($con,"delete from tabel3 where ID_SUPPLIER='$idSupplier'");  
  ociexecute($sql);
}

$sql=ociparse($con,"select * from tabel3"); 
ociexecute($sql); 

print("<table border=1>");

print("<th>ID_SUPPLIER</th><th>NAMA_SUPPLIER</th><th>ALAMAT</th><th>JENIS_KELAMIN</th><th>JUMLAH</th><th>TANGGAL_MASUK_BARANG</th><th>STATUS</th><th>NAMA_SEMEN</th>"); 

while (ocifetch($sql)){ 
print("<tr><td>"); 
echo ociresult($sql,"ID_SUPPLIER"); 
print("</td><td>"); 
echo ociresult($sql,"NAMA_SUPPLIER"); 
print("</td><td>"); 
echo ociresult($sql,"ALAMAT"); 
print("</td><td>"); 
echo ociresult($sql,"JENIS_KELAMIN"); 
print("</td><td>"); 
echo ociresult($sql,"JUMLAH"); 
print("</td><td>");
echo ociresult($sql,"TANGGAL_MASUK_BARANG"); 
print("</td><td>");
echo ociresult($sql,"STATUS"); 
print("</td><td>");
echo ociresult($sql,"NAMA_SEMEN"); 
print("</td><td>"); 

print("</table>");
ocilogoff($con); 

?> 
<br>
<UPDATE DATA>
<form name="kirim" method="POST" action=""> 
  Masukkan ID SUPPLIER <input type="text" name="idSupplier">
  <input type="submit" name="Submit" value="DELETE"> 
</form> 


<body>
</body>
</html>

--------------------Selamat mencoba dan semoga bermanfaat-------------------

Minggu, 23 Desember 2012

Form data supplier barang gudang semen menggunakan vb 2010


Imports Oracle.DataAccess.Client
Public Class Form1
    Dim currentid As String
    Dim terkoneksi As Boolean
    Dim conn As New OracleConnection()



 
    Private Sub btnconnect_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnconnect.Click
        Dim tns As String
        If (btnconnect.Text = "Connect") Then
            Try
                tns = "Data source =(DESCRIPTION =(ADDRESS =(PROTOCOL = TCP) (HOST= localhost) (PORT = 1521)) (CONNECT_DATA =(SERVER = DEDICATED) (SERVICE_NAME= XE)));User id = system;Password = ekosupriyanto"
                conn = New Oracle.DataAccess.Client.OracleConnection(tns)
                conn.Open()
                terkoneksi = True
                btnconnect.Text = "disConnect"
                MessageBox.Show("Koneksi VB Oracle Sukses !!!!!", "information", MessageBoxButtons.OK, MessageBoxIcon.Information)
                btnShow_Click(sender, e)


            Catch ex As Exception
                MessageBox.Show("disKoneksi VB Oracle Gagal !!!", "Kesalahan", MessageBoxButtons.OK, MessageBoxIcon.Error)
                conn.Close()
                btnconnect.Text = "Connect"

            End Try

        Else
            btnconnect.Text = "Connect"
            conn.Close()
            MessageBox.Show("koneksi VB Oracle Sukses !!", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)


        End If

    End Sub

    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        conn.Close()
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If MessageBox.Show("Keluar sekarang??", "Confirm Closing", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No Then
            e.Cancel = True
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        btndelete.Enabled = False
        btnupdate.Enabled = False
        cbnama_semen.SelectedIndex = 0
        cbtanggal_masuk_barang.SelectedIndex = 0


        btnconnect_Click(sender, e)


    End Sub

    Private Sub btnshow_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnshow.Click
        Dim kueri As String
        kueri = "select * from tabel_suplier"
        Try
            'tampilkan
            Dim da As New OracleDataAdapter(kueri, conn)
            Dim ds As New DataSet()
            da.Fill(ds)
            DataGridView1.DataSource = ds.Tables(0)

            'Msgbox("Query berhasil")


        Catch ex As Exception
            MsgBox("Query gagal" & ex.Message)

        End Try
    End Sub

    Private Sub btninsert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btninsert.Click
        Dim kueri As String
        Dim cmd As OracleCommand

        kueri = "insert into tabel_suplier values"
        kueri &= " ('" & txtid_supplier.Text & "'"
        kueri &= " ,'" & txtnama_supplier.Text & "'"
        kueri &= " ,'" & txtalamat.Text & "'"

        If rblaki.Checked = True Then
            kueri &= " ,'" & rblaki.Text & "'"
        Else
            kueri &= ",'" & rbperempuan.Text & "'"

        End If

        kueri &= ",'" & txtjumlah.Text & "'"
        kueri &= ",'" & cbtanggal_masuk_barang.SelectedItem & "'"
        kueri &= ",'" & txtstatus.Text & "'"
        kueri &= ",'" & cbnama_semen.SelectedItem & "'"
        kueri &= ")"

        'Label5.Text = kueri
        'Label7.Text = kueri

        Try
            'tampilkan
            cmd = New OracleCommand(kueri, conn)
            cmd.ExecuteNonQuery()

            MsgBox("Query berhasil")
            btnshow_Click(sender, e)


        Catch ex As Exception
            MsgBox("Query gagal" & ex.Message)
        End Try


    End Sub

    Private Sub DataGridView1_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick
        Dim i As Integer
        i = DataGridView1.CurrentRow.Index
        txtid_supplier.Text = DataGridView1.Item(0, i).Value
        currentid = DataGridView1.Item(0, i).Value
        txtnama_supplier.Text = DataGridView1.Item(1, i).Value
        txtalamat.Text = DataGridView1.Item(2, i).Value
        If (rblaki.Text = DataGridView1.Item(3, i).Value) Then rblaki.Checked = True Else rbperempuan.Checked = True
        cbnama_semen.Text = DataGridView1.Item(4, i).Value
        txtjumlah.Text = DataGridView1.Item(5, i).Value
        cbtanggal_masuk_barang.Text = DataGridView1.Item(6, i).Value
        txtstatus.Text = DataGridView1.Item(7, i).Value

        btndelete.Enabled = True
        btnupdate.Enabled = True

    End Sub

    Private Sub btnupdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnupdate.Click
        Dim kueri As String
        Dim cmd As OracleCommand

        kueri = "update tabel_supplier "
        kueri &= " set "
        kueri &= " id_supplier='" & txtid_supplier.Text & "'"
        kueri &= " , nama_supplier='" & txtnama_supplier.Text & "'"
        kueri &= " , alamat='" & txtalamat.Text & "'"
        If rblaki.Checked = True Then
            kueri &= " ,jenis_kelamin='" & rblaki.Text & "'"
        Else
            kueri &= ", jenis_kelamin='" & rbperempuan.Text & "'"

        End If

        kueri &= " , jumlah='" & txtjumlah.Text & "'"
        kueri &= " , tanggal_masuk_barang='" & cbtanggal_masuk_barang.Text & "'"
        kueri &= " , status= '" & txtstatus.Text & "'"
        kueri &= " , nama_semen= '" & cbnama_semen.Text & "'"
        kueri &= " where id_supplier='" & currentid & "'"

        Try
            cmd = New OracleCommand(kueri, conn)
            cmd.ExecuteNonQuery()

            MsgBox("Query berhasil")
            btnshow_Click(sender, e)

        Catch ex As Exception
            MsgBox("Query gagal" & ex.Message)
        End Try

    End Sub

    Private Sub btndelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btndelete.Click
        Dim kueri As String
        Dim cmd As OracleCommand

        kueri = "delete from tabel_suplier "
        kueri &= " where id_supplier='" & currentid & "'"

        If MessageBox.Show("Data dengan id_supplier: " & currentid & " ingin dihapus????", "Confirm Closing", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
            Try
                cmd = New OracleCommand(kueri, conn)
                cmd.ExecuteNonQuery()

                MsgBox("Query berhasil")
                btnshow_Click(sender, e)

            Catch ex As Exception
                MsgBox("Query gagal" & ex.Message)



            End Try
        End If
    End Sub

  End Class



Rabu, 05 Desember 2012

Tabel Gudang Semen


Tabel Data Transaksi

Kode sup
Nama supplier
Alamat
Kode barang
Harga Barang
Satuan
Nama Karyawan
Jabatan
Nama Barang
1101
Gendut Jaya
Jl.Pati
A001
65.000,-
1
Zain Zulfikar
Penerima Barang
Semen Kijang

1102
Kriting Makmur
Jl.Krandon
A001
65.000,-
1
Ikhwan Mufakat
Penyimpan Barang
Semen Kijang

1103
Bengkong Subur
Jl.Jepara
B002
75.000,-
2
Farid Maulana
Kepala Gudang
Tiga Roda

1104
Octolube
Jl.Tumpang
C002
100.000,-
1
Ilham Bijaksana
Penerima Barang
Indocement

1105
Ndablek Commpany
Jl.Nalum
B001
80.000,-
4
Candra Awaludin
Penerima Barang
Semen Gersik

1106
Sllim Aja.inc
Jl.Pati
C001
85.000,-
3
Amrul Ngurah Rai
Penerima Barang
Semen Padang

1107
Shinta Buana
Jl.Troso
A002
70.000,-
1
Shinta Mayang Sari
Penyimpan Barang
Semen Tonasa

1108
Cimut Jaya
Jl.Bae
C001
85.000,-
2
Soto Murah
Penerima Barang
Semen Padang

1109
Pandawa
Jl.Rendeng
B001
80.000,-
5
Bang Ali
Penyimpan Barang
Semen Gersik

1110
CV. 00Star OK
Jl.Nyah Mbancan
B002
75.000,-
2
Vivi P. K.
Penyimpan Barang
Tiga Roda





Tabel Tottal Harga
Kode Suplier
Nama Suplier
Kode Barang
Nama Karyawan
Satuan
Harga
Tottal
1101
Gendut Jaya
A001
Zain Zulfikar
1
65.000,-
65.000,-
1102
Kriting Makmur
A001
Ikhwan Mufakat
1
65.000,-
65.000,-
1103
Bengkong Subur
B002
Farid Maulana
2
75.000,-
150.000,-
1104
Octolube
C002
Ilham Bijaksana
1
100.000,-
100.000,-

Tabel Data Suppleir
Kode Supplier
Nama Suppleir
Nama  Barang
Alamat
1108
Cimut Jaya
Semen Padang
Jl.Bae
1109
Pandawa
Semen Gersik
Jl.Rendeng
1110
CV. 00Star OK
Tiga Roda
Jl.Nyah Mbancan






Tabel Barang Masuk
Kode Supplier
Nama Suppleir
Kode Barang
Nama  Barang
Satuan
Nama Karyawan
Jabatan
Tanggal Masuk
1108
Cimut Jaya
A001
Semen Padang
1
Zain Zulfikar
Penerima Barang
6 / 12 / 2012
1109
Pandawa
A001
Semen Gersik
1
Ikhwan Mufakat
Penyimpan Barang
3 / 12 / 2012
1110
CV. 00Star OK
B002
Tiga Roda
2
Farid Maulana
Kepala Gudang
1 / 12 / 2012

Tabel Barang Keluar
Kode Barang
Nama  Barang
Satuan
Nama Karyawan
Jabatan
Tanggal Keluar
A001
Semen Padang
1
Zain Zulfikar
Penerima Barang
6 / 12 / 2012
A001
Semen Gersik
1
Ikhwan Mufakat
Penyimpan Barang
3 / 12 / 2012
B002
Tiga Roda
2
Farid Maulana
Kepala Gudang
1 / 12 / 2012

Tabel Karyawan
Kode Karyawan
Nama Karyawan
Alamat
Jabatan
A1KAR1
Zain Zulfikar
Jl.Madu Selangor
Penerima Barang
A1KAR2
Ikhwan Mufakat
Jl.Bungalow 59
Penyimpan Barang
A1KEP1
Farid Maulana
Jl.Sesat Hidup
Kepala Gudang


Tabel Barang / Stok Barang
Kode Barang
Nama  Barang
Stok
A001
Semen Padang
10
B001
Semen Gersik
10
B002
Tiga Roda
20