MANUAL PROGRAM. Aplikasi Penjualan pada CV. BUKIT MAS

MANUAL PROGRAM Aplikasi Penjualan pada CV. BUKIT MAS Aplikasi ini dibuat dengan menggunakan aplikasi Microsoft Visual Basic 6.0 sebagai rancangan interface, untuk tempat penyimpanan data (database) digunakan Microsoft SQL Server 2000 dan untuk laporan (report) dirancang dengan menggunakan Seagate Crystal Report 8.0. A. Form Data Barang Form Data barang digunakan untuk mengisi daftar data barang yang nantinya akan digunakan pada pengisian data Transaksi. Untuk melakukan pengentrian data Barang dapat dilakukan dengan cara sebagai berikut: 1. Tekan tombol Tambah 2. Isi kode Barang, kemudian lanjutkan dengan pengisian data yang lainnya pada form data barang 3. Setelah selesai melakukan pengentrian data, tekan tombol Simpan 4. Untuk melakukan penghapusan data caranya adalah dengan memilih data barang yang akan dihapus, yaitu dengan menyorot data barang pada tabel datagrid barang, kemudian tekan tombol Hapus. 5. Untuk mencetak data barang, tekan tombol Cetak

B. Form Data Pemasok Data pemasok digunakan untuk mengisi data dari pemasok yang nantinya akan digunakan pada pengisian data Transaksi. Untuk melakukan pengentrian data pemasok dapat dilakukan dengan cara sebagai berikut: 1. Tekan tombol Tambah 2. Isi kode pemasok, kemudian lanjutkan dengan pengisian data yang lainnya pada form data pemasok 3. Setelah selesai melakukan pengentrian data, tekan tombol Simpan 4. Untuk melakukan penghapusan data caranya adalah dengan memilih data yang akan dihapus, yaitu dengan menyorot data pada tabel datagrid pemasok, kemudian tekan tombol Hapus. 5. Untuk mencetak data pemasok, tekan tombol Cetak

C. Form Data Pelanggan Form Data Pelanggan digunakan untuk mengisi daftar data pelanggan yang nantinya akan digunakan pada pengisian data Transaksi. Untuk melakukan pengentrian data Barang dapat dilakukan dengan cara sebagai berikut: Tekan tombol Tambah 1. Isi kode Pelanggan, kemudian lanjutkan dengan pengisian data yang lainnya pada form data pelanggan

2. Setelah selesai melakukan pengentrian data, tekan tombol Simpan 3. Untuk melakukan penghapusan data caranya adalah dengan memilih data pelanggan yang akan dihapus, yaitu dengan menyorot data pada tabel datagrid pelanggan, kemudian tekan tombol Hapus. 4. Untuk mencetak data pelanggan, tekan tombol Cetak

D. Form Transaksi Pembelian Data Transaksi pembelian adalah form yang memuat daftar pembelian barang yang dilakukan oleh CV. Bukit Mas berdasarkan kriteria bulan dan tahun yang dimasukkan pada teksbox periode. Untuk melakukan pengentrian data pembelian barang dapat dilakukan dengan cara sebagai berikut: 1. Masukkan periode (bulan dan tahun) 2. Tekan tombol Tambah 3. Isi kode pembelian, kemudian lanjutkan dengan pengisian data yang lainnya pada form pembelian 4. Setelah selesai melakukan pengentrian data, tekan tombol Simpan 5. Untuk memilih daftar barang yang dibeli dapat dilakukan dengan cara menekan tombol Isi Rincian, dan melakukan penambahan data seperti prosedur pengisian data barang. Setelah selesai, tekan tombol tutup

6. Untuk melakukan penghapusan data caranya adalah dengan memilih data pembelian yang akan dihapus, yaitu dengan menyorot data pembelian pada tabel datagrid pembelian, kemudian tekan tombol Isi Rincian, lalu lakukan penghapusan data pada rincian data barang

yang dibeli, lalu lakukan

penghapusan data pada form pembelian. 7. Untuk melakukan pencetakan faktur pembelian, tekan tombol Cetak

E. Form Transaksi Penjualan Data Transaksi penjualan adalah form yang memuat daftar penjualan barang yang dilakukan oleh CV. Bukit Mas berdasarkan kriteria bulan dan tahun yang dimasukkan pada teksbox periode. Untuk melakukan pengentrian data penjualan barang dapat dilakukan dengan cara sebagai berikut: 1. Masukkan periode (bulan dan tahun) 2. Tekan tombol Tambah 3. Isi kode penjualan, kemudian lanjutkan dengan pengisian data yang lainnya pada form penjualan 4. Setelah selesai melakukan pengentrian data, tekan tombol Simpan

5. Untuk memilih daftar barang yang dibeli dapat dilakukan dengan cara menekan tombol Isi Rincian, dan melakukan penambahan data seperti prosedur pengisian data barang. Setelah selesai, tekan tombol tutup 6. Untuk melakukan penghapusan data caranya adalah dengan memilih data penjualan yang akan dihapus, yaitu dengan menyorot data penjualan pada tabel datagrid penjualan, kemudian tekan tombol Isi Rincian, lalu lakukan penghapusan data pada rincian data barang

yang dijual, lalu lakukan

penghapusan data pada form penjualan. 7. Untuk melakukan pencetakan faktur penjualan, tekan tombol Cetak

F. Form Report Data Transaksi Pada form ini terdapat tombol-tombol yang dapat dipilih sesuai dengan kebutuhan yang akan melakukan pencetakan data pada data transaksi, sehingga data yang dientry pada program dapat ditampilkan hasilnya pada kertas. Form ini ada dua yaitu: Report Transaksi Pembelian dan Report Transaksi Penjualan.

G. Form Pengguna \ User Data user digunakan untuk mengisi daftar data user yang nantinya data ini akan digunakan pada saat melakukan login. Untuk melakukan pengentrian data user dapat dilakukan dengan cara sebagai berikut: 1. Tekan tombol Tambah 2. Isi nama user, password dan level user yang dimasukkan 3. Setelah selesai melakukan pengentrian data, tekan tombol Simpan 4. Untuk melakukan penghapusan data caranya adalah dengan memilih data user yang akan dihapus kemudian tekan tombol Hapus.

H. Form Ganti Password Ganti Password digunakan untuk mengganti password yang dibutuhkan oleh pengguna untuk dapat memasuki sistem aplikasi penjualan CV. Bukit Mas.Untuk melakukan pergantian password, caranya adalah sebagai berikut : 1. Isi nama User yang telah terdaftar sebagai pengguna

2. Isi kolom pengisian password lama dengan password yang telah dimiliki, kemudian isi kolom pengisian password baru yang dinginkan dengan password yang diinginkan, setelah itu konfirmasi password baru dengan cara mengetik ulang password baru pada kolom Konfirmasi Password, tekan enter 3. Kalau berhasil maka akan muncul pesan “Password telah berhasil Dirubah”

I. Form About Merupakan tambahan dari keterangan mengenai program Aplikasi Penjualan Produk yang dibuat oleh penulis dan hal-hal yang berhubungan dengan penulis.

