Aplikasi Penjualan

Selanjutnya pembuatan Form login

1.Buka module baru seperti gambar dibawah

2. Kita buat koneksi
    Listing Program

1. Imports System.Data.OleDb
3. Module Module1
4.     Public CONN As OleDbConnection
5.     Public CMD As OleDbCommand
6.     Public DS As New DataSet
7.     Public DA As OleDbDataAdapter
8.     Public RD As OleDbDataReader
9.     Public lokasidata As String
11.     Sub koneksi()
12.         lokasidata = "provider=microsoft.jet.oledb.4.0;data source=dbpenjualan.mdb"
13.         CONN = New OleDbConnection(lokasidata)
14.         If CONN.State = ConnectionState.Closed Then
15.             CONN.Open()
16.         End If
17.     End Sub
18. End Module
19. 
    

Selajutnya Klik Dua kali pada Button

Listing Program

1. Imports System.Data.OleDb
2. Public Class login
4.     Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
5.         If Username.Text = "" Or Passwrd.Text = "" Then
6.             MsgBox("Data login belum lengkap")
7.             Exit Sub
8.         Else
9.             Call koneksi()
10.             CMD = New OleDbCommand("select * from tblkasir where nama_kasir='" & Username.Text & "' and pwd_kasir='" & Passwrd.Text & "'", CONN)
11.             RD = CMD.ExecuteReader
12.             RD.Read()
13.             If RD.HasRows Then
14.                 Me.Visible = False
15.                 MenuUtama.Show()
16.             End If
17.         End If
18.     End Sub
20.     Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
21.         Passwrd.PasswordChar = "*"
22.     End Sub
24.     Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesBtnkeluar.Click
25.         End
26.     End Sub
27. End Class

Sebelum Pada tblkasir kita isikan dulu datanya

Hanya bermodal HP android bisa mendapatkan $10 melalui WHAFF

Read more »

Aplikasi Penjualan

Selanjut kita akan membuat database dengan microsoft  office access 2003

1. Create new file

2.Pilih Blank database

3.Nama database dbpenjualan simpan dalam folder debug

4.Pilih create table new design view

Selanjutnya pembuatan from login

Read more »

Aplikasi Penjualan

Pertama kita desain menu utama

Tambah MenuStrip

Selanjutnya pembuatan database dengan Microsoft access 2003

Read more »

pemakaian if else dalam penyelesaian

Desain Form Seperti Dibawah

1. Listing Program
2. Public Class Form1
3.  
4.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
5.         hapus()
6.     End Sub
7.  
8.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
9.         kode.Items.Add("RAA-001-002")
10.         kode.Items.Add("RBB-003-004")
11.         kode.Items.Add("RCC-005-006")
12.         kode.Items.Add("RDD-007-008")
13.         tabel()
14.         nama.Enabled = False
15.         tipe.Enabled = False
16.         hargam3.Enabled = False
17.         biayab.Enabled = False
18.         totalt.Enabled = False
19.         pajak.Enabled = False
20.         pembayaran.Enabled = False
21.         daerah.Enabled = False
22.  
23.     End Sub
24.  
25.     Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handleskode.SelectedIndexChanged
26.         Dim xx As String
27.         xx = Microsoft.VisualBasic.Left(kode.Text, 3)
28.         If xx = "RAA" Then
29.             nama.Text = "reza ariansyah"
30.         ElseIf xx = "RBB" Then
31.             nama.Text = "Jailamm igaph"
32.         ElseIf xx = "RCC" Then
33.             nama.Text = "chanif arvani"
34.         Else
35.             nama.Text = "Lya syahfitri"
36.         End If
37.  
38.         xx = Microsoft.VisualBasic.Right(kode.Text, 3)
39.         Select Case xx
40.             Case "002"
41.                 tipe.Text = "PABRICK"
42.                 hargam3.Text = 250
43.                 biayab.Text = 26000
44.             Case "004"
45.                 tipe.Text = "TOKO"
46.                 hargam3.Text = 260
47.                 biayab.Text = 29000
48.             Case "006"
49.                 tipe.Text = "RUMAH"
50.                 hargam3.Text = 290
51.                 biayab.Text = 200000
52.             Case "008"
53.                 tipe.Text = "SWALAYAN"
54.                 hargam3.Text = 220
55.                 biayab.Text = 2000000
56.         End Select
57.         xx = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
58.         Select Case xx
59.             Case "001" : daerah.Text = "Medan"
60.             Case "003" : daerah.Text = "Belawan"
61.             Case "005" : daerah.Text = "Jakarta"
62.             Case "007" : daerah.Text = "Jerman"
63.             Case Else : daerah.Text = "_"
64.         End Select
65.  
66.  
67.  
68.     End Sub
69.  
70.     Private Sub TextBox8_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)Handles jumlahp.KeyPress
71.         If e.KeyChar = Chr(13) Then
72.             totalt.Text = Val(biayab.Text) + Val(hargam3.Text * jumlahp.Text)
73.             pajak.Text = 0.01 * totalt.Text
74.             pembayaran.Text = Val(totalt.Text) + Val(pajak.Text)
75.         End If
76.     End Sub
77.     Sub tabel()
78.         lv.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Left)
79.         lv.Columns.Add("NAMA", 80, HorizontalAlignment.Left)
80.         lv.Columns.Add("TIPE", 80, HorizontalAlignment.Left)
81.         lv.Columns.Add("HARGA M3", 80, HorizontalAlignment.Left)
82.         lv.Columns.Add("BIAYA BEBAN", 100, HorizontalAlignment.Left)
83.         lv.Columns.Add("PEMKAIAN AIR", 100, HorizontalAlignment.Left)
84.         lv.Columns.Add("TOTAL TAGIHAN", 100, HorizontalAlignment.Left)
85.         lv.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)
86.         lv.Columns.Add("PEMBAYARAN", 100, HorizontalAlignment.Left)
87.         lv.Columns.Add("DAERAH", 80, HorizontalAlignment.Left)
88.         lv.View = View.Details
89.         lv.GridLines = True
90.         lv.FullRowSelect = True
91.     End Sub
92.     Sub isitabel()
93.         Dim lst As New ListViewItem
94.         lst.Text = kode.Text
95.         lst.SubItems.Add(nama.Text)
96.         lst.SubItems.Add(tipe.Text)
97.         lst.SubItems.Add(hargam3.Text)
98.         lst.SubItems.Add(biayab.Text)
99.         lst.SubItems.Add(jumlahp.Text)
100.         lst.SubItems.Add(totalt.Text)
101.         lst.SubItems.Add(pajak.Text)
102.         lst.SubItems.Add(pembayaran.Text)
103.         lst.SubItems.Add(daerah.Text)
104.         lv.Items.Add(lst)
105.     End Sub
106.     Sub hapus()
107.         kode.Text = ""
108.         nama.Text = ""
109.         tipe.Text = ""
110.         hargam3.Text = ""
111.         biayab.Text = ""
112.         biayab.Text = ""
113.         totalt.Text = ""
114.         pajak.Text = ""
115.         pembayaran.Text = ""
116.         jumlahp.Text = ""
117.         daerah.Text = ""
118.     End Sub
119.  
120.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
121.         isitabel()
122.         hapus()
123.     End Sub
124.  
125.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
126.         lv.Items.Remove(lv.Items(0))
127.     End Sub
128.  
129.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
130.         lv.Items.Remove(lv.Items(0))
131.     End Sub
132. End Class

Read more »