Exploring Italy

ciao, come stai? il mio nome è Liana. Questo è il mio blog.

Kata-kata di atas adalah bahasa Italy yang saya translate via google translate. Hahaha... Benar-benar blank klo ngomongin bahasa Italy. Bahasa Inggris aja masih berantakan, dan bahasa Jerman saya gak berkembang-kembang sejak SMA. Well, bagaimanapun juga klo mau ke Italy tentu harus bisa bahasa Italy dong. Klo gak bisa, tanya aja "Can't you speak English?". Klo gak bisa juga, tanya aja "Can't you speak Bahasa?". Gak bisa juga?! Pake bahasa tubuh. hehehehe...

The moon over Venice

Seluruh dunia tau, betapa berharapnya saya bisa terbang ke Italy, terutama ke kota romantisnya --> VENICE *tataraaa...*. Berdiskusi dengan sahabat yang juga punya mimpi yang sama dengan saya (go to abroad) menjadi hal paling menarik minggu ini. Untuk itu saya pun iseng-iseng browsing untuk setidaknya sedikit menambah pengetahuan saya tentang Italy.

Italy terletak di semenanjung di bagian paling selatan Eropa tenggara. Dengan ibu kotanya Rome, bahasa utama bahasa Italy dan menggunakan mata uang Euro. Populasi 60 juta orang dengan industri utamanya di bidang pariwisata, permesinan dan besi/baja. Nilai kurs Euro terhadap IDR itu sekitar Rp 12000,- *liat tabungan, ngebatin, siap terjun dari pohon beringin*

Mengapa harus Italy?

Hmmm... Pertama kali terkesima melihat keindahan kota Venice melalui sebuah film yang diperankan oleh si sexy Mathew Goode, Chasing Liberty, yang saya pernah tulis juga di artikel sebelumnya. Keindahan kota yang terdiri dari banyak pulau dan disambungkan oleh jembatan-jembatan kecil itu gak akan pernah bisa saya bayangkan sampai saya lihat dengan mata kepala sendiri. Opini dari para pelancong yang pernah berkunjung ke sana juga membuat saya tambah expected untuk pergi. Bahkan untuk liat liputan tentang negara itu saya *gak gak gak kuat...* hahaha...

Selain geografisnya yang indah banget, saya juga terkesima dengan seni dari orang Itali. Well, see that's all on wikipedia Italian Art. Sejarahnya juga menarik!

Fontana Di Trevi

Dan klo saya berhasil sampai di sana, saat pulang saya akan mengunjungi Fontana Di Trevi  yang punya mitos, bila melempar koin ke dalamnya, maka harapan kita akan terkabul. Selain itu kita juga akan kembali lagi ke negara indah itu. Walaupun saya gak percaya hal-hal seperti itu, tapi cukup penasaran juga karena air mancur ini termasuk terkenal di dunia.

Dua dari sekian keajaiban dunia berada di Italy lho. Colosseum mengingatkan saya dengan film Gladiator yang cukup mengharukan itu. Dan bagi kita yang punya otak rada miring, bisa kali ya naik ke atas The Tower of Pisa terus terjun bebas dari sana. hahaha... (unrecommended)

And these are things to do in Italy (very recommended):

1. Navigate the Roman ruins

2. Climb the Tower of Pisa

3. Spend an afternoon on a Sicilian beach

4. Sample Chiantis in Siena

5. Float down the Grand Canal in Venice

6. Walk the waterfront in Naples

7. Take a bus to Anacapri

8. The Boboli Gardens in Florence

9. Eat in the Trastevere District

10. Bicycle through Tuscany

Source: www.destination360.com

Melalui Italy.com kita bisa memesan hotel, package, cruise, car atau segala jenis yang kita butuhkan untuk liburan nanti di Italy.

Saya juga agak interest pada backpacker yang bisa jalan-jalan keliling dunia. Hmmm... Apa saya ber-backpacker aja kali ya?

[Repost] Pesan Terakhir RASULULLAH SAW Menjelang Ajal Menjemput

Saya pernah meminjam buku kisah-kisah 25 nabi dari seorang teman. Dan satu kisah yang paling membuat saya tidak bisa menahan rintikan air mata adalah ketika Nabi Muhammad SAW meninggal. Kali ini saya juga menemukan sepenggal kisahnya pada blog orang dan sama seperti dulu, nangis sejadi-jadinya. Benar-benar malu dan kecewa mengetahui seseorang yang peduli kepada kita namun kita tidak peduli pada diri kita sendiri.

