Latihan Visual Basic (Prak Lab)

Latihan Visual Basic (Prak Lab)

Coding untuk tombol (Tambah) :
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Combo1.ListIndex = 0
Text1.SetFocus
Coding untuk tombol (Simpan) :
Data1.Recordset.AddNew
Data1.Recordset!kodebuku = Text1.Text
Data1.Recordset!judulbuku = Text2.Text
Data1.Recordset!Penerbit = Text3.Text
Data1.Recordset!jenisbuku = Combo1.Text
Data1.Recordset!jumlahbuku = Text4.Text
Data1.Recordset.Update
    Text1.Text = " "
    Text2.Text = " "
    Text3.Text = " "
    Text4.Text = " "
    Combo1.ListIndex = 0
    Text1.SetFocus
MsgBox "Data telah tersimpan", vbOKOnly + vbInformation, "Info"
Coding untuk tombol (Edit) :
Data1.Recordset.Edit
Data1.Recordset!kodebuku = Text1.Text
Data1.Recordset!judulbuku = Text2.Text
Data1.Recordset!Penerbit = Text3.Text
Data1.Recordset!jenisbuku = Combo1.Text
Data1.Recordset!jumlahbuku = Text4.Text
Data1.Recordset.Update
    Text1.Text = " "
    Text2.Text = " "
    Text3.Text = " "
    Text4.Text = " "
    Combo1.ListIndex = 0
    Text1.SetFocus
MsgBox "Data telah di edit ", Vbokony + vbInformation, "Info"
Coding untuk tombol (Hapus) :
Dim Hapus As String
Hapus = MsgBox("Yakin anda mau menghapus?", vbYesNo + vbQuestion, "konfirmasi")
    If Hapus = vbYes Then
    Data1.Recordset.Delete
MsgBox "Data telah terhapus", vbOKOnly + vbInformation, "Info"
    Text1.Text = " "
    Text2.Text = " "
    Text3.Text = " "
    Text4.Text = " "
    Combo1.Text = " "
    Text1.SetFocus
    End If
Coding untuk tombol (Keluar) :
Unload Me
Coding untuk set keyassci-nya bisa di terawang di bawah ini : 
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Data1.Recordset.Index = "kode"
Data1.Recordset.Seek "=", Text1.Text
If Not Data1.Recordset.NoMatch Then
Text2.Text = Data1.Recordset!judulbuku
Combo1.Text = Data1.Recordset!jenisbuku
Text3.Text = Data1.Recordset!Penerbit
Text4.Text = Data1.Recordset!jumlahbuku
Else
MsgBox " maaf data tidak terdaftar ", vbOKOnly + vbInformation, "konfirmasi"
    Text1.Text = " "
    Text2.Text = " "
    Text3.Text = " "
    Text4.Text = " "
    Combo1.ListIndex = 0
    Text1.SetFocus
End If
End If
Untuk menambahkan no urut secara otomatis, pada tombol tambah bisa di tambah coding sbb :
On Error Resume Next
    Dim nob As Long
    Dim nol As String
    If Data3.Recordset.BOF And Data3.Recordset.EOF Then
    nob = 1
    Else
    Data3.Recordset.MoveLast
    nob = Val(Data3.Recordset!nokembali) + 1
    End If
    Text8.Text = Left("00000", 6 - Len(Trim(Str(nob)))) & Trim(Str(nob))
    Text4.SetFocus

Komentar

Posting Komentar

Postingan populer dari blog ini

PERANCANGAN BASIS DATA (Kuis 2)

Gambar
PERANCANGAN BASIS DATA (Kuis 2) 1.       => Normalisasi adalah suatu proses/ prosedur/ cara yang menjamin sebuah data menjadi valid, dan efisien. Di dalam sistem basis data, Normalisai Data juga berfungsi untuk mentiadakan kerangkapan data (redundancy). => Kardinalitas pemetaan atau rasio kardinalitas menunjukkan jumlah entitas yang dapat dihubungkan ke satu entity lain dengan suatu relasi. 2.       1NF/ First Normal Form (Bentuk Normal Pertama) a.        Suatu relasi disebut memenuhi bentuk normal pertama (1NF) jika dan hanya jika setiap atribut dari relasi tersebut hanya memiliki  nilai tunggal dan tidak ada pengulangan grup atribut dalam baris. b.       Bentuk 1NF tidak boleh mengandung grup atribut yang berulang c.        Tujuan membentuk 1NF : ΓΌ   semantik tabel menjadi lebih eksplisit (say anything once...
read more »

Membuat Kotak Komentar Intensedebate

Gambar
Membuat Kotak Komentar Intensedebate Bagi pengguna blogger tentunya sudah tahu kan kalo kotak komentar yang ada di blogger tidak langsung berada dibawah postingan, tapi harus nge-klik link dulu baru akan muncul pop-up kotak buat ngisi komentar. Nha dulu kita kan pernah mengakali hal ini dengan memakai jasa pihak kedua yaitu dengan menggunakan kotak komentar dari haloscan, tapi ternyata banyak pemakai yang komplain karena hasilnya tidak seperti yang diharapkan mungkin karane tidak sesuai dengan template yang digunakan. Nha ketika aku jalan-jalan di blog orang lain trus aku baca-baca (sebenarnya sih nggak bisa bacanya, lha wong tulisanya pake tulisan campur ama tulisan cina :p ). Aku lihat dibagian bawah ada kotak komentar yang sepertinya asing, trus aku selidiki, akhirnya ketemu deh cara buatnya. Nha bagi yang kemarin gagal makai kotak haloscan mungkin yang ini bisa jadi alternatif. Mau tahu cara buatnya? Cara buatnya sangat mudah, 1. Login ke blogger, trus pilih "La...
read more »

(HTML) Membuat Sebuah Form Interface

Gambar
(HTML) Membuat Sebuah Form Interface Ada dua bagian dalam membangun interaktif dengan menggunakan forms: Membuat form interface dan proses submit oleh user anda. Seksi ini fokus dalam membuat form interface menggunakan tags HTML. Form Tag: Forms dibuat deengan menggunakan form tag dan atributnya. <form> </form> form tags selalu mulai dengan pembukaan tag dan penutupan tag. Semua element form  harus ditaruh didalam pembukaan dan penutupan tag. Input Tag: Input tag dan semua atributnya adalah digunakan untuk membuat element form. Input tag tidak mempunyai tag penutup. Input tag mempunyai banyak atribut tapi satu-satunya yang diperlukan dari semua element adalah type. Atribut type mendefinisikan semua form element yang akan ditampilkan. Value yang memungkinkan adalah: text, checkbox, radio, password, hidden, submit, reset, dan image. Contoh:  Input type yang terakhir, HIDDEN, tidak terlihat pada orang yang melihat web anda. Ini digunakan...
read more »