DESAIN FORM BARANG

Desain form barang diatas menggunakan DB Grid dan Data Grid
Untuk listingnya sudah saya pos dipertemuan sebelumnya...

Listing VB1_PASCA UTS

Desain form barang diatas:
ini listingnya...kalo ada yang mau ditanyakan,silahkan tinggalkan jejak dengan memberi komentar.
Private Sub add_Click()
aktif
bersih
tkode_barang.SetFocus
save.Enabled = True
cancel.Enabled = True
add.Enabled = False
hapus.Enabled = False
End Sub

Private Sub akhir_Click()
data_barang.Recordset.MoveLast
tampil
End Sub

Private Sub awal_Click()
data_barang.Recordset.MoveFirst
tampil
End Sub

Private Sub cancel_Click()
bersih
cancel.Enabled = False
add.Enabled = True
save.Enabled = False
hapus.Enabled = True
edit.Enabled = False
End Sub

Sub bersih()
tkode_barang.Text = ""
tnama_barang.Text = ""
tharga_barang.Text = ""
tsatuan.Text = ""
tstok.Text = ""
End Sub

Sub aktif()
tkode_barang.Enabled = True
tnama_barang.Enabled = True
tharga_barang.Enabled = True
tsatuan.Enabled = True
tstok.Enabled = True
add.Enabled = True
End Sub

Sub nonaktif()
tkode_barang.Enabled = False
tnama_barang.Enabled = False
tharga_barang.Enabled = False
tstok.Enabled = False
tsatuan.Enabled = False
End Sub

Private Sub edit_Click()
data_barang.Recordset.edit
aktif
tkode_barang.Enabled = False
tnama_barang.SetFocus
add.Enabled = False
edit.Enabled = False
save.Enabled = True
hapus.Enabled = False
cancel.Enabled = True
Call tampil
End Sub

Sub tampil()
With data_barang.Recordset
tkode_barang.Text = !kode_barang
tnama_barang.Text = !nama_barang
tharga_barang.Text = !harga_barang
tsatuan.Text = !satuan
tstok.Text = !stok
End With
End Sub

Private Sub exit_Click()
a = MsgBox("YAKIN MAU KELUAR", vbYesNo, "INFO")
If a = vbYes Then
F_MENU.Show
form_barang.Visible = False
End If
End Sub

Private Sub find_Click()
Dim a As String
a = InputBox("Ketik kode yang akan dicari :", "Pencarian")
On Error Resume Next
data_barang.Recordset.Index = "kode_barang"
data_barang.Recordset.Seek "=", a
tampil
tkode_barang.Enabled = False
tnama_barang.Enabled = False
tharga_barang.Enabled = False
tsatuan.Enabled = False
tstok.Enabled = False
If data_barang.Recordset.NoMatch Then
MsgBox "record kode barang " + a + " tidak ada ", vbInformation, "Informasi"
End If
edit.Enabled = True
End Sub

Private Sub Form_Load()
nonaktif
bersih
save.Enabled = False
cancel.Enabled = False
edit.Enabled = False
End Sub

Private Sub Form_Unload(cancel As Integer)
Dim keluar As String
keluar = MsgBox("Anda akan keluar sistem?", _
vbQuestion + vbYesNo, "Message")
Select Case keluar
Case vbYes
End
Case Else: cancel = 1: End Select
End Sub

Private Sub hapus_Click()
data_barang.Recordset.Delete
data_barang.Recordset.MoveFirst
Call tampil
End Sub

Private Sub maju_Click()
data_barang.Recordset.MoveNext
If data_barang.Recordset.EOF Then
MsgBox "Data sudah di akhir record", vbInformation, "info"
data_barang.Recordset.MoveLast
End If
Call tampil
End Sub

Private Sub mundur_Click()
data_barang.Recordset.MovePrevious
If data_barang.Recordset.BOF Then
MsgBox "Data sudah di awal record", vbInformation, "info"
data_barang.Recordset.MoveFirst
End If
Call tampil
End Sub

Private Sub save_Click()
With data_barang.Recordset
.Index = "kode_barang"
.Seek "=", tkode_barang.Text
If .NoMatch Then
.AddNew
'Addnew = untuk membuat atau menambah data baru
'perintah untuk menyimpan data yang di inputkan pada textbox ke dalam field database
.Fields!kode_barang = tkode_barang.Text
.Fields!nama_barang = tnama_barang.Text
.Fields!harga_barang = tharga_barang.Text
.Fields!satuan = tsatuan.Text
.Fields!stok = tstok.Text
.Update
MsgBox "data tersimpan!", vbInformation, "info"
Else
.edit
.Fields!nama_barang = tnama_barang.Text
.Fields!harga_barang = tharga_barang.Text
.Fields!satuan = tsatuan.Text
.Fields!stok = tstok.Text
.Update
MsgBox "data diperbaharui!", vbInformation, "info"
End If
bersih
nonaktif
add.Enabled = True
save.Enabled = False
cancel.Enabled = False
End With
End Sub

