Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

End Property

Public Property Let InitPassword(ByVal Passwd As String)

    sPasswd = Passwd

End Property

Private Sub Class_Initialize()

    sError = ""

           Set cn = New ADODB.Connection

           cn.Open "DSN=reg" 'Установим соединение

           Set rs = New ADODB.Recordset

End Sub

Private Sub Class_Terminate()

    Set rs = Nothing

    Set cn = Nothing

End Sub

'Регистрирует пользователей

Public Sub Register()

On Error GoTo Er

rs.Open "SELECT N_ID FROM TUSERS WHERE S_NAME='" & sName & "'", cn, 1

'Если пользователь с таким именем уже есть, то

If rs.RecordCount <> 0 Then

sResult = 1 'Возвращаем результат

rs.Close

cn.Close

Exit Sub 'Выход

End If

Рекомендуем скачать другие рефераты по теме: реферат, доклад на тему биология.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата