Mohon bantuan nya ya...
aku punya coding spt ini. Aku hanya mau form ttn saja yg bisa diakses oleh user
ttn. Yang jadi masalah knapa ketika aku login sbg user atau admin atau kasir,
semua menunya ttp terbuka tdk ada yg berubah? Dimana letak kesalahannya ya?
Mohon bantuannya...
Thx....
Dim nama, pass, jabatan As String
Dim koneksi As Data.SqlClient.SqlConnection
Dim command As New Data.SqlClient.SqlCommand
Dim baca As Data.SqlClient.SqlDataReader
Dim penanda As Integer = 0
Dim waktu, jam, menit, detik As String
jam = Hour(Now)
menit = Minute(Now)
detik = Second(Now)
waktu = "anda login pada jam : " & jam & " : " & menit & " : " & detik
nama = frmLogin.txtUsername.Text
pass = frmLogin.txtPassword.Text
jabatan = frmLogin.cboJabatan.Text
koneksi = New Data.SqlClient.SqlConnection("Integrated Security=SSPI;Persist
Security Info=False;Initial Catalog=toko;Data Source=Tina")
command.CommandText = "select * from msuser where username = '" & nama & "' and
password = '" & pass & "' and jabatan = '" & jabatan & "' "
command.Connection = koneksi
koneksi.Open()
baca = command.ExecuteReader
While baca.Read
penanda = 1
End While
If penanda = 1 Then
MsgBox("Anda login sebagai " & jabatan & vbCrLf & waktu)
frmLogin.Hide()
frmMenu.Show()
ElseIf jabatan = "admin" Then
Call frmLogin.akses_admin()
frmMenu.Show()
ElseIf jabatan = "user" Then
Call frmLogin.akses_user()
frmMenu.Show()
ElseIf jabatan = "kasir" Then
Call frmLogin.akses_kasir()
frmMenu.Show()
Else
MsgBox("Username Dan Password Anda Salah " & vbCrLf & "silahkan masukkan
kembali")
nama = ""
pass = ""
jabatan = "jabatan"
End If
Send instant messages to your online friends http://uk.messenger.yahoo.com
