Inventori

inventori ini menggunakan vbnet 2010 dan mysql. pertama -tama buat database dengan nama dbinventori. buat tabel 
1. tabel barang (tbbarang) - kodebarang =varchar (6) - namabarang=varchar (35) - harga =int (8) dan stock int (4)
 2. tabel Suplier(tbsuplier) - kodesup=varchar(6) - namasuplier=varchar(35) - alamat=varchar(35) dan telpn=varchar(15)
3.  tabel Pelanggan(tbpelanggan) - kodepel=varchar(6) - namapelanggan=varchar(35) alamat=varchar(35) dan telpn=varchar(15)


Setelah itu buat desain untuk from Master seperti berikut :

 buat model dengan mdlbarang 
Imports MySql.Data.MySqlClient

Module Mdlbarang
    Public Conn As MySqlConnection
    Public RD As MySqlDataReader
    Public DA As MySqlDataAdapter
    Public CMD As MySqlCommand
    Public DS As DataSet
    Public simpan, ubah, hapus As String
    Public Sub bukaDB()
        ' Public Conn As String = "Server=localhost;User" & "ID=root;password=;database=sc"
        Dim SQLConn As String
        SQLConn = "server=localhost;database=dbinventori;password=;username=root;"
        Conn = New MySqlConnection(SQLConn)
        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If
    End Sub

End Module



FROM BARANG

Imports MySql.Data.MySqlClient
Public Class frmbarang
   

    Sub isiGrid()
        Mdlbarang.bukaDB()
        DA = New MySqlDataAdapter("SELECT * from tbbarang", Conn)
        DS = New DataSet
        DA.Fill(DS, "tbbarang")
        DataGridView1.DataSource = DS.Tables("tbbarang")
        DataGridView1.ReadOnly = True
    End Sub
  
    Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click
        If btntambah.Text = "Tambah" Then
            btntambah.Text = "Simpan"
            txtkodebarang.Focus()
        Else
            Try
                Call bukaDB()
                CMD = New MySqlCommand("SELECT kodebarang from tbbarang WHERE kodebarang = '" & txtkodebarang.Text & "'", conn)
                RD = CMD.ExecuteReader
                RD.Read()
                If RD.HasRows Then
                    MsgBox("Maaf, Data dengan kode tersebut telah ada", MsgBoxStyle.Exclamation, "Peringatan")
                Else
                    Call bukaDB()
                    simpan = "INSERT INTO tbbarang (kodebarang,namabarang,harga,stok) VALUES ('" & txtkodebarang.Text & "','" & txtnamabarang.Text & "','" & txthargabarang.Text & "','" & txtstock.Text & "')"
                    CMD = New MySqlCommand(simpan, Conn)
                    CMD.ExecuteNonQuery()
                    Call isiGrid()
                    Call bersih()
                    Call isiCombo()
                End If
            Catch ex As Exception
                MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
            End Try
        End If
    End Sub

    Private Sub frmbarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DbinventoriDataSet.tbbarang' table. You can move, or remove it, as needed.
        ''Me.TbbarangTableAdapter.Fill(Me.DbinventoriDataSet.tbbarang)
        Call bukaDB()
        Call isiGrid()
        Call isiCombo()
    End Sub
    Sub isiCombo()
        Call bukaDB()
        CMD = New MySqlCommand("SELECT kodebarang From tbbarang", Conn)
        RD = CMD.ExecuteReader
        ComboBox1.Items.Clear()
        Do While RD.Read
            ComboBox1.Items.Add(RD.Item(0))
        Loop
        CMD.Dispose()
        RD.Close()
        Conn.Close()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Call bukaDB()
        CMD = New MySqlCommand("SELECT kodebarang,namabarang,harga,stok FROM tbbarang WHERE kodebarang = '" & ComboBox1.Text & "'", Conn)
        RD = CMD.ExecuteReader
        RD.Read()
        If RD.HasRows Then
            txtkodebarang.Text = RD.Item(0)
            txtnamabarang.Text = RD.Item(1)
            txthargabarang.Text = RD.Item(2)
            txtstock.Text = RD.Item(3)
            txtkodebarang.Enabled = False
            txtnamabarang.Focus()
        End If
    End Sub
    Private Sub bersih()
        txtkodebarang.Text = ""
        txtnamabarang.Text = ""
        txthargabarang.Text = ""
        txtstock.Text = ""
        txtkodebarang.Focus()
        btntambah.Text = ""
    End Sub
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Try
            Call bukaDB()
            hapus = "DELETE FROM tbbarang WHERE kodebarang='" & txtkodebarang.Text & "'"
            CMD = New MySqlCommand(hapus, Conn)
            CMD.ExecuteNonQuery()
            Call bersih()
            Call isiGrid()
            Call isiCombo()
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
        End Try
    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
        Try
            Call bukaDB()
            ubah = "UPDATE tbbarang SET namabarang='" & txtnamabarang.Text & "',harga='" & txthargabarang.Text & "',stok='" & txtstock.Text & "' WHERE kodebarang = '" & txtkodebarang.Text & "'"
            CMD = New MySqlCommand(ubah, Conn)
            CMD.ExecuteNonQuery()
            Call bersih()
            Call isiGrid()
            Call isiCombo()
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
        End Try
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Me.Close()
    End Sub
