Tugas Program VB

Tutorial Visual Basic ini adalah contoh dari tugas pemrograman yang diberikan dari lab saya. Pengkoneksian database dengan datacombo.



Tugas lagi, tugas lagi... untuk melatih skill pemrograman ga boleh kenal lelah. yah meski harus bertapa didalam lab menghabiskan 3 putaran waktu kelompok, tapi tetap saja semangat!!!

Selesai juga akhirnya, ya meski nanti si dosen bakalan bilang program apaan nih? maksud dan tujuannya adalah sama yang ditentukan oleh si mpunya hajat (dosen)

Pelajari listing code saya, karena sebelumnya sudah beberapa postingan yang saya bahas mengenai beberapa code dibawah ini. Silahkan dicopas untuk diprint out:

Option Explicit

Sub otomatis()
Dim tanggal, tahun, bulan, no, oto As String
tanggal = Left(DTPicker1.Value, 2)
bulan = Mid(DTPicker1.Value, 4, 2)
tahun = Right(DTPicker1.Value, 2)

sementara.RecordSource = "select * from table sementara where no_pinjam"
If sementara.Recordset.RecordCount = 0 Then
oto = tahun & bulan & tanggal & "001"
Else
sementara.Recordset.MoveLast
no = Right(sementara.Recordset!kode_buku, 3) + 1
oto = tahun & bulan & tanggal & Right("00" & no, 3)
End If
nop.Text = oto
End Sub

Sub bersih()
Dim x As Control
For Each x In Me.Controls
If TypeOf x Is TextBox Then x.Text = ""
If TypeOf x Is ComboBox Then x.Text = ""
Next
End Sub
Sub mati()
Dim x As Control
For Each x In Me.Controls
If TypeOf x Is TextBox Then x.Enabled = False
If TypeOf x Is ComboBox Then x.Enabled = False
Next
End Sub

Sub hidup()
Dim x As Control
For Each x In Me.Controls
If TypeOf x Is TextBox Then x.Enabled = True
If TypeOf x Is ComboBox Then x.Enabled = True
Next
End Sub
Sub tampil()
On Error Resume Next
sementara.RecordSource = "select *from sementara"
nop.Text = sementara.Recordset!no_pinjam
kode_anggota.Text = sementara.Recordset!kode_anggota
DTPicker1.Value = sementara.Recordset!tgl_pinjam
DTPicker2.Value = sementara.Recordset!tgl_kembali
kode_buku.Text = sementara.Recordset!kode_buku
nopa.Text = sementara.Recordset!no_pangil
judul.Text = sementara.Recordset!judul_buku
End Sub

Private Sub baru_Click()
hidup
otomatis
End Sub

Private Sub batalkan_Click()
bersih
End Sub

Private Sub DataGrid1_Click()
tampil
End Sub

Private Sub delete_Click()
sementara.Recordset.delete
End Sub

Private Sub Form_Load()
otomatis
mati
bersih

End Sub

Private Sub kode_anggota_Click(Area As Integer)
anggota.RecordSource = "select * from anggota where kode_anggota='" & kode_anggota.Text & "'"
anggota.Refresh
If anggota.Recordset.RecordCount = 0 Then
MsgBox "data tidak ditemukan"
Else
nama.Text = anggota.Recordset!nama_anggota
End If
anggota.RecordSource = "select * from anggota"
anggota.Refresh
End Sub

Private Sub kode_buku_Click(Area As Integer)
buku.RecordSource = "select * from buku where kode_buku= '" & kode_buku.Text & "'"
buku.Refresh
If buku.Recordset.RecordCount = 0 Then
MsgBox "data tidak ditemukan"
Else
nopa.Text = buku.Recordset!nomor_panggil
judul.Text = buku.Recordset!judul_buku
End If
buku.RecordSource = "select * from buku"
buku.Refresh

End Sub

Private Sub masukan_Click()
sementara.RecordSource = "select * from sementara"
sementara.Refresh
sementara.Recordset.AddNew
sementara.Recordset!no_pinjam = nop.Text
sementara.Recordset!kode_buku = kode_buku.Text
sementara.Recordset!tgl_pinjam = DTPicker1.Value
sementara.Recordset!tgl_kembali = DTPicker2.Value
sementara.Recordset!kode_anggota = kode_anggota.Text
sementara.Recordset!nama_anggota = nama.Text
sementara.Recordset!judul_buku = judul.Text
sementara.Recordset!no_pangil = nopa.Text
sementara.Recordset.Update
End Sub


Private Sub simpan_Click()
detail.RecordSource = "select * from detail_pinjam"
detail.Refresh
detail.Recordset.AddNew
detail.Recordset!no_pinjam = sementara.Recordset!no_pinjam
detail.Recordset!kode_buku = sementara.Recordset!kode_buku
detail.Recordset!tgl_pinjam = sementara.Recordset!tgl_pinjam
detail.Recordset!tgl_kembali = sementara.Recordset!tgl_kembali
detail.Recordset.Update

pinjam.RecordSource = "select * from pinjam"
pinjam.Refresh
pinjam.Recordset.AddNew
pinjam.Recordset!no_pinjam = sementara.Recordset!no_pinjam
pinjam.Recordset!kode_anggota = sementara.Recordset!kode_anggota
pinjam.Recordset!tanggal = sementara.Recordset!tgl_pinjam

pinjam.Recordset.Update

sementara.Recordset.delete
sementara.Recordset.MoveNext

bersih
mati
End Sub

Bagi kalian yang ingin mempelajarinya, saya membuat file download yang bisa kalian pelajari langsung dirumah. Untuk program diatas bernama perpus dengan nama form sementara. silahkan  Download 18095534 from Indowebster.com