J. Menu Help Adalah salah satu bagian yang ditambahkan agar pengguna program dapat mempelajari tata cara penggunaan program dan hal-hal yang berhubungan dengan program Aplikasi Penjualan Produk. Ini merupakan manual book elektronik yang dirancang oleh penulis sehingga dapat dilihat setiap waktu.

K. Menu Exit Merupakan menu unuk keluar dari program.

Data Pemasok Data Pemasok

Pembuatan Laporan Data Pemasok

Laporan Data Pemasok

Lapuran Data Pelanggan


Data Pelanggan


Data Penjualan

Data Pelanggan

Laporan Data Barang Data Barang Data Barang

Data Pembelian Data Pembelian

Pembuatan Laporan Data Barang

Pembuatan Laporan Data Pembelian

PIMPINAN

Laporan Pembelian

Laporan Penjualan

DataPenjualan

Gambar 3.6 Data Flow Diagram (DFD) Level 2

Universitas Sumatera Utara

LISTING PROGRAM

1. Form Menu Utama Private Sub mnuFile1_Click(Index As Integer) FormLogin.Show End Sub Private Sub mnuFile3_Click(Index As Integer) Unload Me End Sub Private Sub mnuExit_Click(Index As Integer) Unload Me End Sub Private Sub mnuHelp1_Click(Index As Integer) FormAbout.Show End Sub Private Sub mnuHelp2_Click(Index As Integer) On Error GoTo Salah Shell (App.Path & "\FR.exe MANUAL.pdf") Exit Sub Salah: MsgBox "Manual Program Not Found..! ", vbCritical End Sub Private Sub mnuMaster1_Click(Index As Integer) FormBarang.Show End Sub Private Sub mnuMaster3_Click(Index As Integer) FormPelanggan.Show End Sub Private Sub mnuMaster4_Click(Index As Integer) FormPemasok.Show End Sub Private Sub mnuReportBeli_Click(Index As Integer) FormReportBeli.Show End Sub Private Sub mnuReportJual_Click(Index As Integer) FormreportJual.Show End Sub Private Sub mnuTransaksi1_Click(Index As Integer) FormPembelian.Show End Sub


Private Sub mnuTransaksi2_Click(Index As Integer) FormPenjualan.Show End Sub Private Sub mnuUtil1_Click(Index As Integer) FormUser.Show End Sub Private Sub mnuUtil2_Click(Index As Integer) FormGantiPass.Show End Sub

2. Form Barang Option Explicit Dim Barang As String Private Sub cmdCetak_Click() CR1.ReportFileName = App.Path & "\REPORT\Lap Barang.rpt" CR1.Action = 1 CR1.WindowState = crptMaximized End Sub Private Sub cmdCetakCari_Click() CR1.ReportFileName = App.Path & "\REPORT\Lap Barang.rpt" CR1.SQLQuery = "select * from BARANG where nama_barang like '%" & Barang & "%'" CR1.Action = 1 CR1.WindowState = crptMaximized End Sub Private Sub cmdHapus_Click() AdoBarang.Recordset.Delete Call JumlahData End Sub Private Sub cmdSimpan_Click() On Error GoTo Salah AdoBarang.Recordset.Update AdoBarang.Refresh Call JumlahData cmdSimpan.SetFocus Exit Sub Salah: MsgBox "Data Belum Lengkap, "Error" End Sub

COBA

LAGI

!",

vbOKOnly,

Private Sub cmdTambah_Click() On Error GoTo Salah AdoBarang.Recordset.AddNew Txt_Kode.SetFocus Exit Sub


