Aplikasi Rental Mobil
Aplikasi ini saya buat dengan keamanan , disini saya membuat login pada saat aplikasi ini dijalankan.
ini adalah form loginnya:
ini adalah form loginnya:
Sintak :
Private Sub Cmdbatal_Click()
End
End Sub
Private Sub Cmdlogin_Click()
If TextUser.Text = "disini isi user name" And TextPass.Text = "disini isi pasword" Then
Menu.Show
Login.Hide
Else
MsgBox ("Password Anda Salah, Silahkan coba lagi")
End If
TextUser.Text = ""
TextPass.Text = ""
End Sub
jika login telah berhasil maka akan ditampilkan Menu utama dari program ini:
Sintak :
Private Sub mnDaftarMobil_Click()
Mobil.Show
End Sub
Private Sub mnData_Mobil_Click()
ReportMobil.Show
End Sub
Private Sub mnData_Pengembalian_Click()
ReportPengembali.Show
End Sub
Private Sub mnData_Penyewa_Click()
ReportPenyewa.Show
End Sub
Private Sub mnDataPeminjaman_Click()
Penyewa.Show
End Sub
Private Sub mnDataPengembalian_Click()
Pengembalian.Show
End Sub
Private Sub mnKeluar_Click()
End
End Sub
Private Sub mnProgrammer_Click()
Biodata.Show
End Sub
Pada Menu bar mobil terdapat menu file mobil, klik di menu file mobil untuk menginput data mobil:
Sintak:
Private Sub CmdDelate_Click()
Adodc1.Recordset.Delete
TextNomorpolisi.Text = ""
TextMerek.Text = ""
TextJenis.Text = ""
TextWarna.Text = ""
TextTarif.Text = ""
MsgBox "Data sudah di hapus"
Adodc1.Refresh
End Sub
Private Sub CmdExit_Click()
answer = MsgBox("Do you want to quit?", vbExclamation + vbYesNo, "Confirm")
If answer = vbYes Then
End
Else
MsgBox "Action canceled", vbInformation, "Confirm"
End If
End Sub
Private Sub CmdSave_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!Nomor_polisi = TextNomorpolisi.Text
Adodc1.Recordset!Merek = TextMerek.Text
Adodc1.Recordset!Jenis = TextJenis.Text
Adodc1.Recordset!Warna = TextWarna.Text
Adodc1.Recordset!Tarif_sewa_perhari = TextTarif.Text
Adodc1.Recordset.Update
MsgBox "Data berhasil disimpan"
Adodc1.Refresh
End Sub
Private Sub CmdUpdate_Click()
Adodc1.Recordset!Merek = TextMerek.Text
Adodc1.Recordset!Jenis = TextJenis.Text
Adodc1.Recordset!Warna = TextWarna.Text
Adodc1.Recordset!Tarif_sewa_perhari = TextTarif.Text
Adodc1.Recordset.Update
MsgBox "Data berhasil di update"
End Sub
Private Sub DataGrid1_Click()
TextNomorpolisi = Adodc1.Recordset!Nomor_polisi
TextMerek = Adodc1.Recordset!Merek
TextJenis = Adodc1.Recordset!Jenis
TextWarna = Adodc1.Recordset!Warna
TextTarif = Adodc1.Recordset!Tarif_sewa_perhari
End Sub
Pada Menu bar Transaksi terdapat menu file Data transaksi, klik di menu file Data transaksi untuk menginput Data Penyewa:
Sintak:
Private Sub CmdDelate_Click()
Adodc1.Recordset.Delete
TextNama.Text = ""
TextNomorktp.Text = ""
TextAlamat.Text = ""
Texttelepon.Text = ""
TextNomorpolisi.Text = ""
TextTanggalsewa.Text = ""
TextLamasewa.Text = ""
TextTarif.Text = ""
TextBatas.Text = ""
MsgBox "Data sudah di hapus"
Adodc1.Refresh
End Sub
Private Sub CmdExit_Click()
answer = MsgBox("Do you want to quit?", vbExclamation + vbYesNo, "Confirm")
If answer = vbYes Then
End
Else
MsgBox "Action canceled", vbInformation, "Confirm"
End If
End Sub
Private Sub CmdSave_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!Nama_penyewa = TextNama.Text
Adodc1.Recordset!Nomor_ktp = TextNomorktp.Text
Adodc1.Recordset!Alamat = TextAlamat.Text
Adodc1.Recordset!Telepon = Texttelepon.Text
Adodc1.Recordset!Nomor_polisi = TextNomorpolisi.Text
Adodc1.Recordset!Tanggal_penyewaan = TextTanggalsewa.Text
Adodc1.Recordset!Lama_penyewaan = TextLamasewa.Text
Adodc1.Recordset!Tarif = TextTarif.Text
Adodc1.Recordset!Batas_pengembalian = TextBatas.Text
Adodc1.Recordset.Update
MsgBox "Data berhasil disimpan"
Adodc1.Refresh
End Sub
Private Sub CmdUpdate_Click()
Adodc1.Recordset!Nama_penyewa = TextNama.Text
Adodc1.Recordset!Nomor_ktp = TextNomorktp.Text
Adodc1.Recordset!Alamat = TextAlamat.Text
Adodc1.Recordset!Telepon = Texttelepon.Text
Adodc1.Recordset!Nomor_polisi = TextNomorpolisi.Text
Adodc1.Recordset!Tanggal_penyewaan = TextTanggalsewa.Text
Adodc1.Recordset!Lama_penyewaan = TextLamasewa.Text
Adodc1.Recordset!Tarif = TextTarif.Text
Adodc1.Recordset!Batas_pengembalian = TextBatas.Text
Adodc1.Recordset.Update
MsgBox "Data berhasil di update"
End Sub
Private Sub DataGrid1_Click()
TextNama = Adodc1.Recordset!Nama_penyewa
TextNomorktp = Adodc1.Recordset!Nomor_ktp
TextAlamat = Adodc1.Recordset!Alamat
Texttelepon = Adodc1.Recordset!Telepon
TextNomorpolisi = Adodc1.Recordset!Nomor_polisi
TextTanggalsewa = Adodc1.Recordset!Tanggal_penyewaan
TextLamasewa = Adodc1.Recordset!Lama_penyewaan
TextTarif = Adodc1.Recordset!Tarif
TextBatas = Adodc1.Recordset!Batas_pengembalian
End Sub
Pada Menu bar Transaksi terdapat menu file Data Pengembalian, klik di menu file Data Pengembalian untuk menginput Data Pengembalian:
Sintak:
Private Sub CmdDelate_Click()
Adodc1.Recordset.Delete
TextNama.Text = ""
TextKtp.Text = ""
TextTgl.Text = ""
TextDenda.Text = ""
MsgBox "Data sudah di hapus"
Adodc1.Refresh
End Sub
Private Sub CmdExit_Click()
answer = MsgBox("Do you want to quit?", vbExclamation + vbYesNo, "Confirm")
If answer = vbYes Then
End
Else
MsgBox "Action canceled", vbInformation, "Confirm"
End If
End Sub
Private Sub CmdSave_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!Nama_pengembali = TextNama.Text
Adodc1.Recordset!Nomor_ktp = TextKtp.Text
Adodc1.Recordset!Tanggal_pengembalian = TextTgl.Text
Adodc1.Recordset!Denda = TextDenda.Text
Adodc1.Recordset.Update
MsgBox "Data berhasil disimpan"
Adodc1.Refresh
End Sub
Private Sub CmdUpdate_Click()
Adodc1.Recordset!Nama_pengembali = TextNama.Text
Adodc1.Recordset!Nomor_ktp = TextKtp.Text
Adodc1.Recordset!Tanggal_pengembalian = TextTgl.Text
Adodc1.Recordset!Denda = TextDenda.Text
Adodc1.Recordset.Update
MsgBox "Data berhasil di update"
End Sub
Private Sub DataGrid1_Click()
TextNama = Adodc1.Recordset!Nama_pengembali
TextKtp = Adodc1.Recordset!Nomor_ktp
TextTgl = Adodc1.Recordset!Tanggal_pengembalian
TextDenda = Adodc1.Recordset!Denda
End Sub
Ini adalah biodata saya sebagai programmer:
Terimakasih atas kunjungan anda semoga postingan kali ini bermanfaat, jika ada yang bingung silahkan di tanyakan....
0 comments:
Post a Comment