Penjualan di Mini Market menggunakan vb

TUGAS INTERAKSI MANUSIA DAN KOMPUTER

PROGRAM PENJUALAN DI MINIMARKET

OLEH KELOMPOK 1

1.     Diki Prayugo

2.     Anang Juniarto

3.     Rahmat Febrianto

4.     Dedi Kurniawan

5.     Ngatini

6.     Rohmiati

7.     Ina Safitri

8.     Putra Anggara Suraji

9.     Suparman

10.                        Ahmad Jalaluddin Ashidiqqi

11.                        Puji Setiawati

12.                        Dimas Septian Nugroho

Kata Pengantar

                                                                                         

            Puja dan puji syukur senantiasa penulis panjatkan kehadirat Allah SWT yang telah melimpahkan rahmat dan karunia-Nya. Sehingga pada akhirnya penulis dapat menyelesaikan tugas makalah ini dengan baik. Dimana Tugas Makalah ini penulis sajikan dalam bentuk buku yang sederhana. Adapun judul penulisan Tugas Makalah, yang penulis ambil sebagai berikut “Program Penjualan di Minimarket”.

            Tujuan penulisan Tugas Makalah ini dibuat sebagai salah satu syarat tugas INTERAKSI Manusia dan Komputer (IMK). Atas kerja sama dan kumpulan dari beberapa ide dari seluruh anggota kelompok serta bimbingan dari dosen mata kuliah IMK. Oleh karena itu pada kesempatan ini, izinkanlah penulis menyampaikan ucapan terima kasih kepada:

1.      Direktur Akademi Manajemen Informatika & Komputer Bina Sarana Informatika.

2.      Ketua Jurusan Manajemen Informatika Akademi Manajemen Informatika & Komputer Bina Sarana Informatika.

3.      Pak Oki Setiawan selaku Dosen Statistika Deskriptif

4.      Orang tua dan keluarga tercinta yang telah memberikan dukungan moral maupun spiritual.

serta semua pihak yang terlalu banyak untuk disebut satu persatu sehingga terwujudnya penulisan ini. Penulis menyadari bahwa penulisan Tugas makalah Statistika Deskriptif ini masih jauh sekali dari sempurna, untuk itu penulis mohon kritik dan saran yang bersifat membangun demi kesempurnaan penulisan di masa yang akan datang.

            Akhir kata semoga tugas Interaksi Manusia dan Komputer ini dapat berguna bagi penulis khusunya dan bagi para pembaca yang berminat pada umumnya.

Jakarta,  17 November 2013

Penulis

Spesifikasi File/Database

1.      Spesifikasi Tabel Barang

Nama File                    : Barang

Akronim File               : Barang

Fungsi File                  : untuk menyimpan data barang di minimarket

Fungsi File                  : File Master

Kunci File                   : Kode_Barang

Field Name	Data Type	Field Size	Description (Optional)
Kode_Barang Nama_Barang Satuan Harga Stok	Short Text Short Text Short Text Currency Short Text	7 100 4 5	Primary Key

Gambar 1.0

Tabel Barang

2.      Spesifikasi Tabel Kasir

Nama File                    : Kasir

Akronim File               : Kasir

Fungsi File                  : untuk menyimpan data kasir di minimarket

Fungsi File                  : File Kerja

Kunci File                   : NIK

Field Name	Data Type	Field Size	Description (Optional)
NIK Nama Jabatan Alamat Telp	Short Text Short Text Short Text Short Text Short Text	6 50 20 100 13	Primary Key

Gambar 1.1

Table Kasir

3.      Spesifikasi Tabel Transaksi

Nama File                    : Transaksi

Akronim File               : Transaksi

Fungsi File                  : untuk menyimpan data transaksi di minimarket

Fungsi File                  : File Transaksi

Kunci File                   : No_Trans

Field Name	Data Type	Field Size	Description (Optional)
No_Trans Tanggal NIK Kode_Barang Qty	Short Text Date/Time Short Text Short Text Short Text	9 6 7 5	Primary Key

