Membuat Program Kasir Dengan Visual Basic 6

Membuat Program Kasir Dengan Visual Basic 6 – Aplikasi penjualan adalah sistem informasi yang menangani semuanya untuk sistem yang dirancang untuk pengumpulan penjualan sederhana. Ide tersebut muncul ketika saya mengunjungi sebuah tempat nongkrong di kawasan Sesetana Bali. Truk makanan adalah makanan atau tempat siap saji di mana aksi memasak ada di dalam truk. Tapi, seperti biasa, terkadang penjual tidak memberi harga pada makanan tersebut. Kali ini saya ingin membuat sebuah aplikasi dimana penjual dapat menggunakan aplikasi tersebut mulai dari proses pemesanan hingga pembayaran. Aplikasi penagihan berguna untuk mempermudah dan mempermudah proses pembayaran baik bagi penjual maupun pembeli.

1. Pertama kami akan memberikan desain antarmuka program dana. Saya telah menyusun daftar alat yang telah saya gunakan, dan Anda dapat menemukannya.

Membuat Program Kasir Dengan Visual Basic 6

2. Pada langkah kedua, saya membuat akun untuk masuk ke aplikasi kolektor. Karena menurut saya, meskipun aplikasi tersebut merupakan aplikasi yang sederhana, aplikasi ke aplikasi tersebut sangat diperlukan untuk menjaga keamanan data yang ditempatkan di aplikasi tersebut.

Skripsi Visual Basic 6.0

3. Saya akan membuat antarmuka tingkat ketiga untuk program ini. Program tidak terlalu penting. Saya hanya ingin menambahkannya ke bahan referensi. Dalam program ini saya takut untuk menjalankan pengembangan media sosial.

4. Kemudian pada langkah selanjutnya saya memprogram kolektor kode pertama. Berikut koding yang saya buat :

5. Selanjutnya saya melakukan koding untuk program login. Dalam program ini saya berencana untuk 2 karyawan. Dan Anda juga dapat menambahkannya untuk lebih dari 2 karyawan dengan menjalankan program “else”, “if” dan “end if”. diikuti oleh pengkodean;

Setelah menyelesaikan antarmuka dan merakit koding, kita dapat mengujinya dan akan segera diimplementasikan. Saya coba programnya, ini hasilnya;

Cara Menambah Update Database Visual Basic

Akan muncul form loading terlebih dahulu, kemudian informasi login pertama, klik OK. Kemudian akan muncul layar login, dan masukkan username dan password yang telah diset sebelumnya. Jika berhasil, akan muncul pesan “Start succesful” dan klik OK. Maka program kolektor akan muncul. Anda dapat memilih dari menu dengan daftar harga. Dan jangan lupa tambahkan kolom quantity disebelah kanan harga, kecuali nanti di isi dengan akun tidak bisa dihitung total pembayarannya. Setelah selesai, Anda dapat “menghitung” dan kemudian melihat di bagian total berapa banyak yang harus Anda bayar. Kemudian siapkan uang dan masukkan jumlah total uang yang akan Anda gunakan untuk membayar, dan masuk. Jika Anda tidak memiliki cukup uang, bagian “perlindungan” akan menunjukkan kepada Anda bahwa Anda tidak memiliki cukup uang. Tetapi jika ada kembalian, tepat setelah Anda masuk, itu akan menunjukkan berapa sisa kembalian yang didapat pembeli. 2 a. Alat yang Diperlukan 1. MySQL Visual Basic Database (fpmadmin) 3. MySQL Net Connector 4. MySQL Odbk Connector 5. Crystal Report untuk Visual Basic 2010 b. Tampilan program 1. Bentuk menu 2. Bentuk angka

5 7. Form Cetak P.O 8. Form Laporan Pembelian C. Perancangan Database 1. Buat Nama Database di PhpMyadmin dengan Nama Aplikasi Pembelian 2. Buat tabel berikut:- Tabel Bona (Kode Bona Kunci Utama)

6 – Tabel pemasok (kode suplai kunci utama) – Tabel pembelian (no transaksi kunci utama) – Tabel detail pembelian (tanpa kunci primer tetapi kunci asing)

7 d. Preview Module, Formula dan Script 1. Buat modul Connection dari modul Connection dengan cara: – Klik menu Project – Klik Add Module – Beri nama modul Connection – Klik Add – Write/Copy Script di bawah Imports MySql.Data .MySqlClient Module Public Conn Connection Module Sebagai MySqlConnection Public RD Sebagai MySqlDataReader Public DA Sebagai MySqlDataAdapter Public CMD Sebagai MySqlCommand Public DS Sebagai DataSet Public save, change, delete, sql As String Public Sub bukadb() Dimu SQLConn As String =root; pwd= ; Database = Beli Aplikasi “Conn = New MySqlConnection(SQLConn) If Conn.State = ConnectionState.Closed Then Conn.Open() End If End Sub End ALL – Jika terjadi error, periksa atau pastikan jaringan MySQL Connector diinstal dan direferensikan. Untuk menggunakan Referensi Konektor MySQL: I. Klik menu Proyek II. Jendela Tambah Referensi muncul

