Login Form VB.net

MEMBUAT LOGIN VB.Net
Berikut adalah cara untuk membuat login pada VB.net
• Membuat login pada VB.net
• Klik kanan pada project yang dibuat
• Add -> New item-> login form

• Klik 2x pada tombol ok
• Masukan sintax
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "robby" And PasswordTextBox.Text = "ganteng" Then
MDIParent1.Show()
Me.Visible = False
Else
MsgBox("login gagal,coba ulangi lagi")
End If
End Sub
* Lalu jalankan / running program tersebut
* Masukan username “robby” dan password “ganteng”

• Jika sudah bisa login dan muncul MDI Parent Form maka Login telah selesai.
• Selamat mencoba……

Tampilan Menu ( MDI Parent Form)

MEMBUAT MDI PARENT FORM ( TAMPILAN MENU ) VB.NET
• Membuat tampilan menu pada vb.net
• Klik kanan projek->Add->New Item-> pilih “MDI Parent Form”
• Maka tampil seperti ini

• Kemudian ubah nama menu tersebut sesuai nama yang akan ditampilkan.

• Kemudian klik 2x, untuk mengganti sintaxnya
Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
Form1.Show()
End Sub
• Kemudian running Mdi Parent Form tersebut

• Jika sudah tampil seperti diatas maka form MDI Parent Form telah selesai
• Selamat mencoba……

Cristal Report VB.Net

LANGKAH DALAM MEMBUAT CRISTAL REPORT DALAM VB.NET

Langsung saja pada, inti dari tutorial yang Saya ( Robby ) buat. Simak baik-baik………
Untuk membuat report langkah yang harusa kita lakukan adalah
• Klik Kanan pada project yang dibuat -> Add-> New Item
• Kemudian pilih Reporting-> Cristal Report
• Maka akan muncul tampilan seperti berikut.

• Kemudian pilih ok
• Lakukan langkah berikut. Pilih Create New Connection-> Ole Db (Ado)

Materi VB

MATERI VB

Dalam membuat program kita biasa menggunakan database. Sebagai koneksi kita menggunakan module yang dibuat untuk mengkoneksikan dengan database Membuat modul koneksi dengan database adalah sebagai berikut :

Imports System.Data
Imports System.Data.Sql
Module koneksi
Public database As New OleDb.OleDbConnection
Public tampil2 As New OleDb.OleDbCommand
Public tampilkan As OleDb.OleDbDataReader
Public hasilcek As String

Public Sub bukakoneksi()
database.Close()
Try
database.ConnectionString = "provider=sqloledb.1;integrated security=SSPI;persist security info=false; initial catalog=cobasql;data source=."
database.Open()
MessageBox.Show("Koneksi kedatabase berhasil")
Catch ex As Exception
MessageBox.Show("koneksi gagal")
End
End Try
End Sub
End Module

Kemudian membuat sintax seperti ini dalam form yang baru.
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampilkan = tampil2.ExecuteReader

If tampilkan.HasRows = True Then
While tampilkan.Read()
If IsDBNull(tampilkan("kdjur")) Then
TextBox2.text = tampilkan("nmjur")
Else
TextBox2.Text = tampilkan("nmjur")
End If
End While
End If
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

kemudian membuat tampilan formnya sebagai berikut ;

Dan dilanjutkan dengan membuat sintax selanjutnya pada form baru selanjutnya ;

