TULISAN TOU1 ( Minggu Ke - 3 )

Cara Membuat Form Login pada VB.Net dengan Mysql Database

Cara Membuat Form Login pada VB.Net dengan Mysql Database mungking coding yang ane kasih bisa bantu, langsung saja ane kasing listingnya :

Form Login pada VB.Net dengan Mysql Database

Imports System.Data.SqlClient
Imports MySql.Data.MySqlClient

Public Class Login
Public passlama As String = “”
Public userlogin As String = “”
Public levelku As String = “”
Sub formKosongLogin()
txtUsername.Text = “”
txtPassword.Text = “”
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtUsername.KeyPress
If e.KeyChar = Chr(13) Then txtPassword.Focus()
End Sub

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPassword.KeyPress
If e.KeyChar = Chr(13) Then Button1.Focus()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txtUsername.Text = “” Then
MsgBox(“Username Tidak Boleh Kosong”, MsgBoxStyle.Critical)
txtUsername.Focus()
ElseIf txtPassword.Text = “” Then
MsgBox(“Password Tidak Boleh Kosong”, MsgBoxStyle.Critical)
txtPassword.Focus()
Else
Call cekkoneksi()
Dim sqlQuery As String = ” SELECT * FROM user WHERE username = ‘” & txtUsername.Text & “‘ AND password = ‘” & txtPassword.Text & “‘”
Dim user As String = “”
Dim pass As String = “”
Dim level As String = “”
Dim myData As MySqlDataReader
Dim sqltable As New DataTable
If sConnection.State = ConnectionState.Closed Then
sConnection.ConnectionString = serper
sConnection.Open()
End If

With sqlCommand
.CommandText = sqlQuery
.Connection = sConnection
End With

With sqlAdapter
.SelectCommand = sqlCommand
.Fill(sqltable)
End With

‘simpan password lama buat diambil ke menu utama

myData = sqlCommand.ExecuteReader(CommandBehavior.CloseConnection)
myData.Read()

If myData.HasRows = True Then

Me.Visible = False
FormUtama.Show()
FormUtama.Panel1.Text = myData.Item(“kd_user”)
FormUtama.Panel2.Text = myData.Item(“nm_user”)
FormUtama.Panel3.Text = myData.Item(“username”)
Penjualan.txtKasir.Text = myData.Item(“nm_user”)
myData.Close()
Else
MsgBox(“User/Password tidak ada”, MsgBoxStyle.Critical)
txtUsername.Focus()
End If
myData.Dispose()
myData.Close()
End If
Call formKosongLogin()
txtUsername.Focus()

End Sub

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

Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call cekkoneksi()

End Sub
End Class

Refrensi..

Read More

TULISAN TOU1 (Minggu ke - 2 )

Aplikasi Chating VB.Net


Sebelumnya saya ingin membuat program ini tapi masih belum sempat karna sulit menemukan waktu luang. Disini saya share info program dari tetangga sebelah langsung aja ..

Ikuti langkah-langkahnya ya...

1. Buat sebuah database dari MySql dengan nama ChatDB, dan 1 tabel dengan nama Chat, dan 2 kolom. Kolom pertama Id type data Int(4) primary key auto_increment, yg ke-2 Isi type data text.
2. Setting IP 2 Komputer.
3. Kemudian Desain seperti gambar dibawah ini untuk 2 komputer ya : 

       4.  Komponen timer di propertiesnya enabled dirubah menjadi True.

Lalu ikuti listing program dibawah ini :

Imports MySql.Data.MySqlClient.MySqlConnection
Public Class Form1
    Public db As New MySql.Data.MySqlClient.MySqlConnection
    Public cmd As MySql.Data.MySqlClient.MySqlCommand
    Public rs As MySql.Data.MySqlClient.MySqlDataReader
    Public sql As String

    Sub opendb()
        sql = "server=localhost;user=root;pwd=;database=ChatDB;"
        If db.State = ConnectionState.Closed Then
            db.ConnectionString = sql
            db.Open()
        Else
            MsgBox("Database tidak ditemukan..!!")
        End If
    End Sub

    Sub kirimpesan()
        sql = "insert into chat(isi) values('" & pesan.Text & "')"
        cmd = New MySql.Data.MySqlClient.MySqlCommand(sql, db)
        cmd.ExecuteNonQuery()
        pesan.Text = ""
    End Sub

    Sub pesanmasuk()
        list.Items.Clear()
        sql = "select *from chat order by id desc"
        cmd = New MySql.Data.MySqlClient.MySqlCommand(sql, db)
        rs = cmd.ExecuteReader
        While rs.Read
            list.Items.Add(rs("isi"))
        End While
        rs.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        opendb()
        pesanmasuk()
    End Sub

    Private Sub btnkirim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkirim.Click
        Call kirimpesan()
        Call pesanmasuk()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Call pesanmasuk()
    End Sub
End Class

Read More