Membuat Program Penjualan

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

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

sekian postingan ini semoga bermanfaat