Halo ...!
Sahabat NDRCOPM untuk artikel ini kami akan bahas basic pemograman VB dan contoh sourcode program beserta tampilannya.
Event
Event merupakan suatu kejadian yang akan diterima oleh suatu obyek. Event yang diterima oleh obyek berfungsi untuk menjalankan kode program yang ada di dalam obyek tersebut
Method
Method adalah suatu kumpulan perintah yang memilki kegunaan yang hampir sama dengan suatu fungsi atau prosedur, tetapi perintah - perintah tersebut sudah diselesaikan dalam suatu obyek. Suatu method dipanggil dengan cara menyebutkan nama obyeknya
Jendela Property
Merupakan sebuah jendela yang digunakan untuk menampung nama properti suatu kontrol
Pertemuan materi pertama.....
1.kontrol label,textbox dan button
Code Program
Public Class Latihan1
Dim jurusan As String
Dim kelas, jenjang As String, waktu As Integer
Dim d As Integer = 5
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "TI" Then
TextBox2.Text = "Teknik informatika"
Else
If TextBox1.Text = "SI" Then
TextBox2.Text = "Sistem informasi"
End If
End If
End Sub
End Class
Contoh ke 2
Code Program
Public Class Nandar1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
If Kode.Text = "A" Then
Barang.Text = "Televisi"
Harga.Text = 1500000
ElseIf Kode.Text = "B" Then
Barang.Text = "Tape"
Harga.Text = 500000
ElseIf Kode.Text = "C" Then
Barang.Text = "Parabola"
Harga.Text = 750000
End If
Total.Text = Harga.Text * Jumlah.Text
End Sub
End Class
Lanjutan Materi yang pertama
Setelah di proses hasilnya menjadi berikut
Sintak Program :
Public Class LatihanNandar
Dim jurusan As String
Dim kelas, jenjang As String, waktu As Integer
Dim d As Integer = 5
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "TI" Then
TextBox2.Text = "Teknik Informatika"
Else
If TextBox1.Text = "SI" Then
TextBox2.Text = "Sistem Informasi"
End If
End If
End Sub
Sub proses2()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
proses2()
If TextBox1.Text = "MI" Then
TextBox2.Text = "Manajemen Informatika"
Else
If TextBox1.Text = "TK" Then
TextBox2.Text = "Teknik Komputer"
End If
End If
End Sub
Sub proses3()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
proses3()
ListBox1.Items.Add(TextBox3.Text + "" + TextBox4.Text + "" + TextBox5.Text + "" + TextBox6.Text)
TextBox3.Focus()
hapusproses3()
proses3()
End Sub
Sub hapusproses3()
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End Sub
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If e.KeyChar = Chr(13) Then
TextBox4.Focus()
End If
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If e.KeyChar = Chr(13) Then
TextBox5.Focus()
End If
End Sub
Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress
If e.KeyChar = Chr(13) Then
TextBox6.Focus()
End If
End Sub
Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
If e.KeyChar = Chr(13) Then
TextBox3.Focus()
hapusproses3()
proses3()
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
MessageBox.Show("Apakah anda yakin ingin keluar", "Exit", MessageBoxButtons.OKCancel).ToString()
End
End Sub
End Class
2.Peggunaan For dan DoWhile
Code program:
Public Class Latihan2Nandar
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
ComboBox1.Items.Add(TextBox1.Text)
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
ListBox1.Items.Clear()
For i = 4 To Val(TextBox2.Text)
If i Mod 2 = 0 Then
ListBox1.Items.Add(i * -1)
Else
ListBox1.Items.Add(i)
End If
Next
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim j, u, y As Integer
u = 4
y = 7
ListBox1.Items.Clear()
For j = 4 To Val(TextBox2.Text)
If j Mod u = 0 Then
ListBox1.Items.Add(j)
u = j
Else
If j Mod y = 0 Then
ListBox1.Items.Add(j * -1)
y = j
End If
End If
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim c As Integer
Do While c <= 10
ListBox1.Items.Add(c)
c = c + 1
Loop
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
MessageBox.Show("Anda Yakin Keluar Aplikasi", "Keluar", MessageBoxButtons.YesNoCancel).ToString()
End
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Call tampilnama()
TextBox3.Text = nama
End Sub
Private Sub Latihan2Nandar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class
3.Pemakaian Modul untuk memanggil Program
Code Program
Public Class lat4Hitung
Dim tekan As Boolean
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If tekan = True Then
TextBox3.Text = hasiltambah
TextBox3.Text = hasilkurang
TextBox3.Text = hasilkali
TextBox3.Text = hasilbagi
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MessageBox.Show("Apakah Anda Yakin Keluar", "Exit", MessageBoxButtons.OKCancel).ToString()
End
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
TextBox2.Focus()
End If
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
If e.KeyChar = Chr(13) Then
Button1.Focus()
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
h = TextBox1.Text
b = TextBox2.Text
Call hitung()
tekan = True
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
h = TextBox1.Text
b = TextBox2.Text
Call hitung()
tekan = True
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
h = TextBox1.Text
b = TextBox2.Text
Call hitung()
tekan = True
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
h = TextBox1.Text
b = TextBox2.Text
Call hitung()
tekan = True
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Call tampilnama()
TextBox4.Text = nama
End Sub
End Class
##Code program pada Modul
Module nandare
'variabel public
Public nama As String, hasilkali, hasiltambah, hasilbagi, hasilkurang, h, b As Integer
Sub tampilnama()
nama = "Mr.Iskandar"
End Sub
Sub hitung()
hasiltambah = Val(h) + Val(b)
hasilkurang = Val(h) - Val(b)
hasilkali = Val(h) * Val(b)
hasilbagi = Val(h) / Val(b)
End Sub
End Module
4.Tugas loop pada for
Code Program
Public Class Lat3nandar
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
ListBox1.Focus()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer
For a = 1 To Val(TextBox1.Text)
ListBox1.Items.Add("*" + a.ToString + ",")
ListBox1.Items.Add(a + 1)
If a Mod 4 <> 0 Then
ListBox2.Items.Add(a)
Else
If a Mod 3 = 2 Then
ListBox3.Items.Add(a)
End If
End If
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MessageBox.Show("Apakah Yakin Ingin Keluar??", "Exit", MessageBoxButtons.OKCancel).ToString()
End
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
End Sub
End Class
5.Tugas membuat puzzle
Code Program
Public Class PuzzleNandar
Sub Iskandar()
If Button1.Visible = False Then
Button1.Show()
ElseIf Button2.Visible = False Then
Button2.Show()
ElseIf Button3.Visible = False Then
Button3 .Show ()
ElseIf Button3.Visible = False Then
Button3.Show()
ElseIf Button4.Visible = False Then
Button4.Show()
ElseIf Button5.Visible = False Then
Button5.Show()
Else
Button6.Show()
End If
End Sub
Private Sub PuzzleNandar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Iskandar()
Button6.Hide()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Iskandar()
Button1.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call Iskandar()
Button2.Hide()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call Iskandar()
Button3.Hide()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Call Iskandar()
Button5.Hide()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Call Iskandar()
Button4.Hide()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Call Iskandar()
Button6.Hide()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
MessageBox.Show("Yakin Anda Keluar", "EXIT", MessageBoxButtons.YesNoCancel).ToString()
End
End Sub
End Class
Pada materi selanjutnya
Kita akan membuat data input melalui listview pada suatu aplikasi sebagai
Setelah itu anda masukan sintaknya sebagai berikut
Public Class Form1
Dim isitext(5) As String
Dim item As ListViewItem
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call isicombo()
Call Bersih()
Call tampilan()
End Sub
Sub isicombo() 'untuk manambahkan hasil combobox
ComboBox1.Items.Add("01 Teknik Informatika")
ComboBox1.Items.Add("02 Teknik Komputer")
ComboBox1.Items.Add("03 Sistem Informasi")
ComboBox1.Items.Add("04 Manajemen Informatika")
ComboBox1.Items.Add("05 Komputerasasi Akuntansi")
End Sub
Sub Bersih() 'membersihkan textboxt
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = "01 Teknik Informatika"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'menyimpan data
If Button1.Text = "Tambah" Then
Button1.Text = "Simpan"
Button2.Enabled = "False"
Button3.Enabled = "False"
Button4.Text = "Batal"
TextBox1.Focus()
Else
'menampilkan data yang input
isitext(0) = Trim(TextBox1.Text)
isitext(1) = Trim(TextBox2.Text)
isitext(2) = Trim(TextBox3.Text)
isitext(3) = Trim(TextBox4.Text)
isitext(4) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 2)
item = New ListViewItem(isitext)
ListView1.Items.Add(item)
Call Bersih()
TextBox1.Focus()
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'keluar dari aplikasi
If Button4.Text = "Keluar" Then
Me.Close()
Else
Call Bersih()
Call normal()
End If
End Sub
Sub normal()
'memberikan kondisi normal pada saat isi data
Button1.Text = "Tambah"
Button1.Enabled = "True"
Button2.Text = "Ubah"
Button2.Enabled = "True"
Button3.Text = "Hapus"
Button3.Enabled = "True"
Button4.Text = "Keluar"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'ubah data
If Button2.Text = "Ubah" Then
Button2.Text = "Simpan"
Button1.Enabled = "False"
Button3.Enabled = "False"
Button4.Text = "Batal"
TextBox1.Focus()
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'hapus data dari simpan
If Button3.Text = "Hapus" Then
Button3.Text = "Simpan"
Button1.Enabled = "False"
Button2.Enabled = "False"
Button4.Text = "Batal"
TextBox1.Focus()
End If
End Sub
Sub tampilan()
'menampilkan kolom pada listview
ListView1.View = View.Details
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Telp", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Jurusan", 100, HorizontalAlignment.Center)
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
'memunculkan/mencari data pada textbox1
TextBox1.Text = e.Item.Text
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
TextBox2.Focus()
End If
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
If e.KeyChar = Chr(13) Then
TextBox3.Focus()
End If
End Sub
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If e.KeyChar = Chr(13) Then
TextBox4.Focus()
End If
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If e.KeyChar = Chr(13) Then
ComboBox1.Focus()
End If
End Sub
End Class
Hasil data aplikasi setelah di run sebagai berikut
Selanjutnya materi tambahan untuk memperdalam lagi
Seperti di atas programnya tapi hanya 1 button saja...ya udah langsung aja ya
Setelah itu buat sinatk sebagai berikut
Public Class Form1
'membuat variabel array
Dim listtxt(3) As String
Dim listitem As ListViewItem
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call setlistview()
End Sub
Sub bersih()
'menghapus hasil data
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'memasukan nilai ke array
listtxt(0) = Trim(TextBox1.Text)
listtxt(1) = Trim(TextBox2.Text)
listtxt(2) = Trim(TextBox3.Text)
'untuk memasukan ke listview dari variabel
listitem = New ListViewItem(listtxt)
ListView1.Items.Add(listitem)
Call bersih()
End Sub
'setting kolom listview
Sub setlistview()
ListView1.View = View.Details
'untuk memnentukan kolom
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 400, HorizontalAlignment.Left)
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
'mengambil nilai dari listview
TextBox4.Text = e.Item.Text
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
TextBox2.Focus()
End If
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
If e.KeyChar = Chr(13) Then
TextBox3.Focus()
End If
End Sub
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If e.KeyChar = Chr(13) Then
Button1.Focus()
End If
End Sub
End Class
Dan hasil program tersebut
Pada materi selanjutnya kita akan membuat aplikasi retail di mini market dengan menggunakan VB.net yang koneksi dengan SQL server
Selanjutnya kita masukan coding koneksi ke SQL server sebagai berikut
Imports System.Data
Imports System.Data.Sql
Module konek
Public Database As New OleDb.OleDbConnection
Public nandar As New OleDb.OleDbCommand
Public iskandar As OleDb.OleDbDataReader
Public hasil As String
Public Sub koneksi()
Try
Database.Close()
Database.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Aplikasi_Toko;Data Source=.;"
Database.Open()
nandar.Connection = Database
'MsgBox("Berhasil konek")
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
End Module
Setelah itu lanjut ke coding login sebagai berikut
Public Class Login
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Call data()
MDIParent1.Show()
Me.Visible = False
End Sub
Sub data()
Call koneksi()
nandar.Connection = Database
nandar.CommandType = CommandType.Text
nandar.CommandText = "select * from login where usr='" & Trim(UsernameTextBox.Text) & "'"
iskandar = nandar.ExecuteReader
If iskandar.HasRows = True Then
While iskandar.Read()
If IsDBNull(iskandar("usr")) Then
UsernameTextBox.Focus()
Else
PasswordTextBox.Text = iskandar("pwd")
PasswordTextBox.Focus()
End If
End While
Else
MsgBox("Password anda tidak di temukan", MsgBoxStyle.Critical & MsgBoxStyle.OkOnly, "masuk login"
End If
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
End Class
Berikutnya langsung saja ke coding table yang akan koneksi langsung ke database SQL server berikut codingnya
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call koneksi()
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox1.Focus()
End Sub
Sub normal()
Button1.Text = "&Tambah"
Button1.Enabled = True
Button2.Text = "&Ubah"
Button2.Enabled = True
Button3.Text = "&Hapus"
Button3.Enabled = True
Button4.Text = "&Keluar"
TextBox1.Enabled = True
End Sub
Sub viewdata()
Call koneksi()
nandar.Connection = Database
nandar.CommandType = CommandType.Text
nandar.CommandText = "select * from Master_barang where kd_barang='" & Trim(TextBox1.Text) & "'"
iskandar = nandar.ExecuteReader
If iskandar.HasRows = True Then
hasil = True
Else
hasil = False
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call tambah()
End Sub
Sub tambah()
If Button1.Text = "&Tambah" Then
TextBox1.Text = ""
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
'TextBox1.Enabled = False
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
If TextBox3.Text = "" Then Exit Sub
If TextBox4.Text = "" Then Exit Sub
Call viewdata()
Try
If hasil = "False" Then
Call koneksi()
nandar.Connection = Database
nandar.CommandType = CommandType.Text
nandar.CommandText = "insert into Master_barang(kd_barang,nm_barang,satuan,harga)values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
nandar.ExecuteNonQuery()
Call bersih()
Else
MsgBox("data sudah ada,silahkan cek data yg di input", MsgBoxStyle.Critical, "input data")
TextBox1.Focus()
End If
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "&Keluar" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call ubah()
End Sub
Sub ubah()
If Button2.Text = "&Ubah" Then
TextBox1.Text = ""
Button2.Text = "Simpan"
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "&Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
If TextBox3.Text = "" Then Exit Sub
If TextBox4.Text = "" Then Exit Sub
Try
Call koneksi()
nandar.Connection = Database
nandar.CommandType = CommandType.Text
nandar.CommandText = "update Master_barang set nm_barang='" & Trim(TextBox2.Text) & "' where kd_barang='" & Trim(TextBox1.Text) & "'"
nandar.ExecuteNonQuery()
Call bersih()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapus()
End Sub
Sub hapus()
If Button3.Text = "&Hapus" Then
TextBox1.Text = ""
Button3.Text = "OK Bozz"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "&batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
If TextBox3.Text = "" Then Exit Sub
If TextBox4.Text = "" Then Exit Sub
Try
Call koneksi()
nandar.Connection = Database
nandar.CommandType = CommandType.Text
nandar.CommandText = "delete from Master_barang where kd_barang='" & Trim(TextBox1.Text) & "'"
nandar.ExecuteNonQuery()
Call bersih()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then
If Button1.Text = "Simpan" Then
Call viewdata()
If hasil = False Then
TextBox2.Focus()
Else
MsgBox("kode sudah ada,silahkan ganti kode lain", MsgBoxStyle.Critical & MsgBoxStyle.OkOnly, "informasi")
TextBox1.Focus()
End If
Else
Call koneksi()
nandar.Connection = Database
nandar.CommandType = CommandType.Text
nandar.CommandText = "select * from Master_barang where kd_barang='" & Trim(TextBox1.Text) & "'"
iskandar = nandar.ExecuteReader
If iskandar.HasRows = True Then
While iskandar.Read()
If IsDBNull(iskandar("kd_barang")) Then
TextBox1.Focus()
Else
TextBox2.Text = iskandar("nm_barang")
TextBox3.Text = iskandar("satuan")
TextBox4.Text = iskandar("harga")
TextBox2.Focus()
End If
End While
End If
End If
End If
End Sub
End Class
Setelah semua selesai hasil dapat kita lihat lewat form berikut
Berikut hasil table yang ada di database SQL server
Semoga bermanfaat...
Tidak ada komentar