TUTORIAL
MEMBUAT OCX DAN DATABASE PADA SISTEM APLIKASI RENTAL FILM DVD
Oleh :
Irnawati Mochtar ( 112012117 )
Kelas : F
UAS
Dosen : Roh Widiono, S.Kom
Irnawati Mochtar (11201217) Page 1
Program ini diciptakan untuk para penjual kaset DVD atau kepada costumer rental agar mempermudah dalam penyewaan kaset DVD, program ini sangat banyak kegunaanya, dimana sudah memiliki aplikasi yang cukup lengkap dalam system penyewaan DVD ( kaset ). Dalam program ini memiliki login yang dimana hanya dikhususkan kepada yang bertugas. Adapun cara atau fase dalam pembuatan aplikasi ini, tutorial ini dibuat untuk atau lebih mengarah kepada OCX dan Database yang akan dijelaskan cara atau tahap-tahap pembuatan di bawah ini :
1. Buka program vb dengan cara klik kanan open, seperti pada gambar di bawah ini :
2. Pilih ActiveXControl, klik ok :
Irnawati Mochtar (11201217) Page 2
Irnawati Mochtar (11201217) Page 3
3. Maka akan muncul environment ActiveX OCX.
4. Ubah nama Project Menjadi Explore Gambar
Irnawati Mochtar (11201217) Page 4
5. Membuat Explorer Gambar, seperti pada gambar dibawah ini :
Irnawati Mochtar (11201217) Page 5
6. Kemudian masukan atau ketikan script, seperti pada gambar dibawah ini :
Irnawati Mochtar (11201217) Page 6
7. Setelah script diketik simpan project tersebut dengan nama Explore Gambar. Lalu Untuk membuat ExploreGambar.OCX Pilih file – make exploregambar. OCX atau bisa disimpan dengan nama CoverFilm.ocx dan hasil filenya seperti ini.
Irnawati Mochtar (11201217) Page 7
Selanjutnya TUTORIAL pembuatan DATABASE pada Vb.6
Tahap-tahap pembuatan tutorial database pada Vb.6 sebagai berikut :
1. Klik file – new project – pilih standard EXE. Seperti pada gambar dibawah ini :
Irnawati Mochtar (11201217) Page 8
2. Maka muncul Environtment Standard EXE. Seperti pada gambar dibawah ini :
Untuk Menambahkan file control cover film kita bisa menekan shortcut CTRL+T atau klik kanan – Components. Pada tab General.
Lalu klik browse dahulu untuk mencari file CoverFilm. OCX. lalu dicentang tambahkan juga komponen Microsoft Agent Control 2.0 , Microsoft Common dialog control 6.0(SP3) , Microsoft Tabbed Dialog Control 6.0 dan Microsoft Window Common Control 6.0 (SP6), seperti pada gambar dibawah ini :
Irnawati Mochtar (11201217) Page 9
Irnawati Mochtar (11201217) Page 10
Membuat Database Rental DVD menggunakan Microsoft access, seperti pada gamabar dibawah ini :
1. Klik windows, pilih Microsoft Office Acsess, klik open seperti pada gambar dibawah ini :
Irnawati Mochtar (11201217) Page 11
2. Pilih NEW kemudian Blank Database, pada file name silahkan diganti dengan nama yang kalian inginkan open folder itu dimaksudkan untuk menaruh file database yang kalian ingginkan OK, kemudian klik Create, atau langsung saja klik Create, seperti pada gambar di bawah ini :
Irnawati Mochtar (11201217) Page 12
Irnawati Mochtar (11201217) Page 13
3. Kemudian desain Database, pilih design view seperti pada gamar dibawah ini :
4. Langkah selanjutnya membuat tabel database, seperti pada gambar di bawah ini :
Irnawati Mochtar (11201217) Page 14
5. Selanjutnya buat tabel Login ( User ), yang terdiri dari User dan Password, seperti pada gamabar dibawah ini :
6. Selanjutnya membuat tabel pengembalian, seperti pada gambar di bawah ini :
7. Selanjutnya tabel Film, seperti pada gamabar dibawah ini :
Irnawati Mochtar (11201217) Page 15
8. Selanjutnya membuat tabel anggota, seperti pada gambar dibawah ini :
9. Membuat tabel peminjaman DVD, seperti pada gambar dibawah ini :
10. Membuat tabel peminjaman, seperti pada gambar dibawah ini :
11. Selanjutnya kembali dan memasukan script form yang telah dibuat :
Script form pengembalian
Option Explicit
Irnawati Mochtar (11201217) Page 16
Dim oldsize As Long
Dim bantu As Boolean
Dim d As Integer
Sub bersih1()
txtId = ""
txtNama = ""
txtAlamat = ""
txtTelp = ""
txtTglPinjam = ""
txtTglKembali = ""
cboTrans = ""
txtNoPengembalian = ""
End Sub
Sub bersih2()
txtBayar = ""
txtAwal = ""
txtAkhir = ""
lsAkhir.Clear
lvPengembalian.ListItems.Clear
End Sub
Sub aktif1()
cmdNew.Enabled = Not cmdNew.Enabled
Irnawati Mochtar (11201217) Page 17
cmdSave.Enabled = Not cmdSave.Enabled
cmdCancel.Enabled = Not cmdCancel.Enabled
End Sub
Sub aktif2()
cmdGetFilm.Enabled = Not cmdGetFilm.Enabled
End Sub
Private Sub cboTrans_Click()
If rec.State = 1 Then rec.Close
rec.Open "SELECT Head_Peminjaman.[Tanggal Pinjam], Head_Peminjaman.[Tanggal Kembali], Head_Peminjaman.[Id Anggota] FROM Head_Peminjaman where [No Transaksi]='" & cboTrans & "'"
txtTglPinjam = Format(rec![Tanggal PInjam], "DD-MMMM-YYYY")
txtTglKembali = Format(rec("Tanggal Kembali"), "DD-MMMM-YYYY")
txtId = rec![Id Anggota]
txtNama = rec!Nama
txtAlamat = rec!Alamat
txtTelp = rec!Telp
aktif2
cboTrans.Enabled = False
End Sub
Private Sub cmdCancel_Click()
Dim x
bersih1
Irnawati Mochtar (11201217) Page 18
bersih2
aktif1
cboTrans.Enabled = True
cmdGetFilm.Enabled = False
For x = 0 To lsId.ListCount - 1
conn.Execute "UPDATE Detail_Peminjaman SET [Status] = 'OUT' where [No Transaksi] = '" & lsId.List(x) & "' AND [Id Film] = '" & lsId2.List(x) & "'"
Next x
End Sub
Private Sub cmdNew_Click()
Dim thkom, threc, no
notrans
cboTrans.Enabled = True
thkom = Format(Date, "MM/YY")
If rec.State = 1 Then rec.Close
rec.Open "select [No Pengembalian] from T_Pengembalian", conn, 3, 3
If Not rec.EOF Then
rec.MoveLast
threc = Mid(rec("No Pengembalian"), 8, 5)
If threc = thkom Then
no = Val(Right(rec("No Pengembalian"), 3)) + 1
no = "DVD/IN/" & threc & "/" & String(3 - Len(no), "0") & no
Irnawati Mochtar (11201217) Page 19
Else
no = "DVD/IN/" & thkom & "/001"
End If
Else
no = "DVD/IN/" & thkom & "/001"
End If
txtNoPengembalian = no
aktif1
End Sub
Private Sub cmdSave_Click()
Dim a
Dim tglAyeuna
If bantu = False Then
cmdGetFilm.SetFocus
Else
tglAyeuna = Format(Date, "DD-MMMM-YYYY")
If rec.State = 1 Then rec.Close
conn.Execute "insert into T_Pengembalian([No Pengembalian], [No Transaksi], [Tanggal Kembali], [Tanggal Dikembalikan], Denda) values ('" & txtNoPengembalian & "','" & cboTrans & "','" & txtTglKembali & "','" & tglAyeuna & "','" & txtBayar & "')"
For a = 0 To lsId.ListCount - 1
conn.Execute "UPDATE Detail_Peminjaman SET [Status] = 'IN' where [No Transaksi] = '" & lsId.List(a) & "' AND [Id Film] = '" & lsId2.List(a) & "'"
conn.Execute "UPDATE T_Film SET [Stock] = '" & lsAkhir.List(a) & "' where [Id Film] = '" & lsId.List(a) & "'"
Irnawati Mochtar (11201217) Page 20
Next a
bersih1
bersih2
aktif1
aktif2
cboTrans.Enabled = True
End If
End Sub
Private Sub Command1_Click()
Dim x, d As Integer
For x = 0 To lsJumlah.ListCount - 1
d = d + Val(lsJumlah.List(x))
Next
End Sub
Private Sub Form_Activate()
Label7.Caption = "Tanggal Sekarang " & Format(Date, "DD-MMMM-YYYY")
tmrTanggal.Enabled = True
End Sub
Private Sub Form_Resize()
If Me.Width = oldsize Then
Exit Sub
Else
Irnawati Mochtar (11201217) Page 21
oldsize = Me.Width
End If
If Me.Width <> 8610 Then Me.Width = 8610
If Me.Height <> 6735 Then Me.Height = 6735
End Sub
Private Sub Form_Load()
Me.Height = 6870
Me.Width = 9165
oldsize = Me.Width
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim cepat As Long
cepat = 1000
While Left + Width < Screen.Width
DoEvents
Left = Left + cepat
Wend
While Top - Height < Screen.Height
DoEvents
Top = Top + cepat
Wend
Irnawati Mochtar (11201217) Page 22
Unload Me
End Sub
Function notrans()
Dim a
Dim b
Dim temp
cboTrans.Clear
With rec
If .State = 1 Then .Close
.Open "select Head_peminjaman.[No Transaksi]from Head_peminjaman,Detail_peminjaman where ((Head_Peminjaman.[No Transaksi]=Detail_peminjaman.[No Transaksi]) and Detail_Peminjaman.status='OUT')", conn, 3, 3
For a = 0 To .RecordCount - 1
cboTrans.AddItem ![No Transaksi]
.MoveNext
Next a
.Close
End With
End Function
Irnawati Mochtar (11201217) Page 23
Private Sub lvPengembalian_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyDelete Then
lvPengembalian.ListItems.Remove (1)
End If
End Sub
Private Sub tmrTanggal_Timer()
Label7.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub
Private Sub txtId_Change()
If rec.State = 1 Then rec.Close
rec.Open "select Nama,Alamat,Telp From T_Anggota where [Id Anggota]='" & txtId & "'", conn
txtNama = rec!Nama
txtAlamat = rec!Alamat
txtTelp = rec!Telp
End Sub
Sub denda()
Dim a, b, c As Integer
a = Day(txtTglKembali)
b = Day(Now)
Irnawati Mochtar (11201217) Page 24
For c = 1 To 31
If a + c = b Then
txtBayar = (500 * c) * d
Else
c = c + 1
End If
Next
End Sub
Irnawati Mochtar (11201217) Page 25
Top Related