LISTING PROGRAM LOGIN CLIENT

Private Sub Form_Load()

OPENDB

batal

isi

End Sub

  

Sub isi()

SQL = "select*from login"

If Rs.State = adStateOpen Then Rs.Close

Rs.Open SQL, Db, adOpenDynamic, adLockOptimistic

If Rs.RecordCount <> 0 Then

Rs.MoveFirst

Do While Not Rs.EOF

Rs.MoveNext

Loop

End If

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub username_Click()

SQL = " select*from login " & _

    "where username='" & username.Text & "'"

    If Rs.State = adStateOpen Then Rs.Close

    Rs.Open SQL, Db, adOpenDynamic, adLockOptimistic

    If Rs.RecordCount <> o Then

    password.Text = Rs!password

End If

End Sub