Gambar 1.2

Table Transaksi

Parameter File/Database

1.      Nama File

Barang, Kasir, Transaksi

2.      Akronim File

Barang, Kasir, Transaksi

3.      Kode File

Nama yang digunakan dalam normalisasi pada database ini adalah : Barang, Kasir, Transaksi.

4.      Tipe File

File Manajer, File Kerja, File Transaksi

5.      Panjang Record

Panjang record pada masing-masing table adalah :

-          Tabel Barang               : 124 Character

-          Tabel Kasir                  : 189 Character

-          Tabel Transaksi           : 27 Character

6.      Media File

Media yang digunakan untuk menyimpan file (table) adalah Harddisk.

7.      Field Key

Kunci field yang digunakan dalam program saat program mengakses database adalah : Kode_Barang (Tabel Barang), NIK (Tabel Kasir) dan No_Trans (Tabel Transaksi).

8.      Software

Software yang digunakan dalam pembuatan database adalah Microsoft Access 2013.

Parameter Program

1.      Nama Program

Program Data Barang, Program Data Kasir, Program Login dan Program Transaksi.

2.      Akronim Program

Frm_Data_Barang, Frm_Data_Kasir, Frm_Login, Frm_Transaksi

3.      Kode Program

Brg01 (dst), Ksr01 (dst), Trans01 (dst)

4.      Fungsi Program

Program ini dibuat untuk mempermudah system/proses penjualan yang ada di minimarket.

5.      Bahasa Program

Bahasa pemrograman yang digunakan dalam pembuatan program ini adalah Microsoft Visual Basic 6.0.

6.      Proses Program

Setelah program berhasil dihubungkan dengan database yang sudah dibuat, maka inilah urutan system berjalannya program tersebut :

o   User dapat melakukan proses log in pada Form Log In

o   User dapat melihat daftar barang sesuai dengan barang yang sudah ada pada database yang sudah dibuat.

o   User juga dapat mengubah, menambah, menghapus serta menyimpan data barang pada Form Data Barang.

o   User/kasir dapat melakukan transaksi pada Form Transaksi.

Spesifikasi Program

1.      Spesifikasi Program Data Barang

Gambar 2.0

Tampilan Form Data Barang

a.       Nama Program                  : Form Data Barang

Akronim                            : Frm_Data_Barang

Fungsi                               : Untuk melakukan pengecekan, penambahan, penghapusan,                                            dan merubah data barang.

Bahasa                               : Ms. Visual Basic 6.0

b.      Proses Program

(akan dijelaskan lebih detail dengan menjalankan program secara langsung)

Objek	Properti	Nilai
Label1 Frame1 Label2 Label3 Label4 Label5 Label6 TexBox1 TexBox2 Combo1 TextBox3 TextBox4 Frame2 Label7 TextBox5 CommandButton1 CommandButton2 CommandButton3 CommandButton4 CommandButton5 CommandButton6 CommandButton7 CommandButton8 CommandButton9 CommandButton10 CommandButton11 DataGrid1 Ado_Data_Barang	Name Caption Font Font Style Font Size Name Caption Caption Caption Caption Caption Caption Name Text Name Text Name Text Name Text Name Text Caption Caption Name Text Name Caption Name Caption Name Caption Name Caption Name Caption Name Caption Name Caption Caption Caption Caption Caption	Lebel1 DATA BARANG Viner Hand ITC Bold 18 Frame1 Input Barang Kode Barang Nama Barang Satuan Harga Stok Txt_Kode_Barang (kosongkan) Txt_Nama_Barang (kosongkan) Txt_Satuan (kosongkan) Txt_Harga (kosongkan) Txt_Stok (kosongkan) Cari Barang Kode Barang Txt_Cari (kosongkan) Cmd_Cari Cari Cmd_Tambah Tambah Cmd_Simpan Simpan Cmd_Batal Batal Cmd_Ubah Ubah Cmd_Hapus Hapus Cmd_Keluar Keluar

