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

Things to DO if You Don't Wanna Look Desperate

Girls, bagaimana hasil introspeksinya? Apakah Anda merasa seperti wanita depresi yang haus akan belaian pria? No, don't be that. Ingin dibelai itu manusiawi, tapi haus akan belaian, well, it's a big NO. Menemukan cinta dalam hidup ini adalah penting, namun jangan lepaskan harga diri untuk mendapatkannya. The Desperate Woman cenderung mengorbankan harga dirinya untuk hal tersebut. She don't feel deserve to get the best from God.

Well, wanita juga manusia. Kalau pun satu atau dua ciri yang ada pada artikel sebelumnya pernah terjadi pada diri Anda, bukan berarti Anda harus merasa depresi mengetahuinya. Well, saya yakin gak mungkin gak ada wanita yang gak memiliki tanda-tanda The Desperate Woman. We can resolve that with this way.

1. Confidence

Anda tau Anda memiliki banyak kelebihan, walaupun pada beberapa hal ada kekurangannya. Pria menyukai wanita yang yakin pada dirinya. Be confident dan berikan syarat lebih pada orang yang mencoba mendapatkan Anda. Jangan hanya puas untuk sesuatu yang pasangan harapkan dari Anda. Lakukan yang terbaik untuk Anda dan tetap konsisten.

2. Live your life

Jangan dipanggil. Anda bukan wanita panggilan yang harus siap untuk setiap keinginannya. Pria menyukai beberapa tantangan.  Dan mereka ingin menjadi bagian dari kehidupan Anda, bukan segala-galanya Anda.

3. Clingy is not sexy

Pria ingin tau kalau pasangannya masih tertarik padanya. Tapi jangan berleihan sehingga Anda tidak memberikannya ruang untuk bernapas. Jadi komunikasikan hal ini sesekali.

4. Brains are sexy

Pria umumnya tidak akan bertahan pada wanita yang tidak berpendidikan. Bukan berarti Anda harus memiliki gelar PhD atau master, tapi Anda harus bisa membawa percakapan seperti berdansa dengan bintang. Anda tidak perlu menguasai bahan pembicaraan tapi cukup dengan mengerti apa yang Anda bicarakan.

5. No label please

"Well, ini baru kencan ketiga kita. Kenapa status Facebookmu langsung berubah menjadi 'In a Relationship'?" Hold on, girls. Pria itu mungkin menyukai Anda, tapi berikan ia waktu untuk mengetahui kalau hubungan kalian berhasil. Meminta atau lebih buruk menuntut status hubungan adalah cara tercepat untuk membuat pria kabur dari Anda.

6. Over analyzing is like creating your own purgatory

Cobalah Anda berpikir seperti pria, mungkin Anda tidak akan mengerti kecuali Anda adalah seorang pria. Jadi cobalah berhenti untuk memahami kelakuan mereka. Jika pria tidak menelepon kembali, itu berarti ia tidak akan menelepon Anda kembali. Jika Anda menelepon mereka kembali itu tidak akan mengubah apapun. Jika hal itu terjadi maka Anda akan terlihat putus asa.

Source: Saintel.wordpress

Female Behavior: The Desperate Woman

Hey, single and mingle woman! Try to read this article. Saya memungutnya dari sebuah majalah yang baru saya baca. Yeah, mungkin sedikit berguna untuk mengetahui kebenaran diri kita, apakah termasuk The Desperate Woman atau tidak. It's time to introspection!

The Desperate Woman umumnya memiliki obsesi yang berlebihan akan sesuatu, serta memiliki tabiat-tabiat buruk lainnya yang membuat pria mundur perlahan saat berkenalan dengannya. Untuk single woman, hal ini harus benar-benar dihindari karena gak mungkin kan mau single terus? Sedang mingle woman harus waspada, karena kalau benar Anda memiliki tabiat seperti The Desperate Woman, dijamin hubungan gak akan berlangsung lama. Well, gak akan ada satu pun wanita yang ingin seperti itu. Maka, coba kenali perilaku The Desperate Woman.

1. Lihat perjalanan cinta. Desperate Woman bisa dibilang memiliki suatu track panjang dalam urusan cinta. Lambat laun pria yang dikenalinya akan tau bahwa wanita seperti ini tidak pernah sendiri dan tidak pernah dapat mandiri. Serta dapat dilihat dari tipe pria yang dipilihnya, yang cenderung bervariasi.

Sebab: Dengan melihat long-single-track-relationship, The Desperate Woman akan terkesan memilih pria mana saja yang bersedia jadi kekasih, selama masih sesuai kriterianya yang sebenarnya tergolong "luas". Padahal sekarang ini kebanyakan pria lebih menginginkan wanita yang mandiri, yang tidak merecoki mereka.

ANDA BOLEH BERPERILAKU LAYAKNYA WANITA YANG INGIN DIBELAI, NAMUN BUKAN WANITA YANG SELALU HAUS AKAN BELAIAN.

2. Periksa timeline Twitter dan status Facebook. Wanita yang gemar social network itu bagus, namun bila terlalu obsesif, a big NO NO. Terlalu berkesan kurang kerjaan. Haruskan timeline Anda lebih penuh daripada jadwal Anda sehari-hari? Dan saat Anda ingin mengenal siapa teman-teman sang kekasih, bukan berarti Anda harus selalu memeriksa profil mereka di Facebook atau Twitter.