Sebelum malaikat Izrail diperintah Allah SWT untuk mencabut nyawa Nabi Muhammad SAW, Allah SWT telah berpesan kepada Jibril. "Hai Jibril, jika kekasih-Ku menolaknya, laranglah Izrail melakukan tugasnya!" Sungguh berharganya manusia yang satu ini.

Tiba-tiba dari luar pintu terdengar seorang yang berseru mengucapkan salam. "Bolehkah saya masuk?" tanyanya. Tapi Fatimah tidak mengizinkannya masuk, "Maafkanlah, ayahku sedang demam" kata Fatimah yang membalikkan badan dan menutup pintu.

Kemudian ia kembali menemani ayahnya yang ternyata sudah membuka mata dan bertanya pada Fatimah, "Siapakah itu wahai anakku?". "Tak tahulah ayahku, sepertinya orang baru, sekali ini aku melihatnya" tutur Fatimah lembut. Lalu, Rasulullah menatap puterinya itu dengan pandangan yang menggetarkan. Seolah-olah bahagian demi bahagian wajah anaknya itu hendak dikenang.

"Ketahuilah wahai anakku, dialah yang menghapuskan kenikmatan sementara, dialah yang memisahkan pertemuan di dunia. Dialah malaikatul maut" kata Rasulullah, Fatimah pun menahan ledakan tangisnya.

Malaikat maut datang menghampiri, tapi Rasulullah menanyakan kenapa Jibril tidak ikut bersama menyertainya. Kemudian dipanggillah Jibril yang sebelumnya sudah bersiap di atas langit dunia menyambut ruh kekasih Allah SWT dan penghulu dunia ini. "Jibril, jelaskan apa hakku nanti di hadapan Allah?" Tanya Rasululllah dengan suara yang amat lemah. "Pintu-pintu langit telah terbuka, para malaikat telah menanti ruhmu. Semua surga terbuka lebar menanti kedatanganmu" kata Jibril. Tapi itu ternyata tidak membuat Rasulullah lega, matanya masih penuh kecemasan.

"Engkau tidak senang mendengar khabar ini?" Tanya Jibril lagi. "Khabarkan kepadaku bagaimana nasib umatku kelak?" "Jangan khawatir, wahai Rasul Allah, aku pernah mendengar Allah berfirman kepadaku: Kuharamkan surga bagi siapa saja, kecuali umat Muhammad telah berada di dalamnya" kata Jibril. Detik-detik semakin dekat, saatnya Izrail melakukan tugas. Perlahan ruh Rasulullah ditarik. Nampak seluruh tubuh Rasulullah bersimbah peluh, urat-urat lehernya menegang. "Jibril, betapa sakit sakaratul maut ini."

Perlahan Rasulullah mengaduh. Fatimah terpejam, Ali yang di sampingnya menunduk semakin dalam dan Jibril memalingkan muka. "Jijikkah kau melihatku, hingga kau palingkan wajahmu Jibril?" Tanya Rasulullah pada Malaikat pengantar wahyu itu. "Siapakah yang sanggup, melihat kekasih Allah direnggut ajal" kata Jibril. Sebentar kemudian terdengar Rasulullah mengaduh, karena sakit yang tidak tertahankan lagi. "Ya Allah, dahsyat sekali maut ini, timpakan saja semua siksa maut ini kepadaku, jangan pada umatku" Badan Rasulullah mulai dingin, kaki dan dadanya sudah tidak bergerak lagi.

Bibirnya bergetar seakan hendak membisikkan sesuatu, Ali mendekatkan telinganya. "Uushiikum bis-shalaati, wamaa malakat aimaanukum (peliharalah shalat dan peliharalah orang-orang lemah di antaramu)". Di luar, pintu tangis mulai terdengar bersahutan, sahabat saling berpelukan. Fatimah menutupkan tangan di wajahnya, dan Ali kembali mendekatkan telinganya ke bibir Rasulullah yang mulai kebiruan. "Ummatii, ummatii, ummatiii! (Umatku, umatku, umatku)".

Dan, berakhirlah hidup manusia mulia yang memberi sinaran itu. Allaahumma sholli 'alaa Muhammad wa'alaihi wasahbihi wasallim. Ya Allah, Berikanlah untuk Muhammad "al wasilah" (derajat) dan keutamaan. Dan tempatkanlah ia di tempat terpuji sebagaimana yang telah Engkau janjikan".

