BAHASA PEMOGRAMAN DATA BUKU

 

 

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

 

Private Sub cmdcancel_Click()

Data1.Recordset.Delete

Data1.Recordset.MoveLast

End Sub

 

 

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

 

Private Sub CmdProses_Click()

Dim judulbuku, Penerbit, Pengarang, Harga As Variant

TxtTerbit.Text = “20” & Right(CboKode, 2)

s = Mid(CboKode, 3, 3)

If s = “SIM” Then

judulbuku = “sistem informasi manajemen”

Pengarang = “Yati nur oktavia”

Harga = “75900”

ElseIf s = “EDP” Then

judulbuku = “Elektronik data processing”

Pengarang = “Imam tarmizi”

Harga = “62000”

ElseIf s = “MNJ” Then

judulbuku = “manajemen”

Pengarang = “valentino mariana adiwianti”

Harga = “42000”

ElseIf s = “CDR” Then

judulbuku = “Corel Draw”

Pengarang = “Riyan suhandi”

Harga = “53000”

ElseIf s = “RPL” Then

judulbuku = “rekayasa perangkat lunak”

Pengarang = “sinta umpu singa”

Harga = “83000”

End If

TxtJudul = judulbuku

TxtPengarang = Pengarang

TxtHarga = Harga

s = Mid(CboKode, 1, 1)

If s = “A” Then

Penerbit = “andi offset yogyakarta”

ElseIf s = “I” Then

Penerbit = “indah surabaya”

ElseIf s = “S” Then

Penerbit = “salemba empat”

ElseIf s = “E” Then

Penerbit = “elek media komputindo”

ElseIf s = “M” Then

Penerbit = “maxcikom”

End If

TxtPenerbit.Text = Penerbit

End Sub

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

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

 

Private Sub cmdno_Click()

Form1.Show

End Sub

 

Private Sub cmdyes_Click()

End

End Sub