Sebab: Pria akan mengenalkan kekasihnya kepada seluruh teman-temannya serta sanak saudara bila dirasa sudah "klik". Dan mereka akan merasa terganggu jika Anda selalu mengecek kegiatannya di dunia maya apalagi sampai cek profil teman-temannya. Such a jobless woman. Apalagi kalau Anda sampai posting sesuatu yang sebenarnya pribadi tentang hubungan kalian berdua di Facebook dengan bahasa-bahasa yang cenderung meng-alayisme. Contoh: a9y mamin9 di umz mY Bee (artinya: lagi pacaran di sarang tawon). Serta posting tentang sesuatu yang sebenarnya tidak terlalu berguna dan cenderung membuang waktu. Bila sampai seperti itu, pria akan berpikir, "Hmm... emang gak ada kerjaan lain yang lebih penting selain update status di Facebook atau Twitter-an terus?" Dan akibatnya, dia pun akan kehilangan feeling pada Anda, karena keinginan Anda untuk selalu eksis di ranah social network.

3. Serba direncanakan. Kegiatan minggu ini dan minggu depan, warna baju calon suami di pelaminan, sampai ke nama anak Anda nanti, Desperate Woman sudah merencanakan semuanya. Dua minggu setelah si pria mengatakan "I love you", ia akan meminta untuk bertemu dengan orang tuanya. Seakan telah berpacaran bertahun-tahun lamanya, padahal baru saja pulang dari kencan ketiga.

Sebab:  Pria akan berkomitmen serius jika memang dianggap sudah saatnya, atau Anda telah dipilihnya sebagai wanita yang tepat. Pria cenderung "hidup" untuk hari ini, bukan minggu depan atau bulan depan. So, jangan pernah mengajak mereka bermimpi untuk sesuatu yang belum tentu direalisasikan oleh mereka.

4. Semua hal yang berlebihan. Semua sudah tau kalau segala yang berlebihan itu tidak baik. Bahkan Allah SWT. telah berfirman akan hal itu. Terlebih lagi berlebihan dalam hal berperilaku. Semua pasti ada batasnya dan harus tau malu. Desperate Woman biasanya berlebihan dalam pendekatan pada pria. Mereka melakukannya mungkin untuk menarik perhatian si pria dan agar bisa dianggap asik olehnya.

Sebab: Pria itu cenderung fleksibel dalam bertindak, sedangkan Anda sebagai wanita terkadang dituntut untuk mengetahui aturan dan harus bisa menjaga diri. Memang pria menginginkan kekasih yang asik diajak berbaur, tetapi bukan wanita yang malah memberikan kesan sok asik. Tapi sebenarnya pria juga tidak ingin Anda melakukannya hanya karena Anda ingin dianggap sebagai one of the boys. Anda boleh saja mempunyai kehidupan pribadi sendiri. So, if you prefer to have a girl's night out instead, then it's fine with us.

5. Pasrah. Sekali-sekali, mungkin tidak ada salahnya memiliki pemikiran yang sejalan dengan si dia. Anda menurut dengan apapun yang ia inginkan. Anda berpikir apapun yang ia pikirkan. Tapi untuk ke depannya, pria akan berpikir bahwa wanita yang ia kencani hanya memaksakannya agar Anda berdua memiliki kecocokan.

Sebab: Pria tidak suka denga wanita tanpa pendirian, pemikiran, opini, dan hasrat sendiri, hingga dianggap tidak punya identitas dan tidak mandiri. Pria juga ingin diberikan alternatif saran yang akan ia gunakan sebagai bahan perdebatan, yang nantinya mungkin bisa menjadi "bumbu" cinta berdua.

What Happens Next...?

1. Break it off. Si dia akan menyatakan ketidak siapannya untuk menjalin komitmen yang serius. Dan The Desperate Woman mungkin akan mulai mencerca, memaksa, dan akhirnya menangis. Wake up, ladies...! Pria juga manusia. Punya keputusan dan keinginan. Keinginan untuk berada jauh dari Desperate Woman.

2. Start anew. Setelah semuanya berakhir, seorang Desperate Woman akan tetap keep in touch dengan lingkungan teman-teman si pria, termasuk lingkungan baru si pria dan menggunakan orang terdekat untuk membawa Anda kembali kepadanya. Sang pria akan membutuhkan teman-temannya untuk menjadi barikade, bukan jembatan penghubung dengan wanita "gila" itu.

3. Damage Control. Wanita yang putus asa akan selalu mengingat rasa sakitnya. Wanita tersebut akan tetap berusaha berhubungan dengan si pria, dan untuk menjalin hubungan kembali. Oleh karena itu, jangan heran kalau pria akan menghilangkan seluruh jejaknya dari Anda. Dan jika hal itu sampai terjadi, then you're definitely one Desperate Woman.

Source: Cosmopolitan Magazine

Annoying Orange (Surely, nobody wanna eat this orange)

Pas saya lagi asik-asiknya menjelajahi beranda facebook yang kebanyakan isinya status-status tentang pencarian cinta yang asli, galau banget! Saya menemukan postingan menarik dari salah satu teman saya berisi video tentang jeruk. Awalnya saya hanya berpikir, "Hmm... what kind of orange is it?". Lalu saya play videonya dan terkentut-kentut melihat sebuah jeruk dengan mata dan bulu matanya yang indah serta mulut yang gede banget! Yang gak ngerti humor orang barat mungkin cuma bisa bilang, "garing". Well, semua punya pendapat masing-masing. Dan dari pada bacot terus, mending liat nih videonya. Play the clip!

Bener kan? Mata jeruk itu bagus banget. Dengan tingkahnya yang annoying itu, orang juga gak akan ada yang mau makan dia. Itu salah satu seri Annoying Orange lho. Lihat seri lainnya di YouTube yaa... The prank's so funny! LOL