Betapa mendalam cinta Rasulullah kepada kita ummatnya, bahkan diakhir kehidupannya hanya kita yang ada dalam fikirannya. Sakitnya sakaratul maut itutetapi sedikit sekali kita mengingatnya bahkan untuk sekedar menyebut namanya.

Wallahu'alam

Source: Ruang Unikz

Tugas VB Lanjutan: Kasus Penjualan Mobil secara Kredit

1. Normalisasi Data

One to Many (1-M)

            1 Kasir melayani banyak Transaksi Mobil

            1 Transaksi Mobil dilayani oleh 1 Kasir

2. Spesifikasi File

Tabel Mobil

Field Name	Data Type	Field Size	Description
IDmbl	Text	7	Primary Key
Tipe	Text	30
Harga	Currency
DP	Currency

Tabel Kasir

Field Name	Data Type	Field Size	Description
IDkasir	Text	7	Primary Key
Kasir	Text	50
Password	Text	20
Status	Text	10

Tabel Pelanggan

Field Name	Data Type	Field Size	Description
No_pelanggan	Text	7	Primary Key
Nm_pelanggan	Text	30
Alamat	Text	50
Nope	Text	16

Tabel Faktur

Field Name	Data Type	Field Size	Description
Nofak	Text	10	Primary Key
Tgl	Date/Time
No_pelanggan	Text	7
Idkasir	Text	7

Tabel Detailfak

Field Name	Data Type	Field Size	Description
Nofak	Text	10
IDmbl	Text	7
Harga	Currency
Lama	Text	20
DP	Currency
Bunga	Currency
Cicilan	Currency

Ketentuan:

1. Jika lama cicilan 1 tahun (12x), maka

Bunga: 10% dari harga mobil

Cicilan: ((Harga - DP) + Bunga) / 12

2. Jika lama cicilan 2 tahun (24x), maka

Bunga: 15% dari harga mobil

Cicilan: (Harga - DP) + Bunga) / 24

3. Jika lama cicilan 3 tahun (36x), maka

Bunga: 20% dari harga mobil

Cicilan: (Harga - DP) + Bunga) / 36

3. Rancangan Form, Laporan dan Menu Utama

a. Form Login

Private Sub cmdcancel_Click()

End

End Sub

Private Sub cmdlogin_Click()

Me.adologin.RecordSource = "select *from kasir"

Me.adologin.Refresh

With Me.adologin.Recordset

    .Find ("password='" & Trim(Me.txtpass) & "'")

    If .EOF Then

    MsgBox "Password Anda Salah", vbCritical + vbOKOnly, "Info"

    Me.txtpass = ""

    Me.txtpass.SetFocus

    Else

    MDIForm1.Show

    Unload Me

    End If

End With

End Sub

Private Sub txtid_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Me.adologin.RecordSource = "select *from kasir"

Me.adologin.Refresh

Me.adologin.Recordset.Find ("idkasir='" & Trim(Me.txtid) & "'")

    If Me.adologin.Recordset.EOF Then

    MsgBox "User ID Anda Salah", vbCritical + vbOK, "Info"

    Me.txtid = ""

    Me.txtid.SetFocus

    Else

    Me.txtkasir.Text = Me.adologin.Recordset.Fields("kasir")

    Me.txtkasir.Enabled = False

    Me.txtpass.SetFocus

    End If

End If

End Sub

Private Sub txtpass_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Me.adologin.RecordSource = "select *from kasir"

Me.adologin.Refresh

Me.adologin.Recordset.Find ("password='" & Trim(Me.txtpass) & "'")

    If Me.adologin.Recordset.EOF Then

    MsgBox "Password Anda Salah", vbCritical + vbOKOnly, "Info"

    Me.txtpass = ""

    Me.txtpass.SetFocus

    Else

    MDIForm1.Show

    Unload Me

    End If

End If

End Sub

b. Form Master Mobil

Dim isimobil As Boolean

Sub tampil()

Me.txtid.Text = Me.Adomobil.Recordset.Fields("IDmbl")

Me.txttipe.Text = Me.Adomobil.Recordset.Fields("Tipe")

Me.txtharga.Text = Me.Adomobil.Recordset.Fields("Harga")

Me.txtdp.Text = Me.Adomobil.Recordset.Fields("DP")

