Source Code Membuat Aplikasi Data Buku Sederhana Dengan Visual Basic

Buat Tampilan Seperti Dibawah ini

Kemudian masukan script dibawah ini

Private Sub CmdBatal_Click()
    CboKode.SetFocus
    CboKode = "Pilih Kode Buku"
    TxtJudul = ""
    TxtPengarang = ""
    TxtTerbit = ""
    TxtPenerbit = ""
    TxtHarga = ""
End Sub

Private Sub CmdKeluar_Click()
    Unload Me
End Sub

Private Sub CmdLagi_Click()
    CboKode.SetFocus
    CboKode = "Pilih Kode Buku"
    TxtJudul = ""
    TxtPengarang = ""
    TxtTerbit = ""
    TxtPenerbit = ""
    TxtHarga = ""
End Sub

Private Sub CmdProses_Click()
    Dim Kode, KodeBuku, KodePenerbit, KodeTahun, Tahun, Penerbit, Judul, Pengarang, Harga As Variant
   
    Kode = CboKode
    KodeBuku = Mid(Kode, 3, 3)
    Select Case KodeBuku
        Case "SIM"
            Judul = "Sistem Informasi Manajemen"
            Pengarang = "Yati Nur Oktavia"
            Harga = 75900
        Case "EDP"
            Judul = "Elektronik Data Processing"
            Pengarang = "Imam Tarmizi"
            Harga = 62000
        Case "MNJ"
            Judul = "Manajemen"
            Pengarang = "Valentina Mariana Adiwianti"
            Harga = 42000
        Case "CDR"
            Judul = "Corel Draw"
            Pengarang = "Riyan Suhandi"
            Harga = 53000
        Case "RPL"
            Judul = "Rekayasa Perangkat Lunak"
            Pengarang = "Sinta Umpu Singa"
            Harga = 83000
    End Select
    TxtJudul = Judul
    TxtPengarang = Pengarang
    TxtHarga = Harga
   
    KodePenerbit = Left(Kode, 1)
    Select Case KodePenerbit
        Case "A"
            Penerbit = "Andi Offset Yogyakarta"
        Case "I"
            Penerbit = "Indah Surabaya"
        Case "S"
            Penerbit = "Indah Surabaya"
        Case "E"
            Penerbit = "Elek Media Komputindo"
        Case "M"
            Penerbit = "Maxicom"
    End Select
    TxtPenerbit = Penerbit
   
    KodeTahun = Right(Kode, 2)
    Select Case KodeTahun
        Case "01"
            Tahun = "20" & KodeTahun
        Case "02"
            Tahun = "20" & KodeTahun
        Case "03"
            Tahun = "20" & KodeTahun
        Case "04"
            Tahun = "20" & KodeTahun
        Case "05"
            Tahun = "20" & KodeTahun
    End Select
    TxtTerbit = Tahun
End Sub

Private Sub Form_Load()
    CboKode.AddItem "A-SIM-01"
    CboKode.AddItem "I-EDP-02"
    CboKode.AddItem "S-MNJ-03"
    CboKode.AddItem "E-CDR-04"
    CboKode.AddItem "M-RPL-05"
End Sub

Bagikan Artikel ini