Kamis, 15 April 2010

SOAL INFORMATIKA

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

1 komentar:

  1. pak soal yang jarkom, Vb dan web program koq gak da ya?
    kemarin perasaan ada....
    ENY.S INF A

    BalasHapus