Semangat Belajar......
Disuruh bikin tampilan aplikasi, Alhamdulillah kelar juga, ngentri satu contoh tampilanya ea....
Itu adalah contoh tampilan dari form data supllier, bikin dulu desainya baru codingnya, nah ini dia coding pada masing2 button:
Pada tampilan ini ada 5 button dengan Coding pada tiap – tiap button :
a. Button1 = Save
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click “Event yang kita berikan
If Button1.Text = "SAVE" Then
Button1.Text = "TAMBAH"
Button2.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "BATAL"
Button5.Text = "FIND"
TextBox1.Focus() “Kursor akan otomatis pada Textbox1
Else
isitext(0) = Trim(TextBox1.Text)
isitext(1) = Trim(TextBox2.Text)
isitext(2) = Trim(TextBox3.Text)
item = New ListViewItem(isitext)
ListView1.Items.Add(item) “ data akan ditampilkan pada ListView
Call bersih()
TextBox1.Focus()
End If
Disinilah terjadi pengaturan Enable yaitu tampilan button pada saat diberikan event klik, apakah button akan muncul jika Enable = True dan button akan tidak muncul jika Enable = False . Dengan focus kursor pada Textbox1.
Untuk Sintak isitext(0) = Trim (TextBox1.Text) dengan ketentuan bahwa Array pada kolom pertama di ListView akan diisi oleh data yang berada pada Textbox 1, yang perlu diingat bahwa array dimulai dengan angka 0. Begitu seterusnya sampai pada array kolom yang diinginkan, jangan Lupa untuk mendeklarasikan Array pada kolom ListView terlebih dahulu pada awal Sintak Class.
Dim isitext(3) As String
Yang berarti isitext = nama array ; (3) = jumlah array / kolom ; As string = Tipe data adalah string. Deklarasi yang lain adalah
Dim item As ListViewItem
Yang berarti item adalah nama item – item yang akan muncul pada ListView
Call bersih()
Pada sintak diatas berarti bahwa kita memanggil method bersih yang sebelum telah kita buat pada Sub Class bersih.
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Yang berarti pada kondisi bersih maka isi pada tiap – tiap Textbox akan kosong atau tidak ada data didalamnya.
Pada Form ini jangan lupa untuk buat Sub yang berisi tampilan pada ListView. Tampilan ini akn muncul saat Form diaktifkan.
Sub tampilan()
ListView1.View = View.Details
ListView1.Columns.Add("KD_SUPPLIER", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("NM_SUPPLIER", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("ALAMAT", 200, HorizontalAlignment.Left)
End Sub
Pada sub ini berisi nama – nama kolom yang akan muncul pada ListView dengan pengaturan ( Nama kolom , Panjang kolom , jenis tata letak huruf, Letak rata huruf ) .
Sintak ini akan dipanggil ketika mengaktifkan Form dengan cara klik 2 kali pada form dan pilih Event Activated pada kolom event.
Private Sub Data_Supplier_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Activated
Call bersih()
Call tampilan()
End Sub
b. Button2 = Edit
Pada Button ini hanya terjadi pengaturan Enable yaitu tampilan button pada saat diberikan event klik, apakah button akan muncul jika Enable = True dan button akan tidak muncul jika Enable = False dikarenakan materi yang disampaikan belum pada edit data di database.
If Button2.Text = "EDIT" Then
Button2.Text = "SIMPAN"
Button1.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "BATAL"
TextBox1.Focus()
End If
c. Button3 = Hapus
Private Sub Button3_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles Button3.Click
Call bersih()
End Sub
Dimana telah dijelaskan sebelumnya tentang method bersih maka pada button ini hanya berisi pemanggilan method beersih untuk mengosongkan isi pada Textbox.
d. Button4 = Keluar
If Button4.Text = "KELUAR" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
Pada button ini dijelaskan jika text pada button “Keluar” maka akan terjadi Me.close yaitu Form akan menutup dengan sendirinya atau keluar dari aplikasi, jika terhubung dengan form Menu maka akan kembali pada form Menu.
Untuk call normal buatlah terlebih dulu Sub pada Class yang sama sub normal dengan isi enable dari tiap – tiap button.
Sub normal()
Button1.Text = "SAVE"
Button1.Enabled = "true"
Button2.Text = "EDIT"
Button2.Enabled = "true"
Button3.Text = "HAPUS"
Button3.Enabled = "true"
Button4.Text = "KELUAR"
Button4.Enabled = "true"
Button5.Text = "FIND"
End Sub
e. Button5 = Find
Pada button ini penulis belum mengisi sintak dikarenakan materi yang belum mencukupi.
Nah Nie Coding utuhnya:
Public Class Data_Supplier
Dim item As ListViewItem
Dim isitext(3) As String
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox4.Text = e.Item.Text
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
Sub tampilan()
ListView1.View = View.Details
ListView1.Columns.Add("KD_SUPPLIER", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("NM_SUPPLIER", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("ALAMAT", 200, HorizontalAlignment.Left)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "SAVE" Then
Button1.Text = "TAMBAH"
Button2.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "BATAL"
Button5.Text = "FIND"
TextBox1.Focus()
Else
isitext(0) = Trim(TextBox1.Text)
isitext(1) = Trim(TextBox2.Text)
isitext(2) = Trim(TextBox3.Text)
item = New ListViewItem(isitext)
ListView1.Items.Add(item)
Call bersih()
TextBox1.Focus()
End If
End Sub
Sub normal()
Button1.Text = "SAVE"
Button1.Enabled = "true"
Button2.Text = "EDIT"
Button2.Enabled = "true"
Button3.Text = "HAPUS"
Button3.Enabled = "true"
Button4.Text = "KELUAR"
Button4.Enabled = "true"
Button5.Text = "FIND"
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
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
If Button2.Text = "EDIT" Then
Button2.Text = "SIMPAN"
Button1.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "BATAL"
TextBox1.Focus()
Else
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call bersih()
End Sub
Private Sub Data_Supplier_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call tampilan()
End Sub
End Class
Gampang2 susah ea......semua akan gampang klo kita menikmatinya.....
Klo ada yang mo nambahin boleh dech....^_^
Ditunggu sharenya ea.......
Tidak ada komentar:
Posting Komentar