End Class

FROM SUPLIER

Imports MySql.Data.MySqlClient

Public Class datasuplier

    Private Sub datasuplier_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Sub isiGrid()
        Mdlbarang.bukaDB()
        DA = New MySqlDataAdapter("SELECT * from tbsuplier", Conn)
        DS = New DataSet
        DA.Fill(DS, "tbsuplier")
        DataGridView1.DataSource = DS.Tables("tbsuplier")
        DataGridView1.ReadOnly = True
    End Sub
    Sub isiCombo()
        Call bukaDB()
        CMD = New MySqlCommand("SELECT kodesup From tbsuplier", Conn)
        RD = CMD.ExecuteReader

        CMD.Dispose()
        RD.Close()
        Conn.Close()
    End Sub
    Private Sub bersih()
        txtkodesuplier.Text = ""
        txtnamasuplier.Text = ""
        txtalamatsuplier.Text = ""
        txttlpn.Text = ""
        txtkodesuplier.Focus()
        btntambah.Text = ""
    End Sub

    Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click
        If btntambah.Text = "Tambah" Then
            btntambah.Text = "Simpan"
            txtkodesuplier.Focus()
        Else
            Try
                Call bukaDB()
                CMD = New MySqlCommand("SELECT kodesup from tbsuplier WHERE kodesup = '" & txtkodesuplier.Text & "'", conn)
                RD = CMD.ExecuteReader
                RD.Read()
                If RD.HasRows Then
                    MsgBox("Maaf, Data dengan kode tersebut telah ada", MsgBoxStyle.Exclamation, "Peringatan")
                Else
                    Call bukaDB()
                    simpan = "INSERT INTO tbsuplier (kodesup,namasuplier,alamat,telp) VALUES ('" & txtkodesuplier.Text & "','" & txtnamasuplier.Text & "','" & txtalamatsuplier.Text & "','" & txttlpn.Text & "')"
                    CMD = New MySqlCommand(simpan, Conn)
                    CMD.ExecuteNonQuery()
                    Call isiGrid()
                    Call bersih()
                    Call isiCombo()
                End If
            Catch ex As Exception
                MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
            End Try
        End If
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Try
            Call bukaDB()
            hapus = "DELETE FROM tbsuplier WHERE kodesup='" & txtkodesuplier.Text & "'"
            CMD = New MySqlCommand(hapus, Conn)
            CMD.ExecuteNonQuery()
            Call bersih()
            Call isiGrid()
            Call isiCombo()
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
        End Try
    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
        Try
            Call bukaDB()
            ubah = "UPDATE tbsuplier SET namasuplier='" & txtnamasuplier.Text & "',alamat='" & txtalamatsuplier.Text & "',telp='" & txttlpn.Text & "' WHERE kodesup = '" & txtkodesuplier.Text & "'"
            CMD = New MySqlCommand(ubah, Conn)
            CMD.ExecuteNonQuery()
            Call bersih()
            Call isiGrid()
            Call isiCombo()
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
        End Try

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Me.Close()
    End Sub
