Jumat, 02 Maret 2012

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

7 komentar:

Anonim mengatakan...

Thanks bro lumayan ngebantu

Jajuri mengatakan...

ok. Sama2 brow,..

OPINI KU mengatakan...

Programnya kurang lengkap mungkin dapat copy paste. kalau yang lengkap itu mungkin pass membuat data report pasti ada koneksi ke databasenya masa cuma call datarefportnya aja langsung jadi gak mungkin sob.

Jajuri mengatakan...

call data report gimana. itu sudah terkoneksi databae juga lho.
lha software databasemu sperti apa...
sini aku mau lihat...

Agias Blog mengatakan...

ngasih tutor jangan setengah2 bang,but thankslah infonya

Agias Blog mengatakan...

ngasih tutor jangan setengah2 bang,but thankslah infonya

Anonim mengatakan...

boengung...

Posting Komentar

Alangkah Baiknya Jika Pengunjung Berkomentar.
(Bagi yang Belum Punya Akun Pakai "Anonim" Saja)
Ok Terimakasih :)

By Admin Jaj Mv Comp

Twitter Delicious Facebook Digg Stumbleupon Favorites More