MODUL VISUAL BASIC VISUAL DATA MANAGER MERCUSUAR PROGRAM RENTAL VCD DENGAN MICROSOFT VISUAL BASIC 6.0 Sebelum memulai membuat program terlebih dahulu membuat database untuk menyimpan data Rental VCD. 1. Membuat Database (Ms. Access) Menggunakan Visual Data Manager di Visual Basic • • •
Setelah masuk ke lembar kerja Visual Basic (VB), klik Menu Add-Ins, pilih Visual Data Manager. Muncul lembar kerja Visdata. Pilih menu File, pilih New, pilih Microsoft Access, pilih version 7.0 Selanjutnya ketik nama database, akhiri dengan tekan tombol Save. Muncul tampilan seperti dibawah ini :
Membuat Table • Arahkan pointer mouse, pada bagian Database Window, Klik kanan mouse pilih New Table, maka akan muncul tampilan seperti dibawah ini :
MODUL VISUAL BASIC VISUAL DATA MANAGER MERCUSUAR Ketik nama table pada bagian Table Name.
•
Menentukan Fields Table 1. Klik tombol Add Field, 2. Ketik nama field pada bagian Name. 3. Pilih tipe data pada bagian Type 4. Ketik ukuran field pada bagian Size. 5. Akhiri dengan tekan tombol OK. 6. Ulangi langkah no.2 s.d no. 5 untuk nama field lainnya. 7. Bila sudah selesai, akhiri dengan tekan tombol Close
:
Menentukan Field Index (primary key) • Klik tombol Add Index, ketik nama index pada bagian Name, pilih field index pada bagian Available Field. Klik tombol OK. • Akhiri dengan tekan tombol Close. •
Terakhir, Klik tombol Build the Table, maka akan kembali ke Database Window di Visdata.
2. Database untuk program Rental VCD. Nama Database Table-Table
: RentalVCD.mdb :
Nama Table : ANGGOTA
Nama Table : FILM
Nama Table : PINJAM
Nama Index : NoAnggota
Nama Index : KodeFilm
Nama Index :
Type
Size
FieldName
Type
Size
Type
Size
NoAnggota
FieldName
Text
10
KodeFilm
Text
6
NoAnggota
FieldName
Text
10
NamaAnggota
Text
40
Judul
Text
30
KodeFilm
Text
6
Alamat
Text
50
Artis
Text
30
TglPinjam
Date/Time
Phone
Text
15
Kategori
Text
15
TglKembali
Date/Time
Tahun
Text
4
TglPengembalian
Date/Time
BatasSewa
Single
LamaSewa
Single
BesarDenda
Single
Total
Double
Kembali
Boolean
Buatlah database diatas beserta Table-table-nya menggunakan cara diatas. 3. Membuat Program Visual Basic
MODUL VISUAL BASIC VISUAL DATA MANAGER MERCUSUAR
A. Program Pemasukan Data Anggota Nama Form : frmDataAnggota Layout :
PROPERTIES CONTROL CONTROL
PROPERTY
Form
Name
frmDataAnggota
SETTING
Caption
Pemasukan Data Anggota
Label1
Caption
No.Anggota
Label2
Caption
Nama Anggota
Label3
Caption
Alamat
Label4
Caption
Label5
Caption
Phone PEMASUKAN DATA ANGGOTA
TextBox1
Name
TxtNo
Text
[kosongkan]
Name
TxtNama
Text
[kosongkan]
TextBox2
CODE : Dim dbRental As Database Dim rsAnggota As Recordset Private Sub CmdKeluar_Click() End End Sub Private Sub Form_Load()
CONTROL
PROPERTY
TextBox3
Name Text
[kosongkan]
TextBox4
Name
TxtPhone
Text
[kosongkan]
Name
CmdSimpan
Caption
Simpan
Command1
Command2 Command3
SETTING TxtAlamat
Name
CmdBatal
Caption
Batal
Name
CmdKeluar
Caption
Keluar
MODUL VISUAL BASIC VISUAL DATA MANAGER MERCUSUAR Set dbRental = OpenDatabase("C:\RentalVCD\RentalVCD.mdb") Set rsAnggota = dbRental.OpenRecordset("Anggota") TxtNo.MaxLength = 10 TxtNama.MaxLength = 40 TxtAlamat.MaxLength = 50 TxtPhone.MaxLength = 15 Blankform NonAktif CmdSimpan.Enabled = False End Sub Sub NonAktif() TxtNama.Enabled = False TxtAlamat.Enabled = False TxtPhone.Enabled = False End Sub Sub Aktif() TxtNama.Enabled = True TxtAlamat.Enabled = True TxtPhone.Enabled = True End Sub Private Sub txtNo_Change() Dim Panjang As Byte Panjang = Len(TxtNo.Text) If Panjang < 10 Then Exit Sub End If rsAnggota.Index = "NoAnggota" rsAnggota.Seek "=", TxtNo.Text If rsAnggota.NoMatch Then Aktif CmdSimpan.Enabled = True Beep TxtNama.SetFocus Else Beep X = MsgBox("No.Anggota : " & TxtNo & " sudah UCase(rsAnggota!NamaMahasiswa) & Chr(10) & _ "Masukkan No.Anggota baru !", , "No Salah") TxtNo.Text = "" End If End Sub Private Sub cmdSimpan_Click() rsAnggota.AddNew rsAnggota!NoAnggota = TxtNo.Text rsAnggota!NamaAnggota = TxtNama.Text rsAnggota!Alamat = TxtAlamat.Text rsAnggota!Phone = TxtPhone.Text 'update record rsAnggota.Update Beep Blankform TxtNo.SetFocus CmdSimpan.Enabled = False End Sub Sub Blankform() TxtNo.Text = ""
dipakai
"
&
MODUL VISUAL BASIC VISUAL DATA MANAGER MERCUSUAR TxtNama.Text = "" TxtAlamat.Text = "" TxtPhone.Text = "" End Sub Private Sub cmdBatal_Click() Blankform TxtNo.SetFocus End Sub Private Sub txtNo_KeyPress(KeyAscii As Integer) 'hanya boleh diisi angka atau backspace If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Sub B. PEMASUKAN DATA FILM Nama Form : frmDataFilm Layout :
PROPERTIES CONTROL CONTROL
PROPERTY
SETTING
Form
Name
frmDataFilm
Caption
Pemasukan Data Film
Label1
Caption
Kode Film
Label2
Caption
Judul
Label3
Caption
Artis
Label4
Caption
Kategori
Label5
Caption
Tahun
Label6
Caption
Batas Sewa
Label7
Caption
Besar Denda
Label8
Caption
PEMASUKAN DATA FILM
CONTROL
PROPERTY
TextBox4
Name
TextBox5 TextBox6 Combo1 Command1
SETTING TxtTahun
Text
[kosongkan]
Name
TxtBatasSewa
Text
[kosongkan]
Name
TxtDenda
Text
[kosongkan]
Name
CboKategori
Text
[kosongkan]
Name
CmdSimpan
Caption
Simpan
MODUL VISUAL BASIC VISUAL DATA MANAGER MERCUSUAR TextBox1 TextBox2 TextBox3
Name
TxtKode
Text
[kosongkan]
Command2
Name
TxtJudul
Text
[kosongkan]
Name
TxtArtis
Text
[kosongkan]
Command3
Name
CmdBatal
Caption
Batal
Name
CmdKeluar
Caption
Keluar
CODE : Dim dbRental As Database Dim rsFilm As Recordset Private Sub CmdKeluar_Click() End End Sub Private Sub Form_Load() Set dbRental = OpenDatabase("C:\RentalVCD\RentalVCD.mdb") Set rsFilm = dbRental.OpenRecordset("Film") TxtKode.MaxLength = 6 TxtJudul.MaxLength = 30 TxtArtis.MaxLength = 30 TxtTahun.MaxLength = 4 CboKategori.AddItem CboKategori.AddItem CboKategori.AddItem CboKategori.AddItem CboKategori.AddItem CboKategori.AddItem CboKategori.AddItem
"Drama" "Action" "Thriller" "Horor" "Komedi" "Anak-Anak" "Animasi"
Blankform NonAktif CmdSimpan.Enabled = False End Sub Sub NonAktif() TxtJudul.Enabled = False TxtArtis.Enabled = False TxtTahun.Enabled = False TxtBatasSewa.Enabled = False TxtDenda.Enabled = False CboKategori.Enabled = False End Sub Sub Aktif() TxtJudul.Enabled = True TxtArtis.Enabled = True TxtTahun.Enabled = True TxtBatasSewa.Enabled = True TxtDenda.Enabled = True CboKategori.Enabled = True End Sub Private Sub txtKode_Change() Dim Panjang As Byte
MODUL VISUAL BASIC VISUAL DATA MANAGER MERCUSUAR Panjang = Len(TxtKode.Text) If Panjang < 6 Then Exit Sub End If rsFilm.Index = "KodeFilm" rsFilm.Seek "=", TxtKode.Text If rsFilm.NoMatch Then Aktif CmdSimpan.Enabled = True Beep TxtJudul.SetFocus Else Beep X = MsgBox("Kode : " & TxtKode & " sudah UCase(rsFilm!NamaMahasiswa) & Chr(10) & _ "Masukkan Kode Film baru !", , "Kode Salah") TxtKode.Text = "" End If End Sub Private Sub cmdSimpan_Click() rsFilm.AddNew rsFilm!KodeFilm = TxtKode.Text rsFilm!Judul = TxtJudul.Text rsFilm!Artis = TxtArtis.Text rsFilm!Kategori = CboKategori.Text rsFilm!Tahun = TxtTahun.Text rsFilm!BatasSewa = TxtBatasSewa.Text rsFilm!BesarDenda = TxtDenda.Text 'update record rsFilm.Update Beep Blankform TxtKode.SetFocus CmdSimpan.Enabled = False End Sub Sub Blankform() TxtKode.Text = "" TxtJudul.Text = "" TxtArtis.Text = "" CboKategori.Text = "" TxtTahun.Text = "" TxtBatasSewa.Text = "" TxtDenda.Text = "" End Sub Private Sub cmdBatal_Click() Blankform TxtKode.SetFocus End Sub
dipakai
"
&
Private Sub txtKode_KeyPress(KeyAscii As Integer) 'hanya boleh diisi angka atau backspace If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Sub