End Class

FROM PELANGGAN

Imports MySql.Data.MySqlClient

Public Class datapelanggan

    Private Sub datapelanggan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Sub isiGrid()
        Mdlbarang.bukaDB()
        DA = New MySqlDataAdapter("SELECT * from tbpelanggan", Conn)
        DS = New DataSet
        DA.Fill(DS, "tbpelanggan")
        DataGridView1.DataSource = DS.Tables("tbpelanggan")
        DataGridView1.ReadOnly = True
    End Sub
    Sub isiCombo()
        Call bukaDB()
        CMD = New MySqlCommand("SELECT kodepel From tbpelanggan", Conn)
        RD = CMD.ExecuteReader
     
        CMD.Dispose()
        RD.Close()
        Conn.Close()
    End Sub
    Private Sub bersih()
        txtkodepelanggan.Text = ""
        txtnamapelanggan.Text = ""
        txtalamat.Text = ""
        txttlpn.Text = ""
        txtkodepelanggan.Focus()
        btntambah.Text = ""
    End Sub

    Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click
        If btntambah.Text = "Tambah" Then
            btntambah.Text = "Simpan"
            txtkodepelanggan.Focus()
        Else
            Try
                Call bukaDB()
                CMD = New MySqlCommand("SELECT kodepel from tbpelanggan WHERE kodepel = '" & txtkodepelanggan.Text & "'", conn)
                RD = CMD.ExecuteReader
                RD.Read()
                If RD.HasRows Then
                    MsgBox("Maaf, Data dengan kode tersebut telah ada", MsgBoxStyle.Exclamation, "Peringatan")
                Else
                    Call bukaDB()
                    simpan = "INSERT INTO tbpelanggan (kodepel,namapelanggan,alamat,telp) VALUES ('" & txtkodepelanggan.Text & "','" & txtnamapelanggan.Text & "','" & txtalamat.Text & "','" & txttlpn.Text & "')"
                    CMD = New MySqlCommand(simpan, Conn)
                    CMD.ExecuteNonQuery()
                    Call isiGrid()
                    Call bersih()
                    Call isiCombo()
                End If
            Catch ex As Exception
                MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
            End Try
        End If
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Try
            Call bukaDB()
            hapus = "DELETE FROM tbpelanggan WHERE kodepel='" & txtkodepelanggan.Text & "'"
            CMD = New MySqlCommand(hapus, Conn)
            CMD.ExecuteNonQuery()
            Call bersih()
            Call isiGrid()
            Call isiCombo()
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
        End Try
    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
        Try
            Call bukaDB()
            ubah = "UPDATE tbpelanggan SET namapelanggan='" & txtnamapelanggan.Text & "',alamat='" & txtalamat.Text & "',telp='" & txttlpn.Text & "' WHERE kodepel = '" & txtkodepelanggan.Text & "'"
            CMD = New MySqlCommand(ubah, Conn)
            CMD.ExecuteNonQuery()
            Call bersih()
            Call isiGrid()
            Call isiCombo()
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Terjadi Kesalahan")
        End Try

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Me.Close()
    End Sub
End Class



SELAMAT MENCOBAAAAAA :)
 

Membuat Buku tamu

buat database dengan nama database : gsbook dan nama tabelnya : guest .
terdapat 3 filed untuk pembuatan buku tamu ini yaitu : nama VARCHAR (25) , emailVARCHAR(25) dan komentar TEXT.