End Sub

Private Sub cbatal_Click()

Me.nonaktif

Me.bersih

Me.csimpan.Enabled = False

Me.cbatal.Enabled = False

Me.cubah.Enabled = False

Me.chapus.Enabled = False

End Sub

Private Sub ccari_Click()

Me.Adomobil.RecordSource = "select *from mobil where IDmbl=  '" & txtcariid & "'"

Me.Adomobil.Refresh

With Me.Adomobil.Recordset

    If .PageCount <> 0 Then

        Me.Adomobil.Refresh

        Me.txtid = ""

        Me.txtcariid = ""

        Me.txtcariid.SetFocus

        Call Me.tampil

    Else

        MsgBox "Kode " + Me.txtcariid + " Tidak Ada", 34, "Info"

        Me.txtcariid = ""

        Me.txtcariid.SetFocus

        Me.Adomobil.RecordSource = "select *from mobil"

        Me.Adomobil.Refresh

    End If

End With

Me.cubah.Enabled = True

Me.chapus.Enabled = True

End Sub

Private Sub chapus_Click()

If Len(Trim(Me.txtid.Text)) = "" Then

    Exit Sub

End If

p = MsgBox("Hapus Data Ini?", 32 + 4, "Konfirmasi")

If p = vbYes Then

    Me.Adomobil.Recordset.Delete

    Me.Adomobil.Refresh

    Me.bersih

    Me.nonaktif

    Me.cbatal.Enabled = False

    Me.cubah.Enabled = False

    Me.chapus.Enabled = False

    Me.csimpan.Enabled = False

    Me.ctambah.SetFocus

Else

    Me.nonaktif

End If

End Sub

Private Sub ckeluar_Click()

t = MsgBox("Anda Mau Menutup Form Ini?", 36, "Tanya")

If t = vbYes Then

    Unload Me

    MDIForm1.Show

End If

End Sub

Private Sub clast_Click()

Me.Adomobil.Recordset.MoveLast

Me.tampil

End Sub

Private Sub cnext_Click()

Me.Adomobil.Recordset.MoveNext

If Me.Adomobil.Recordset.EOF Then

    MsgBox "Data Anda Sudah di Akhir", 48, "Info"

    Me.Adomobil.Recordset.MoveLast

End If

Me.tampil

End Sub

Private Sub cprev_Click()

Me.Adomobil.Recordset.MovePrevious

If Me.Adomobil.Recordset.BOF Then

    MsgBox "Data Anda Sudah di Awal", 48, "Info"

    Me.Adomobil.Recordset.MoveFirst

End If

Me.tampil

End Sub

Private Sub csimpan_Click()

On Error Resume Next

With Me.Adomobil.Recordset

    If isimobil = True Then

        .AddNew

        .Fields("IDmbl") = Me.txtid

        .Fields("Tipe") = Me.txttipe

        .Fields("Harga") = Val(Me.txtharga)

        .Fields("DP") = Val(Me.txtdp)

        .Update

    Else

        .Fields("IDmbl") = Me.txtid

        .Fields("Tipe") = Me.txttipe

        .Fields("Harga") = Val(Me.txtharga)

        .Fields("DP") = Val(Me.txtdp)

        .Update

    End If

End With

Me.Adomobil.RecordSource = "select *from mobil"

Me.Adomobil.Refresh

On Error GoTo 0

cbatal_Click

End Sub

Sub bersih()

Me.txtid.Text = ""

Me.txttipe.Text = ""

Me.txtharga.Text = ""

Me.txtdp.Text = ""

Me.txtcariid.Text = ""

End Sub

Sub nonaktif()

Me.Adomobil.RecordSource = "select *from mobil"

Me.Adomobil.Refresh

Me.txtid.Enabled = False

Me.txttipe.Enabled = False

Me.txtharga.Enabled = False

Me.txtdp.Enabled = False

End Sub

Sub aktif()

Me.txtid.Enabled = True

Me.txttipe.Enabled = True

Me.txtharga.Enabled = True

Me.txtcariid.Enabled = True

Me.txtdp.Enabled = True

End Sub

Private Sub ctambah_Click()

Me.aktif

Me.bersih

Me.cbatal.Enabled = True

Me.csimpan.Enabled = False

Me.cubah.Enabled = False

Me.chapus.Enabled = False

Me.txtid.SetFocus

End Sub