Listing :

Private Sub Tombol(Cek As Boolean)

If Cek = True Then

Cmd_Tambah.Enabled = True

Cmd_Keluar.Enabled = True

Cmd_Ubah.Enabled = True

Cmd_Hapus.Enabled = True

Cmd_Cari.Enabled = True

Cmd_Batal.Enabled = False

Cmd_Simpan.Enabled = False

Else

Cmd_Tambah.Enabled = False

Cmd_Keluar.Enabled = False

Cmd_Ubah.Enabled = False

Cmd_Hapus.Enabled = False

Cmd_Cari.Enabled = False

Cmd_Simpan.Enabled = True

Cmd_Batal.Enabled = True

End If

End Sub

Private Sub Aktif(Cek As Boolean)

Txt_Kode_Barang.Enabled = False

Txt_Nama_Barang.Enabled = Cek

Cmb_Satuan.Enabled = Cek

Txt_Harga.Enabled = Cek

Txt_Stok.Enabled = Cek

Cmb_Satuan.AddItem "Pcs"

Cmb_Satuan.AddItem "Pack"

End Sub

Sub Tampil()

Aktif (True)

With Ado_Data_Barang.Recordset

Txt_Kode_Barang.Text = !Kode_Barang

Txt_Nama_Barang.Text = !Nama_Barang

Cmb_Satuan.Text = !Satuan

Txt_Harga.Text = !Harga

Txt_Stok.Text = !Stok

End With

End Sub

Sub Bersih()

Txt_Kode_Barang = ""

Txt_Nama_Barang = ""

Cmb_Satuan.Clear

Txt_Harga = ""

Txt_Stok = ""

End Sub

Sub No()

Dim No As Integer

With Ado_Data_Barang.Recordset

.Find "Kode_Barang = '" & Me.Txt_Kode_Barang.Text & "'", , adSearchForward, 1

    If .EOF Then

        No = .RecordCount + 1

        Txt_Kode_Barang.Text = "BRG" + Format(No, "000")

Else

    .Find "Kode_Barang = '" & Me.Txt_Kode_Barang.Text & "'", , adSearchForward, 1

    If Not .EOF Then

        .MoveLast

        No = Val(Right(!Kode_Barang, 3)) + 1

        Txt_Kode_Barang.Text = "BRG" + Format(No, "000")

    End If

End If

End With

End Sub

Private Sub Form_activate()

Aktif (False)

Tombol (True)

Txt_Cari.SetFocus

End Sub

Private Sub Cmd_Tambah_Click()

Aktif True

Tombol False

No

Txt_Nama_Barang.SetFocus

End Sub

Private Sub cmd_simpan_click()

If Txt_Kode_Barang = "" Or Txt_Nama_Barang = "" Or Cmb_Satuan = "" Or Txt_Harga = "" Or Txt_Stok = "" Then

    MsgBox "Data Belum Lengkap...!", vbInformation

Else

    With Ado_Data_Barang.Recordset

    .Find "Kode_Barang = '" & Me.Txt_Kode_Barang.Text & "'", , adSearchForward, 1

        If .EOF Then

        .AddNew

        !Kode_Barang = Txt_Kode_Barang.Text

        !Nama_Barang = Txt_Nama_Barang.Text

        !Satuan = Cmb_Satuan.Text

        !Harga = Txt_Harga.Text

        !Stok = Txt_Stok.Text

        .Update

        Else

        !Kode_Barang = Txt_Kode_Barang.Text

        !Nama_Barang = Txt_Nama_Barang.Text

        !Satuan = Cmb_Satuan.Text

        !Harga = Txt_Harga.Text

        !Stok = Txt_Stok.Text

        .Update

        End If

        Bersih

        Aktif (False)

        Tombol (True)

        Txt_Cari.SetFocus

        End With

