Laporan Praktek Kerja Industri Aplikasi Penjualan Texas Coffee Menggunakan VB.Net
Disusun oleh Nama : Septia Putri Indahsari Nomor Induk : 13869 Jurusan : Rekayasa Perangkat Lunak
SMK PGRI 3 MALANG JAWA TIMUR Alamat : Jl. Raya Tlogomas Gg.IX No. 29 Telp : (0341) 554383 Fax : 0341- 574755 Malang 65144 E- mail :
[email protected]; http : //www.smkpgri03mlg.org.id
success by discipline
1
LAPORAN KEGIATAN PRAKTEK KERJA INDUSTRI (Prakerin) Nama Siswa
: Septia Putri Indahsari
Program Keahlian
: Teknik Informatika
Spesialis
: Rekayasa Perangkat Lunak
Tempat Prakerin
: PT ALFASOFT
Alamat Tempat Prakerin: JL. Soekarno-Hatta kav 15 D ,Malang, Jawa Timur Waktu Pelaksanaan
: 1 Juli 2013 s/d 31 Juni 2014
Menyetujui, Malang, ……………………………..
Pembimbing Sekolah,
Pembimbing Bengkel,
Alfan Aji Galih
Muhammad
Mengesahkan,
Staff Prakerin
Pimpinan / Servis Supervisor
Ervin Kurniawan S.Kom
Fatkul Amri
2
RECORDING HARIAN SISWA PRAKERIN Untuk Ketidakhadiran / Libur Keterangan Ketidak Hadiran (Libur Nas-Hari Besar-S/I/A-Libur Bengkel) Libur Hari Raya Idul Fitri
No.
Tgl/Bln/Th
1
06-18/08/2013
2
29 / 08 / 2013
3
14-15 / 10 / 2013
Libur Hari Raya Idul Adha
4
4-5 / 11 / 2013
Libur Tahun Baru Hijriyah
5
28 / 12 / 2013
Izin sakit
6
30-1 / 12 / 2013
Libur Tahun Baru
7
14 / 01 / 2014
Libur Maulid Nabi Muhammad
8
31 / 01 /2014
Libur Tahun Baru Imlek
9
14 / 03 / 2014
Izin sakit
Paraf Pembimbing
10 11
3
KATA PENGANTAR Puji syukur kami panjatkan kehadirat Tuhan Yang Maha Esa, bahwa hanya dengan Rahmat dan hidayahNya, laporan Praktek Kerja Industri ini dapat disusun dengan baik.Laporan Praktek Kerja Industri ini disusun untuk memberikan informasi tentang berbagai kegiatan siswa SMK PGRI 3 MALANG selama melaksanakan Praktek Kerja Industri.Keberadaan Laporan Praktek Kerja Industri ini diharapkan dapat berfungsi sebagai panduan atau referensi bagi siswa pada saat memasuki dunia kerja yang nyata. Saya menyampaikan terima kasih kepada : 1. Bapak M.Lukman Hakim, S.T selaku kepala sekolah SMK PGRI 3 MALANG 2. Bapak Ervin Kurniawan, S.Kom selaku staff prakerin SMK PGRI 3 MALANG 3. Ibu Erna Susilowati, S.Pd selaku guru wali 4. Bapak Alfan Aji Galih selaku pembimbing sekolah 5. Bapak Fatkul Amri selaku pemimpin perusahaan 6. Bapak Muhammad selaku pembimbing perusahaan 7. Kedua orang tua saya 8. Teman- teman di tempat magang 9. Serta semua pihak yang membantu
Yang telah memberikan bimbingan, arahan, motifasi baik secara langsung maupun tidak sehingga saya dapat menyusun laporan Praktek Kerja Industri ini dengan baik.Harapan kami semoga laporan Praktek Kerja Industri ini dapat bermanfaat untuk kebaikan bersama.
Penyusun 4
Daftar Isi
5
Daftar Gambar
6
Daftar Tabel
7
BAB I Pendahuluan
1.1 Latar Belakang
Pada saat ini kemajuan teknologi semakin hari semakin berkembang dan modern, menjadikan komputer sebagai alat elektronik canggih yang tidak asing lagi bagi kebanyakan masyarakat di Indonesia. Karena adanya komputer, manusia tidak perlu lagi membuat sesuatu secara manual. Kita bisa merancang atau membuat apapun dengan bantuan komputer. Komputer saat ini banyak digunakan pada kantor, perusahaanperusahaan sekolah, dan rumah sakit. Tetapi, pada kenyataannya masih banyak yang menggunakan sistem informasi manual
dan kurang memaksimalkan pemanfaatan
komputer. Salah satunya adalah bidang usaha minuman yang masih menggunakan sistem informasi secara manual.Sehingga banyak menimbulkan kerugian-kerugian diantaranya adalah banyaknya waktu yang terbuang karena masih menggunakan sistem informasi secara manual, hasil dari penggunaan sistem aplikasi kurang maksimal, data yang disimpan kurang efektif, dan mencari datanya juga mengalami kesulitan. Berdasarkan permasalahan-permasalahan tersebut penulis mengambil judul ”Aplikasi Penjualan Texas Coffee” yang bertujuan untuk memudahkan penjual dalam pengecekan stok barang, data barang masuk , dan data barang keluar di bidang usahanya yaitu dengan membuat sistem yang mudah untuk di pahami dengan pemrogaman VB.Net.
1.2 Rumusan Masalah
Berdasarkan latar belakang diatas dapat dirumuskan masalahnya yaitu
Bagaimana pengecekan data stok barang ?
Bagaimanamempermudah pengecekan barang masuk dan barang keluar ?
8
1.3 Batasan Masalah
Batasan masalah dari aplikasi ini adalah sebagai berikut :
Aplikasi yang dibuat digunakan untuk mempermudah melakukan pengecekan data stok barang
Dengan aplikasi ini maka kita akan menyediakan informasi yang bermanfaat bagi penjual
1.4 Tujuan Laporan
Setiap kegiatan selalu mempunyai tujuan, begitu juga dengan mengikuti PRAKERIN ini peserta mempunyai tujuan sebagai berikut :
1.4 .1 Tujuan Pelaksanaan PRAKERIN
Melatih peserta PRAKERIN untuk memiliki pemahaman dan pengalaman actual tentang dunia usaha dan dunia kerja yang nyata
Untuk bisa menjadi pelajar dan pengalaman setelah lulus sekolah ingin bekerja
1.4.2 Tujuan Pembuatan Laporan
Adapun tujuan khusus penyusunan laporan PRAKERIN ini yaitu :
Sebagai salah satu syarat kelulusan Praktek Kerja Industri
Untuk mengetahui sajauh mana kemampuan siswa dalam bidang keahlian yang dikuasai
Untuk menunjukkan kepada Bapak dan Ibu pengajar bahwa kemampuan siswasiswinya perlu diperhatikan
Mendapatkan pengalaman dalam dunia kerja
9
1.4.3 Tujuan Yang Ingin Dicapai
Laporan ini dapat diterima oleh pihak manapun
Laporan ini dapat bermanfaat bagi orang lain
Aplikasi yang ada dalam laporan ini dapat dikembangkan lebih baik lagi
10
BAB II MATERI DAN TEMPAT PRAKERIN
2.1 Pengenalan Materi
Di Bab II ini saya akan menjelaskan materi dan bahan yang saya gunakan selama pelaksanaan Praktek Kerja Industri di PT.Alfasoft . Selama itu peserta Prakerin juga menggunakan pengetahuan yang di peroleh selama satu tahun belajar di sekolah sebagai landasan teori pembuatan aplikasi dekstop.
2.2 Pengenalan Tempat Prakerin 2.2.1 Tentang PT Alfasoft
PT.Alfasoft adalah perusahaan yang bergerak di bidang IT dan dikelola oleh tenaga-tenaga ahli dibidang teknologi informasi dan sampai sekarang perusahaan terus mengembangkan keahlian di bidang teknologi informasi demi memenuhi kebutuhan konsumen akan informasi yang cepat dan efisien.
2.2.2 Tujuan PT Alfasoft
Tujuan didirikannya PT.Alfasoft adalah untuk memberikan solusi untuk berbagai jenis bisnis, seperti distributor, pabrik, swalayan/minimarket, koperasi, BPR, kontraktor, ekspor-impor, salon, bengkel, apotik, tour & travel, dan lain sebagainya. Sampai dengan saat ini, produk-produk tersebut telah digunakan oleh lebih dari 420 perusahaan di Indonesia, dan jumlahnya terus berkembang.bengkel, apotik, tour & travel, dan lain sebagainya.
2.2.3 Visi PT Alfasoft
Menjadi solusi untuk kebutuhan TI Anda. Ke depan, selalu selangkah di
11
depan, dan menyelaraskan TI dengan nilai-nilai lokal. 2.2.4 Misi PT Alfasoft
Pada
2012,
ditargetkan
jaringan
pemasaran
dan
support
PT
Alfasoftsudahada di seluruh propinsi dan kota besar di Indonesia. Selanjutnya, pengembangan
jaringan
pemasaran
dan
support
akan dikembangkan ke
Malaysia, Australia, Brunei Darussalam,Singapura, dan wilayah timur tengah.
2.3 Landasan Teori yang Digunakan dalam Pengerjaan
Mempelajari dasar-dasar tentang VB.Net
Membuat aplikasi sederhana dengan Visual Studio 2012
2.4 Spesifikasi Bahan dan Alat Kerja Di sini saya akan memberikan spesifikasi serta sedikit penjelasan tentang bahan dan alat kerja yang di gunakan di PT Alfasoft. Berikut sedikit penjelasannya yaitu:
2.4.1 Laptop
Di tahun 2011 ini semakin banyak pengguna laptop. Hal itu disebabkan karena laptop yang mudah dibawa dan nyaman untuk digunakan. Kelebihan lainnya adalah dapat digunakan di mana saja jika kita harus menjalankan beberapa tugas di luar rumah. Selain Itu jika kita ingin mengirimkan email ke orang lain kita bisa membawanya ke area yang memiliki koneksi WI-fi. Dengan munculnya koneksi internet nirkabel ini juga akan membantu menghasilkan tugas-tugas yang harus di selesaikan dalam sekejap.
12
2.4.2 Visual Studio 2012
Microsoft Visual Studio merupakan sebuah perangkat lunak lengkap (suite) yang dapat digunakan untuk melakukan pengembangan aplikasi, baik itu aplikasi bisnis, aplikasi personal, ataupun komponen aplikasinya, dalam bentuk aplikasi console, aplikasi Windows, ataupun aplikasi Web. Visual Studio mencakup kompiler, SDK, Integrated Development Environment (IDE), dan dokumentasi (umumnya berupa MSDN Library). Kompiler yang dimasukkan ke dalam paket Visual Studio antara lain Visual C++, Visual C#, Visual Basic, Visual Basic .NET, Visual InterDev, Visual J++, Visual J#, Visual FoxPro, dan Visual SourceSafe.
13
BAB III LANGKAH PENGERJAAN
3.1 Persiapan Sebelum saya mengerjakan pembuatan aplikasi menggunakan Visual Studio 2012, saya memerlukan bahan dan alat kerja seperti yang sudah saya sebutkan di BAB II. 3.2 Langkah Kerja 3.2.1 Menginstall bahan yang dipakai
Visual Studio 2012
PhpMyAdmin
3.2.2
Membuat database untuk proses pengambilan data/ binding data
Membuat database dengan nama : texas
Membuat table login
No
Name
Type
1
Username
Varchar (20)
2
Password
Varchar (20)
Tabel 3.1 : Login
Membuat table stok No
Name
Type
1
Id
Varchar (5)
2
Nama
Varchar (15)
3
Jumlah
Integer (5)
4
Harga
Integer (20)
Tabel 3.2 : Stok
14
Membuat table pembelian
No
Name
Type
1
Id
Integer (5)
2
Tgl
Varchar (20)
3
Nama
Varchar (20)
4
Jumlah
Integer (5)
5
Harga
Integer (20)
6
Total
Integer (20) Tabel 3.3 : Pembelian
Membuat table penjualan No
Name
Type
1
Id
Integer (5)
2
Tgl
Varchar (20)
3
Nama
Varchar (20)
4
Jumlah
Integer (5)
5
Harga
Integer (25)
6
Total
Integer (25)
7
Bayar
Integer (25)
8
Kembali
Integer (25) Tabel 3.4 : Penjualan
3.2.2
Memasukkan SourceCode
3.2.2.1 Form Login Imports MySql.Data.MySqlClient PublicClassLogin Public conn AsNew MySql.Data.MySqlClient.MySqlConnection PublicSub konek(ByVal server AsString, ByVal user AsString, ByVal pass
15
AsString, ByVal db AsString) If conn.State = ConnectionState.Closed Then Dim myString AsString = "server="& server _ &";user="& user _ &";password="& pass _ &";database="& db Try conn.ConnectionString = myString conn.Open() Catch ex As MySql.Data.MySqlClient.MySqlException MsgBox(ex.Message) End Finally conn.Dispose() EndTry EndIf EndSub PublicSub disconnect() Try conn.Open() Catch ex As MySql.Data.MySqlClient.MySqlException EndTry conn.Close() EndSub PrivateSub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click konek("localhost", "root", "", "texas") If UsernameTextBox.Text = ""Then UsernameTextBox.Text = "o" EndIf If PasswordTextBox.Text = ""Then PasswordTextBox.Text = "o" EndIf Dim cmd AsNew MySql.Data.MySqlClient.MySqlCommand Dim cmdd AsNew MySql.Data.MySqlClient.MySqlCommand conn.Open() cmd.CommandType = CommandType.Text cmd.CommandText = " select username from login where username='"& UsernameTextBox.Text &"'" cmd.Connection = conn cmd.ExecuteScalar() conn.Close() conn.Open() cmdd.CommandType = CommandType.Text cmdd.CommandText = " select username from login where username='"& UsernameTextBox.Text &"'" cmdd.Connection = conn cmdd.ExecuteScalar() conn.Close() konek("localhost", "root", "", "texas") Dim cm AsNew MySql.Data.MySqlClient.MySqlCommand
16
Dim cmm AsNew MySql.Data.MySqlClient.MySqlCommand conn.Open() cm.CommandType = CommandType.Text cm.CommandText = " select password from login where password='"& PasswordTextBox.Text &"'" cm.Connection = conn cm.ExecuteScalar() cmm.CommandType = CommandType.Text cmm.CommandText = " select password from login where password='"& PasswordTextBox.Text &"'" cmm.Connection = conn cmm.ExecuteScalar()
If UsernameTextBox.Text = cmd.ExecuteScalar And PasswordTextBox.Text = cm.ExecuteScalar Then Beranda.Show() Else MessageBox.Show("Maaf, Akun Atau Kata Sandi Anda Salah") EndIf conn.Close() Call bersih() EndSub PrivateSub bersih() UsernameTextBox.Text = "" PasswordTextBox.Text = "" EndSub PrivateSub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click Me.Close() EndSub EndClass
3.2.2.1 Form Menu PublicClassMenuku PrivateSub Button7_Click(sender AsObject, e AsEventArgs) Handles Button7.Click Stok.Show() EndSub PrivateSub Button6_Click(sender AsObject, e AsEventArgs) Handles Button6.Click Stok.Show() EndSub PrivateSub Button5_Click(sender AsObject, e AsEventArgs) Handles Button5.Click Stok.Show() EndSub
17
PrivateSub Button4_Click(sender AsObject, e AsEventArgs) Handles Button4.Click Stok.Show() EndSub PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click Stok.Show() EndSub PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click Stok.Show() EndSub PrivateSub ButtonStok_Click(sender AsObject, e AsEventArgs) Handles ButtonStok.Click Stok.Show() EndSub PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles Button3.Click Stok.Show() EndSub EndClass
3.2.2.2 Form Beranda PublicClassBeranda PrivateSub ButtonSO_Click(sender AsObject, e AsEventArgs) Handles ButtonStok.Click Stok.Show() EndSub PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click Menuku.Show() EndSub PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click If MsgBox("Yakin Anda Akan Keluar ?", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then Application.Exit() EndIf EndSub PrivateSub ButtonPembelian_Click(sender AsObject, e AsEventArgs) Handles ButtonPembelian.Click Pembelian.Show() EndSub PrivateSub ButtonPenjualan_Click(sender AsObject, e AsEventArgs) Handles ButtonPenjualan.Click Penjualan.Show() EndSub PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles Button3.Click Profil.Show() EndSub
18
EndClass
3.2.2.3 Form Stok Imports MySql.Data.MySqlClient PublicClassStok Dim kon AsNewMySqlConnection("server=localhost;userid=root;database=texas") Dim perintah AsNewMySqlCommand Dim Data AsNewMySqlDataAdapter Dim ds AsNewDataSet Sub tampildata() kon.Open() perintah.Connection = kon perintah.CommandType = CommandType.Text perintah.CommandText = "select * from stok" Data.SelectCommand = perintah ds.Tables.Clear() Data.Fill(ds, "stok") DGrid.DataSource = ds.Tables("stok") kon.Close() EndSub PrivateSub btnin_Click(sender AsObject, e AsEventArgs) Handles btnin.Click kon.Open() perintah.Connection = kon perintah.CommandType = CommandType.Text perintah.CommandText = "insert into stok(id,nama,jumlah,harga) values('"& txtId.Text &"','"& txtNama.Text &"','"& txtJml.Text &"','"& txtHg.Text &"')" perintah.ExecuteNonQuery() kon.Close() If MsgBox("Yakin Anda Akan Menyimpan ?", vbYesNo + vbQuestion + vbDefaultButton2, "Simpan") = vbYes Then GroupBox1.Show() EndIf MsgBox("Data baru berhasil disimpan *_^", MsgBoxStyle.Information, "Pesan") Call tampildata() Call bersih() EndSub PrivateSub btndel_Click(sender AsObject, e AsEventArgs) Handles btndel.Click kon.Open() perintah.Connection = kon perintah.CommandType = CommandType.Text perintah.CommandText = "Delete from stok WHERE id='"& txtId.Text &"'" perintah.ExecuteNonQuery() kon.Close() If MsgBox("Yakin Anda Akan Menghapus ?", vbYesNo + vbQuestion +
19
vbDefaultButton2, "Hapus") = vbYes Then GroupBox1.Show() EndIf MsgBox("Data berhasil dihapus *_^", MsgBoxStyle.Information, "Pesan") Call tampildata() Call bersih() EndSub PrivateSub btnup_Click(sender AsObject, e AsEventArgs) Handles btnup.Click kon.Open() perintah.Connection = kon perintah.CommandType = CommandType.Text perintah.CommandText = "update stok set nama='"& txtNama.Text &"',jumlah='"& txtJml.Text &"',harga='"& txtHg.Text &"' where id='"& txtId.Text &"' " perintah.ExecuteNonQuery() kon.Close() If MsgBox("Yakin Anda Akan Mengedit ?", vbYesNo + vbQuestion + vbDefaultButton2, "Edit") = vbYes Then GroupBox1.Show() EndIf MsgBox("Data berhasil diedit", MsgBoxStyle.Information, "Pesan") Call tampildata() Call bersih() EndSub PrivateSub Stok_Activated(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Activated Call tampildata() Call bersih() EndSub PrivateSub DGrid_DoubleClick(ByVal sender AsObject, ByVal e As System.EventArgs) Handles DGrid.DoubleClick txtId.Text = DGrid.SelectedCells(0).Value txtNama.Text = DGrid.SelectedCells(1).Value txtJml.Text = DGrid.SelectedCells(2).Value txtHg.Text = DGrid.SelectedCells(3).Value EndSub PrivateSub bersih() txtId.Text = "" txtNama.Text = "" txtJml.Text = "" txtHg.Text = "" EndSub PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click MsgBox(" Id = "& txtId.Text & vbNewLine & _ " Nama Barang = "& txtNama.Text & vbNewLine & _ " Jumlah = "& txtJml.Text & vbNewLine & _ " Harga = "& txtHg.Text) EndSub
20
PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click Call djie_initial_object(DGrid, "", "") AddHandler PrintDocument1.BeginPrint, AddressOf djie_PrintDocument_BeginPrint AddHandler PrintDocument1.PrintPage, AddressOf djie_PrintDocument_PrintPage PrintPreviewDialog1 = NewPrintPreviewDialog With PrintPreviewDialog1 PrintDocument1.PrinterSettings.DefaultPageSettings.Landscape = True .Document = PrintDocument1 .ShowDialog()
EndWith EndSub EndClass
3.2.2.4 Form Penjualan Imports MySql.Data.MySqlClient PublicClassPenjualan Dim kon AsNewMySqlConnection("server=localhost;userid=root;database=texas") Dim perintah AsNewMySqlCommand Dim Data AsNewMySqlDataAdapter Dim ds AsNewDataSet Sub tampildata() kon.Open() perintah.Connection = kon perintah.CommandType = CommandType.Text perintah.CommandText = "select * from penjualan" Data.SelectCommand = perintah ds.Tables.Clear() Data.Fill(ds, "penjualan") DG.DataSource = ds.Tables("penjualan") kon.Close() EndSub PrivateSub Penjualan_Activated(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Activated Call tampildata() Call bersih() EndSub PrivateSub DG_DoubleClick(ByVal sender AsObject, ByVal e As System.EventArgs) Handles DG.DoubleClick id.Text = DG.SelectedCells(0).Value nama.Text = DG.SelectedCells(2).Value jml.Text = DG.SelectedCells(3).Value
21
hg.Text = DG.SelectedCells(4).Value tot.Text = DG.SelectedCells(5).Value byr.Text = DG.SelectedCells(6).Value kem.Text = DG.SelectedCells(7).Value EndSub PrivateSub bersih() id.Text = "" nama.Text = "" jml.Text = "" hg.Text = "" tot.Text = "" byr.Text = "" kem.Text = "" EndSub PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click kon.Open() perintah.Connection = kon perintah.CommandType = CommandType.Text perintah.CommandText = "insert into penjualan (id,tgl,nama,jumlah,harga,total,bayar,kembali) values('"& id.Text &"','"&Date.Now &"','"& nama.Text &"','"& jml.Text &"','"& hg.Text &"','"& tot.Text &"','"& byr.Text &"','"& kem.Text &"')" perintah.ExecuteNonQuery() kon.Close() If MsgBox("Yakin Anda Akan Menyimpan ?", vbYesNo + vbQuestion + vbDefaultButton2, "Simpan") = vbYes Then GroupBox1.Show() EndIf MsgBox("Data baru berhasil disimpan *_^", MsgBoxStyle.Information, "Pesan") Call tampildata() Call bersih() EndSub PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles Button3.Click kon.Open() perintah.Connection = kon perintah.CommandType = CommandType.Text perintah.CommandText = "update penjualan set nama ='"& nama.Text &"', jumlah='"& jml.Text &"',harga='"& hg.Text &"', total ='"& tot.Text &"', bayar ='"& byr.Text &"', kembali = '"& kem.Text &"' where id='"& id.Text &"' " perintah.ExecuteNonQuery() kon.Close() If MsgBox("Yakin Anda Akan Mengedit ?", vbYesNo + vbQuestion + vbDefaultButton2, "Edit") = vbYes Then GroupBox1.Show() EndIf MsgBox("Data berhasil diedit", MsgBoxStyle.Information, "Pesan") Call tampildata() Call bersih() EndSub
22
PrivateSub Button4_Click(sender AsObject, e AsEventArgs) Handles Button4.Click kon.Open() perintah.Connection = kon perintah.CommandType = CommandType.Text perintah.CommandText = "Delete from penjualan WHERE id='"& id.Text &"'" perintah.ExecuteNonQuery() kon.Close() If MsgBox("Yakin Anda Akan Mennghapus ?", vbYesNo + vbQuestion + vbDefaultButton2, "Hapus") = vbYes Then GroupBox1.Show() EndIf MsgBox("Data berhasil dihapus *_^", MsgBoxStyle.Information, "Pesan") Call tampildata() Call bersih() EndSub
PrivateSub Button6_Click(sender AsObject, e AsEventArgs) Handles Button6.Click MsgBox(" Id = "& id.Text & vbNewLine & _ " Nama Barang = "& nama.Text & vbNewLine & _ " Jumlah = "& jml.Text & vbNewLine & _ " Harga = "& hg.Text & vbNewLine & _ " Total = "& tot.Text & vbNewLine & _ " Bayar = "& byr.Text & vbNewLine & _ " Kembali = "& kem.Text) EndSub PrivateSub nama_SelectedIndexChanged(sender AsObject, e AsEventArgs) Handles nama.SelectedIndexChanged If nama.Text = "Original Coffee"Then hg.Text = 8000 ElseIf nama.Text = "White Coffee"Then hg.Text = 10000 ElseIf nama.Text = "Moccacino"Then hg.Text = 15000 ElseIf nama.Text = "Cappuccino"Then hg.Text = 15000 ElseIf nama.Text = "MilkShake"Then hg.Text = 20000 ElseIf nama.Text = "Espresso"Then hg.Text = 15000 ElseIf nama.Text = "Americano"Then hg.Text = 15000 ElseIf nama.Text = "Latte"Then hg.Text = 15000 Else MsgBox("Masukkan Nama Barang") EndIf EndSub PrivateSub Button7_Click(sender AsObject, e AsEventArgs) Handles Button7.Click Call djie_initial_object(DG, "", "")
23
AddHandler PrintDocument1.BeginPrint, AddressOf djie_PrintDocument_BeginPrint AddHandler PrintDocument1.PrintPage, AddressOf djie_PrintDocument_PrintPage PrintPreviewDialog1 = NewPrintPreviewDialog With PrintPreviewDialog1 PrintDocument1.PrinterSettings.DefaultPageSettings.Landscape = True .Document = PrintDocument1 .ShowDialog() EndWith EndSub PrivateSub hg_TextChanged(sender AsObject, e AsEventArgs) Handles hg.TextChanged tot.Text = Val(hg.Text) * Val(jml.Text) EndSub PrivateSub byr_TextChanged(sender AsObject, e AsEventArgs) Handles byr.TextChanged kem.Text = Val(byr.Text) - Val(tot.Text) EndSub PrivateSub DG_CellContentClick(sender AsObject, e AsDataGridViewCellEventArgs) Handles DG.CellContentClick EndSub
EndClass
3.2.2.5 Form Pembelian Imports MySql.Data.MySqlClient PublicClassPembelian Dim kon AsNewMySqlConnection("server=localhost;userid=root;database=texas") Dim perintah AsNewMySqlCommand Dim Data AsNewMySqlDataAdapter Dim ds AsNewDataSet Sub tampildata() kon.Open() perintah.Connection = kon perintah.CommandType = CommandType.Text perintah.CommandText = "select * from pembelian" Data.SelectCommand = perintah ds.Tables.Clear() Data.Fill(ds, "pembelian") DG.DataSource = ds.Tables("pembelian") kon.Close() EndSub
24
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click kon.Open() perintah.Connection = kon perintah.CommandType = CommandType.Text perintah.CommandText = "insert into pembelian (id,tgl,nama,jumlah,harga,total) values('"& id.Text &"','"&Date.Now &"','"& nama.Text &"','"& jml.Text &"','"& hg.Text &"','"& tot.Text &"')" perintah.ExecuteNonQuery() kon.Close() If MsgBox("Yakin Anda Akan Menyimpan ?", vbYesNo + vbQuestion + vbDefaultButton2, "Simpan") = vbYes Then GroupBox1.Show() EndIf MsgBox("Data baru berhasil disimpan *_^", MsgBoxStyle.Information, "Pesan") Call tampildata() Call bersih() EndSub PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles Button3.Click kon.Open() perintah.Connection = kon perintah.CommandType = CommandType.Text perintah.CommandText = "Delete from pembelian WHERE id='"& id.Text &"'" perintah.ExecuteNonQuery() kon.Close() If MsgBox("Yakin Anda Akan Menghapus ?", vbYesNo + vbQuestion + vbDefaultButton2, "Hapus") = vbYes Then GroupBox1.Show() EndIf MsgBox("Data berhasil dihapus *_^", MsgBoxStyle.Information, "Pesan") Call tampildata() Call bersih() EndSub PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click kon.Open() perintah.Connection = kon perintah.CommandType = CommandType.Text perintah.CommandText = "update pembelian set nama ='"& nama.Text &"', jumlah='"& jml.Text &"',harga='"& hg.Text &"', total ='"& tot.Text &"' where id='"& id.Text &"' " perintah.ExecuteNonQuery() kon.Close() If MsgBox("Yakin Anda Akan Mengedit ?", vbYesNo + vbQuestion + vbDefaultButton2, "Edit") = vbYes Then GroupBox1.Show() EndIf MsgBox("Data berhasil diedit", MsgBoxStyle.Information, "Pesan") Call tampildata() Call bersih() EndSub
25
PrivateSub Pembelian_Activated(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Activated Call tampildata() Call bersih() EndSub PrivateSub DG_DoubleClick(ByVal sender AsObject, ByVal e As System.EventArgs) Handles DG.DoubleClick id.Text = DG.SelectedCells(0).Value nama.Text = DG.SelectedCells(2).Value jml.Text = DG.SelectedCells(3).Value hg.Text = DG.SelectedCells(4).Value tot.Text = DG.SelectedCells(5).Value EndSub PrivateSub bersih() id.Text = "" nama.Text = "" jml.Text = "" hg.Text = "" tot.Text = "" EndSub PrivateSub Button4_Click(sender AsObject, e AsEventArgs) Handles Button4.Click MsgBox(" Id = "& id.Text & vbNewLine & _ " Nama Barang = "& nama.Text & vbNewLine & _ " Jumlah = "& jml.Text & vbNewLine & _ " Harga = "& hg.Text & vbNewLine & _ " Total = "& tot.Text) EndSub PrivateSub Button7_Click(sender AsObject, e AsEventArgs) Handles Button7.Click Call djie_initial_object(DG, "", "") AddHandler PrintDocument1.BeginPrint, AddressOf djie_PrintDocument_BeginPrint AddHandler PrintDocument1.PrintPage, AddressOf djie_PrintDocument_PrintPage PrintPreviewDialog1 = NewPrintPreviewDialog With PrintPreviewDialog1 PrintDocument1.PrinterSettings.DefaultPageSettings.Landscape = True .Document = PrintDocument1 .ShowDialog() EndWith EndSub PrivateSub Pembelian_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load EndSub PrivateSub hg_TextChanged(sender AsObject, e AsEventArgs) Handles hg.TextChanged tot.Text = Val(jml.Text) * Val(hg.Text) EndSub EndClass
26
3.2.3
Hasil Pengerjaan
3.2.3.1 Form Login
Gambar 3.1 : Login
3.2.3.2 Form Beranda
27
Gambar 3.2 : Beranda
3.2.3.3 Form Menu
28
Gambar 3.3 : Menu
3.2.3.4 Form Stok
29
Gambar 3.4 : Stok
3.2.3.5
Form Pembelian
30
Gambar 3.5 : Pembelian
31
3.2.3.6 Form Penjualan
Gambar 3.6 : Penjualan
32
BAB IV PENUTUP
4.1 Kesimpulan Dengan di laksanakannya prakerin di Pt Alfasoft Malang penulis dapat mengetahui secara langsung keadaan dunia kerja secara nyata.Melalui prakerin penulis tidak hanya mendapatkan teori di sekolah, langsung mempraktikan langsung ke DU/DI serta mendapatkan tambahan ilmupengetahuan dan wawasan yang tidak diperoleh di Sekolah.
4.2 Saran Selama kurang lebih 12 bulan (1 tahun) penuh penulis melaksanakan Prakerin, penulis memperoleh begitu banyak pengetahuan dan pengalaman yang berharga. Selama itu pula penulis mencatat beberapa hal yang bisa menjadi pandangan untuk kedepannya. Demi perkembangan dan kemajuan, maka tidak ada salahnya penulis memberikan saran kepada pihak PT. Alfasoft agar memberikan jadwal piket secara merata kepada semua siswa- siswi magang supaya kebersihan tetap terjaga dan tentunya kebersihan tersebut adalah tanggung jawab bersama (bukan individu atau kelompok tertentu).
33