Private Sub ctop_Click()

Me.Adomobil.Recordset.MoveFirst

Me.tampil

End Sub

Private Sub cubah_Click()

isimobil = False

Me.aktif

Me.csimpan.Enabled = True

Me.cbatal.Enabled = True

Me.chapus.Enabled = True

Me.cubah.Enabled = False

Me.txtid.Enabled = False

Me.txttipe.SetFocus

End Sub

Private Sub Form_Activate()

Me.bersih

Me.nonaktif

isimobil = True

Me.csimpan.Enabled = False

Me.cbatal.Enabled = False

Me.cubah.Enabled = False

Me.chapus.Enabled = False

End Sub

Private Sub Timer1_Timer()

Me.ltgl.Caption = Date

Me.ljam.Caption = Time

End Sub

Private Sub txtharga_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Me.txtharga.SetFocus

End If

End Sub

Private Sub txtid_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

If KeyAscii = 13 Then

Me.Adomobil.RecordSource = "select *from mobil where idmbl='" & Me.txtid & "'"

Me.Adomobil.Refresh

With Me.Adomobil.Recordset

    If .BOF And .EOF Then

        t = MsgBox("Kode " + Me.txtid + " Belum Ada. Mau Tambah Lagi?", vbQuestion + vbYesNo, "Konfirmasi")

        If t = vbYes Then

            isimobil = True

            Me.csimpan.Enabled = True

            Me.txttipe.SetFocus

            Me.gridmobil.Refresh

        Else

            Me.Adomobil.RecordSource = "select *from mobil"

            Me.Adomobil.Refresh

            Me.bersih

        End If

    Else

        MsgBox "Kode " & Me.txtid & " Sudah Ada", 34, "Info"

        Me.tampil

        Me.txtid.Enabled = False

        Me.cubah.Enabled = True

        Me.cubah.SetFocus

    End If

End With

End If

End Sub

Private Sub txttipe_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Me.txtharga.SetFocus

End If

End Sub

c. Form Master Kasir

Dim isikasir As Boolean

Sub bersih()

Me.txtid.Text = ""

Me.txtnama.Text = ""

Me.txtpassword.Text = ""

Me.txtstatus.Text = ""

End Sub

Sub aktif()

Me.txtid.Enabled = True

Me.txtnama.Enabled = True

Me.txtpassword.Enabled = True

Me.txtstatus.Enabled = True

End Sub

Sub nonaktif()

Me.txtid.Enabled = False

Me.txtnama.Enabled = False

Me.txtpassword.Enabled = False

Me.txtstatus.Enabled = False

End Sub

Sub tampil()

Me.txtid.Text = Me.Adokasir.Recordset.Fields("idkasir")

Me.txtnama.Text = Me.Adokasir.Recordset.Fields("kasir")

Me.txtpassword.Text = Me.Adokasir.Recordset.Fields("password")

Me.txtstatus.Text = Me.Adokasir.Recordset.Fields("status")

End Sub

Private Sub cadd_Click()

Me.aktif

Me.bersih

Me.txtid.SetFocus

Me.ccancel.Enabled = True

End Sub

Private Sub ccancel_Click()

Me.nonaktif

Me.bersih

Me.csave.Enabled = False

Me.cdelete.Enabled = False

Me.ccancel.Enabled = False

Me.cedit.Enabled = False

Me.cadd.SetFocus

End Sub

Private Sub cclose_Click()

t = MsgBox("Anda Ingin Menutup Form Ini?", 36, "Konfirmasi")

If t = vbYes Then

    Unload Me

    MDIForm1.Show

End If

End Sub

Private Sub cdelete_Click()

If Len(Trim(Me.txtid.Text)) = "" Then

Exit Sub

End If

p = MsgBox("Hapus Data Ini?", 32 + 4, "Konfirmasi")

If p = vbYes Then

    Me.Adokasir.Recordset.Delete

    Me.Adokasir.Refresh

    Me.bersih

    Me.nonaktif

Else

    Me.nonaktif

End If

Me.csave.Enabled = False

Me.ccancel.Enabled = False

Me.cdelete.Enabled = False

Me.cedit.Enabled = False

End Sub

Private Sub cedit_Click()

isikasir = False

Me.aktif

Me.txtid.Enabled = False

Me.txtnama.SetFocus

Me.cdelete.Enabled = True

Me.csave.Enabled = True

Me.ccancel.Enabled = True

