Minggu, 05 Juni 2011

LOGIN Versi II

Latihan membuat form login dengan sederhana, data langsung di input dalam coding ( bukan dalam database)
Klik kanan pada project yg kita buat >>add>>new item

Pilih windows form>>form login>>add


Maka akan terbentuk sbb :


Klik 2X button OK, kemudian tulis coding berikut :
Public Class LoginForm1
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "aq" And PasswordTextBox.Text = "111" Then
MDIParent1.Show()
Me.Visible = False
Else
MsgBox("login gagal,coba ulangi lagi")
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

Koneksi Visual Studio 2008 ke Database Server

Object Connection merupakan bagian dari Data Provider yang memiliki implementasi spesifik terhadap sumber data, yaitu Class OleDbConnection dan Class SqlConnection. Class OleDbconnection hanya dapat digunakan bila kita telah melakukan atau mengaktifkan import terhadap namespace System.Data.OleDB, sedangkan Class SqlConnection baru dapat kita gunakan bila namespace System.Data.SqlClient telah mengaktifkan import.
OleDbConnection dapat digunakan untuk mengakses berbagai sumber data dari RDBMS seperti Ms. Access, SQL Server, Oracle, MYSQL Server dan lain – lain melalui OLE DB. Sedangkan SqlConnection dapat langsung mengakses SQL Server tanpa terlebih dahulu melewati OLEDB Provider dan data dapat diakses lebih cepat.

Membuat object Koneksi langsung
Untuk melakukan atau membuat object koneksi kedatabase server secara langsung, langkah kerjanya sebagai berikut.
Langkah pertama buatlah project baru, pada contoh kali ini saya akan memberi nama pada project Server Application. Setelah itu buatlah module baru pada project dengan nama mdlkoneksi.vb, kemudian isilah sintaks sesuai dengan berikut :
Imports System.Data
Imports System.Data.Sql

Module Mdlkoneksi
Public S1TI4A As New OleDb.OleDbConnection
Public Tampil As New OleDb.OleDbCommand
Public Tampilkan As OleDb.OleDbDataReader
Public Grid As New OleDb.OleDbDataAdapter
Public DS As New DataSet
Public Table, hasilcek As String
Public Record As New BindingSource
Public noo As Integer
Public DMLSql As New OleDb.OleDbCommand


Public Sub Koneksi()
Try
S1TI4A.Close()
'server
' Database.ConnectionString = "provider =SQLOLEDB.1; Password= ; Persist Security Info=True;"
'User ID=sa; Initial Catalog=sim_akuntansi; Data source = 200.200.10.150 (Lab)

'lokal
S1TI4A.ConnectionString = "Provider=SQLOLEDB.1; Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=S1TI4A;Data Source=."
S1TI4A.Open()
'Tampil.Connection = S1TI4A
MsgBox("Complite")


Catch ex As Exception
'MsgBox(ex.ToString())


End Try
End Sub
End Module


Catatan :
Sebelum membuat sintaks diatas buatlah Database terlebih dahulu, pada contoh diatas Database saya beri nama S1TI4A.
Langkah kedua setelah kita membuat module, berikutnya adalah membuat form untuk memanggil method yang ada pada module.













Pada Button View Data isilah sintaks sebagai berikut :
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Koneksi()

End Sub


Sub jurusan()

Call Koneksi()

Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select * from jurusan"

Tampilkan = Tampil.ExecuteReader

If Tampilkan.HasRows = True Then
While Tampilkan.Read()

If IsDBNull(Tampilkan("kode_jur")) Then
TextBox2.Text = "_"
Else

TextBox2.Text = Tampilkan("nama_jur")
End If
End While

End If

End Sub

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

End Sub
End Class

Selanjutnya jika tidak ada kesalahan pada sintaks diatas maka akan muncul pesan sebagai berikut setelah kita Run.













Pada tahap berikutnya buatlah form kedua dengan tampilan sebagai berikut :






Isilah sintaks sebagai berikut :
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
Button2.Enabled = True
Button3.Enabled = True
TextBox1.Enabled = True
End Sub

Sub cekrecord()
Call Koneksi()

Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select * from Jurusan where kode_jur='" & Trim(TextBox1.Text) & "'"
Tampilkan = Tampil.ExecuteReader

If Tampilkan.HasRows = True Then
hasilcek = True
Else
hasilcek = False
End If


End Sub

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 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
If TextBox2.Text = "" Then Exit Sub
Call cekrecord()
Try
If hasilcek = "False" Then
Call Koneksi()

Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "Insert into Jurusan (kode_jur,nama_jur)values('" & TextBox1.Text & "','" & TextBox2.Text & "')"
Tampil.ExecuteNonQuery()

Call Kosong()

Else
MsgBox("Data sudah ada, silahkan data yang diinput", MsgBoxStyle.Critical, "Input data")

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

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

End Sub
Sub Btubahkelompok()
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

Try
Call Koneksi()

Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = " Update Jurusan set nama_jur ='" & Trim(TextBox2.Text) & "' where kode_jur = '" & Trim(TextBox1.Text) & "'"
Tampil.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 Bthapuskelompok()

End Sub
Sub Bthapuskelompok()
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 Koneksi()

Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = " Delete from Jurusan where kode_jur'" & Trim(TextBox1.Text) & "'"
Tampil.ExecuteNonQuery()

Call Kosong()
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 cekrecord()
If hasilcek = 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()
Tampil.Connection = S1TI4A
Tampil.CommandType = CommandType.Text
Tampil.CommandText = " select * from jurusan where kode_jur ='" & Trim(TextBox1.Text) & "' "
Tampilkan = Tampil.ExecuteReader()

If Tampilkan.HasRows = True Then

While Tampilkan.Read()
If IsDBNull(Tampilkan("kode_jur")) Then
TextBox1.Focus()

End If

TextBox2.Text = Tampilkan("nama_jur")


End While
Else
MsgBox("Data tidak ditemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah Data")

End If


End If
End If
End Sub


End Class

Membuat Laporan pada CristalReport
Langkah pertama buatlah Item baru pada project yaitu dengan cara klik kanan pada nama project kemudian New Item setelah itu pilih Reporting pada common items dan pilih CristalReport, buatlah nama baru kemudiah Add.








Pada Cristal Report gallery pilih Using the Report Wizard dan Standard pada Expert Gallery













Kemudian pada Standard Report Creation Wizard pilih OLE DB (ADO), kliklah dua kali pada make new connection maka akan muncul tampilan sebagai berikut :













Pilihlah Microsoft OLE DB Provider for SQL Server pada OLE DB Provider kemudian next. Karena pada latihan ini adalah connection lokal maka pada Connection Information, Integrated Security kita ceklist dan pada server kita isi dengan titik (.), Database kita isi dengan nama Database yang kita connectikan.













Kemudian Next dan Finish.
Jika telah terkoneksi maka pada standard Report Creating Wizard akan muncul tampilan sebagai berikut :











Kliklah dua kali kemudian next. Lalu akan muncul tampilan sebagai berikut :












Tekan next hingga muncul pada tampilan Report Styles seperti dibawah ini : 












Pilihlah style yang dinginkan, kemudian finish.
Setelah selesai membuat CristalReport maka langkah selanjutnya adalah membuat form baru yang akan kita gunakan untuk melihat entri dari isi CristalReport.