======================> ISI MODULE <=====================
Public Conn As New ADODB.Connection
Public RsCari As New ADODB.Recordset
Public mRs As New ADODB.Recordset
Public RsUser As New ADODB.Recordset
Public strConn As String
Public MUser As String
Public MKode As String
Public MOtoritas As String
Public MAlamatFoto As String
Public sQl As String
-------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------
Private Sub Main()
Dim Strs As String
Set mRs = New ADODB.Recordset
Strs = "DSN=dsnsimpin"
Set Conn = New ADODB.Connection
Conn.CursorLocation = adUseClient
Conn.Open Strs
FrmLogin.Show
End Sub
-------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------
======================> LOGIN ç========================
Option Explicit
Public M_oper As String
Public m_Lokasi As String
Dim ri, gi, bi, Rc, bc, gc, X
==================> MENCARI PASSWORD <=================
Function CariData()
Dim SQLCari As String
If RsUser.State = adStateOpen Then RsUser.Close
RsUser.CursorLocation = adUseClient
RsUser.Open “ Select * From tbuser Where NmUser = ‘” & TxtKsr.Text & “’ “, Conn, adOpenKeyset, adLockOptimistic
End Function
Private Sub cmdOK_Click()
CariData
==========> MENCARI USER MSH ONLINE / OFFLINE <==========
If Not RsUser.EOF Then
If RsUser!Status = 1 Then
MsgBox “User Sedang OnLine..”, , “Info....”
TxtKsr.SetFocus
Exit Sub
End If
==============> MENCOCOKAN PASSWORD <================
If TxtPassword.Text = RsUser!Password Then
Mutama.Motoritas = RsUser!Otoritas
Mutama.MKsr = TxtKsr.Text
Mutama.Mkode = RsUser!KdUser
Unload Me
Mutama.MalamatFoto = App.Path + “\Foto”
==================> UPDATE STATUS <======================
Conn.Execute “update tbuser set status=1 where KdUser=’” & Mutama.Mkode & “’”
FrmMenu.Show
Else
MsgBox “Pwd Salah .... , Coba lagi!”, , “Login”
TxtPassword.Text = “”
TxtPassword.SetFocus
End If
End If
End Sub
Private Sub Form_Load()
Set RsUser = New ADODB.Recordset
RsUser.CursorLocation = adUseClient
Dim Mpath As String
Mpath = “C:\Windows\system\mysis.sys”
On Error Resume Next
If Dir(Mpath, vbNormal Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive) = “” Then
Unload Me
End If
End Sub
Private Sub TxtUser_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(Ucase(Chr(KeyAscii))) ==è MENGUBAH HURUF MJD BESAR
If KeyAscii = 13 Then
CmdOk.Enabled = False
CariData
==========> MENCARI USER MSH ONLINE / OFFLINE <===========
If Not RsUser.EOF Then
If RsUser!Status = 1 Then
MsgBox “User Sedang OnLine..”, , “Info....”
TxtUser.SetFocus
Exit Sub
End If
RsUser.Close
TxtPassword.SetFocus
Else
MsgBox “Data User tidak ditemukan”, , “Info....”
RsUser.Close
TxtUser.Text = “”
TxtUser.SetFocus
End If
End If
End Sub