End Sub

Private Sub clast_Click()

Me.Adokasir.Recordset.MoveLast

Me.tampil

Me.cedit.Enabled = True

End Sub

Private Sub cnext_Click()

Me.Adokasir.Recordset.MoveNext

If Me.Adokasir.Recordset.EOF Then

    MsgBox "Data Anda Sudah di Akhir", 48, "Info"

    Me.Adokasir.Recordset.MoveLast

End If

Me.tampil

Me.cedit.Enabled = True

End Sub

Private Sub cprev_Click()

Me.Adokasir.Recordset.MovePrevious

If Me.Adokasir.Recordset.BOF Then

    MsgBox "Data Anda Sudah di Awal", 48, "Info"

    Me.Adokasir.Recordset.MoveFirst

End If

Me.tampil

Me.cedit.Enabled = True

End Sub

Private Sub csave_Click()

On Error Resume Next

With Me.Adokasir.Recordset

    If isikasir = True Then

        .AddNew

        .Fields("idkasir") = Me.txtid.Text

        .Fields("kasir") = Me.txtnama.Text

        .Fields("Password") = Me.txtpassword.Text

        .Fields("status") = Me.txtstatus.Text

        .Update

    Else

        .Fields("idkasir") = Me.txtid.Text

        .Fields("kasir") = Me.txtnama.Text

        .Fields("Password") = Me.txtpassword.Text

        .Fields("status") = Me.txtstatus.Text

        .Update

    End If

End With

Me.Adokasir.RecordSource = "select *from kasir"

Me.Adokasir.Refresh

On Error GoTo 0

ccancel_Click

End Sub

Private Sub ctop_Click()

Me.Adokasir.Recordset.MoveFirst

Me.tampil

Me.cedit.Enabled = True

End Sub

Private Sub Form_Activate()

Me.bersih

Me.nonaktif

Me.csave.Enabled = False

Me.ccancel.Enabled = False

Me.cdelete.Enabled = False

Me.cedit.Enabled = False

Me.cadd.SetFocus

End Sub

Private Sub Timer1_Timer()

Me.ljam.Caption = Time

End Sub

Private Sub txtid_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

If KeyAscii = 13 Then

Me.Adokasir.RecordSource = "select *from kasir where idkasir='" & Me.txtid & "'"

Me.Adokasir.Refresh

With Me.Adokasir.Recordset

    If .BOF And .EOF Then

        t = MsgBox("Kode " + Me.txtid + " Belum Ada. Mau Tambah Lagi?", vbQuestion + vbYesNo, "Konfirmasi")

        If t = vbYes Then

            isikasir = True

            Me.csave.Enabled = True

            Me.txtnama.SetFocus

            Me.gridkasir.Refresh

        Else

            Me.Adokasir.RecordSource = "select *from mobil"

            Me.Adokasir.Refresh

            Me.bersih

        End If

    Else

        MsgBox "ID Kasir Sudah Ada", 34, "Info"

        Me.tampil

        Me.txtid.Enabled = False

        Me.cedit.Enabled = True

        Me.cedit.SetFocus

    End If

End With

End If

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Me.txtpassword.SetFocus

End If

End Sub

Private Sub txtpassword_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Me.txtstatus.SetFocus

End If

End Sub

d. Form Transaksi

Dim isitrans As Boolean

Sub auto()

Dim urutan As String

Dim hitung As Long

Me.Adofaktur.RecordSource = "select *from faktur"

Me.Adofaktur.Refresh

If Me.Adofaktur.Recordset.RecordCount <= 0 Then

urutan = Me.Adofaktur.Recordset.RecordCount + 1

Me.txtnofak.Text = "F" + Format(Date, "yymm") + Format(urutan, "000")

Else

Me.Adofaktur.Recordset.MoveLast

urutan = Val(Right(Me.Adofaktur.Recordset!nofak, 3)) + 1

Me.txtnofak.Text = "P" + Format(Date, "yymm") + Format(urutan, "000")

End If

End Sub

Sub aktif()

Me.txtnofak.Enabled = True

Me.txttgl.Enabled = True

Me.dtidkasir.Enabled = True

Me.txtnmkasir.Enabled = True

Me.txtidpemb.Enabled = True

Me.txtnmpemb.Enabled = True

Me.txtalamat.Enabled = True

Me.txtnope.Enabled = True

Me.dtidmobil.Enabled = True

