Membuat Form Buku Aplikasi Perpus Vb 6.0

Berikut ini ialah STEP 10 dalam step by step menciptakan aplikasi perpustakaan dengan Visual Basic 6.0 database SQL Server.

STEP Sebelumnya :
STEP 01 : Membuat Project Aplikasi Perpus
STEP 02 : Membuat Form Menu Utama
STEP 03 : Membuat Database dan Tabel Perpus
STEP 04 : Membuat Koneksi Database DBPerpus
STEP 05 : Membuat Form Login Aplikasi Perpus
STEP 06 : Membuat Koding Logout
STEP 07 : Membuat Form Petugas Aplikasi Perpus
STEP 08 : Membuat Tabel Anggota dan Buku Aplikasi Perpus
STEP 09 : Membuat Form Anggota Aplikasi Perpus

Berikut langkahnya :
Buka Project anda sebelumnya :

Pada gambar diatas, anda telah sukses menciptakan Form Anggota Aplikasi Perpus.
Silahkan Klik Project - Add Form
Ganti nama Form1 menjadi FormMasterBuku
Design FormMasterBuku menyerupai gambar dibawah ini :

Jika sudah masukan koding dibawah ini

Dim mvBookMark As Variant
Private Sub Command1_Click()
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = "" Or Combo1 = "" Then
MsgBox "Data Belum Lengkap"
Else
Call BukaDB
Dim SQLTambah As String
            SQLTambah = "Insert Into TBL_Buku values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "','" & Combo1 & "','" & Text5 & "')"
            Koneksi.Execute SQLTambah
            MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"
            Form_Activate
            Call kondisiawal
End If
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Sub Form_Load()
Text1.MaxLength = 6
Text2.MaxLength = 50
Text3.MaxLength = 50
Text4.MaxLength = 50
Text5.MaxLength = 4
kondisiawal
End Sub
Private Sub kondisiawal()
    Command1.Caption = "&Input"
    Command2.Caption = "&Edit"
    Command3.Caption = "&Hapus"
    Command4.Caption = "&Tutup"
    Command1.Enabled = True
    Command2.Enabled = True
    Command3.Enabled = True
    Text1 = ""
    Text2 = ""
    Text3 = ""
    Text4 = ""
    Text5 = ""
    Combo1.Clear
    Combo1.AddItem "2015"
    Combo1.AddItem "2014"
End Sub
Private Sub Form_Activate()
Call BukaDB
Adodc1.ConnectionString = Koneksi
Adodc1.RecordSource = "select KodeBuku,JudulBuku,PengarangBuku,JumlahBuku from TBL_Buku"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
Call kondisiawal
Command1.SetFocus
End Sub

FormMenuUtama

Private Sub MnBuku_Click()
FormMasterBuku.Show vbModal
End Sub

<<Tahap Sebelumnya

Tahap Selanjutnya>>

Share this post