End If

End Sub

Private Sub Cmd_Hapus_Click()

Dim A As Integer

    A = MsgBox("Yakin Mau Dihapus  ???", vbYesNo + vbInformation, "Konfirmasi")

        If A = vbYes Then

        Ado_Data_Barang.Recordset.Delete

        Aktif False

        Tombol True

        Bersih

        End If

Txt_Cari.SetFocus

End Sub

Private Sub Cmd_Ubah_Click()

Bersih

Tampil

Aktif True

Tombol False

End Sub

Private Sub Cmd_Batal_Click()

Bersih

Aktif False

Tombol True

End Sub

Private Sub Cmd_Cari_click()

With Ado_Data_Barang.Recordset

.Find "Kode_Barang = '" & Me.Txt_Cari.Text & "'", , adSearchForward, 1

    If Not .EOF Then

    Tampil

    Txt_Cari.Text = ""

    Aktif False

    Tombol True

    Else

    MsgBox "kode barang tidak ada", vbInformation, "info"

    Txt_Cari.Text = ""

    End If

End With

End Sub

Private Sub Txt_Cari_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

With Ado_Data_Barang.Recordset

.Find "Kode_Barang = '" & Me.Txt_Cari.Text & "'", , adSearchForward, 1

    If Not .EOF Then

    Tampil

    Txt_Cari.Text = ""

    Aktif False

    Tombol True

    Else

    MsgBox "kode barang tidak ada", vbInformation, "info"

    Txt_Cari.Text = ""

    End If

End With

End If

Txt_Cari.MaxLength = 6

End Sub

Private Sub Txt_Nama_Barang_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

Cmb_Satuan.SetFocus

End If

End Sub

Private Sub Cmb_Satuan_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt_Harga.SetFocus

End If

End Sub

Private Sub Txt_Harga_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt_Stok.SetFocus

End If

End Sub

Private Sub Txt_Stok_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Txt_Kode_Barang = "" Or Txt_Nama_Barang = "" Or Cmb_Satuan = "" Or Txt_Harga = "" Or Txt_Stok = "" Then

       MsgBox "Data Belum Lengkap...!", vbInformation

    Else

    With Ado_Data_Barang.Recordset

    .Find "Kode_Barang = '" & Me.Txt_Kode_Barang.Text & "'", , adSearchForward, 1

        If .EOF Then

        .AddNew

        !Kode_Barang = Txt_Kode_Barang.Text

        !Nama_Barang = Txt_Nama_Barang.Text

        !Satuan = Cmb_Satuan.Text

        !Harga = Txt_Harga.Text

        !Stok = Txt_Stok.Text

        .Update

        Else

        !Kode_Barang = Txt_Kode_Barang.Text

        !Nama_Barang = Txt_Nama_Barang.Text

        !Satuan = Cmb_Satuan.Text

        !Harga = Txt_Harga.Text

        !Stok = Txt_Stok.Text

        .Update

        End If

        Bersih

        Aktif False

        Tombol True

        Txt_Cari.SetFocus

    End With

    End If

End If

End Sub

Private Sub cmd_first_Click()

Ado_Data_Barang.Recordset.MoveFirst

Tampil

Aktif False

End Sub

Private Sub cmd_last_Click()

Ado_Data_Barang.Recordset.MoveLast

Tampil

Aktif False

End Sub

Private Sub cmd_next_Click()

Ado_Data_Barang.Recordset.MoveNext

If Ado_Data_Barang.Recordset.EOF Then

MsgBox "DATA SUDAH DIAKHIR RECORD", vbInformation, "INFO"

Ado_Data_Barang.Recordset.MoveLast

End If

Tampil

Aktif False

End Sub

Private Sub cmd_previous_Click()

Ado_Data_Barang.Recordset.MovePrevious

If Ado_Data_Barang.Recordset.BOF Then

MsgBox "DATA SUDAH DIAWAL RECORD", vbInformation, "INFO"

