Jobsheet 1

A.    Membuat File Database dan Struktur Tabel

            1.   Klik menu Add–Ins à Visual Data Manager
            2.   Klik menu File à New à Microsoft Access à Version 7.0 MDB
            3.   Ketik nama file Database pada kotak File Name (DBJOB1)
            4.   Klik droplist pada kotak Save In, Klik folder anda, klik tombol Save
            5.   Klik kanan folder Properties, Klik New Table (tampil window Table Structure)
            6.   Ketik nama tabel pada kotak Table Name (JUAL)
            7.   Klik tombol Add Field (tampil window Add Field)
            8.   Ketik nama field pada kotak Name
            9.   Tentukan type data pada kotak type
         10.   Tentukan ukuran field pada kotak Size, Klik tombol OK
         11.   Ulangi langkah nomor 8,9,10 untuk field berikutnya
         12.   Klik tombol Close
         13.   Klik tombol Add Index (tampil window Add Index)
         14.   Ketik nama index pada kotak Name
         15.   Klik field kunci index pada kotak Available Field
         16.   Klik tombol Ok à Close
         17.   Klik tombol Build the Table untuk menyimpan tabel

	Field Name	Type	Size
	NOTA	Text	5
	KODE	Text	5
	NAMA	Text	25
	HARGA	Single	4
	JUMLAH	Single	4
	TOTAL	Single	4

B.     Mengaktifkan tabel pada form
            1.   Klik control Data        pada window Toolbox
            2.   Buat kotak pada form dengan draging
            3.   Klik properti Name, ketik nama objek (TBJUAL)
            4.   Klik properti DatabaseName, Klik simbol …   
            5.   Klik kotak Look In, klik folder tempat file database
            6.   Klik nama file database (DBJOB1), Klik tombol Open
            7.   Klik properti RecordsetType, klik Table
            8.   Klik properti RecordSource, Klik droplist, Klik nama Tabel (JUAL)
C.    Menampilkan data tabel pada form
            1.   Klik control DBGrid       pada window Toolbox
            2.   Buat kotak pada form dengan draging
            3.   Klik properti DataSource, Klik droplist, Klik nama objek data (TBJUAL)
            4.   Klik kanan objek DBGrid pada form, Klik RetrieveField

Struktur Tabel JUAL

Nama Index    : NOTA

Kunci Index    : NOTA

  

Jika control DBGrid belum ada di window Toolbox, tampilkan dengan :

¨     Klik menu Project à Components

¨     Klik kotak di sebelah kiri Microsoft Data Bound Grid Control

¨     Klik tombol Ok

 Atur design form JOB1 seperti di bawah ini :

1. Tambahkan objek Label NOMOR NOTA
2. Tambahkan objek TextBox TXTNOTA
3. Hapus objek CommandButton CMDBLANKFORM
4. Tambahkan objek CommandButton CMDSIMPAN dan CMDHAPUS
5. Buat file database DBJOB1 dan struktur tabel JUAL
6. Tambahkan objek Data TBJUAL
7. Tambahkan objek DBGrid DBGJUAL

 

8. Edit kode program menjadi seperti berikut :

Private Sub BLANKFORM()

 TXTNOTA.Text = ""

 TXTKODE.Text = ""

 TXTNAMA.Text = ""

 TXTHARGA.Text = 0

 TXTJUMLAH.Text = 0

 TXTTOTAL.Text = 0

 TXTNOTA.SetFocus

End Sub

Private Sub Form_Activate()

 BLANKFORM

End Sub

Private Sub TXTNOTA_KeyPress(KeyAscii As Integer)

 If KeyAscii = 13 Then TXTKODE.SetFocus

End Sub

Private Sub TXTKODE_KeyPress(KeyAscii As Integer)

 If KeyAscii = 13 Then TXTNAMA.SetFocus

End Sub

Private Sub TXTNAMA_KeyPress(KeyAscii As Integer)

 If KeyAscii = 13 Then TXTHARGA.SetFocus

End Sub

Private Sub TXTHARGA_KeyPress(KeyAscii As Integer)

 If KeyAscii = 13 Then TXTJUMLAH.SetFocus

End Sub

Private Sub TXTJUMLAH_KeyPress(KeyAscii As Integer)

 If KeyAscii = 13 Then TXTTOTAL.SetFocus

End Sub

Private Sub TXTTOTAL_KeyPress(KeyAscii As Integer)

 If KeyAscii = 13 Then TXTNOTA.SetFocus

End Sub

Private Sub TXTHARGA_LostFocus()

 TXTTOTAL.Text = TXTHARGA.Text * TXTJUMLAH.Text

End Sub

Private Sub TXTJUMLAH_LostFocus()

  TXTTOTAL.Text = TXTHARGA.Text * TXTJUMLAH.Text

End Sub

Private Sub TXTNOTA_LostFocus()

 If TXTNOTA.Text <> "" Then

  TBJUAL.Recordset.Index = "NOTA"

  TBJUAL.Recordset.Seek "=", TXTNOTA.Text

  If TBJUAL.Recordset.NoMatch Then

   TXTKODE.SetFocus

  Else

   TXTKODE.Text = TBJUAL.Recordset!KODE

   TXTNAMA.Text = TBJUAL.Recordset!NAMA

   TXTHARGA.Text = TBJUAL.Recordset!HARGA

   TXTJUMLAH.Text = TBJUAL.Recordset!JUMLAH

   TXTTOTAL.Text = TBJUAL.Recordset!TOTAL

   X = MsgBox("NOMOR NOTA " & TXTNOTA.Text & " SUDAH ADA, DATA DIEDIT", vbYesNo)

   If X = vbYes Then

    TXTKODE.SetFocus

   Else

    BLANKFORM

   End If

  End If

 End If

End Sub

Private Sub CMDSIMPAN_Click()

 TBJUAL.Recordset.Index = "NOTA"

 TBJUAL.Recordset.Seek "=", TXTNOTA.Text

 If TBJUAL.Recordset.NoMatch Then

  TBJUAL.Recordset.AddNew

 Else

  TBJUAL.Recordset.Edit

 End If

  TBJUAL.Recordset!NOTA = TXTNOTA.Text

  TBJUAL.Recordset!KODE = TXTKODE.Text

  TBJUAL.Recordset!NAMA = TXTNAMA.Text

  TBJUAL.Recordset!HARGA = TXTHARGA.Text

  TBJUAL.Recordset!JUMLAH = TXTJUMLAH.Text

  TBJUAL.Recordset!TOTAL = TXTTOTAL.Text

 TBJUAL.Recordset.Update

 TBJUAL.Recordset.MoveFirst

 TBJUAL.Recordset.Seek "=", TXTNOTA.Text

 BLANKFORM

End Sub

Private Sub CMDHAPUS_Click()

 TBJUAL.Recordset.Index = "NOTA"

 TBJUAL.Recordset.Seek "=", TXTNOTA.Text

 If Not TBJUAL.Recordset.NoMatch Then

  X = MsgBox("DATA JADI DIHAPUS", vbYesNo)

  If X = vbYes Then

   TBJUAL.Recordset.Delete

  End If

  BLANKFORM

 End If

End Sub

Private Sub CMDCLOSE_Click()

 Unload Me

End Sub

Selamat mencoba, dan semoga sukses...