Nama Kelompok :

1. M. Thahir Q 12077463
2. M.Yunus 12077482
3. Ryanto 12077487
4. Sri Jati Berlian 12077488
5. Wahyu Hayati 12077474
6. Nono Darsono 12077465
7. Wahyu Adimas 12077476
8. Munif Fahrudin 12077484
9. Galih Eko 12077485
10. Saleh Kurniawan 12077469

Rental Mobil Sejoli Sejati

Dim x As Control
Dim i As Integer
Private Sub bersih()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Text = ""
ElseIf TypeName(x) = "ComboBox" Then
x.Text = ""
End If
Next
End Sub
Private Sub hidup()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Enabled = True
ElseIf TypeName(x) = "ComboBox" Then
x.Enabled = True
End If
Next
End Sub
Private Sub mati()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Enabled = False
ElseIf TypeName(x) = "ComboBox" Then
x.Enabled = False
End If
Next
End Sub

Private Sub Combo2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
a = Val(Combo1.Text)
b = Val(Combo2.Text)
Text6.Text = b - a
End If
End Sub

Private Sub Command1_Click()
Label14 = Val(Text6.Text) * Val(Text8.Text)
End Sub

Private Sub Command2_Click()
bersih
hidup
auto
End Sub

Private Sub Command3_Click()
With Data3.Recordset
.AddNew
!Nosewa = Text1.Text
!Tglsewa = Combo1.Text
!Tglkembali = Combo2.Text
!Kdmobil = DBCombo2.Text
!Noanggota = DBCombo1.Text
.Update
End With
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub DBCombo1_Change()
With Data1.Recordset
.Index = "anggotadex"
.Seek "=", DBCombo1
If Not .NoMatch Then
Text2.Text = !Nmanggota
Text9.Text = !Alamat
End If
End With
End Sub

Private Sub DBCombo2_Change()
With Data2.Recordset
.Index = "mobildex"
.Seek "=", DBCombo2
If Not .NoMatch Then
Text3.Text = !Merkmobil
Text4.Text = !Jenismobil
Text5.Text = !Nopolisi
End If
End With
End Sub

Private Sub Form_Load()
mati
bersih

For i = 1 To 30
Combo1.AddItem Format(Date + i, "dd/mm/yyyy")
Next
Combo1.Text = Format(Date + i, "dd/mm/yyyy")

For i = 1 To 30
Combo2.AddItem Format(Date + i, "dd/mm/yyyy")
Next
Combo2.Text = Format(Date + i, "dd/mm/yyyy")
End Sub

Private Sub Option1_Click()
Text8.Text = 250000
End Sub

Private Sub Option2_Click()
Text8.Text = 100000
End Sub

Private Sub Timer1_Timer()
Label2 = Date
Label3 = Time
End Sub
Private Sub auto()
With Data3.Recordset
If RecordCount <> 0 Then
.MoveLast
nolama = !Nosewa
no = nolama + 1
Else
no = 1
End If
End With
nobaru = ("000" & Trim(no))
Text1.Text = Trim(nobaru)
End Sub

Mau Download program ini klik link di bawah ini :
http://www.indowebster.com/Rental_Mobil.html

TUTORIAL APLIKASI DATABASE ACCESS

Untuk membuat sebuah Applikasi Database Mahasiswa dengan Access itu sangat mudah, dibandingkan dengan Pemograman liannya seperti Visual Basic. Microsoft Access adalah suatu aplikasi yang dapat membantu kita membuat sebuah aplikasi database dalam waktu yang relatif singkat. Biasanya digunakan untuk pembuatan aplikasi-aplikasi yang kecil. Misalnya Program untuk Kasir di koperasi, penjualan untuk toko. Sebelum mulai belajar jangan lupa berdoa dulu kemudian Tanamkan pada diri anda bahwa Microsoft Access itu gampang dan mudah dipelajari.
Kuatkan keyakinan pada diri anda bahwa anda dapat menguasainya.

Di Microsoft Access ada bagian apa aja sih…?

1. Table digunakan untuk menyimpan data
2. Query digunakan untuk memanipulasi data
3. Form digunakan untuk frontend aplikasi. Biasanya untuk menampilkan data, menambah data dll.
4. Report digunakan untuk membuat laporan
5. Macro digunakan untuk melakukan satu atau beberapa fungsi.
6. Switchboard digunakan untuk mendisign Menu

Bagaimana memulai microsoft Access…?

