Program Penjualan Dengan Visual Basic 2010 #2
- 25
- Jun
Sambuangan dari Program Penjualan Dengan Visual Basic 2010
Membuat From Input Customer
Tambahkan form baru dengan menekan Ctrl+Shift+A pada keyboard pada tab Instaled Tempelates pilih Windows Form kemudian pilih Windows Form dan klik button Add, setelah di tambahkan form baru pada form tersebut tambahkan beberapa textbox, label, dan button yang ada pada panel toolbox susun sedemikian rupa sehingga terlihat seperti berikut :
Form Pelanggan
kemudian atur properti dari :
- Form
- (Name) menjadi FormPelanggan dan pada Panel Solution Explorer rename form tersebut menjadi FormPelanggan.vb
- MaximizeBox menjadi False
- MinimizeBox menjadi False
- StartPotition menjadi CenterScreen
- Text menjadi Input Data Pelanggan
- ShowTaskbar menjadi False
- Label1
- BackColor menjadi 0; 73; 255
- ForeColor menjadi White
- Text menjadi Input Data Pelanggan
- TextAlign menjadi MiddleCenter
- Font -Size, Bold menjadi 12, True
- Label2 dan seterusnya atur pada properties Textnya sesuai konteks masing-masing, misal label2
- Text menjadi Kode Customer*
- Button1
- Text Menjadi Save
- Khusus untuk textbox Keterangan dan Alamat
- Properties Multiline Menjadi True
- Properties ScrollBar Menjadi Both
Setelah selesai mengatur tampilan dari Form Pelanggan Selanjutnya adalah mengisi script event KeyDown pada setiap textbox dengan alur kerja sebagai berikut : ketika posisi kursor berada pada textbox1 kemudian di tekan tombol Enter pada keyboard, kursor akan beralih posisi ke pada textbox2, apabila posisi kursor berada pada texbox2 kemudian ditekan tombol Enter kursor akan beralih ke textbox3 dan seterusnya sampai menjalankan evenclick pada button Save(textbox1 ke textbox2, textbox2 ke textbox3, textbox3 ke textbox4, textbox4 ke textbox5, textbox5 ke textbox6, textbox6 ke textbox7, textbox7 ke textbox8, textbox8 ke textbox9, textbox9 ke button save(menjalankan event Click pada button save)). Berikut Script yang dimasukkan pada event KeyDown pada tiap-tiap textbox kecuali textbox terakhir(Keterangan) dan mengganti object tujuan/textbox yang dituju(texbox2.focus())
If e.KeyCode = Keys.Enter Then TextBox2.Focus()
Script dari event KeyDown pada textbox1
Private Sub TextBox1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then TextBox2.Focus()
End Sub
Script dari event KeyDown pada textbox9(keterangan)
Private Sub TextBox9_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox9.KeyDown
If e.KeyCode = Keys.Enter Then Button1_Click(sender, e)
End Sub
Selanjutnya adalah mengisi script dari event Click pada button1(Save), tapi sebelum memasukan script terlebih dahulu membuat script function updatedata, addcustomer, dan aquery. Fuction updatedata digunakan untuk menjalankan/mengeksekusi pecahan sql yang dihasilkan dari function addcustomer, sedangkan function addcustomer sendiri adalah script sql yang digunakan untuk mengisi nilai/value dari tabel pelanggan pada MySql Database dan untuk function aquery merupakan proses query yang akan dijalankan ketika kursor meninggalkan textbox1, proses ini akan mencoba mendapatkan nilai/value dari record field dari tabel yang ada pada MySql Database yang nilainya sama dengan textbox1(kode_customer) yang digunakan untuk pencegahan duplikasi nilai record.
Untuk menulis script tersebut buka Pustaka_code.vb yang telah dibuat sebelumnya dengan cara klik Panel Solution Explorer pilih Pustaka_code.vb kemudian klik kanan dan pilih View Code. Tulis script berikut kedalam modul Pustaka_code :
Function updatedata
Public sqlcmd As String
Function updatedata() As Boolean
Try
If x.State <> 1 Then x.Open()
Dim mycmd As New MySqlCommand(sqlcmd, x)
If mycmd.ExecuteNonQuery() = 1 Then
Return True
Else
Return False
End If
Catch myerror As MySqlException
MsgBox(myerror.Message & ” : “ & myerror.Number, MsgBoxStyle.Critical, )
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, )
Finally
x.Dispose()
End Try
End Function
Function addcustomer
Function addcustomer(ByVal tabel As String, ByVal kode_customer As String, ByVal nama_customer As String, ByVal alamat As String, ByVal kota As String, ByVal contact_person As String, ByVal no_telp As String, ByVal no_hp As String, ByVal email As String, ByVal keterangan As String) As Boolean
If (sqlcmd = “”) Then
sqlcmd = “INSERT INTO “ & tabel _
& “(kode_customer,” _
& ” nama_customer,” _
& ” alamat,” _
& ” kota,” _
& ” contact_person,” _
& ” no_telp,” _
& ” no_hp,” _
& ” email,” _
& ” keterangan)” _
& ” VALUES (“ _
& “‘” & kode_customer & “‘,” _
& “‘” & nama_customer & “‘,” _
& “‘” & alamat & “‘,” _
& “‘” & kota & “‘,” _
& “‘” & contact_person & “‘,” _
& “‘” & no_telp & “‘,” _
& “‘” & no_hp & “‘,” _
& “‘” & email & “‘,” _
& “‘” & keterangan & “‘);”
Return True
Else
Return False
End If
End Function
Function aquery
Public myReader As MySqlDataReader
Function aquery() As Boolean
Try
If x.State <> 1 Then x.Open()
Dim mycmd As New MySqlCommand(sqlcmd, x)
myReader = mycmd.ExecuteReader()
If myReader.HasRows = True Then
Return True
Else
myReader.Close()
x.Dispose()
Return False
End If
Catch myerror As MySqlException
MsgBox(myerror.Number, MsgBoxStyle.Critical, )
End Try
End Function
Setelah Fuction-function tersebut selesai dibuat selanjutnya adalah mengisi script dari even click pada button save. Adapun scriptnya sebagai berikut :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If addcustomer(“pelanggan”, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, TextBox8.Text, TextBox9.Text) Then
If updatedata() = True Then
MsgBox(“Update data Succses.”, MsgBoxStyle.Information, )
TextBox1.Text = “”
TextBox2.Text = “”
TextBox3.Text = “”
TextBox4.Text = “”
TextBox5.Text = “”
TextBox6.Text = “”
TextBox7.Text = “”
TextBox8.Text = “”
TextBox9.Text = “”
End If
End If
sqlcmd = “”
ActiveControl = TextBox1
End Sub
dan event Leave pada textbox1(kode_customer) yang digunakan untuk pengecekan duplikasi nilai/value(primary key) pada tabel pelanggan :
Private Sub TextBox1_Leave(sender As System.Object, e As System.EventArgs) Handles TextBox1.Leave
sqlcmd = “SELECT * FROM pelanggan WHERE (kode_customer = ‘” + TextBox1.Text + “‘)”
If aquery() = True Then
MsgBox(“Duplikasi Kode Barang !”, MsgBoxStyle.Critical, )
ActiveControl() = TextBox1
TextBox1.SelectAll()
sqlcmd = “”
x.Dispose()
Refresh()
Else
sqlcmd = “”
x.Dispose()
Refresh()
End If
End Sub
Script pada Form Pelanggan telah selesai dibuat, Klik File > Save All dan kemudian tekan F5 pada keyboard untuk mencoba hasil coding yang telah ditulis sebelumya. Bersambung,….di Program Penjualan Dengan Visual Basic 2010 #3
[...] isikan server mysql(Localhost/127.0.0.1=local), username dan password dari mysql dan klik login. Bersambung,….di Program Penjualan Dengan Visual Basic 2010 #2 Tweet Post Tagged with 2010, Database, MySQL, penjualan, program, source code, studio, [...]
[...] Sambuangan dari Program Penjualan Dengan Visual Basic 2010 #2 [...]