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
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..
Imports System.Data.SqlImports System.Data.SqlClientDim koneksi As SqlConnection
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: 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: e.Handled = ValidAngka(e)
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
1: Public Class Form1
2: Dim checkBoxes As CheckBox()
3: Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
4: checkBoxes = New CheckBox() {CheckBox1, CheckBox2, CheckBox3, CheckBox4, CheckBox5}
5: End Sub
6:
7: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
8: checkBoxes(4).Checked = False
9: checkBoxes(0).Checked = True
10: checkBoxes(2).Checked = True
11: checkBoxes(3).Checked = True
12: End Sub
13:
14: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
15: checkBoxes(0).Checked = False
16: checkBoxes(2).Checked = False
17: checkBoxes(3).Checked = False
18: checkBoxes(4).Checked = True
19: End Sub
20: End Class
1: Private Sub texbox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles texbox1.Validating
2: If texbox1.Text.Length = 0 Then
3: ErrorProvider1.SetError(texbox1, "TextBox Satu Harus Diisi !!")
4: Else
5: ErrorProvider1.Clear()
6: End If
7: End Sub
1: Imports System.Xml
2: Public Class frmTambahSiswa
3: Shared Function Validasi(ByVal obj() As TextBox) As Boolean
4: Dim i As Integer
5: Dim cek AS Boolean
6: For i = 0 To obj.Length - 1
7: If (obj(i).Text.Length = 0) Then
8: MessageBox.Show(obj(i).Name.ToString & " masih belum diisi !", "Kesalahan", MessageBoxButtons.OK, MessageBoxIcon.Information)
9: obj(i).Focus()
10: cek = False
11: Exit For
12: Else
13: cek = True
14: End If
15: Next
16: If cek Then
17: Return True
18: Else
19: Return False
20: End If
21: End Function
22:
23: Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
24: Dim t() As TextBox = {texbox1, txtNIS, txtNama, txtAlamat, txtDesa, txtTempatLahir, txtKecamatan, txtKota _
25: , txtKodePos, txtNoTelepon, txtJumlah, TxtKeterangan}
26: If Validasi(t) Then
27: MessageBox.Show("Anda telah menulis data dengan benar")
28: End If
29: End Sub
30: End Class
1: Imports System.Xml
2: Public Class frmTambahSiswa
3: Shared Function Validasi(ByVal obj() As TextBox) As Boolean
4: Dim i, j As Integer
5: Dim cek As Boolean = True
6: Dim objNameTemp As String = ""
7:
8: For j = 0 To obj.Length - 1
9: If obj(j).Text.Length = 0 Then
10: objNameTemp &= " " & obj(j).Name
11: End If
12: Next
13:
14: For i = 0 To obj.Length - 1
15: If obj(i).Text.Length = 0 And cek Then
16: cek = False
17: Exit For
18: End If
19: Next
20:
21: If cek Then
22: Return True
23: Else
24: MessageBox.Show(objNameTemp & " masih belum diisi !", "Kesalahan", MessageBoxButtons.OK, MessageBoxIcon.Information)
25: Return False
26: End If
27: End Function
28: Private Sub texbox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles texbox1.Validating
29: If texbox1.Text.Length = 0 Then
30: ErrorProvider1.SetError(texbox1, "TextBox Satu Harus Diisi !!")
31: Else
32: ErrorProvider1.Clear()
33: End If
34: End Sub
35:
36: Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
37: Dim t() As TextBox = {texbox1, txtNIS, txtNama, txtAlamat, txtDesa, txtTempatLahir, txtKecamatan, txtKota _
38: , txtKodePos, txtNoTelepon, txtJumlah, TxtKeterangan}
39: If Validasi(t) Then
40: MessageBox.Show("Anda telah menulis data dengan benar")
41: End If
42: End Sub
43: End Class