Catatan Programmer Coeloen

Code:

Import System.Data.OleDb
public class form1
dim kns as new OleDbConnection
dim da as new OleDbDataAdapter
dim dt as new datatable
Public Sub form1_load( ...... ) mybase.load
'ini utk access 2003 kebawah
kns.ConnectionString = "Provider = Microsoft.Jet.OleDb.4.0;data source=mydata.mdb;Jet Oledb:Database Password='passku'"
'Ni tuk Access 2007 kebawah

'kns.ConnectionString = "Provider = Microsoft.Ace.OleDb.12.0;data
source=*.mdb/*accdb;Jet Oledb:Database Password='passku'"
da.SelectCommand=new oledbCommand("select * from tabel1",kns)
da.fill(dt)
datagridview1.datasource=dt
end sub
end class


1. Baca dulu artikel sebelumnya (Membuat Login Multiple User di VB.Net(bag. 1)) dan buat / download programnya.
2. di Form2 ubah Properti Text menjadi Form Utama.
3. Tambahkan Tool MenuStrip ke form2, lalu buat Menu dan submenu sebagai berikut.

Dim Sql, user, pass, hak As String
        Dim cmd As SqlCommand
        Dim rdr As SqlDataReader

        user = txtUser.Text     'Variabel user diisi nilai yang diinputkan txtUser
        pass = txtPass.Text     'Variabel user diisi nilai yang diinputkan txtPass
        hak = cbHak.SelectedItem 'Variabel user diisi item yang dipilih cbHak

        'Cek apakah user, password dan hak akses yang telah dipilih/dimasukan ada di database
        Sql = "SELECT * FROM tbl_login WHERE Username='" + user + "' 

       _AND Password='" + pass + "' AND Hak_akses='" + hak + "'"
        cmd = New SqlCommand(Sql, koneksi)

        rdr = cmd.ExecuteReader()

        If rdr.HasRows = True Then      'Jika data ditemukan

            If hak = "Admin" Then                                           
                Form2.Show()                                                
                Me.Hide()                                                   
            Else                                                            
                Form2.DataMahasiswaToolStripMenuItem.Enabled = False        
                Form2.DataDosenToolStripMenuItem.Enabled = False            
                Form2.Show()                                               
                Me.Hide()                                                   
            End If
        Else
            'Munculkan messagebox pesan salah
            MessageBox.Show("Kombinasi Username ,Password dan Hak Akses Salah",

            _ "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtUser.Focus()
        End If

        rdr.Close()
        cmd.Dispose()

 5. RUN !!!! (maksudne coba programnya hehe..  ).

 6.Setelah dijalankan kita bisa melihat kan untuk user 

   submenu data mahasiswa dan data dosen tidak bisa diakses (disable)

7. Anda juga bisa mengubah/menambah sendiri menu dan mengatur menu mana 

  saja yang kan ditampilkan untuk admin dan user

Selamat Mencoba ya..

Untuk Source Code Bisa di download disini.. 

5. Saatnya Coding !!! (Klik F7 untuk masuk ke tampilan sesi coding)

• Tambahkan Kode berikut di baris coding paling atas

1. Buat Database di SQL Server dengan nama dbBarang. Jika belum tau cara membuat database di SQL Server.
2. Lalu buat tabel dengan nama Barang dan spesifikasinya sebagai berikut.

Public Class Form1
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

_ Handles MyBase.Load

 End Sub
End Class

Nah, udah itu tambah kode lagi hingga kode di form1 menjadi seperti berikut ini. 

Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class Form1
 Dim conn As SqlConnection
 Dim cmd As SqlCommand
 Dim rdr As SqlDataReader
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 

_Handles MyBase.Load
 conn = New SqlConnection("Data Source=ORION\SQLEXPRESS;Initial Catalog=dbBarang;

_Integrated Security=True")

Try
 conn.Open()
 cmd = New SqlCommand("SELECT NamaBarang FROM msBarang", conn)
 rdr = cmd.ExecuteReader()

While rdr.Read()
 cbBox1.Items.Add(rdr("NamaBarang"))
 End While

Catch ex As Exception
 MessageBox.Show("Koneksi Gagal !!!, karena " & ex.Message)
 End Try

cbBox1.SelectedIndex = 0
 End Sub
End Class 

Untuk Source Codenya bisa di download disini

1. coba buat new preject di Visual Studio
2. New Windows Application di Visual Basic nya
3. Tambahkan satu textbox pada form dan beri nama txtHarga
4. Double klik textboxnya atau beri event TextChange coding ini di dalam event textchage nya : 

   1: If txtHarga.Text.Length > 0 Then

   2:     If txtHarga.Text.Substring(0, 1) = "." Then txtHarga.Text = txtHarga.Text.Replace(".", "")

   3:

   4:     Dim x As Double = CDbl(txtHarga.Text.Replace(",", ""))

   5:     Dim s As String = Strings.FormatNumber(x, 0)

   6:

   7:     If txtHarga.Text <> s Then

   8:         Dim pos As Integer = txtHarga.Text.Length - txtHarga.SelectionStart

   9:

  10:         txtHarga.Text = s

  11:

  12:         If ((txtHarga.Text.Length - pos) < 0) Then

  13:             txtHarga.SelectionStart = 0

  14:         Else

  15:             txtHarga.SelectionStart = txtHarga.Text.Length - pos

  16:         End If

  17:     End If

  18: End if

1. Tambahkan event Keypress juga pada txtHarga dan coding ini di dalam event textKeyPress nya :

      1: e.Handled = ValidAngka(e)

2. lalu kita buat Function ValidAngka : 

   1: Private Function ValidAngka(ByVal e As System.Windows.Forms.KeyPressEventArgs) As Boolean

   2:         Dim strValid As String = "0123456789"

   3:

   4:         If Strings.InStr(strValid, e.KeyChar) = 0 And Not (e.KeyChar = Strings.Chr(Keys.Back)) Then

   5:             Return True

   6:         Else

   7:             Return False

   8:         End If

   9: End Function