setelah database sudah siap , sekarang siapkan satu folder di xampp dan htdoc dengan nama bukutamu .
1. ketikan sript ini didalem bukutamu.html
<HTML>
<HEAD>

<TITLE> Form </TITLE>

<SCRIPT LANGUAGE="JavaScript">

function pesan() {

var ceknama = document.forms[0].elements[0].value;

var cekemail = document.forms[0].elements[1].value;

var cekkom = document.forms[0].elements[2].value;

if (ceknama.length == 0) {

window.alert("Anda belum memasukkan nama Anda");

} else {

if ((cekemail.length == 0) || (cekemail.indexOf("@",1) == -1)) {

window.alert("Periksa kembali alamat email Anda");

} else {

if ((cekkom.length == 0)) {

window.alert("Anda belum berkomentar");

} else {

document.forms[0].kirim();

}

}

}

}

</SCRIPT>

</HEAD>

<BODY>

<H1> Selamat Datang di Situs Kami </H1>

Silakan isi identitas Anda <BR>

<FORM NAME="identity" METHOD="post" ACTION="guest.php">

<PRE>

Nama : <INPUT TYPE="text" NAME="nama">

Email : <INPUT TYPE="text" NAME="email">

Komentar :

<TEXTAREA NAME="komentar" ROWS=10 COLS=30>

</TEXTAREA>

<INPUT TYPE="button" VALUE="Kirim" onClick=pesan()>

</PRE>

</FORM>

</BODY>

</HTML>

2. Ketikan ini untuk guest.php
<HTML>
<HEAD>
<TITLE> Buku Tamu </TITLE>

</HEAD>

<BODY>

<?

$host = "localhost";

$user = "root";

$pwd = "";

$conn = @mysql_connect ($host, $user, $pwd)

or die ("Koneksi Gagal, karena " . mysql_error());

mysql_select_db("gsbook",$conn);

$strSQL = "INSERT INTO guest (nama,email,komentar)

VALUES ('$_POST[nama]','$_POST[email]','$_POST[komentar]')";

$qry = @mysql_query($strSQL,$conn)

or die ("Query salah, karena: " . mysql_error());

?>

<H2> Terima kasih atas kesediaan Anda mengisi buku tamu. </H2>

<HR>

<A HREF="table.php"> Klik di sini </A> untuk melihat daftar para pengisi buku tamu.

</BODY>

</HTML>
3. dan untu yang terakhir ketikan ini untuk table.php
<HTML>

<HEAD>

<TITLE> Buku Tamu </TITLE>

</HEAD>

<BODY>

<CENTER>

<?

$host = "localhost";

$user = "root";

$pswd = "";

$conn = @mysql_connect ($host, $user, $pswd)

or die ("Koneksi Gagal: " . mysql_error());

mysql_select_db("gsbook",$conn);

$strSQL = "Select * from guest";

$qry= @mysql_query($strSQL,$conn)

or die ("Query salah: " . mysql_error());

$jml = mysql_num_rows($qry);

echo "Jumlah pengisi = $jml <BR>";

?>

<TABLE BORDER=1>

<TR>

<TD BGCOLOR=#f32142> Nama </TD>

<TD BGCOLOR=#f32142> Email </TD>

<TD BGCOLOR=#f32142> Komentar </TD>

</TR>

<?

while ($row = mysql_fetch_array ($qry)) {

echo "<TR>";

echo "<TD BGCOLOR=#f7efde>" . $row["nama"] . "</TD>";

echo "<TD BGCOLOR=#f7efde>" . $row["email"] . "</TD>";

echo "<TD BGCOLOR=#f7efde>" . $row["komentar"] . "</TD>";

echo "</TR>";

}

?>

</TABLE>

</BODY>

</HTML>


selesaiiiiiiii :D Selamat mencoba yahhhh guysssss :)