Home / Programming / Pembuatan Form Penjualan Dengan Visual Basic dan SQL Server 2008

Pembuatan Form Penjualan Dengan Visual Basic dan SQL Server 2008

Langkah Langkah Instal Microsoft Visual Studio 2010

  1. Harus sudah mempunyai file Program Microsoft Visual Studio 2010
  2. Mulai Instal
  3. Pilih “I have read and accept the license terms” lalu NEXT
  4. Pilih Full lalu INSTALL
  5. Tunggu sampai proses selesai
  6. Jika sudah jalankan programnya
  7. Untuk membuat versi trialnya menjadi FULL ,Harus memasukkan serial Number, Berikut caranya:
  • Buka control Panel > Program cari Microsoft Visual Studio 2010 Ultimate > Double Klik
  • Tunggu sampai muncul Serial Number > Activate > Dan tunggu sampai Proses Selesai

Cara Membuat Project di Visual Basic Studio 2010

Langkah – Langkah Membuat Project;

  1. Double Klik pada Microsoft Visual Basic Studio 2010
  2. Selanjutnya akan muncul splash screen Visual Studio 2010 Professional sebagai berikut :

3. Setelah muncul Splash Screen, akan muncul IDE Visual Studio 2010 seperti pada

 

4. Klik menu Pilihan “ New Project”

5. Anda akan melihat pada IDE Visual Studio 2010 yang muncul dengan Start Page yang berisi informasi dan panduan untukmemulai Visual Studio 2010.

6. Pilih “Windows Froms Application” Ganti name menjadi “frmpenjualan” lalu tekan OK

7. Klik Komponen “TOOLBOX” Pilih Label, ComboBox, TextBox , Button dan DataGridView sebanyak yang diperlukan.

8. Ganti Label ,ComboBox,Textbox,Buttondan,DataGridView sesuai dengan yang ketentuan pada Tabel dibawah.

9. Ganti Form1 menjadi “FrmTransaksi” >Klik kanan pada kolom Form1 pada Komponen Solution Explorer >Pilih RENAME >Lalu ganti menjadi “Frmtransaksi.vb”> OK

NO DesainTombol di ToolBox Ganti di Name pada Properties Ganti di Text pada Properties
1 Label1 NamaBarang
2 Label2 Satuan
3 Label3 Harga
4 Label4 JlhBeli
5 Label5 Diskon
6 Label6 Total
7 Label7 Bayar
8 Label8 Kembalian
9 TextBox TxtNama
10 TextBox TxtHarga
11 TextBox TxtJlhBeli
12 TextBox TxtDiskon
13 TextBox TxtTotal
14 TextBox TxtBayar
15 TextBox TxtKembalian
16 ComboBox CmbSatuan
17 Button1 BtnTambah &Tambah
18 Button2 BtnHitung &Hitung
19 Button3 BtnUlangi &Ulangi
20 Button4 BtnKeluar &Keluar
21 DataGridView1 DataGridViewTransaksi

10. Untuk memenuhi beberapa banyak kebutuhan,kita perlu menambahkan ;

Pcs, Box ,dan Bungkus dengan cara sebagai berikut;

-KlikCmbSatuan>Pilih Items (Collection) >Pilih tanda “…” >Lalu tambahkan seperti gambar dibawah ini

11. Dan untuk membuat PILIHAN dari daftar yang diatas , kita dapat menggunakan dengan cara ini;

-KlikCmbSatuan>Pilih “Text” lalugantidengan“ — PILIH –“ > OK

Source Coding pada Visual Basic


PublicClassFrmTransaksi

SubTampilData()

Callkoneksi()

Dim query AsString

query = "SELECT * FROM tb_transaksi ORDER BY harga ASC "

cmdAdapter = NewOleDb.OleDbDataAdapter(query, koneksiSQL)

DimresultqueryAsNewDataTable

resultquery.Clear()

cmdAdapter.Fill(resultquery)

WithMe.DataGridViewtransaksi



.DataSource = resultquery

.SelectionMode = DataGridViewSelectionMode.FullRowSelect

.AllowUserToAddRows = False

.AllowUserToResizeColumns = True

.AllowUserToResizeRows = False

.ReadOnly = True

EndWith

resultquery.Dispose()

cmdAdapter.Dispose()

cmdAdapter = Nothing

EndSub



PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesBtnTambah.Click

CallTampilData()

BtnTambah.Enabled = False

BtnHitung.Enabled = True

BtnUlang.Enabled = True

BtnKeluar.Enabled = False

TxtNama.Enabled = True

CmbSatuan.Enabled = True

TxtHarga.Enabled = True

TxtJlhBeli.Enabled = True

TxtDiskon.Enabled = True

