BSI CENGKARENG: VB1 PASCA UTS_DOSEN: BIktra Rudianto S.Kom, Nurdiana Handayani S.Kom, asisten: Liah Hastuti

REVISI MATERI:
Materi ini merupakan materi visual basic 6.0 untuk semester 3 Khusus jurusan Manajemen Informatika BSI Cengkareng. Silahkan download dan mencobanya di rumah :)
Untuk Form Barang ini adalah form master yang pertama dan telah di REVISI.

Form barang

Private Sub add_Click()

aktif

bersih

tkode_barang.SetFocus

save.Enabled = True

cancel.Enabled = True

add.Enabled = False

hapus.Enabled = False

edit.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 = False

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

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("Anda yakin akan keluar?", vbQuestion + 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

hapus.Enabled = True

End Sub

Private Sub Form_Load()

nonaktif

bersih

save.Enabled = False

cancel.Enabled = False

edit.Enabled = False

hapus.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.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 mundur_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 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