1. Klik Start pilih Program lalu pilih Microsoft Access
2. Setelah terbuka klik Blank Database, pada jendela file new database isikan nama file yang diinginkan misalkan Mahasiswa (Untuk membuat aplikasi Pengentrian data Mahasisawa di sebuah pendidikan) Kita sudah membuat database dengan nama Mahasiswa tetapi database itu belum dapat digunakan untuk itu kita perlu membuat Tabel, Form, Query, Report dan Macro bila Perlu.
Tabel

Apa itu table..?

"Tabel adalah tempat meyimpan data, contohnya data barang di simpan di tabel barang. Kenapa kita harus membuat tabel...? Karene kalau kita tidak membuat tabel kita tidak dapat meyimpan data, jika tidak ada data yang di simpan maka data tidak dapat di proses."

Apakah Query itu...?

"Query adalah permintaan data kita berupa bahasa bisnis, untuk mengolah data dalam tabel(-tabel) menjadi satu informasi yang bisa dimengerti. Seperti mengelompokkan sepuluh penjualan terbesar oleh customer yang dimiliki. Ia bisa berdasarkan pada satu tabel saja, atau pada dua/lebih tabel, ataupun berdasarkan pada query yang telah ada."
Apa sih manfaat dari Query itu...? Dengan query kita dapat :

1. Menampilkan data-data tertentu pada suatu table, contohnya kita hanya ingin melihat data pada table Mahasiswa yang Nim nya “MA001”
2. Menampilkan data dari dua table atau lebih dengan syarat antara table itu ada field yang berhubungan. Contohnya kita ingin melihat Nim “01200506” itu siapa pemiliknya. Di sini kita mengambil data dari table Mahasiswa dan Table Nilai, Sebagai penghubungnya adalah field NIM. Dapat melakukan operasi perhitungan.
Itulah tiga fungsi utama query. Query biasanya digunakan sebagai sumber data untuk Report dan Form.

Apa yang di maksud dengan Form..?

"Form digunakan untuk merepresentasikan ke user atau menerima inputan dari user data-data dalam tabel/query dalam bentuk interface grid, tombol, dan lain-lain kontrol windows. form dalam access bisa dimasukkan ke dalam form lain sebagai control sub form, biasanya jika bekerja dalam transaksi master-detail."
Berikut ini adalah contoh Appikasi Databse Mahasiswa yang telah saya buat dengan dengan menggunakan Microsof Word. Jika Anda berminat untuk belajar dan mencoba silahkan Anda Download disini Tutorial Database Mahasiswa

Kue Cinta

Resep Kue Cinta

Bahan :
1 pria takut Tuhan,
1 wanita takut Tuhan,
100% Komitmen,
2 pasang restu orang tua,
1 botol kasih sayang murni.

bumbu:
20 galon doa,
1 balok besar humor,
25 gr rekreasi,
2 sendok teh telpon-telponan,
Semuanya diaduk hingga merata dan mengembang.

tips:
Pilih pria dan wanita yang benar-benar matang dan seimbang.
Jangan yang satu terlalu tua dan yang lainnya terlalu muda karena dapat mempengaruhi kelezatan (sebaiknya dibeli di toserba bernama TEMPAT IBADAH,walaupun agak jual mahal tapi mutunya terjamin.)
Jangan beli di pasar yang bernama DISKOTIK atau PARTY karena walaupun modelnya bagus dan harum baunya tapi kadang menipu konsumen atau kadang menggunakan zat pewarna yang bisa merusak kesehatan.
Gunakan Kasih sayang cap"IMAN, HARAP & KASIH" yang telah mendapatkan penghargaan ISO dari Departemen Kesehatan dan Kerohanian.
cara memasak
Pria dan Wanita dicuci bersih, buang semua masa lalunya sehingga tersisa niat yang murni.
Siapkan loyang yang telah diolesi dengan komitmen dan restu orang tua secara merata.
Masukkan niat yang murni ke dalam loyang dan panggang dengan api cinta, merata sekitar 30 menit di depan penghulu dan Tuhan
Biarkan di dalam loyang tadi dan sirami dengan semua bumbu di atas.
Kue siap dinikmati.

! catatan:
Kue ini dapat dinikmati oleh pembuatnya seumur hidup dan paling enak dinikmati dalam keadaan kasih yang hangat. Tapi kalau sudah agak dingin, tambahkan lagi humor segar secukupnya, rekreasi sesuai selera, serta beberapa galon doa kemudian dihangatkan lagi di oven bermerek "Tempat Ibadah" diatas api cinta. Setelah mulai hangat, jangan lupa telepon- teleponan bila berjauhan.