Belajar VB6 Membuat Form Buku Aplikasi Perpus VB 6.0 - Hallo sahabat Emboh Gakro, Pada Artikel yang anda baca kali ini dengan judul Belajar VB6 Membuat Form Buku Aplikasi Perpus VB 6.0, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Belajar VB6, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Belajar VB6 Membuat Form Buku Aplikasi Perpus VB 6.0
link : Belajar VB6 Membuat Form Buku Aplikasi Perpus VB 6.0

Belajar VB6 Membuat Form Buku Aplikasi Perpus VB 6.0

Berikut ini adalah step by step membuat aplikasi perpustakaan dengan Visual Basic 6.0 database SQL Server.

Berikut langkahnya :
Buka Project anda sebelumnya :

Pada gambar diatas, anda telah sukses membuat Form Anggota Aplikasi Perpus.
Silahkan Klik Project - Add Form
Ganti nama Form1 menjadi FormMasterBuku
Design FormMasterBuku seperti 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>>

Demikianlah Artikel Belajar VB6 Membuat Form Buku Aplikasi Perpus VB 6.0

Sekianlah artikel Belajar VB6 Membuat Form Buku Aplikasi Perpus VB 6.0 kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Belajar VB6 Membuat Form Buku Aplikasi Perpus VB 6.0 dengan alamat link https://menjadiembohgakro.blogspot.com/2017/08/belajar-vb6-membuat-form-buku-aplikasi.html

Tweet