Journal Penelitian Sistem Informasi

Jurnal Perancangan Sistem Informasi Penjualan Aksesoris Bebasis Web

Click here to download word file

Click here to download pdf file

Mengenang Tugas Akhir E-Commerce

Membuka lembaran baru gak selamanya berarti menutup cerita lama. Hal ini yang saya rasakan semenjak melanjutkan program transfer degree D3 ke S1 tahun ini. Hampir lupa adalah kata yang tepat menggambarkan keadaan sekarang, apalagi beberapa mata kuliah mengharuskan saya untuk membuka Tugas Akhir kembali sebagai acuan tugas, dan pada akhirnya kembali mengingat adalah jalan keluarnya.

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