Membuat DataBase Visual basic

Membuat File Database dan Struktur Tabel

A. Klik menu Add–Ins  Visual Data Manager

B. Klik menu File  New  Microsoft Access  Version 7.0 MDB

C. Ketik nama file Database pada kotak File Name (DBJOB1)

D. Klik droplist pada kotak Save In, Klik folder anda, klik tombol Save

E. Klik kanan folder Properties, Klik New Table (tampil window Table Structure)

F. Ketik nama tabel pada kotak Table Name (JUAL)

G. Klik tombol Add Field (tampil window Add Field)

H. Ketik nama field pada kotak Name

I. Tentukan type data pada kotak type

J. Tentukan ukuran field pada kotak Size, Klik tombol OK

K. Ulangi langkah nomor 8,9,10 untuk field berikutnya

L. Klik tombol Close

M. Klik tombol Add Index (tampil window Add Index)

N. Ketik nama index pada kotak Name

O. Klik field kunci index pada kotak Available Field

P. Klik tombol Ok  Close

Q. Klik tombol Build the Table untuk menyimpan tabel

Struktur Tabel JUAL

No Field Name Type Size

1 NOTA Text 5

2 KODE Text 5

3 NAMA Text 25

4 HARGA Single 4

5 JUMLAH Single 4

6 TOTAL Single 4

Nama Index : NOTA

Kunci Index : NOTA.

R. Mengaktifkan tabel pada form

S. Klik control Data pada window Toolbox

T. Buat kotak pada form dengan draging

U. Klik properti Name, ketik nama objek (TBJUAL)

V. Klik properti DatabaseName, Klik simbol …

W. Klik kotak Look In, klik folder tempat file database

X. Klik nama file database (DBJOB1), Klik tombol Open

Y. Klik properti RecordsetType, klik Table

Z. Klik properti RecordSource, Klik droplist, Klik nama Tabel (JUAL)

1.    Menambahkan  Data, Klik 2x Tabel JUAL

2.    Isikan Pada kolom dan Klik Update , Klik Yes Untuk Simpan

AA.Menampilkan data tabel pada form

BB.Klik control DBGrid pada window Toolbox

CC.Buat kotak pada form dengan draging

DD.Klik properti DataSource, Klik droplist, Klik nama objek data (TBJUAL)

EE.Klik kanan objek DBGrid pada form, Klik RetrieveField

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