Ado_Data_Barang.Recordset.MoveFirst

End If

Tampil

Aktif False

End Sub

Private Sub Cmd_Keluar_Click()

Unload Me

End Sub

2.      Spesifikasi Program Log In

Gambar 2.1

Form Log In

a.       Nama Program            : Form Log In

Akronim                      : Frm_Login

Fungsi                         : Sebagai salah satu proses user sebelum melakukan transaksi

Bahasa                         : Ms. Visual Basic 6.0

b.      Proses Program

(akan dijelaskan lebih detail dengan menjalankan program secara langsung)

Objek	Property	Nilai
Label1 Label2 TextBox1 TextBox2 CommandButton1 CommandButton2	Caption Caption Name Text Name Text Name Caption Name Caption	NIK Password Txt_NIK (kosongkan) Txt_Password (kosongkan) Cmd_Login Login Cmd_Keluar Keluar

Listing Program :

Private Sub Txt_NIK_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt_Password.SetFocus

End If

Txt_NIK.MaxLength = 6

End Sub

Private Sub Txt_Password_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

Call Buka_Database

RS.Open "select*from Kasir where NIK='" & Txt_NIK.Text & "'And Password='" & Txt_Password.Text & "'", Koneksi

    If RS.EOF Then

    MsgBox "User Atau Password Salah"

    Txt_NIK.Text = ""

    Txt_Password.Text = ""

    Txt_NIK.SetFocus

    Else

    Unload Me

    Frm_Data_Barang.Show

    End If

End If

End Sub

Private Sub Cmd_Login_click()

Call Buka_Database

RS.Open "select*from Kasir where NIK='" & Txt_NIK.Text & "'And Password='" & Txt_Password.Text & "'", Koneksi

If RS.EOF Then

MsgBox "User Atau Password Salah"

Txt_NIK.Text = ""

Txt_Password.Text = ""

Txt_NIK.SetFocus

Else

Unload Me

Frm_Data_Barang.Show

End If

End Sub

Private Sub Cmd_Keluar_Click()

Unload Me

End Sub

3.      Spesifikasi Program Kasir

Gambar 2.2

Form Data Kasir

Objek	Property	Nilai
Label1 Frame1 Label1 Label2 Label3 Label4 Label5 TextBoxt1 TextBoxt2 ComboBox1 TextBox3 TextBox4 TextBox5 Frame2 Label8 TextBox6 CommandButton8 CommandButton9 CommandButton10 CommandButton11 CommandButton12 CommandButton13 CommandButton14 DataGrid1 CommandButton15 CommandButton16 CommandButton17 CommandButton	Caption Caption Caption Caption Caption Caption Caption Name Text Name Text Name Text Name Text Name Text Name Text Caption Caption Name Text Name Caption Name Caption Name Caption Name Caption Name Caption Name Caption Name Caption Name Name Name Name	DATA KARYAWAN Input Karyawan NIK Nama Alamat Telp Password Txt_NIK (kosongkan) Txt_Nama (kosongkan) Cmb_Jabatan (kosongkan) Txt_Alamat (kosongkan) Txt_Telp (kosongkan) Txt_Password (kosongkan) Cari Karyawan NIK Txt_Cari (kosongkan) Cmd_Cari Cari Cmd_Tambah Tambah Cmd_Simpan Simpan Cmd_Batal Batal Cmd_Ubah Ubah Cmd_Hapus Hapus Cmd_Keluar Keluar Cmd_First Cmd_Previous Cmd_Next Cmd_Last

4.      Spesifikasi Program Transaksi

Gambar 2.3

Form Transaksi

a.       Nama Program            : Form Transaksi

Akronim                      : Frm_Transaksi

Fungsi                         : Untuk melakukan proses transaksi

Bahasa                         : Ms. Visual Basic 6.0

b.      Proses Program

(akan dijelaskan lebih detail dengan menjalankan program secara langsung)