Form LogIn DataBase MySql VB.Net 2008

·             Untuk pertama kalinya silahkan buatlah database Login terlebih dahulu pada database kali ini saya beri nama dengan dblat.Program database digunakan kali ini adalah dengan menggunakan Wampserver, anda bisa mendownloadnya pada internet.

·               Create database dblat;

·              Kemudian silahkan ketikan pada gambar dibawah ini untuk membuat tabel login dengan nama tabel loguser.

·                Install juga mysql-connector yang sesuai dengan VB.Net yang anda gunakan. disini saya memakai mysql-connector-net-6.2.4.  untuk koneksi database ke form login.

·                Kemudian Klik menu project lalu pilih add reference dan pilih Mysql.data, seperti gambar dibawah ini :

Kemudian Desain Form LogIn seperti berikut :

·       •           Klik menu project lalu pilih add windows form, form2 untuk menampilkan form apabila form1 berhasil terkoneksi.
•      Buat modul pada VB.NET, Klik menu project lalu pilih add module dan ketikan coding berikut:
Module Module1
    Public strkon As String = "Server=localhost;user id=root;database=dblat"
   End Module


 Berikut adalah coding form Login:

 Imports MySql.Data.MySqlClient

 Public Class Form1
    Dim kon As New MySqlConnection(strkon)
    Dim perintah As New MySqlCommand
    Dim cek As MySqlDataReader

    ' enter untuk membuat kursor pada textbox menjadi berurutan
    ' ------------------------------------------------------
    Private Sub txtuserid_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtuserid.KeyDown
        Select Case e.KeyCode
            Case Keys.Enter
                txtpassword.Focus()
        End Select
    End Sub

    Private Sub txtpassword_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtpassword.KeyDown
        Select Case e.KeyCode
            Case Keys.Enter
                Button1.Focus()
        End Select
    End Sub

    ' button2
    ' -------------------------------------------------------

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
    ' button2
    ' -------------------------------------------------------
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        kon.Open()
        perintah.Connection = kon
        perintah.CommandType = CommandType.Text
        perintah.CommandText = "SELECT * from loguser where userpass=MD5('" & txtpassword.Text & "')and username='" & txtuserid.Text & "'"
        cek = perintah.ExecuteReader
        cek.Read()
        If cek.HasRows Then
            Form2.Show()
            Me.Hide()
        Else
            MsgBox("maaf, user dan password salah")
        End If
        cek.Close()
        kon.Close()
        txtpassword.Text = ""
    End Sub

 'double click timer1 untuk membuat label menjadi warna-warni setting timer enabled=true dan interval = 100
  '---------------------------------------------------------------------------------
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label3.ForeColor = System.Drawing.ColorTranslator.FromOle(RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255))
    End Sub

 End Class

Form LogIn VB.Net dengan Sql Server 2005

Kali ini kita akan membuat Login Form, pertama-tama siapkan di Sql Server sebuah database testing dan tabel bernama tbl_user. Kurang lebih berikut penampakan tbl_user....

buat Project baru di VB.Net 2008 anda dan buat form login seperti berikut ini :

Buat juga 1 form yang akan dituju bila proses login berhasil. Tampilan form tersebut bebas saja, kalau bisa Form MDI Parrent saja yg di tuju . Berikut adalah kode untuk proses login yang akan kita gunakan :

cmd.Connection = koneksi
 cmd.CommandText = "SELECT * FROM tbl_user WHERE myuser = '" & TextBoxUser.Text & "' and mypass = '" & TextBoxPass.Text & "'"
 dtReader = cmd.ExecuteReader
 If (dtReader.Read()) Then
 MDIParrent1.Show()
 Else
 MsgBox("Maaf, Username dan Password tidak Ditemukan....!", MsgBoxStyle.OkOnly, "Login Gagal")
 End If

Silahkan download sample kode program login ini diakhir postingan ini. Jangan lupa untuk mengganti nama server SQL Servernya dengan nama server SQL Server di komputer / laptop anda. :-) :-)
Cekidoot...

Download Form Login Sql Server

Membuat Crystal Report dengan Sql Srver

Pertama-tama buat database di SQL Server dan beri nama testing. Kemudian buat tabel tbl_buku seperti berikut ini : (Script SQL dapat didownload di akhir postingan)

Buat project baru VB.Net 2008 lalu berinama bikinlaporan kemudian buatlah sebuah code file untuk koneksi caranya (Project - Add New Item -> Pilih Code File). Isikan kode berikut ini :

Imports System.Data.SqlClient  

 Public Module modulkoneksi  

 #Region "Deklarasi Variabel"  

   Public koneksi As SqlConnection = Nothing  

   Public cmd As SqlCommand = Nothing  

 #End Region  

 #Region "Fungsi Testing Koneksi Database"  

   Public Sub TestKoneksi()  

     Dim connString As String = "Data Source=ZHENLONK-342572;Initial Catalog=testing;Integrated Security=True"  

     koneksi = New SqlClient.SqlConnection(connString)  

     Try  

       koneksi.Open()  

       koneksi.Close()  

     Catch ex As Exception  

       MessageBox.Show("Database Connection Error : " & ex.Message)  

     End Try  

   End Sub  

 #End Region  

 End Module

      Untuk Data Source (nama Server) dan Initial Catalog (nama Database) dapat disesuaikan dengan kondisi di komputer anda. Untuk membuat file laporan, klik project - Add new Item - Crystal Report dan
beri nama laporan.rpt (lihat gambar berikut) :

     Kemudian pada kotak dialog Crystal Report Gallery pilih As a Blank Report dan kita akan mendapat report kosong.

Munculkan Field Explorer (Apabila tidak muncul dapat dipanggil melalui menu Crystal Report - Field Explorer). Melalui Field Explorer klik kanan Database Fields dan pilih Database Expert, lalu pada Tree View pilih Create New Connection - OLE DB (ADO) lalu pilih Microsoft OLE DB Provider for SQL Server dan klik Next. Lalu pada settingan Server masukkan nama server anda (Atau bisa gunakan Computer Name), dalam hal ini saya menggunakan Integrated Security (bila anda tidak menggunakannya, masukkan username dan password login SQL Server anda) kemudian pilih database di opsi Database. Kemudian Klik Next dan Finish.

Koneksi sudah terbentuk, lalu pindahkan tabel tbl_buku sebagai selected tables dan Klik OK. Lihat gambar :

melalui Field Explorer klik Database Fields, masukkan Field-field di tabel tbl_buku ke lembar laporan dan atur seperti contoh dibawah ini dan Save.

Buka Form1 dan melalui Toolbox
- cari CrystalReportViewer dan masukkan ke Form1. Melalui properties
CrystalReportViewer, isikan ReportSource dengan laporan yang kita buat tadi.
Run (F5) VB dan Report akan ditampilkan...

Selamat Mencoba :-)

eBook Full TIK

Kumplan E-Book Teknologi Informatika Full and Free

Click and Downloads

Kisah Islami penuh hikmah

Kumpulan kisah-kisah islami penuh hikmah dan bisa jadi panutan

click and downloads

Modul Bisnis Internet

Mau menjadi pebisnis di bidang internet. Ini saya berikan modul untuk jadi bacaan  anda free (gratis).

Click and Downloads

Modul Bahasa Automata Full and Free

Modul Bahasa Automata Full and Free

click and downloads

eBook Jaringan Komputer Full and Free

E-Book Jaringan Komputer Lengkap

click and Downloads

Modul web server

Modul Web Server Full and Free

click and downloads