Public Class Form2
Sub kosong()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End Sub
Sub netral()
Button1.Text = "Tambah"
Button2.Text = "Ubah"
Button3.Text = "Hapus"
Button4.Text = "Keluar"
Button1.Enabled = True 'enable=funsi aktif/tdaknya sebuah objek
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
End Sub
Sub celrecord()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampilkan = tampil2.ExecuteReader
If tampilkan.HasRows = True Then ''ada atau tidak recod yg dimaksukkan
hasilcek = True
Else
hasilcek = False
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call simpankelompok()
End Sub
Sub simpankelompok()
If Button1.Text = "Tambah" Then
TextBox1.Text = ""
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub ''then exit sub = keluar dari sub class dgan syarat textbox harus diisi/pengecekan validasi
If TextBox2.Text = "" Then Exit Sub
Call celrecord()
Try
If hasilcek = "False" Then
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Insert into Jurusan (kdjur,nmjur)values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
tampil2.ExecuteNonQuery()
Call kosong()
Else
MsgBox("Data sudah ada , silahkan cek data yang akan diinput ", MsgBoxStyle.Critical, "Input data") ''critical = ! dalam msgbox
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 kosong()
Call netral()
End If
End Sub
Sub ubahkelompok()
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 ''then exit sub = keluar dari sub class dgan syarat textbox harus diisi/pengecekan validasi
If TextBox2.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Update Jurusan set nmjur='" & TextBox2.Text & "'where kdjur='" & TextBox1.Text & "'"
tampil2.ExecuteNonQuery()
Call kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call ubahkelompok()
End Sub
Sub hapuskelompok()
If Button3.Text = "Hapus" Then
TextBox1.Text = " "
Button3.Text = "Ok"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Delete from Jurusan where kdjur='" & Trim(TextBox1.Text)&"'"
tampil2.ExecuteNonQuery()
Call kosong()
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 hapuskelompok()

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 celrecord()
If hasilcek = False Then
TextBox2.Focus()
Else
MsgBox("Kode Sudah ada, silahkan ganti kode lain", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Informasi")
tampilkan = tampil2.ExecuteReader
End If
Else
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " select* from Jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()

If tampilkan.HasRows = True Then
While tampilkan.Read()
If (IsDBNull(tampilkan("kdjur"))) Then
TextBox1.Focus()
Else
TextBox2.Text = tampilkan("nmjur")
TextBox2.Focus()
End If
End While
Else
MsgBox("Data tidak diketemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah Data")
End If
End If
End If
End Sub

End Class

kemudian membuat tampilan formnya lagi sebagai berikut :

maka program selesai dan jangan lupa dibuat database terlebih dahulu dengan menggunakan SQL Server 2000. Untuk keterangan selanjutnya akan dibahas pada posting / update yang akan datang berikutnya…… tunggu tanggal mainnya…..

Program VB.net eps UTS

PROGRAM PERPUSTAKAAN DENGAN VB.NET

Program perpustakaan dibuat agar mempermudah seorang pustakawan dalam menjaga buku-buku yang terdapat dalam perpustakaan tersebut. Agar mempermudah menjaga dibuat program yang mencakup dalam beberapa form antara lain berupa form anggota, form buku, dan form transaksi peminjamannya.
FORM MENU
Untuk mempermudah dalam melakukan aktifitas dalam program maka dibuatlah menu yang merupakan kumpulan dari beberapa form yang terdapat dalam program tersebut. Menu tersebut terdapat beberapa button yang mengarahkan kita untuk melakukan sesuatu dengan program tersebut. Juga dilengkapi dengan button keluar jika proses kegiatan perpustakaan telah selesai dilakukan. Berikut merupakan tampilan dari form menu yang dibuat dengan besertakan syntax program yang akan membuat semua button berfungsi sebagaimana seharusnya yang kita inginkan.

Public Class Form2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form5.Show()
Hide()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form3.Show()
Hide()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Data_Transaksi_Peminjaman.Show()
Hide()
End Sub
End Class

FORM ANGGOTA PERPUSTAKAAN
Form ini dibuat untuk mencatat data identitas dari para anggota yang mendaftar pada perpustakaan tersebut, sehingga siapapun yang meminjam buku dapat diketahui siapa yang meminjam buku tersebut. Dengan kata lain form ini membantu kita untuk menambah jumlah anggota yang terdaftar dan juga dapat melihat data nama anggota perpustakaan yang sudah mendaftar. From ini hanya terdapat beberapa textbox , label, listview, button seperti yang terlihat pada gambar tersebut. Kita memasukan beberapa identitas pada textbox kemudian tekan button simpan jika ingin disimpan, tambah jika ngin menambah lagi, hapus untuk menghapus data. Dan button kembali untuk kembali ke form utama / menu. Dan syntax form tersebut terdapat dibawah form yang hanya bersifat penyimpanan sementara atau tidak menggunakan database yang dapat simpan terus. Jika program ditutup maka data yang sudah diinput akan hilang dengan sendirinya.

Public Class Form5

Dim isitex(6) As String
Dim Item As ListViewItem
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapus()
End Sub
Sub hapus()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call hapus()
TextBox1.Focus()
End Sub
Sub Tabel()
ListView1.View = View.Details
ListView1.Columns.Add("No.Anggota", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("NIS", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Kota", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Telpon", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Keterangan", 100, HorizontalAlignment.Left)
End Sub

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call Tabel()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

isitex(0) = Trim(TextBox1.Text)
isitex(1) = Trim(TextBox2.Text)
isitex(2) = Trim(TextBox3.Text)
isitex(3) = Trim(TextBox4.Text)
isitex(4) = Trim(TextBox5.Text)
isitex(5) = Trim(TextBox6.Text)
isitex(6) = Trim(TextBox7.Text)

Item = New ListViewItem(isitex)
ListView1.Items.Add(Item)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Form2.Show()
Hide()
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub

End Class

FORM BUKU PERPUSTAKAAN
Pada form ini kita dapat memasukan beberapa data / identitas dari buku-buku baru yang diinput ke dalam perpustakaan sehingga dapat diketahui jumlah buku dan jenis apa saja buku yang ada di perpustakaan tersebut. Dalam form ini terdapat beberapa identitas yang cukup detail tentang buku yang masuk, sehingga mempermudah dalam menemukan buku yang dimaksud dan mudah mengetahui tentang buku tersebut. Pada form ini hampir sama dengan form anggota sebelumnya yang terdapat textbox, label, panel, listview, button. Dan juga terdapat button yang berfungsi. Kita memasukan beberapa identitas pada textbox kemudian tekan button simpan jika ingin disimpan, tambah jika ngin menambah lagi, hapus untuk menghapus data. Dan button kembali untuk kembali ke form utama / menu. Dan syntax form tersebut terdapat dibawah form yang hanya bersifat penyimpanan sementara atau tidak menggunakan database yang dapat simpan terus. Jika program ditutup maka data yang sudah diinput akan hilang dengan sendirinya.

Public Class Form3
Dim isitex(6) As String
Dim Item As ListViewItem
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

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()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call hapus()
TextBox1.Focus()
End Sub
Sub Tabel()
ListView1.View = View.Details
ListView1.Columns.Add("ID Buku", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Judul", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Pengarang", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tahun", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Penerbit", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Jumlah Halaman", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Keterangan", 100, HorizontalAlignment.Left)
End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

End Sub

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call Tabel()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

isitex(0) = Trim(TextBox1.Text)
isitex(1) = Trim(TextBox2.Text)
isitex(2) = Trim(TextBox3.Text)
isitex(3) = Trim(TextBox4.Text)
isitex(4) = Trim(TextBox5.Text)
isitex(5) = Trim(TextBox6.Text)
isitex(6) = Trim(TextBox7.Text)

Item = New ListViewItem(isitex)
ListView1.Items.Add(Item)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Form2.Show()
Hide()
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub
End Class

FORM DATA TRANSAKSI PINJAMAN
Pada form transaksi ini dibuat untuk melakukan transaksi peminjaman yang terjadi dalam perpustakaan tersebut, pada form ini terdapat identitas anggota berupa no. anggota juta terdapat identitas buku berupa id. Buku, no tranksaksi dan lainnya. Form ini hampir sama dengan yang sebelumnya hanya saja ada beberapa tambahan berupa pemasukan tanggal pinjam dan tanggal kembali yang menggunakan tambahan toolbox yang berfungi dapat penggunaan tanggal tersebut. Berikut cara penggunaan pada form berikut ini Kita memasukan beberapa keterangan-keterangan yang dibutuhkan pada textbox jika terjadi peminjaman agar peminjaman itu bisa di perlihatkan di saat dibutuhkan dan pilih tanggal pinjam dan tanggal kembali kemudian tekan button simpan jika ingin disimpan, tambah jika ngin menambah lagi, hapus untuk menghapus data. Dan button kembali untuk kembali ke form utama / menu. Dan syntax form tersebut terdapat dibawah form yang hanya bersifat penyimpanan sementara atau tidak menggunakan database yang dapat simpan terus. Jika program ditutup maka data yang sudah diinput akan hilang dengan sendirinya.

Public Class Data_Transaksi_Peminjaman
Dim isitex(8) As String
Dim Item As ListViewItem
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapus()
End Sub
Sub hapus()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call hapus()
TextBox1.Focus()
End Sub
Sub Tabel()
ListView1.View = View.Details
ListView1.Columns.Add("No.Transaksi", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No. Anggota", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("ID. Buku", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tanggal Pinjam", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tanggal Kembali", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Lama Pinjam", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Jumlah Buku", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Keterangan", 100, HorizontalAlignment.Left)

End Sub

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call Tabel()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Val(TextBox4.Text) < 7 Then
TextBox6.Text = Val(TextBox4.Text) * 2500
End If

isitex(0) = Trim(TextBox1.Text)
isitex(1) = Trim(TextBox2.Text)
isitex(2) = Trim(TextBox3.Text)
isitex(3) = Trim(DateTimePicker1.Text)
isitex(4) = Trim(DateTimePicker2.Text)
isitex(5) = Trim(TextBox4.Text)
isitex(6) = Trim(TextBox5.Text)
isitex(7) = Trim(TextBox6.Text)

Item = New ListViewItem(isitex)
ListView1.Items.Add(Item)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Form2.Show()
Hide()
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub

Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class