Me.txttipe.Enabled = True

Me.txtharga.Enabled = True

Me.colama.Enabled = True

Me.txtdp.Enabled = True

Me.txtcicilan.Enabled = True

Me.txtbunga.Enabled = True

End Sub

Sub nonaktif()

Me.txtnofak.Enabled = False

Me.txttgl.Enabled = False

Me.dtidkasir.Enabled = False

Me.txtnmkasir.Enabled = False

Me.txtidpemb.Enabled = False

Me.txtnmpemb.Enabled = False

Me.txtalamat.Enabled = False

Me.txtnope.Enabled = False

Me.dtidmobil.Enabled = False

Me.txttipe.Enabled = False

Me.txtharga.Enabled = False

Me.colama.Enabled = False

Me.txtdp.Enabled = False

Me.txtcicilan.Enabled = False

Me.txtbunga.Enabled = False

End Sub

Sub bersih()

Me.txtnofak.Text = ""

Me.txttgl.Text = ""

Me.dtidkasir.Text = ""

Me.txtnmkasir.Text = ""

Me.txtidpemb.Text = ""

Me.txtnmpemb.Text = ""

Me.txtalamat.Text = ""

Me.txtnope.Text = ""

Me.dtidmobil.Text = ""

Me.txttipe.Text = ""

Me.txtharga.Text = ""

Me.colama.Text = ""

Me.txtdp.Text = ""

Me.txtcicilan.Text = ""

Me.txtbunga.Text = ""

End Sub

Private Sub cmdbatal_Click()

Me.nonaktif

Me.bersih

Me.cmdsimpan.Enabled = False

Me.cmdbatal.Enabled = False

Me.cmdtambah.SetFocus

End Sub

Private Sub cmdkeluar_Click()

x = MsgBox("Keluar dari Form ini?", vbYesNo + vbQuestion, "Konfirmasi")

If x = vbYes Then

    Unload Me

    MDIForm1.Show

End If

End Sub

Private Sub cmdsimpan_Click()

On Error Resume Next

Me.Adopembeli.RecordSource = "select *from pelanggan"

Me.Adopembeli.Refresh

With Me.Adopembeli.Recordset

     .AddNew

    .Fields("no_pelanggan") = Me.txtidpemb

    .Fields("nm_pelanggan") = Me.txtnmpemb

    .Fields("alamat") = Me.txtalamat

    .Fields("nope") = Me.txtnope

    .Update

End With

Me.Adofaktur.RecordSource = "select *from faktur"

Me.Adofaktur.Refresh

With Me.Adofaktur.Recordset

    .AddNew

    .Fields("nofak") = Me.txtnofak

    .Fields("tgl") = Date

    .Fields("no_pelanggan") = Me.txtidpemb

    .Fields("idkasir") = Me.dtidkasir

    .Update

End With

Me.Adodetail.RecordSource = "select *from detailfak"

Me.Adodetail.Refresh

With Me.Adodetail.Recordset

    .AddNew

    .Fields("nofak") = Me.txtnofak

    .Fields("idmbl") = Me.dtidmobil

    .Fields("harga") = Val(Me.txtharga)

    .Fields("lama") = Me.colama

    .Fields("dp") = Val(Me.txtdp)

    .Fields("bunga") = Val(Me.txtbunga)

    .Fields("cicilan") = Val(Me.txtcicilan)

    .Update

End With

Adodetail.Refresh

On Error GoTo 0

cmdbatal_Click

End Sub

Private Sub cmdtambah_Click()

Me.bersih

Me.auto

Me.txttgl.Text = Date

Me.dtidkasir.Enabled = True

Me.dtidkasir.SetFocus

Me.txtnmkasir.Enabled = True

Me.cmdbatal.Enabled = True

End Sub

Private Sub colama_Click()

If Me.colama.Text = "1 Tahun (12x)" Then

    Me.txtbunga.Text = Val(Me.txtharga) * 0.1

    Me.txtcicilan.Text = ((Val(Me.txtharga.Text) - Val(Me.txtdp.Text)) + Val(Me.txtbunga.Text)) / 12

Else

If Me.colama.Text = "2 Tahun (24x)" Then

    Me.txtbunga.Text = Val(Me.txtharga) * 0.15

    Me.txtcicilan.Text = ((Val(Me.txtharga.Text) - Val(Me.txtdp.Text)) + Val(Me.txtbunga.Text)) / 24

