Program Aplikasi Peminjaman Buku

Kode Program Combo Box Kode Buku :

Private Sub cbokode_Click()
If cbokode.Text = "001" Then
txtjudul.Text = "Visual Basic"
txtpenerbit.Text = "Erlangga"
ElseIf cbokode.Text = "002" Then
txtjudul.Text = "Bahasa Indonesia"
txtpenerbit.Text = "Erlangga"
ElseIf cbokode.Text = "003" Then
txtjudul.Text = "Statistik"
txtpenerbit.Text = "Erlangga"
End If
End Sub

Kode Sub Form Load :
Private Sub Form_Load()
cbokode.AddItem "001"
cbokode.AddItem "002"
cbokode.AddItem "003"
End Sub


Kode Program Tombol Pinjam Lagi :
Private Sub cmdpinjam_Click()
txtnomor.Text = ""
txtnama.Text = ""
cbokode.Text = ""
txtjudul.Text = ""
txtpenerbit.Text = ""
txtpinjam.Text = ""
txtkembali.Text = ""
txtnomor.SetFocus
End Sub

Kode Program Tombol Proses :
Private Sub cmdproses_Click()
txtkembali.Text = Val(txtpinjam.Text) + 7
End Sub

Kode Program Tombol Selesai :
Private Sub cmdselesai_Click()
Unload Me
End Sub