Pdf Free Download

8 iii. Klik OK 2. Create Script Item Form imports MySql.Data.MySqlClient Public Class Form Barang Dick ID As String Sub Igrid() ModuleConnection.bukaDB() DA = New MySqlDataAdapter(“SELECT * FROM TableGoods”, conn) DS = New DataSet DA isi(ds”itemable”) datagridview1.datasource = ds.tables(“itemtable”) datagridview1.redonly = true datagridview1.columns(0).width = 70 datagridview1.columns(1). Lebar = 205 DataGridView1.Kolom(2. Lebar = 80 DataGridView1.Kolom(3). Lebar = 80 DataGridView1.Kolom(4). Lebar = 50 Sub Jaringan Akhir() txtkode.text = “” txtnamabarang.text = “” . text = “” txthargajual .text = “” txtstok.text = “” txtkode.focus() txtkode.enabled = false txtnamabarang.enabled = false txthargabeli.enabled = false txthargajual.enabled = false txtstok.enabled = false End Sub Private Sub Form Barang_Load (ByVal Send As System.Object, ByVal e As System.EventArgs) Menangani Panggilan MyBase.Load isigrid() End Sub Private Sub BtnSave_Click (ByVal Send System.Object, ByVal e As System.EventArgs) Menangani BtnSampan.Click BtnSampan. Text = “&save” Lalu Jika txtkode.text = “” Kemudian MsgBox(“Kode Lengkap”, MsgBoxStyle.Exclamation, “Peringatan”) txtkode.focus() Keluar Sub Akhir Jika Memanggil bukadb() CMD = New MySqlCommand( ” Pilih Kode barang dari Meja Barang WHERE code barang = ‘” & txtkode.text & “‘”, samb) RD = CMD.ExecuteReader RD.Read() IF RD.HasRows where MsgBox (“Maaf Maaf, data dengan kode ini sudah ada”, MsgBoxStyle.Exclamation, “Peringatan”) else if = “INSERT INTO TABLE Items

9 (kode bagus, nama bagus, harga beli, harga jual, stok) nilai (‘” & txtkode.text & “‘,'” & txt namabarang.text & “‘, ‘” & _ txtbuying price.text & “‘ CMD = New MySqlCommand(save, connect) CMD.ExecuteNonQuery() call isigrid() BtnSave.Text = “&add” call clean() end if else BtnSave.Text = “&save” ‘call network() txtkode.enabled = true code .enabled = True txthargabeli.enabled = True txthargajual.enabled = True txtstok.enabled = True txtkode.focus() End If End Sub Private Sub Button1_Click(Bival sender As System.Object, Bival And As System.EventArgs) Handles Button1 .Klik id = inputbox ( “masukkan kode”, “cari” ) if id = “” exit di bawah error resume call bukadb() sql = “select * from tablegoods where code barang = ‘” & id & “‘” cmd = new MySqlCommand (sql, conn) CMD.ExecuteNonQuery() RD = CMD.ExecuteReader RD.Read() jika RD.HasRows lalu txtkode.text = RD.Item(0) txtnamabarang.text = RD.Item(1) txthargabeli.text = RD .I.tem(2) tx thargajual.text = RD.Item(3) txtstok.text = RD.Item(4) txtkode.focus() RD.Close() Or MsgBox(“Data Tidak Ditemukan”, info, “Pesan”) End If End Sub Private Sub btnedit_click(bival send as system.object, bival e as system.eventargs) menangani btnedit. klik try call bukadb() change = “update table barang set name barang='” & txtnamabarang.text & “‘, HargaBuy= ‘” & txthargabeli.text & “‘, HargaSell='” & txthargajual.text & “‘, saham='” &

10 txtstok.text & “‘ where Kode Barang = ‘” & txtkode.text & “‘” CMD = New MySqlCommand(change, Conn) CMD.ExecuteNonQuery() Call isigrid() BtnSampan.Text = “&add” catch from exception msgbox (ex.ToString, MsgBoxStyle.Critical, “Error Accurred”) End Try End Private Sub BtnDelete_Click(ByVal Send As System.Object, ByVal e As System.EventArgs) Menangani BtnDelete.Click Dim response String If txtkode.text = ” ” Kemudian response = MsgBox(“Anda yakin ingin menghapus semua data?”, vbyesno, “Warning”) jika response = vbyes, coba panggil bukadb() delete = “delete from tablegoods” CMD = New MySqlCommand(delete, connect) CMD .ExecuteNonQuery() call isgrid() call clean() catch from exception MsgBox(ex.ToString, MsgBoxStyle.Critical, “Terjadi kesalahan”) end try end if else try call bukadb() delete = “delete a code where code Barang= ‘” & txtkode.text & “‘” CMD = New MySqlCommand(delete, conn) CMD.ExecuteNonQuery() panggil isigrid() panggil clean() tangkap dari pengecualian MsgB ox(mis.ToString, MsgB oxStyle. Kritis L, “Error Encountered”) End Try End If End Sub Private Sub Btntup_Click(Bival Send As System.Object, Bival And As System.EventArgs) Menangani BtnTutup.Click Me.Close() End Sub Private Sub BtnPrint_Click(Bival Send As System Object, bival and as System.EventArgs) Menangani BtnPrint.Click FormLaporan Barang.MdiParent = Me FormLaporan Barang.Show() End Sub End Class

11 3. Buat Skrip Formulir Transaksi Pembelian Impor MySql.Data.MySqlClient Public Class PurchaseForm Thick Index As Integer = 0 Thick Total As Double = 0.0 Dim cmd, cmd1, cmd2 As MySqlCommand Dim Id As String Sub Createable()’ Membuat kolom di ListView ListView1.Columns.Add(“UseCode”, 50, HorizontalAlignment.Center) ListView1. Columns.Add ( “ITEM NAME” , 150 , HorizontalAlignment . Link ) ListView1 . Columns.Add(“PRICE”, 90, HorizontalAlignment.Right ) ListView1.Columns.Add(“SUM”, 90, HorizontalAlignment.Right) ListView1.Columns.Add(“ToTAL HARGA”, 90, HorizontalAlignment.Right) ‘ Inline listview artinya sebagai baris dan kolom listview1 .View = View . Menampilkan baris individual sebagai pembatas baris dan kolom ListView1.GridLines = True untuk membuat seluruh baris disorot saat digabungkan ListView1.FullRowSelect = True End Sub Private Sub BtnSearchSupplier_Click (ByVal Sending As System.Object, ByVal e As System .EventArgs) Handsuppt. id = InputBo x(“masukkan kode”, “cari”) jika id = “” lalu keluar sub pada kesalahan lanjutkan panggilan bukadb() sql = “pilih * dari pemasok tabel di mana KodeSupp='” & id &”‘” CMD = Baru MySqlCommand( sql, Conn) CMD.ExecuteNonQuery() RD = CMD.ExecuteReader RD.Read() Jika RD.HasRows Lalu txtkodesup.text = RD.Item(0) txtnamasup.text = RD.Item(1) txtkontakt.text = rd. Number(2) txtkodebrg.focus() RD.Close() or MsgBox(“Data not found”, winfo, “message”) End If End Sub Private Sub btnkary barang_click(Bival sender As System.Object, Bival And As System. EventArgs ) handle BtnCari Barang.Click id = InputBox(“Masukkan Kode”, “Search”) if id = “” kemudian keluar di bawah error resume call bukadb() sql = “select * from Meja Barang where code Barang='” & ID & “‘” CMD = New MySqlCommand(sql, Conn) CMD.ExecuteNonQuery() RD = CMD.ExecuteReader RD.Read()

Software Toko, Download Software Toko, Download Software Toko Gratis, Program Toko, Download Program Toko, Download Program Toko Gratis, Aplikasi Toko, Download Aplikasi Toko, Download Aplikasi Toko Gratis, Software Kasir, Download Software Kasir,

12 Jika RD.HasRows maka txtkodebrg.text = RD.Item(0) txtnamabrg.text = RD.Item(1) txtharga.text = RD.Item(2) txtsum.focus() RD.Close() atau MsgBox(” data tidak ditemukan”, winfo, “message”) End If End Sub Private Sub txtsum_textchanged(Bival Send As System.Object, ByVal And As System.EventArgs) Menangani txtsum.textchanged txttotal.text = Val(txtPrice.Text) * Val( txtJumlah.Text) End Sub Private Sub BtnAdd_Click(ByVal Mengirim Sebagai System.Object, ByVal e As System.EventArgs) Menangani BtnAdd.Click If txtquantity.text = “” Kemudian txtquantity.focus() End If Dark value() As String = panggil addlist(nilai) total += CDbl(txtTotal.Teks) : txtgrandtotal.teks = format(CDbl(CSR(Total))) txtkodebrg.teks = “” txtnamabrg.teks = “” txtharga.teks = “” txtkuantitas.teks = “txtTotal.Teks = “” TXTodeBrg.focus() end sub