Else

    Me.txtbunga.Text = Val(Me.txtharga) * 0.2

    Me.txtcicilan.Text = ((Val(Me.txtharga.Text) - Val(Me.txtdp.Text)) + Val(Me.txtbunga.Text)) / 36

End If

End If

Me.cmdsimpan.Enabled = True

End Sub

Private Sub dtidkasir_Click(Area As Integer)

Me.Adokasir.RecordSource = "select *from kasir"

Me.Adokasir.Recordset.MoveFirst

Do While Not Me.Adokasir.Recordset.EOF

If Me.dtidkasir.Text = Me.Adokasir.Recordset!idkasir Then

    Me.txtnmkasir.Text = Me.Adokasir.Recordset!kasir

Exit Sub

End If

Me.Adokasir.Recordset.MoveNext

Loop

Me.txtidpemb.Enabled = True

Me.txtnmpemb.Enabled = True

Me.txtalamat.Enabled = True

Me.txtnope.Enabled = True

End Sub

Private Sub dtidmobil_Click(Area As Integer)

Me.Adomobil.RecordSource = "select *from mobil"

Me.Adomobil.Recordset.MoveFirst

Do While Not Me.Adomobil.Recordset.EOF

If Me.dtidmobil.Text = Me.Adomobil.Recordset!idmbl Then

    Me.txttipe.Text = Me.Adomobil.Recordset!tipe

    Me.txtharga.Text = Me.Adomobil.Recordset!harga

    Me.txtdp.Text = Me.Adomobil.Recordset!dp

Exit Sub

End If

Me.Adomobil.Recordset.MoveNext

Loop

End Sub

Private Sub Form_Activate()

Me.bersih

Me.nonaktif

Me.cmdtambah.SetFocus

Me.cmdsimpan.Enabled = False

Me.cmdbatal.Enabled = False

End Sub

Private Sub Timer1_Timer()

Me.ljam.Caption = Time

End Sub

Private Sub txtidpemb_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

If KeyAscii = 13 Then

Me.Adopembeli.RecordSource = "select *from pelanggan where no_pelanggan='" & Me.txtidpemb & "'"

Me.Adopembeli.Refresh

With Me.Adopembeli.Recordset

    If .BOF And .EOF Then

        t = MsgBox("ID " + Me.txtidpemb + " Belum Ada. Ingin Lanjut?", vbQuestion + vbYesNo, "Konfirmasi")

        If t = vbYes Then

            isitrans = True

            Me.txtnmpemb.SetFocus

            Me.gridtrans.Refresh

        Else

            Me.Adopembeli.RecordSource = "select *from pelanggan"

            Me.Adopembeli.Refresh

            Me.bersih

        End If

    Else

        MsgBox "ID " & Me.txtidpemb & " Sudah Ada", 34, "Info"

        Me.txtidpemb.Text = ""

        Me.txtidpemb.SetFocus

    End If

End With

End If

End Sub

Private Sub txtnope_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Me.dtidmobil.Enabled = True

Me.txttipe.Enabled = True

Me.txtharga.Enabled = True

Me.colama.Enabled = True

Me.txtdp.Enabled = True

Me.txtcicilan.Enabled = True

Me.txtbunga.Enabled = True

Me.dtidmobil.SetFocus

End If

End Sub

e. Laporan

 

f. Menu Utama

Private Sub exit_Click()

Unload Me

Form1.Show

End Sub

Private Sub fkasir_Click()

Unload Me

Form3.Show

End Sub

Private Sub fmobil_Click()

Unload Me

Form2.Show

End Sub

Private Sub ftrans_Click()

Unload Me

Form4.Show

End Sub

Private Sub rfaktur_Click()

Me.crfaktur.Action = 1
Me.crfaktur.RetrieveDataFiles

End Sub

Private Sub rkasir_Click()

Me.crkasir.Action = 1
Me.crkasir.RetrieveDataFiles

End Sub

Private Sub rmobil_Click()

Me.crmobil.Action = 1
Me.crmobil.RetrieveDataFiles

End Sub

Private Sub rpelanggang_Click()

Me.crpelanggan.Action = 1
Me.crpelanggan.RetrieveDataFiles

End Sub

Private Sub rtrans_Click()

Me.crdetail.Action = 1
Me.crdetail.RetrieveDataFiles

End Sub

Download program Penjualan Mobil secara Kredit di sini