17.37
Komputer Demak
LIRIK LAGU | |
Air Supply | Avenged Sevenfold |
Avril Lavigne | Blink 182 |
Bullet For My Valentine | M2M |
Muse | The Rasmus |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Sedang Proses..... | Sedang Proses..... |
Jual Beli Komputer Via Online
PC Online Atau Jaj Mv Comp, Melayani Jual Beli Komputer di Jawa Tengah. Klik Disini Untuk Masuk Ke Websitenya.
Reoni Alumni SMA 3 Demak Tahun Angkatan 2010
Sesungguhnya Diskusi Itu Penting, Karna Di Bali Diskusi Kita Semua Bisa Tau, dan Bisa Memecahkan Suaatu Masalah dengan Mudah
Admin Jaj Mv Comp
Biografi : Nama Lengkapnya Adalah Mr. Jajuri. Di Lahirkan di Desa Bonangrejo RT.04 RW.01 Bonang, Demak - Jawa Tengah Indonesia. Sejak Kecilnya Mempunyai Hobi Internetan dan sampai sekarang pun dia masih melakukan hal seperti itu. Dia Mengenal Komputer sejak umur 10 tahun, yang setahu dia komputer adalah suatu alat untuk menghitung. Dan pengalaman penting yang ia dapat pada saat itu adalah menginstalasi ulang komputernya sendiri sejak umur 15 tahun.
Jumat, 16 Maret 2012
Lirik Lagu Jaj Mv, Free Lirik Lagu by Jaj Mv, Mahasiswa Kota Demak
Jumat, 02 Maret 2012
Cara Membuat Aplikasi Database Toko Demak
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 :
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
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 :
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
