maksud dr penanda = 1 itu jika username, password dan jabatan nya sesuai dengan
database yang ada. Thanks... aku uda nemu kesalahannya di mana...
Noe <[EMAIL PROTECTED]> wrote: sekilas,
kesalahannya mungkin disini :
1.
> nama = frmLogin.txtUsername.Text
> pass = frmLogin.txtPassword.Text
> jabatan = frmLogin.cboJabatan.Text
mungkin ada kesalahan parsing parameter dari form login.
2.
> 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
maksud dari "If penanda = 1 Then " ini apa...???. kemungkinan
kesalahannya juga ada disini. kalau nilai dari penanda itu 1 maka
user bisa melihat semua menu kan...??? CMIIW.
--- In [email protected], lidwina oktavianty
<[EMAIL PROTECTED]> wrote:
>
> 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
>
Send instant messages to your online friends http://uk.messenger.yahoo.com
