Login Form VB.NET 2008 dan SQL Server
Tahap Pertama
Disini saya asumsikan anda sudah sukses menginstall sql server 2005, baiklah buka sql server 2005 anda. Pada halaman tampilan pilih konek dan pada jendela Object Explorer klik kanan Database pilih New Database, berinama project �dblatihan� lalu klik OK.
Pada tabel beri nama tabel dengan �Login� dan berikan value. Jika sudah anda klik kanan Open Table pada tabel Login dan silahkan isi seperti gambar dibawah.
Tahap Kedua
Buka Visual Studio 2008 anda dan buat project baru beri nama dengan �Aplikasi�. Pada menu pilih Data > Add New Data Source > Database. Klik Next dan pilih New Connection. Pada Jendela Data Source ganti dengan dengan klik change menggunakan Microsoft SQL Server dan set seperti pada gambar dibawah, klik test connection dan jika berhasil akan keluar pesan �Test Connection Succedeed� lalu klik OK.
Selanjutnya untuk pengaturan connection string berikan nama seperti berikut.
Pada menu selanjutnya conteng pada bagian tabel dan klik ok. Pada gambar dibawah adalah hasil Konfigurasi SQL Server.
Tahap Ketiga
Pada form kerja anda ganti Form1 menjadi �Login� pada properti (name). Desain tampilan login anda kurang lebih seperti gambar berikut.
Properti kontrol:
Text | Name | keterangan | |
Form | LOGIN | Login | BackColor = LightCyan |
Panel | Panel1 | BackColor = LightSeaGreen, Dock = Top | |
PictureBox | PictureBox1 | Gambar Login User | |
Label | Halaman Login Menu | Label1 | |
Label | &Nama User | Label2 | |
Label | &Password | Label3 | |
ComboBox | Combobox1 | DropDownStyle = DropDownList | |
Textbox | PasswordTextBox | ||
Button | &OK | btnOk | |
Button | &Batal | btnBatal |
Buat sebuah module, Project > Add Module > beri nama �ModuleDb�
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Imports System.Data.SqlClient 'Module Database Module Moduledb Public fr As New Windows.Forms.Form Public SQLConn As New SqlConnection(Aplikasi.My.Settings.MyKoneksi) 'Hasil dari connection string Public SQLComm As New SqlCommand Public nmUS As String Public Sub PerintahSQL( ByVal S As String ) SQLComm = New SqlCommand(S, SQLConn) SQLComm.CommandType = CommandType.Text SQLComm.ExecuteNonQuery() End Sub End Module |
Silahkan beralih pada jendela Form Login. Silahkan anda tambahkan source berikut
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 | '---------------------------------- '---------------------------------- Public Class Login Dim Conn As New SqlClient.SqlConnection(Aplikasi.My.Settings.MyKoneksi) Dim Comm As New SqlClient.SqlCommand Private Sub IsiUser() 'Pilih data dari tabel Login Dim Str As String = "SELECT * from Login where Status <> 1" SQLConn.Open() PerintahSQL(Str) 'Baca data Dim bacaan1 As SqlClient.SqlDataReader = SQLComm.ExecuteReader(CommandBehavior.CloseConnection) Me .ComboBox1.Items.Clear() Me .ComboBox1.ResetText() Do While bacaan1.Read Me .ComboBox1.Items.Add(bacaan1(0)) Loop SQLConn.Close() End Sub Private Sub btnOk_Click( ByVal sender As System. Object , ByVal e As System.EventArgs) Handles btnOk.Click 'Jika nilai combobox1 kosong tampilkan pesan If Me .ComboBox1.Text = "" Then MessageBox.Show( "Nama User belum dipilih" , "Username" , MessageBoxButtons.OK, MessageBoxIcon. Stop ) Me .ComboBox1.Focus() Exit Sub End If 'jika nilai Passowrd kosong tampilkan pesan If Me .PasswordTextBox.Text = "" Then MessageBox.Show( "Password belum dimasukkan" , "Password" , MessageBoxButtons.OK, MessageBoxIcon. Stop ) Me .PasswordTextBox.Focus() Exit Sub End If 'Pilih dari tabel Login Dim ss As String = "SELECT * from Login where [User]='" & Me .ComboBox1.Text & "'" SQLConn.Open() PerintahSQL(ss) Dim baca As SqlClient.SqlDataReader = SQLComm.ExecuteReader(CommandBehavior.CloseConnection) If baca.Read Then Dim ak As Integer ak = 1 'Proses data, cek password dari database dan jika password tidak sesuai tampilkan pesan If (baca( "Password" )) = Me .PasswordTextBox.Text Then Me .Close() nmUS = Me .ComboBox1.Text SQLConn.Close() Else MessageBox.Show( "Password yang Anda masukkan salah" , "Password" , MessageBoxButtons.OK, MessageBoxIcon. Stop ) Me .PasswordTextBox.Focus() Me .PasswordTextBox.SelectAll() SQLConn.Close() Exit Sub End If End If SQLConn.Close() End Sub Private Sub Cancel_Click( ByVal sender As System. Object , ByVal e As System.EventArgs) Handles btnBatal.Click Application. Exit () End Sub Private Sub LoginForm1_Load( ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load Try SQLConn.Open() Catch EX As Exception MessageBox.Show( "Informasi" & vbCrLf & EX.Message) 'MessageBox.Show("Server SQL tidak aktif, atau identitas ditolak", "Periksa Koneksi Server", MessageBoxButtons.OK, MessageBoxIcon.Stop) Application. Exit () Exit Sub Finally SQLConn.Close() 'Application.Exit() End Try IsiUser() End Sub End Class |
Tambahkan Form baru, Project > Add Windows Form > beri nama �FMDI�. Pada propertiismdicontainer = true. Double klik form FMDI maka akan masuk pada jendela kode pada objek form load. Silahkan anda tambahkan parameter berikut, sehingga akan tampil seperti pada gambar pertama paling atas artikel ini.
1 2 3 4 5 6 | SQLConn.ConnectionString = Aplikasi.My.Settings.MyKoneksi Me .Cursor = Cursors.WaitCursor 'Parameter fr silahkan lihat pada File ModuleDb fr = New Login fr.ShowDialog() Me .Cursor = Cursors. Default |
Sekian panduan membuat Form Login menggunakan SQL Server 2005 dan Visual Studio 2008. Bila ada kekurangan dan lain hal sebagainya penulis meminta maaf sebelumnya. Sekian dan terima kasih
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :