Membuat Software Database Yang Sederhana yang Gampang

Cara Membuat Software Database Toko

By Jaj Mv

Assalamu’alaikum Wr. Wb.
Sebelumnya saya mengucapkan terimakasih Kepada Anda,
yang sudah mengunjungi Blog saya, pada kesempatan ini nanti saya akan membuat tutorial “BAGAIMANA CARA MEMBUAT SOFTWARE DATABASE”.
Hasilnya Seperti Berikut :

Okey.....Langsung Saja ke Topik.
1. Yang Pertama Anda harus Mempunyai Software VISUAL BASIC 6.0.
    Bila belum punya silahkan download dulu...Okey.....
2. Yang Ke 2 Buka software Visual Basic 6.0, dan Buat Project Baru,
     setelah iru Form Baru, caranya : Klik Menu File – new Project – standar EXE.
3. Langkah yang ke 3 Desain Form Tersebut Seperti Gambar di Atas.
4. Buat Databasenya caranya Klik menu Add Ins – Visual Data Meneger , Tampil gambar Seperti Berikut :

5. Setelah Anda Buka, Pilih Menu File New Microsoft Acces V.7 -  Dan Simpan Database Tersebut.
6. Langkah ke 4 Sambungkan Compunen “Data Pada Database yang Anda Simpan tadi”.

Haduuuuh Capek....
Lanjutin Sendiri Yach...
Gampang Kok....
Hasil Cetaknya seperti Berikut :

Listing Progamnya  Seperti Berikut:

Private Sub Cetak_Click()
LAPORAN.Show
End Sub

Private Sub Command1_Click()
TOTALBAYAR = JUMLAHBARANG.Text * REGO.Text
End Sub

Private Sub Edit_Click()
DATABASE.Recordset.Edit
Call tampil
NAMABARANG.SetFocus
End Sub

Private Sub Form_Load()
Call tidaktampil
End Sub
Private Sub tampil()
NAMABARANG.Enabled = True
JUMLAHBARANG.Enabled = True
REGO.Enabled = True
TOTALBAYAR.Enabled = True
End Sub
Private Sub tidaktampil()
NAMABARANG.Enabled = False
JUMLAHBARANG.Enabled = False
REGO.Enabled = False
TOTALBAYAR.Enabled = False
End Sub

Private Sub HAPUS_Click()
Delete = MsgBox("KOWE YAKIN TENAN PENGEN HAPUS...???", vbInformation + vbYesNo, "Peringatan Mas.....!!!")
If Delete = vbYes Then
DATABASE.Recordset.Delete
DATABASE.Recordset.MoveNext
Else
DATABASE.Recordset.MoveFirst
End If
End Sub

Private Sub K_Click()
End
End Sub

Private Sub Km_Click()
Unload Me
Menu.Show
End Sub

Private Sub Masuk_Click()
DATABASE.Recordset.AddNew
Call tampil
NAMABARANG.SetFocus
End Sub

Private Sub Ps_Click()
Unload Me
Pencipta_software.Show
End Sub

Private Sub Simpan_Click()
DATABASE.Recordset.Update
DATABASE.Recordset.MoveFirst
Call tidaktampil
End Sub

Private Sub Timer1_Timer()
waktu.Caption = Time
End Sub

Private Sub Timer2_Timer()
Tanggal.Caption = Date
End Sub

Private Sub TT_Click()
Unload Me
Toko.Show
End Sub




Tentang Pembuat Software :

    Nama    :     JAJURI
    Tanggal Lahir    :    Demak, 17 Juli 1992
    Alamat    :    Bonangrejo, Panjunan RT.04 RW.01
    Kecamatan Bonang, Kab. Demak.
    Umur    :     19 Tahun
    Status    :     Jomblo
    Faceboook    :    Jaj_mv@yahoo.com
    Handphone    :    085741085733
    Situs    :    Http://Jajmv.blogspot.com