TxtTotal.Enabled = True

TxtBayar.Enabled = True

TxtKembalian.Enabled = True

EndSub



PrivateSub ComboBox1_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesCmbSatuan.SelectedIndexChanged

EndSub



PrivateSub Form1_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load

BtnHitung.Enabled = False

BtnUlang.Enabled = False

TxtNama.Enabled = False

CmbSatuan.Enabled = False

TxtHarga.Enabled = False

TxtJlhBeli.Enabled = False

TxtDiskon.Enabled = False

TxtTotal.Enabled = False

TxtBayar.Enabled = False

TxtKembalian.Enabled = False

EndSub



PrivateSubBtnUlang_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesBtnUlang.Click

BtnTambah.Enabled = False

BtnHitung.Enabled = True

BtnKeluar.Enabled = False

TxtNama.Text = ""

CmbSatuan.Text = ""

TxtHarga.Text = ""

TxtJlhBeli.Text = ""

TxtTotal.Text = ""

TxtBayar.Text = ""

TxtKembalian.Text = ""

EndSub



PrivateSub TextBox5_TextChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesTxtTotal.TextChanged

TxtTotal.Text = Val(TxtHarga.Text) * Val(TxtJlhBeli.Text)



IfTxtJlhBeli.Text> 10 AndTxtTotal.Text> 100000 Then

TxtDiskon.Text = Val(TxtTotal.Text) * 0.2

EndIf

EndSub



PrivateSubBtnHitung_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesBtnHitung.Click

IfTxtNama.Text = ""OrTxtHarga.Text = ""OrTxtBayar.Text = ""OrTxtJlhBeli.Text = ""OrCmbSatuan.Text = "-Pilih-"Then

MsgBox("silahkanlengkapi data terlebihdahulu", MsgBoxStyle.Critical, "Perhatian")

Else

DimtotalAkhirAsInteger

totalAkhir = Val(TxtJlhBeli.Text) * Val(TxtHarga.Text)

IfVal(TxtJlhBeli.Text) > 10 AndtotalAkhir> 100000 Then

TxtDiskon.Text = 20 / 100 * totalAkhir

TxtTotal.Text = Val(totalAkhir) - Val(TxtDiskon.Text)

Else

TxtTotal.Text = Val(TxtJlhBeli.Text) * Val(TxtHarga.Text)

EndIf

TxtKembalian.Text = Val(TxtBayar.Text) - Val(TxtTotal.Text)

EndIf



IfVal(TxtTotal.Text) > Val(TxtBayar.Text) Then

MsgBox("PembayaranKurang", vbCritical, "Perhatian")

TxtBayar.Focus()

EndIf

EndSub



PrivateSubTxtKembalian_TextChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesTxtKembalian.TextChanged

TxtKembalian.Text = Val(TxtBayar.Text) - Val(TxtTotal.Text)

EndSub



PrivateSubBtnKeluar_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesBtnKeluar.Click

Me.Close()

EndSub



PrivateSubTxtJlhBeli_TextChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesTxtJlhBeli.TextChanged

IfTxtJlhBeli.Text> 10 Then

TxtDiskon.Text = Val(TxtTotal.Text) * 0.2

EndIf

EndSub



PrivateSubTxtNama_TextChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesTxtNama.TextChanged

EndSub

EndClass

Cara membuat Database di SQL Server 2008      

  • Buka Software SQL Server 2008
  • Pilih server name dengan format “ASUS-PC\SQLEXPRESS” sesuai dengan name Laptop/Komputer anda
  • Pilih Connect

 

  • Selanjutnya pilih New Query
  • Isi dengan format dibawah ini.
  • Lalu Block satu persatu perintah lalu Execute

Createdatabase db_penjualan

use db_penjualan

createtable tb_transaksi(id_transaksi intnotnullprimarykeyidentity (1,1),

nama_barang varchar(35),satuan varchar (15),harga int, jlh_beli int,

diskon int,total int,bayar int,kembalian int)



droptable tb_transaksi



insertinto tb_transaksi values('TAS ','pcs','15000','15','45000','180000','300000','20000')



insertinto tb_transaksi values('BUKU ','pcs','20000','10','20000','180000','200000','20000')



insertinto tb_transaksi values('SEPATU','pcs','25000','10','25000','250000','300000','50000')

select*from tb_transaksi

 

 

 

 

 

 

Comments

comments

About Siska Utami

Siska Utami

Tutorial Lain

Penggunaan Google Drive

Cara Menggunakan Google Drive

Awal mula Aplikasi Google Drive diluncurkan hanyalah berfungsi sebagai tempat penyimpanan berkas anda agar dapat …

Leave a Reply

Your email address will not be published. Required fields are marked *