WEB PROGRAMING
VISUAL BASIC
a.Lengkapi koding dibawah ini berdasarkan form diatas
Sub tambahmbeli()
conjualbeli.Execute "insert into mpembelian(nofaktur," & _
"tanggal,total,dibayar,jatuhtempo,status) values " & _
"('" & txt_faktur.Text & "',(1)," & _
"" & lbltotal.Caption & "," & txtbayar.Text & "," & _
"#" & DTPicker2.(2) & "#,'" & Combo1.Text & "')"
End Sub
Sub bukadbeli()
If recdbeli.State = (3) Then recdbeli.Close
recdbeli.Open "select * from qpembelian where nofaktur='" & (4).Text & "'", conjualbeli, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = (5)
End Sub
b.Tuliskan sintaks untuk pemanggilan laporan dengan nama “barang.rpt” yang dibuat dari crystal report.
KEWIRAUSAHAAN
1. Sebutkan lima Alasan seseorang memilih menjadi Pengusaha atau Wiraswasta.
2. Sebutkan dan jelaskan 5 hal yang menghalangi sukses Wiraswasta
3. Sebutkan 5 CARA MEMPERKECIL RESIKO GAGAL ? jelaskan
4. Ada berapa SUMBER MODAL yang Anda ketahui? jelaskan
Langganan:
Posting Komentar (Atom)
pak soal yang jarkom, Vb dan web program koq gak da ya?
BalasHapuskemarin perasaan ada....
ENY.S INF A