Private Sub tharga_barang_KeyPress(KeyAscii As Integer)
If ((KeyAscii < 48 And KeyAscii <> 8) Or KeyAscii > 57) Then
    KeyAscii = 0
End If
End Sub

Private Sub Timer1_Timer()
tanggal.Caption = Date
jam.Caption = Time
End Sub

Private Sub tkode_barang_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
tnama_barang.SetFocus
End If

End Sub

Private Sub tnama_barang_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
tharga_barang.SetFocus
End If
End Sub

Private Sub tsatuan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
tstok.SetFocus
End If
End Sub

Private Sub tstok_KeyPress(KeyAscii As Integer)
If ((KeyAscii < 48 And KeyAscii <> 8) Or KeyAscii > 57) Then
    KeyAscii = 0
End If
If KeyAscii = 13 Then
save.SetFocus
End If
End Sub

script lengkap dari tampil sampe hapus dan update pada php (dreamweaver CS3)

Hai....kali ini saya akan memposting script sederhana tentang php (khususnya web programming 1)
yuuukkkk cekidotttt....

sebelumnya kalian bikin database dulu di localhost/phpmyadmin dengan ketentuan sebagai berikut:
1. buat database dengan nama tokobaju_11113286.
#karena saya menggunakan nim saya.
2. buat tabel dengan nama cart dengan struktur sebagai berikut:
===========================================================
field                                 type                        length                               key
===========================================================
kode_baju                   varchar                          5                             primary key
merek                         varchar                          30                  
jenis                            varchar                          20
harga                           currency                      
stok                               int                                11
===========================================================


3. kalo sudah mari kita bikin script di bawah ini di dreamweaver CS3 atau di php coder (sama aza)
#ini listingnya.....simpan dengan nama tampil_baju.php
<!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>
<style type="text/css">
<!--
.style1 {
    color: #FFFFFF
}
-->
</style>
</head>

<body bgcolor="#0033FF">
<h2 align="center" class="style1">TOKO BAJU LIAH HASTUTI TIANG JAWI</h2>
<hr size="7" color="#FFCC00" />
<?
include "koneksi.php";
$tampil=mysql_query("select*from cart");
while ($data=mysql_fetch_array($tampil))
{
?>
<form action="update_baju.php" method="post">
<table width="438" border="1" bgcolor="#FFFF33" align="center" bordercolor="#CC0000">
  <tr>
    <td width="137">kode baju</td>
    <td width="34">:</td>
    <td width="245"><? echo $data['kode_baju'];?><input type="hidden" name="kode_baju" value="<? echo $data['kode_baju'];?>"/></td>
  </tr>
  <tr>
    <td>merek</td>
    <td>:</td>
    <td><input type="text" name="merek" value="<? echo $data['merek'];?>"/></td>
  </tr>
  <tr>
    <td>jenis</td>
    <td>:</td>
    <td><input type="text" name="jenis" value="<? echo $data['jenis'];?>"/></td>
  </tr>
  <tr>
    <td>harga</td>
    <td>:</td>
    <td><input type="text" name="harga" value="<? echo $data['harga'];?>"/></td>
  </tr>
  <tr>
    <td>stok</td>
    <td>:</td>
    <td><input type="text" name="stok" value="<? echo $data['stok'];?>"/></td>
  </tr>
  <tr>
    <td colspan="3"><div align="center">
    <a href="update_baju.php?kode_baju=<? echo $data['kode_baju'];?>" onclick="return confirm('data telah diupdate')"><input type="submit" name="update" value="update" /></a>
    <a href="hapus_baju.php?kode_baju=<? echo $data['kode_baju'];?>" onclick="return confirm('data terhapus')"><input type="button" name="hapus" value="hapus" /></a></div></td>
  
  </tr>
</table>
</form>
<?
}
?>

</body>
</html>
 
4. buat koneksinya (simpan dengan nama koneksi.php)
<?
$koneksi=mysql_connect("localhost","root","password") or die ("koneksi gagal".mysql_error());
mysql_select_db("tokobaju_11113286");
?>

5. buat script update-nya (simpan dengan nama update_baju.php)
<?
include "koneksi.php";
$ubah=mysql_query("update cart set merek='$_POST[merek]',jenis='$_POST[jenis]',harga='$_POST[harga]',stok='$_POST[stok]' where kode_baju='$_POST[kode_baju]'");
if ($ubah)
{
echo"<meta http-equiv='refresh' content='0; url=tampil_baju.php'>";
}
else
{
mysql_error();
}
?>

6. buat script hapus (simpan dengan nama hapus_baju.php)
<?
include "koneksi.php";
$ubah=mysql_query("update cart set merek='$_POST[merek]',jenis='$_POST[jenis]',harga='$_POST[harga]',stok='$_POST[stok]' where kode_baju='$_POST[kode_baju]'");
if ($ubah)
{
echo"<meta http-equiv='refresh' content='0; url=tampil_baju.php'>";
}
else
{
mysql_error();
}
?>