Salah: MsgBox "Proses Penambahan Data Terjadi Error", vbOKOnly, "Error" End Sub Private Sub cmdCari_Click() Barang = InputBox("Masukkan Nama Barang Yang Akan Dicari" , "Barang") AdoBarang.RecordSource = "select * from BARANG where nama_barang like '%" & Barang & "%'" AdoBarang.Refresh Call JumlahData End Sub Private Sub cmdTutup_Click() Dim pesan As String pesan = MsgBox("Apakah Anda Yakin vbYesNo + vbCritical, "Konfirmasi") If pesan = vbYes Then Unload Me End Sub Sub JumlahData() Call Init AdoBarang.Refresh L_Count = "Jumlah AdoBarang.Recordset.RecordCount AdoBarang.Refresh End Sub

Mau

Record

Mengakhiri

=

"

?",

&

Private Sub Form_Load() Call JumlahData End Sub

3. Form Pemasok Option Explicit Dim Pemasok As String Private Sub cmdCetak_Click() CR1.ReportFileName = App.Path & "\REPORT\Lap Pemasok.rpt" CR1.Action = 1 CR1.WindowState = crptMaximized End Sub Private Sub cmdCetakCari_Click() CR1.ReportFileName = App.Path & "\REPORT\Lap pemasok.rpt" CR1.SQLQuery = "select * from PEmasok where nama_pemasok like '%" & Pemasok & "%'" CR1.Action = 1 CR1.WindowState = crptMaximized End Sub Private Sub cmdHapus_Click()


AdoPemasok.Recordset.Delete Call JumlahData End Sub Private Sub cmdSimpan_Click() On Error GoTo Salah AdoPemasok.Recordset.Update AdoPemasok.Refresh Call JumlahData cmdTambah.SetFocus Exit Sub Salah: MsgBox "Data Belum Lengkap, "Error" End Sub

COBA

LAGI

!",

vbOKOnly,

Private Sub cmdTambah_Click() On Error GoTo Salah AdoPemasok.Recordset.AddNew Txt_Kode.SetFocus Exit Sub Salah: MsgBox "Proses Penambahan Data Terjadi Error", vbOKOnly, "Error" End Sub Private Sub cmdCari_Click() Pemasok = InputBox("Masukkan Nama Pemasok Yang Akan Dicari", "Pemasok") AdoPemasok.RecordSource = "select * from Pemasok where nama_pemasok like '%" & Pemasok & "%'" AdoPemasok.Refresh Call JumlahData End Sub Private Sub cmdTutup_Click() Dim pesan As String pesan = MsgBox("Apakah Anda Yakin vbYesNo + vbCritical, "Konfirmasi") If pesan = vbYes Then Unload Me End Sub

Mau

Mengakhiri

Private Sub Txt_Kode_KeyPress(keyascii As Integer) Dim panjang As Byte If keyascii = 13 Then If panjang < 5 Then MsgBox "Kode PEMASOK 5 Digit", vbCritical + "Kode Rekening" Me.Txt_Kode.SetFocus SendKeys "{Home}+{End}" Exit Sub End If End If End Sub

?",

vbOKOnly,


Sub JumlahData() Call Init AdoPemasok.Refresh L_Count = "Jumlah AdoPemasok.Recordset.RecordCount AdoPemasok.Refresh End Sub

Record

=

"

&

Private Sub Form_Load() Call JumlahData End Sub

4. Form Pelanggan Option Explicit Dim Pelanggan As String Private Sub cmdCetak_Click() CR1.ReportFileName = App.Path & "\REPORT\Lap Pelanggan.rpt" CR1.Action = 1 CR1.WindowState = crptMaximized End Sub Private Sub cmdCetakCari_Click() CR1.ReportFileName = App.Path & "\REPORT\Lap pELANGGAN.rpt" CR1.SQLQuery = "select * from PELANGGAN where nama_pelanggan like '%" & Pelanggan & "%'" CR1.Action = 1 CR1.WindowState = crptMaximized End Sub Private Sub cmdHapus_Click() AdoPelanggan.Recordset.Delete Call JumlahData End Sub Private Sub cmdSimpan_Click() On Error GoTo Salah AdoPelanggan.Recordset.Update AdoPelanggan.Refresh Call JumlahData cmdTambah.SetFocus Exit Sub Salah: MsgBox "Data Belum Lengkap, COBA LAGI !", vbOKOnly, "Error" End Sub Private Sub cmdTambah_Click() On Error GoTo Salah AdoPelanggan.Recordset.AddNew Txt_Kode.SetFocus Exit Sub


Salah: MsgBox "Proses Penambahan Data Terjadi Error", vbOKOnly, "Error" End Sub Private Sub cmdCari_Click() Pelanggan = InputBox("Masukkan Nama Pelanggan Yang Akan Dicari", "Pelanggan") AdoPelanggan.RecordSource = "select * from Pelanggan where Nama_Pelanggan like '%" & Pelanggan & "%'" AdoPelanggan.Refresh Call JumlahData End Sub Private Sub cmdTutup_Click() Dim pesan As String pesan = MsgBox("Apakah Anda Yakin Mau Mengakhiri ?", vbYesNo + vbCritical, "Konfirmasi") If pesan = vbYes Then Unload Me End Sub Sub JumlahData() Call Init AdoPelanggan.Refresh L_Count = "Jumlah Record = " & AdoPelanggan.Recordset.RecordCount AdoPelanggan.Refresh End Sub Private Sub Form_Load() Call JumlahData End Sub

5. Form Transaksi Pembelian Option Explicit Dim Beli As String Public NoFakturBeli As String Private Sub cmdCetak_Click() CR1.ReportFileName = App.Path & "\REPORT\FakturPembelian.rpt" CR1.SQLQuery = "Select * FRom VBeli Where NoFaktur_Beli= '" & Txt_Faktur.Text & "'" CR1.Action = 1 CR1.WindowState = crptMaximized End Sub Private Sub cmdHapus_Click() On Error GoTo Salah AdoBeli.Recordset.Delete Call JumlahData


Exit Sub Salah: MsgBox "Tidak Dapat Menghapus Data !", vbOKOnly, "Error" End Sub Private Sub cmdkalkulator_Click() AppActivate Shell("CALC.EXE") End Sub Private Sub cmdRincian_Click() FormPembelianDetail.AdoDTBeli.RecordSource = "Select from detail_beli Where NoFaktur_Beli = '" Txt_Faktur.Text & "' " FormPembelianDetail.AdoDTBeli.Refresh FormPembelianDetail.Show vbModal End Sub Private Sub cmdSimpan_Click() On Error GoTo Salah AdoBeli.Recordset.Update 'AdoBeli.Refresh cmdTambah.SetFocus Call JumlahData Exit Sub Salah: MsgBox "Data Belum Lengkap, "Error" End Sub

COBA

LAGI

!",

* &

vbOKOnly,

Private Sub cmdTambah_Click() On Error GoTo Salah AdoBeli.Recordset.AddNew Txt_Faktur.SetFocus Exit Sub Salah: MsgBox "Proses Penambahan Data Terjadi Error", vbOKOnly, "Error" End Sub Private Sub cmdTutup_Click() Dim pesan As String pesan = MsgBox("Apakah Anda Yakin vbYesNo + vbCritical, "Konfirmasi") If pesan = vbYes Then Unload Me End Sub

Mau

Mengakhiri

?",

Private Sub ListPemasok_DblClick() ListPemasok_LostFocus End Sub Private Sub ListPemasok_LostFocus() Txt_KdPemasok.Text = Left(ListPemasok.Text, 5) ListPemasok.Visible = False End Sub


Private Sub Txt_CBulan_Change() AdoBeli.RecordSource = "select * from beli WHERE MONTH(TANGGAL_BELI)= '" & Txt_CBulan.Text & "' AND YEAR(TANGGAL_BELI)= '" & Txt_Ctahun.Text & "'" AdoBeli.Refresh JumlahData End Sub Private Sub Txt_Ctahun_Change() AdoBeli.RecordSource = "select * from beli WHERE MONTH(TANGGAL_BELI)= '" & Txt_CBulan.Text & "' AND YEAR(TANGGAL_BELI)= '" & Txt_Ctahun.Text & "'" AdoBeli.Refresh JumlahData End Sub Private Sub Txt_Kdpemasok_Change() Txt_UPemasok.Text = FieldValue("pemasok", "nama_pemasok", "kode_pemasok= '" & Txt_KdPemasok.Text & "'") End Sub Private Sub Txt_Kdpemasok_KeyPress(keyascii As Integer) If keyascii = 13 Or keyascii = 32 Then ListPemasok.Clear Call IsiListPemasok ListPemasok.Visible = True ListPemasok.ZOrder (0) End If End Sub Sub IsiListPemasok() ListPemasok.Clear sql = "select * From pemasok" pRS.CursorLocation = adUseClient pRS.Open sql, StrConn While Not pRS.EOF ListPemasok.AddItem pRS.Fields("Kode_pemasok") & vbTab & pRS.Fields("Nama_pemasok") pRS.MoveNext Wend pRS.Close End Sub Sub JumlahData() Call Init AdoBeli.RecordSource = "Select * From Beli where month(Tanggal_Beli) = '" & Txt_CBulan.Text & "' and year(tanggal_Beli) = '" & Txt_Ctahun.Text & "' " AdoBeli.Refresh L_Count = "Jumlah Record = " & AdoBeli.Recordset.RecordCount AdoBeli.Refresh End Sub Private Sub Form_Load()


Call JumlahData Txt_CBulan.Text = nBulan Txt_Ctahun.Text = ntahun End Sub

6. Form Transaksi Penjualan Option Explicit Dim Beli As String Private Sub cmdCetak_Click() CR1.ReportFileName = App.Path & "\REPORT\Faktur Penjualan.rpt" CR1.SQLQuery = "Select * FRom VPenjualan Where NoFaktur_jual= '" & Txt_Faktur.Text & "'" CR1.Action = 1 CR1.WindowState = crptMaximized End Sub Private Sub cmdHapus_Click() On Error GoTo Salah AdoJual.Recordset.Delete Call JumlahData Exit Sub Salah: MsgBox "Tidak Dapat Menghapus Data !", vbOKOnly, "Error" End Sub Private Sub cmdkalkulator_Click() AppActivate Shell("CALC.EXE") End Sub Private Sub cmdRincian_Click() FormPenjualanDetail.AdoDTJual.RecordSource = "Select from detail_jual Where NoFaktur_jual = '" Txt_Faktur.Text & "' " FormPenjualanDetail.AdoDTJual.Refresh FormPenjualanDetail.Show vbModal End Sub Private Sub cmdSimpan_Click() On Error GoTo Salah AdoJual.Recordset.Update AdoJual.Refresh Call JumlahData cmdTambah.SetFocus Exit Sub Salah: MsgBox "Data Belum Lengkap, "Error" End Sub

COBA

LAGI

!",

* &

vbOKOnly,

Private Sub cmdTambah_Click()


On Error GoTo Salah AdoJual.Recordset.AddNew Txt_Faktur.SetFocus Exit Sub Salah: MsgBox "Proses Penambahan Data Terjadi Error", vbOKOnly, "Error" End Sub Private Sub cmdTutup_Click() Dim pesan As String pesan = MsgBox("Apakah Anda Yakin vbYesNo + vbCritical, "Konfirmasi") If pesan = vbYes Then Unload Me End Sub Private Sub ListPelanggan_DblClick() ListPelanggan_LostFocus End Sub

Mau

Mengakhiri

?",

Private Sub ListPelanggan_LostFocus() Txt_KdPelanggan.Text = Left(ListPemasok.Text, 5) ListPelanggan.Visible = False End Sub Private Sub Txt_CBulan_Change() AdoJual.RecordSource = "select * from jual WHERE MONTH(TANGGAL_jual)= '" & Txt_CBulan.Text & "' AND YEAR(TANGGAL_jual)= '" & Txt_Ctahun.Text & "'" AdoJual.Refresh JumlahData End Sub Private Sub Txt_Ctahun_Change() AdoJual.RecordSource = "select * from jual WHERE MONTH(TANGGAL_jual)= '" & Txt_CBulan.Text & "' AND YEAR(TANGGAL_jual)= '" & Txt_Ctahun.Text & "'" AdoJual.Refresh JumlahData End Sub Private Sub Txt_Kdpelanggan_Change() Txt_UPelanggan.Text = FieldValue("pelanggan", "nama_pelanggan", "kode_pelanggan= '" & Txt_KdPelanggan.Text & "'") End Sub Private Sub Txt_KdPelanggan_Change() Txt_UPelanggan.Text = FieldValue("Pelanggan", "Nama_Pelanggan", "Kode_Pelanggan = '" & Txt_KdPelanggan.Text & "'") End Sub Private Sub Txt_Kdpelanggan_KeyPress(keyascii As Integer) If keyascii = 13 Or keyascii = 32 Then ListPelanggan.Clear


Call IsiListPelanggan ListPelanggan.Visible = True ListPelanggan.ZOrder (0) End If End Sub Sub IsiListPelanggan() ListPelanggan.Clear sql = "select * From pelanggan" pRS.CursorLocation = adUseClient pRS.Open sql, StrConn While Not pRS.EOF ListPelanggan.AddItem pRS.Fields("Kode_pelanggan") vbTab & pRS.Fields("Nama_pelanggan") pRS.MoveNext Wend pRS.Close End Sub Sub JumlahData() Call Init L_Count = "Jumlah AdoJual.Recordset.RecordCount AdoJual.Refresh End Sub

Record

=

"

&

&

Private Sub Form_Load() Call JumlahData Txt_CBulan.Text = nBulan Txt_Ctahun.Text = ntahun End Sub Private Sub ListPelanggan_DblClick() ListPelanggan_LostFocus End Sub Private Sub ListPelanggan_LostFocus() Txt_KdPelanggan.Text = Left(ListPelanggan.Text, 5) ListPelanggan.Visible = False End Sub

7. Form Detail Pembelian Private Sub cmdHapus_Click() AdoDTBeli.Recordset.Delete Call JumlahData End Sub Private Sub cmdkalkulator_Click() AppActivate Shell("CALC.EXE") End Sub Private Sub cmdSimpan_Click()


On Error GoTo Salah AdoDTBeli.Recordset.Update Call JumlahData cmdTambah.SetFocus Exit Sub Salah: MsgBox "Data Belum Lengkap, "Error" End Sub

COBA

LAGI

!",

vbOKOnly,

Private Sub cmdTambah_Click() On Error GoTo Salah AdoDTBeli.Recordset.AddNew Txt_Faktur.Text = FormPembelian.Txt_Faktur.Text Txt_KdBarang.SetFocus Exit Sub Salah: MsgBox "Proses Penambahan Data Terjadi Error", vbOKOnly, "Error" End Sub Private Sub cmdTutup_Click() Unload Me End Sub Private Sub ListBarang_DblClick() ListBarang_LostFocus End Sub Private Sub ListBarang_LostFocus() Txt_KdBarang.Text = Left(ListBarang.Text, 5) ListBarang.Visible = False End Sub Private Sub Txt_KdBarang_Change() txt_UBarang.Text = FieldValue("Barang", "nama_barang", "kode_barang= '" & Txt_KdBarang.Text & "'") End Sub Private Sub Txt_KdBarang_KeyPress(keyascii As Integer) If keyascii = 13 Or keyascii = 32 Then ListBarang.Clear Call IsiListBarang ListBarang.Visible = True ListBarang.ZOrder (0) End If End Sub Sub IsiListBarang() ListBarang.Clear sql = "select * From Barang" pRS.CursorLocation = adUseClient pRS.Open sql, StrConn While Not pRS.EOF


ListBarang.AddItem pRS.Fields("Kode_Barang") pRS.Fields("Nama_Barang") pRS.MoveNext Wend pRS.Close End Sub

&

vbTab

&

Sub JumlahData() Call Init AdoDTBeli.RecordSource = "Select * From Detail_Beli where NoFaktur_Beli = '" & Txt_Faktur.Text & "' " AdoDTBeli.Refresh L_Count = "Jumlah Record = " & AdoDTBeli.Recordset.RecordCount AdoDTBeli.Refresh End Sub Private Sub txtcFaktur_Change() 'AdoDTBeli.RecordSource = "Select * From Detail_Beli" 'AdoDTBeli.Refresh End Sub

8. Form Detail Penjualan Private Sub cmdHapus_Click() AdoDTJual.Recordset.Delete Call JumlahData End Sub Private Sub cmdkalkulator_Click() AppActivate Shell("CALC.EXE") End Sub Private Sub cmdSimpan_Click() AdoDTJual.Recordset.Update Call JumlahData cmdTambah.SetFocus End Sub Private Sub cmdTambah_Click() On Error GoTo Salah AdoDTJual.Recordset.AddNew Txt_faktur.Text = FormPenjualan.Txt_faktur.Text Txt_KdBarang.SetFocus Exit Sub Salah: MsgBox "Proses Penambahan Data Terjadi Error", vbOKOnly, "Error" End Sub Private Sub cmdTutup_Click() Unload Me End Sub


Private Sub ListBarang_DblClick() ListBarang_LostFocus End Sub Private Sub ListBarang_LostFocus() Txt_KdBarang.Text = Left(ListBarang.Text, 5) ListBarang.Visible = False End Sub Private Sub Txt_KdBarang_Change() Txt_Ubarang.Text = FieldValue("Barang", "nama_barang", "kode_barang= '" & Txt_KdBarang.Text & "'") End Sub Private Sub Txt_KdBarang_KeyPress(keyascii As Integer) If keyascii = 13 Or keyascii = 32 Then ListBarang.Clear Call IsiListBarang ListBarang.Visible = True ListBarang.ZOrder (0) End If End Sub Sub IsiListBarang() ListBarang.Clear sql = "select * From Barang" pRS.CursorLocation = adUseClient pRS.Open sql, StrConn While Not pRS.EOF ListBarang.AddItem pRS.Fields("Kode_Barang") & vbTab & pRS.Fields("Nama_Barang") pRS.MoveNext Wend pRS.Close End Sub Sub JumlahData() Call Init AdoDTJual.Refresh L_Count = "Jumlah Record = " & AdoDTJual.Recordset.RecordCount AdoDTJual.Refresh End Sub Private Sub txtcFaktur_Change() 'AdoDTBeli.RecordSource = "Select * From Detail_Beli" 'AdoDTBeli.Refresh End Sub

9. Form Report Beli Option Explicit Dim TglTransaksi As Date


Dim BlnTransaksi As Integer Dim ThnTransaksi As Integer Private Sub cmdOK_Click() On Error GoTo Salah CrRpt.Reset CrRpt.WindowState = crptMaximized Frame2.Visible = False CrRpt.ReportFileName = App.Path & "\Report\FakturPembelian.rpt" CrRpt.Formulas(0) = "Option = ' PER TANGGAL ' & '" & Format(Kalender.Value, "dd MMMM yyyy") & "' " CrRpt.SQLQuery = "Select * From VBeli where tanggal_beli = '" & Format(Kalender.Value, ("yyyy/mm/dd")) & "'" CrRpt.Action = 1 Frame1.Visible = True Exit Sub Salah: MsgBox "ERROR" End Sub Private Sub cmdPembelianBulanan_Click() On Error GoTo Salah BlnTransaksi = InputBox("Masukkan Bulan Yang Akan Dicetak", "Bulan") CrRpt.Reset CrRpt.WindowState = crptMaximized Frame2.Visible = False CrRpt.ReportFileName = App.Path & "\Report\FakturPembelian.rpt" CrRpt.Formulas(0) = "Option = ' BULAN ' & '" & ConvBulan(BlnTransaksi) & "' " CrRpt.SQLQuery = "Select * From VBeli where month(tanggal_beli) = '" & BlnTransaksi & "' " CrRpt.Action = 1 Exit Sub Salah: MsgBox "ERROR" End Sub Private Sub cmdPembelianHarian_Click() Frame2.Visible = True Frame2.Top = Frame1.Top Frame2.ZOrder (0) TglTransaksi = Kalender.Value End Sub Private Sub cmdPembelianTahunan_Click() On Error GoTo Salah ADO.RecordSource = "Select * From Beli where " ADO.Refresh jumlahrecord = ADO.Recordset.RecordCount If jumlahrecord = 0 Then MsgBox "Data Tidak Ada" Else


ThnTransaksi = InputBox("Masukkan Tahun Yang Akan Dicetak", "Tahun") CrRpt.Reset CrRpt.WindowState = crptMaximized Frame2.Visible = False CrRpt.ReportFileName = App.Path & "\Report\FakturPembelian.rpt" CrRpt.Formulas(0) = "Option = ' TAHUN ' & '" & ThnTransaksi & "' " CrRpt.SQLQuery = "Select * From VBeli where YEAR(tanggal_beli) = '" & ThnTransaksi & "' " CrRpt.Action = 1 End If Exit Sub Salah: MsgBox "ERROR" End Sub Private Sub cmdRekapKeseluruhan_Click() On Error GoTo Salah ADO.RecordSource = "Select * From Beli" ADO.Refresh jumlahrecord = ADO.Recordset.RecordCount If jumlahrecord = 0 Then MsgBox "Data Tidak Ada" Else CrRpt.Reset CrRpt.ReportFileName = App.Path & "\Report\FakturPembelian.rpt" CrRpt.Formulas(0) = "Option = ' KESELURUHAN ' CrRpt.Action = 1 End If Exit Sub Salah: MsgBox "ERROR" End Sub

"

Private Sub Timer1_Timer() If Label2.Left < -5000 Then Label2.Left = 5000 End If Label2.Left = Label2.Left - 10 End Sub

10. Form Report Jual Option Explicit Dim TglTransaksi As Date Dim BlnTransaksi As Integer Dim ThnTransaksi As Integer Private Sub cmdOK_Click() On Error GoTo Salah CrRpt.Reset


CrRpt.WindowState = crptMaximized Frame2.Visible = False CrRpt.ReportFileName = App.Path & "\Report\Faktur Penjualan.rpt" CrRpt.Formulas(0) = "Option = ' PER TANGGAL ' & '" & Format(Kalender.Value, "dd MMMM yyyy") & "' " CrRpt.SQLQuery = "Select * From VPenjualan where tanggal_jual = '" & Format(Kalender.Value, ("yyyy/mm/dd")) & "'" CrRpt.Action = 1 Frame1.Visible = True Exit Sub Salah: MsgBox "ERROR" End Sub Private Sub cmdPenjualanBulanan_Click() On Error GoTo Salah BlnTransaksi = InputBox("Masukkan Bulan Yang Akan Dicetak", "Bulan") CrRpt.Reset CrRpt.WindowState = crptMaximized Frame2.Visible = False CrRpt.ReportFileName = App.Path & "\Report\Faktur Penjualan.rpt" CrRpt.Formulas(0) = "Option = ' BULAN ' & '" & ConvBulan(BlnTransaksi) & "' " CrRpt.SQLQuery = "Select * From Vpenjualan where month(tanggal_jual) = '" & BlnTransaksi & "' " CrRpt.Action = 1 Exit Sub Salah: MsgBox "ERROR" End Sub Private Sub cmdPenjualanHarian_Click() Frame2.Visible = True Frame2.Top = Frame1.Top Frame2.ZOrder (0) TglTransaksi = Kalender.Value End Sub Private Sub cmdPenjualanTahunan_Click() On Error GoTo Salah ThnTransaksi = InputBox("Masukkan Tahun Yang Akan Dicetak", "Tahun") CrRpt.Reset CrRpt.WindowState = crptMaximized Frame2.Visible = False CrRpt.ReportFileName = App.Path & "\Report\Faktur Penjualan.rpt" CrRpt.Formulas(0) = "Option = ' TAHUN ' & '" & ThnTransaksi & "' " CrRpt.SQLQuery = "Select * From Vpenjualan where YEAR(tanggal_jual) = '" & ThnTransaksi & "' "


CrRpt.Action = 1 Exit Sub Salah: MsgBox "ERROR" End Sub Private Sub cmdRekapKeseluruhan_Click() On Error GoTo Salah CrRpt.ReportFileName = App.Path & "\Report\Faktur Penjualan.rpt" CrRpt.Formulas(0) = "Option = ' KESELURUHAN ' " CrRpt.Action = 1 Exit Sub Salah: MsgBox "ERROR" End Sub Private Sub Timer1_Timer() If Label2.Left < -5000 Then Label2.Left = 5000 End If Label2.Left = Label2.Left - 10 End Sub

11. Form User Option Explicit Dim Pengguna As String Private Sub cmdHapus_Click() AdoPengguna.Recordset.Delete Call JumlahData End Sub Private Sub cmdSimpan_Click() On Error GoTo Salah AdoPengguna.Recordset.Update AdoPengguna.Refresh Call JumlahData cmdTambah.SetFocus Exit Sub Salah: MsgBox "Data Belum Lengkap, COBA LAGI !", vbOKOnly, "Error" End Sub Private Sub cmdTambah_Click() On Error GoTo Salah AdoPengguna.Recordset.AddNew Txt_Username.SetFocus Exit Sub Salah: MsgBox "Proses Penambahan Data Terjadi Error", vbOKOnly, "Error"


End Sub Private Sub cmdCari_Click() Pengguna = InputBox("Masukkan Nama User Yang Akan Dicari", "Barang") AdoPengguna.RecordSource = "select * from Pengguna where username like '%" & Pengguna & "%'" AdoPengguna.Refresh Call JumlahData End Sub Private Sub cmdTutup_Click() Dim pesan As String pesan = MsgBox("Apakah Anda Yakin Mau Mengakhiri ?", vbYesNo + vbCritical, "Konfirmasi") If pesan = vbYes Then Unload Me End Sub Sub JumlahData() Call Init AdoPengguna.Refresh L_Count = "Jumlah Record = " & AdoPengguna.Recordset.RecordCount AdoPengguna.Refresh End Sub Private Sub Form_Load() Call JumlahData End Sub

12. Form Ganti Password Private Sub Cmd_Proses_Click() If Txt_Username.Text <> "" Then Call Init sql = "Update Pengguna set " & _ " Password='" & Txt_PassBaru.Text & "'" & _ " Where Username='" & Txt_Username.Text & "'" pADO.Execute (sql) MsgBox " Password Anda Telah Berhasil Diubah ", vbInformation, "Informasi" End If End Sub Private Sub Cmd_Tutup_Click() Dim pesan As String pesan = MsgBox("Apakah Anda Yakin Mau Mengakhiri ?", vbYesNo + vbCritical, "Konfirmasi") If pesan = vbYes Then Unload Me End Sub Private Sub Txt_konfirm_Click() If Txt_konfirm.Text <> "" Then If Txt_PassBaru.Text <> Txt_konfirm.Text Then


MsgBox "Password tidak sesuai, coba lagi !!!", vbOKOnly + vbCritical, "Salah Password" Txt_konfirm.SetFocus Cmd_Proses.Enabled = False Else Cmd_Proses.Enabled = True Cmd_Proses.SetFocus End If End If End Sub Private Sub Txt_PassLama_Click() On Error Resume Next If Txt_PassLama.Text <> "" Then Call Init sql = "select * from Pengguna" & _ "where Username='" & Txt_Username.Text & "'" Set rs = pADO.Execute(sql) If Not rs Then If Trim(Txt_PassLama.Text) <> rs.Fields("Password") Then MsgBox "Salah Password", vbCritical, "Salah Password" Txt_PassLama.SetFocus Txt_PassBaru.Enabled = False Txt_konfirm.Enabled = False Else Txt_PassBaru.Enabled = True Txt_PassBaru.SetFocus Txt_konfirm.Enabled = True End If End If End If End Sub Private Sub Txt_Username_Click() If Txt_Username.Text <> "" Then Call sambung sql = "select * from Pengguna " & _ "where Username='" & Trim(Txt_Username.Text) & "'" Set rs = Conn.Execute(sql) If rs.EOF Then MsgBox "UserName Tidak Ada", vbOKOnly + vbCritical, "SalahUser" Txt_Username.SetFocus Txt_PassLama.Enabled = False Else Txt_PassLama.Enabled = True Txt_PassLama.SetFocus End If End If End Sub

13. Form Login


Dim rsPASS As ADODB.Recordset Dim salahpass As Integer Private Sub cmdCancel_click() Unload Me End Sub Private Sub cmdOK_Click() Call Init sql = "SELECT * FROM pengguna WHERE username ='" & txtUserName.Text & "' And [password] = '" & txtPassword.Text & "'" Set rsPASS = pADO.Execute(sql) If rsPASS.EOF Then If salahpass >= 2 Then MsgBox "Anda Bukan User yang Berhak", vbExclamation, "Ilegal User" End End If MsgBox "Password atau Nama Anda salah, COBA LAGI !", vbInformation, "Informasi" salahpass = salahpass + 1 txtUserName.SetFocus txtPassword.Text = "" txtUserName.Text = "" Else Unload Me MsgBox " Selamat Datang di Aplikasi Penjualan CV. Bukit Mas Padangsidempuan", vbInformation, "Selamat Datang" If rsPASS("status") = "ADMIN" Then FormUtama.Show FormUtama.mnuWindow.Enabled = True FormUtama.mnuMaster.Enabled = True FormUtama.mnuTransaksi.Enabled = True FormUtama.mnuUtil.Enabled = True FormUtama.mnuReport.Enabled = True ElseIf rsPASS("status") = "KASIR" Then FormUtama.Show FormUtama.mnuWindow.Enabled = True FormUtama.mnuMaster.Enabled = True FormUtama.mnuTransaksi.Enabled = True FormUtama.mnuUtil.Enabled = False FormUtama.mnuReport.Enabled = False ElseIf rsPASS("status") = "PIMPINAN" Then FormUtama.Show FormUtama.mnuWindow.Enabled = True FormUtama.mnuMaster.Enabled = True FormUtama.mnuTransaksi.Enabled = True FormUtama.mnuUtil.Enabled = True FormUtama.mnuReport.Enabled = True If rsPASS("status") = "DATA ENTRI" Then FormUtama.Show FormUtama.mnuWindow.Enabled = True FormUtama.mnuMaster.Enabled = True


FormUtama.mnuTransaksi.Enabled = False FormUtama.mnuUtil.Enabled = False FormUtama.mnuReport.Enabled = False End If End If End Sub Private Sub Form_Activate() txtUserName.SetFocus End Sub Private Sub Form_KeyPress(keyascii As Integer) If keyascii = 27 Then Unload Me End If End Sub Private Sub Form_Load() On Error Resume Next Call Init Adodc.Visible = False End Sub Private Sub txtUserName_keypress(keyascii As Integer) If keyascii = 13 Then txtPassword.SetFocus Else keyascii = Asc(UCase(Chr(keyascii))) End If End Sub Private Sub txtPassword_GotFocus() cmdOK.Default = True End Sub Private Sub txtPassword_LostFocus() cmdOK.Default = False End Sub Public Sub pemakai() Dim pemakai As String pemakai = txtUserName.Text End Sub

14. Form About Option Explicit Const Const Const Const Const

READ_CONTROL = &H20000 KEY_QUERY_VALUE = &H1 KEY_SET_VALUE = &H2 KEY_CREATE_SUB_KEY = &H4 KEY_ENUMERATE_SUB_KEYS = &H8


Const KEY_NOTIFY = &H10 Const KEY_CREATE_LINK = &H20 Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _ KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _ KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL Const Const Const Const

HKEY_LOCAL_MACHINE = &H80000002 ERROR_SUCCESS = 0 REG_SZ = 1 REG_DWORD = 4

Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location" Const gREGVALSYSINFOLOC = "MSINFO" Const gREGKEYSYSINFO = "SOFTWARE\Microsoft\Shared Tools\MSINFO" Const gREGVALSYSINFO = "PATH" Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long

Private Sub cmdSysInfo_Click() Call StartSysInfo End Sub Private Sub cmdOK_Click() Unload Me End Sub Private Sub Form_Load() Me.Top = 0 lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision lblDescription.Caption = "Sistem Informasi Penjualan Produk ini disusun sebagai syarat untuk menyelesaikan studi pada Program Studi D-3 Ilmu Komputer Fakultas Matematika dan Ilmu Pengetahuan Alam Universitas Sumatera Utara." & vbCr & vbCr & "Programer by:" & vbCr & "Marito Nasution" & vbCr & "052406206" End Sub Public Sub StartSysInfo() On Error GoTo SysInfoErr Dim rc As Long


Dim SysInfoPath As String If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then If (Dir(SysInfoPath & "\MSINFO32.EXE") <> "") Then SysInfoPath = SysInfoPath & "\MSINFO32.EXE" Else GoTo SysInfoErr End If Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit Sub SysInfoErr: MsgBox "System Information Is Unavailable At This Time", vbOKOnly End Sub Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean Dim i As Long Dim rc As Long Dim hKey As Long Dim hDepth As Long Dim KeyValType As Long Dim tmpVal As String Dim KeyValSize As Long rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError tmpVal = String$(1024, 0) KeyValSize = 1024 rc = RegQueryValueEx(hKey, SubKeyRef, 0, _ KeyValType, tmpVal, KeyValSize) If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then tmpVal = Left(tmpVal, KeyValSize - 1) Else tmpVal = Left(tmpVal, KeyValSize) End If Select Case KeyValType Case REG_SZ KeyVal = tmpVal Case REG_DWORD For i = Len(tmpVal) To 1 Step -1 KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) Next KeyVal = Format$("&h" + KeyVal) End Select GetKeyValue = True rc = RegCloseKey(hKey) Exit Function


GetKeyError: KeyVal = "" GetKeyValue = False rc = RegCloseKey(hKey) End Function Private Sub Timer1_Timer() If lblDescription.Top < -3000 Then lblDescription.Top = 3000 Else Me.lblDescription.Top = lblDescription.Top - 10 End If End Sub


SURAT KETERANGAN Hasil Uji Program Tugas Akhir

Yang Bertanda tangan di bawah ini, menerangkan bahwa Mahasiswa Tugas Akhir Program Diploma III Ilmu Komputer / Statistika :

Nama

: MARITO NASUTION

NIM

: 052406206

Prog. Studi

: Ilmu Komputer

Judul T.A

: SISTEM INFORMASI PENJUALAN CV. BUKIT MAS

Telah melaksanakan test Program tugas akhir Mahasiswa tersebut diatas pada tanggal …./…./2008

Dengan Hasil : Sukses / Gagal

Demikian diterangkan untuk digunakan melengkapi Syarat Pendaftaran Ujian Meja Hijau Tugas Akhir Mahasiswa bersangkutan di Jurusan Matematika FMIPA USU Medan. Medan,…../Juni/2008 Dosen Pembimbing/Ka. Laboratoium Program D3 Ilmu Komputer

Drs. Faigiziduhu Bu’ulolo, M.Si NIP : 130810772


i

PERSETUJUAN

Judul Kategori Nama Nomor Induk Mahasiswa Program Studi Departemen Fakultas

: SISTEM INFORMASI PENJUALAN PADA CV.BUKIT MAS PADANGSIDEMPUAN : TUGAS AKHIR : MARITO NASUTION : 052406206 : DIPLOMA (D3) ILMU KOMPUTER : MATEMATIKA : MATEMATIKA DAN ILMU PENGETAHUAN ALAM (FMIPA) UNIVERSITAS SUMATERA UTARA Diluluskan di Medan, Juni 2008

Diketahui Departemen Matematika FMIPA USU Ketua,

Pembimbing

Dr. Saib Suwilo, M.Sc. NIP 131796149

Drs. Faigiziduhu Bu’ulolo, M.Si. NIP 130810772


ii

PERNYATAAN

APLIKASI PENJUALAN CV. BUKIT MAS PADANGSIDEMPUAN

TUGAS AKHIR

Saya mengakui bahwa tugas akhir ini adalah hasil kerja saya sendiri, kecuali beberapa kutipan dan ringkasan yang masing-masing disebutkan sumbernya.

Medan,

Juli 2008

MARITO NASUTION 052406206


MANUAL PROGRAM Aplikasi Penjualan pada CV. BUKIT MAS Aplikasi ini dibuat dengan menggunakan aplikasi Microsoft Visual Basic 6.0 sebagai rancangan interface, untuk tempat penyimpanan data (database) digunakan Microsoft SQL Server 2000 dan untuk laporan (report) dirancang dengan menggunakan Seagate Crystal Report 8.0. A. Form Data Barang Form Data barang digunakan untuk mengisi daftar data barang yang nantinya akan digunakan pada pengisian data Transaksi. Untuk melakukan pengentrian data Barang dapat dilakukan dengan cara sebagai berikut: 1. Tekan tombol Tambah 2. Isi kode Barang, kemudian lanjutkan dengan pengisian data yang lainnya pada form data barang 3. Setelah selesai melakukan pengentrian data, tekan tombol Simpan 4. Untuk melakukan penghapusan data caranya adalah dengan memilih data barang yang akan dihapus, yaitu dengan menyorot data barang pada tabel datagrid barang, kemudian tekan tombol Hapus. 5. Untuk mencetak data barang, tekan tombol Cetak


B. Form Data Pemasok Data pemasok digunakan untuk mengisi data dari pemasok yang nantinya akan digunakan pada pengisian data Transaksi. Untuk melakukan pengentrian data pemasok dapat dilakukan dengan cara sebagai berikut: 1. Tekan tombol Tambah 2. Isi kode pemasok, kemudian lanjutkan dengan pengisian data yang lainnya pada form data pemasok 3. Setelah selesai melakukan pengentrian data, tekan tombol Simpan 4. Untuk melakukan penghapusan data caranya adalah dengan memilih data yang akan dihapus, yaitu dengan menyorot data pada tabel datagrid pemasok, kemudian tekan tombol Hapus. 5. Untuk mencetak data pemasok, tekan tombol Cetak

C. Form Data Pelanggan Form Data Pelanggan digunakan untuk mengisi daftar data pelanggan yang nantinya akan digunakan pada pengisian data Transaksi. Untuk melakukan pengentrian data Barang dapat dilakukan dengan cara sebagai berikut: Tekan tombol Tambah 1. Isi kode Pelanggan, kemudian lanjutkan dengan pengisian data yang lainnya pada form data pelanggan


2. Setelah selesai melakukan pengentrian data, tekan tombol Simpan 3. Untuk melakukan penghapusan data caranya adalah dengan memilih data pelanggan yang akan dihapus, yaitu dengan menyorot data pada tabel datagrid pelanggan, kemudian tekan tombol Hapus. 4. Untuk mencetak data pelanggan, tekan tombol Cetak

D. Form Transaksi Pembelian Data Transaksi pembelian adalah form yang memuat daftar pembelian barang yang dilakukan oleh CV. Bukit Mas berdasarkan kriteria bulan dan tahun yang dimasukkan pada teksbox periode. Untuk melakukan pengentrian data pembelian barang dapat dilakukan dengan cara sebagai berikut: 1. Masukkan periode (bulan dan tahun) 2. Tekan tombol Tambah 3. Isi kode pembelian, kemudian lanjutkan dengan pengisian data yang lainnya pada form pembelian 4. Setelah selesai melakukan pengentrian data, tekan tombol Simpan 5. Untuk memilih daftar barang yang dibeli dapat dilakukan dengan cara menekan tombol Isi Rincian, dan melakukan penambahan data seperti prosedur pengisian data barang. Setelah selesai, tekan tombol tutup


6. Untuk melakukan penghapusan data caranya adalah dengan memilih data pembelian yang akan dihapus, yaitu dengan menyorot data pembelian pada tabel datagrid pembelian, kemudian tekan tombol Isi Rincian, lalu lakukan penghapusan data pada rincian data barang

yang dibeli, lalu lakukan

penghapusan data pada form pembelian. 7. Untuk melakukan pencetakan faktur pembelian, tekan tombol Cetak

E. Form Transaksi Penjualan Data Transaksi penjualan adalah form yang memuat daftar penjualan barang yang dilakukan oleh CV. Bukit Mas berdasarkan kriteria bulan dan tahun yang dimasukkan pada teksbox periode. Untuk melakukan pengentrian data penjualan barang dapat dilakukan dengan cara sebagai berikut: 1. Masukkan periode (bulan dan tahun) 2. Tekan tombol Tambah 3. Isi kode penjualan, kemudian lanjutkan dengan pengisian data yang lainnya pada form penjualan 4. Setelah selesai melakukan pengentrian data, tekan tombol Simpan


5. Untuk memilih daftar barang yang dibeli dapat dilakukan dengan cara menekan tombol Isi Rincian, dan melakukan penambahan data seperti prosedur pengisian data barang. Setelah selesai, tekan tombol tutup 6. Untuk melakukan penghapusan data caranya adalah dengan memilih data penjualan yang akan dihapus, yaitu dengan menyorot data penjualan pada tabel datagrid penjualan, kemudian tekan tombol Isi Rincian, lalu lakukan penghapusan data pada rincian data barang

yang dijual, lalu lakukan

penghapusan data pada form penjualan. 7. Untuk melakukan pencetakan faktur penjualan, tekan tombol Cetak

F. Form Report Data Transaksi Pada form ini terdapat tombol-tombol yang dapat dipilih sesuai dengan kebutuhan yang akan melakukan pencetakan data pada data transaksi, sehingga data yang dientry pada program dapat ditampilkan hasilnya pada kertas. Form ini ada dua yaitu: Report Transaksi Pembelian dan Report Transaksi Penjualan.


G. Form Pengguna \ User Data user digunakan untuk mengisi daftar data user yang nantinya data ini akan digunakan pada saat melakukan login. Untuk melakukan pengentrian data user dapat dilakukan dengan cara sebagai berikut: 1. Tekan tombol Tambah 2. Isi nama user, password dan level user yang dimasukkan 3. Setelah selesai melakukan pengentrian data, tekan tombol Simpan 4. Untuk melakukan penghapusan data caranya adalah dengan memilih data user yang akan dihapus kemudian tekan tombol Hapus.

H. Form Ganti Password Ganti Password digunakan untuk mengganti password yang dibutuhkan oleh pengguna untuk dapat memasuki sistem aplikasi penjualan CV. Bukit Mas.Untuk melakukan pergantian password, caranya adalah sebagai berikut : 1. Isi nama User yang telah terdaftar sebagai pengguna


2. Isi kolom pengisian password lama dengan password yang telah dimiliki, kemudian isi kolom pengisian password baru yang dinginkan dengan password yang diinginkan, setelah itu konfirmasi password baru dengan cara mengetik ulang password baru pada kolom Konfirmasi Password, tekan enter 3. Kalau berhasil maka akan muncul pesan “Password telah berhasil Dirubah”

I. Form About Merupakan tambahan dari keterangan mengenai program Aplikasi Penjualan Produk yang dibuat oleh penulis dan hal-hal yang berhubungan dengan penulis.

J. Menu Help Adalah salah satu bagian yang ditambahkan agar pengguna program dapat mempelajari tata cara penggunaan program dan hal-hal yang berhubungan dengan program Aplikasi Penjualan Produk. Ini merupakan manual book elektronik yang dirancang oleh penulis sehingga dapat dilihat setiap waktu.

K. Menu Exit Merupakan menu unuk keluar dari program.


DEPARTEMEN PENDIDIKAN NASIONAL

UNIVERSITAS SUMATERA UTARA FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM PROGRAM DIPLOMA 3 KOMPUTER DAN STATISTIKA JL.Bioteknologi No. 1 Kampus USU,Telp (061) 8223651,Fax.(061) 8214290

Medan - 20155 KARTU BIMBINGAN TUGAS AKHIR MAHASISWA Nama Mahasiswa

: MARITO NASUTION

Nomor Stambuk

: 052406206

Judul Tugas Akhir

: SISTEM INFORMASI PENJUALAN PADA CV. BUKIT MAS

Dosen Pembimbing

: Drs. Faigiziduhu Bu’ulolo, M.Si

Tanggal Mulai Bimbingan : Tanggal Selesai Bimbingan :

No

Tanggal Asistensi Bimbingan

Pembahasan Pada Asistensi Bimbingan Mengenai, Pada Bab

Paraf Dosen Pembimbing

Keterangan

1 2 3 4 5 6 Kartu ini harap dikembalikan ke Jurusan Matematika Bila Bimbingan mahasiswa telah selesai

Diketahui Ketua Jurusan Matematika FMIPA USU

Disetujui Pembimbing Utama / Penanggung Jawab

Dr. Saib Suwilo, M.Sc

Drs. Faigiziduhu Bu’ulolo, M.Si Universitas Sumatera Utara

NIP : 131796149

NIP : 130810772


SURAT KETERANGAN Hasil Uji Program Tugas Akhir

Yang bertanda tangan dibawah ini, menerangkan bahwa Tugas Akhir mahasiswa Program Diploma 3 Komputer :

Nama NIM Program Studi Judul Tugas Akhir

: : : :

MARITO NASUTION 052406206 Ilmu Komputer D-3 APLIKASI PENJUALAN CV. BUKIT MAS PADANGSIDEMPUAN

Telah melaksanakan uji program Tugas Akhir mahasiswa tersebut diatas pada tanggal 2008

Dengan Hasil : Sukses / Gagal

Demikianlah keterangan ini digunakan untuk melangkapi syarat pendaftaran Ujian Meja Hijau Tugas Akhir Mahasiswa yang bersangkutan di Jurusan Matematika Fakultas Matematika dan Ilmu Pengetahuan Alam Universitas Sumatera Utara Medan.

Medan, 2008 Dosen Pembimbing

Drs. Faigiziduhu Bu’ulolo, M.Si. NIP 130810772


MANUAL PROGRAM. Aplikasi Penjualan pada CV. BUKIT MAS

Recommend Documents