kumpulan tutorial vb

tutorial vb

contoh program sederhana visual basic 6.0(membuaut System perpustakaan)

MENU / HALAMAN UTAMA

Private Sub entbuku_Click()
Entry_Siswa.Hide
Entry_PinjamOK.Hide
Entry_Data_Buku.Show
End Sub
Private Sub entmhs_Click()
Entry_PinjamOK.Hide
Entry_Data_Buku.Hide
Entry_Siswa.Show
End Sub
Private Sub entpjm_Click()
Entry_Siswa.Hide
Entry_Data_Buku.Hide
Entry_PinjamOK.Show
End Sub
Private Sub exit_Click()
Dim X As Byte
X = MsgBox(“Anda Serius Mau Keluar Dari Sistem Ini???”, vbYesNo)
If X = vbYes Then
End
End If
End Sub
Private Sub MDIForm_Resize()
Picture1.Width = Menu.Width
Image1.Width = Picture1.Width
Image1.Height = Picture1.Height
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case “T1″: Entry_Data_Buku.Show
Case “T2″: Entry_Siswa.Show
Case “T3″: Entry_PinjamOK.Show
Case “T4″: Entri_KembaliOK.Show
Case “T6″: X = MsgBox(” Keluar Ke Windows “, vbYesNo + vbQuestion, “Exit To Windows……!!”)
Beep
If X = vbYes Then
End
End IF
End Select
End Sub

ENTRY DATA BUKU

Dim DbPustaka As Database
Dim Rsbuku As Recordset
Private Sub edit_Click()
Buku_Hidup
Kode.Enabled = False
Jenis.SetFocus
simpan.Enabled = True
edit.Enabled = False
hapus.Enabled = False
Rsbuku.edit
End Sub
Private Sub exit_Click()
Unload Me
End Sub
Private Sub Kode2()
If Rsbuku.RecordCount > 0 Then
Rsbuku.MoveFirst
Do While Not Rsbuku.EOF
Kode.AddItem Rsbuku(0)
Rsbuku.MoveNext
Loop
End If
End Sub
Private Sub hapus_Click()
Dim s As Byte
If Kode = “” Or Jenis = “” Or Judul = “” Or Pengarang = “” Or Penerbit = “” Or Tahun = “” Or Jumlah = “” Then
s = MsgBox(“Masukan Data Yang Akan Di Hapus Terlebih Dahulu”)
Else
s = MsgBox(“Yakin Anda Akan Menghapus Data Ini ???”, vbYesNo)
If s = vbYes Then
Rsbuku.Delete
Blank_Form
Kode.Text = “”
Buku_Hidup
End If
End If
Kode.SetFocus
End Sub
Private Sub simpan_Click()
Dim s As Byte
If Kode = “” Or Jenis = “” Or Judul = “” Or Pengarang = “” Or Penerbit = “” Or Tahun = “” Or Jumlah = “” Then
s = MsgBox(“DENIED ulangi tolong masukan data anda”)
Else
s = MsgBox(“Data Sudah Benar ?”, vbYesNo)
If s = vbYes Then
Rsbuku!Kode_Buku = Kode.Text
Rsbuku!Jenis_Buku = Jenis.Text
Rsbuku!Judul_Buku = Judul.Text
Rsbuku!Pengarang = Pengarang.Text
Rsbuku!Penerbit = Penerbit.Text
Rsbuku!Tahun_Terbit = Tahun.Text
Rsbuku!Jumlah_buku = Jumlah.Text
Rsbuku.Update
Blank_Form
edit.Enabled = False
Form_Off
simpan.Enabled = False
Kode.Enabled = True
Kode = “”
Kode.SetFocus
End If
End If
End Sub
Sub Form_Off()
Jenis.Enabled = False
Judul.Enabled = False
Pengarang.Enabled = False
Penerbit.Enabled = False
Tahun.Enabled = False
Jumlah.Enabled = FalseEnd Sub
Private Sub Form_Activate()
Set DbPustaka = OpenDatabase(App.Path & “\Pustaka.Mdb”)
Set Rsbuku = DbPustaka.OpenRecordset(“Buku”)
Rsbuku.Index = “Kode_Buku”
End Sub
Private Sub Kode_Change()
Dim s As Byte
If Len(Kode.Text) < 6 Then
Exit Sub
End If
‘Cari Kode Buku
Rsbuku.Seek “=”, Kode.Text
If Rsbuku.NoMatch Then
Blank_Form
s = MsgBox(“Data Ini Tidak Ada, Anda Mau Menambah Data ???”, vbYesNo)
If s = vbYes Then
Buku_Hidup
Rsbuku.AddNew
Jenis.SetFocus
simpan.Enabled = True
edit.Enabled = True
hapus.Enabled = True
End If
‘jika tidak ditemukan, boleh diisi
Exit Sub
End If
‘jika ditemukan, tampilkan data
Jenis.Text = Rsbuku!Jenis_Buku
Judul.Text = Rsbuku!Judul_Buku