Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Вход в си...

Тема: Вход в систему по паролю

15.06.2007 21:02:14

Дмитрий3

3 сообщения

Тема: Вход в систему по паролю

Создал базу данных в Access. Сегодня приезжает Заказчик и забирает ее к себе на работу. Исчитал за ночь "Справку..." вдоль и поперек по поводу запретов для доступа к макетам, схемам, окну базы данных и т.д. Ничего не понял (тупой наверное) - слишком много всего можно и одновременно нельзя. Вопрос такой: Есть база данных собственное "произведение"). Отдаю Заказчику. К ним не поеду. Надо, чтобы при открытии моей базы, Заказчика спрашивал Access USER и PASSWORD для
него же, которые я благополучно сочиню на своем PC и отдам им на бумажке. После входа он ничего не должен мочь кроме работы с формами и пользовательской (его) панелью инструментов, которую я сам ему создам. ОС у них на машинах разные, на какую поставят не известно. Наверное, это просто как-то делается - но вот не смог (проверить же негде). Уж объясните бестолковым, если не трудно.

P.S. Защита базы данных
Автор: Дмитрий от 02.04.2002 8:31:53 Источник ...

15.06.2007 21:02:14

All

4316 сообщения

RE: Вход в систему по паролю

1. Создаете форму и таблицу с паролями. Связываете их.
2. Отключаете все режимы просмотра объектов базы данных. Смотрите примеры la_prot
3. В событии выгрузка формы проверяете пароль

Private Sub Form_Unload(Cancel As Integer)
Cancel = funVerifyPassword(Me.user, Me.password)
End Sub

P.S. Защита базы данных
Автор: Виктор Конюков от 0:00:00 Источник ...

15.06.2007 21:02:14

Эдуард2

2 сообщения

RE: Вход в систему по паролю

Вот исходник входа по системной дате красоты нет,но работает.Создай простую форму размести на ней надпись, текстовое поле, и кнопку: все элементы берутся из дополнительных(ActiveX).Кнопка до ввода пароля не имеет доступа.Если будут вопросы шли на мыло(F и E обязательно большие)
Option Compare Database
Option Explicit
Dim Password As String
Dim Passwordd As String
Dim Y As String
Dim X As String
Dim Dates As Date
Dim stDocName As String
Dim stLinkCriteria As String
Private Sub Form_Load()
txtPassword.Text = ""
End Sub

Private Sub cmdOk_Click()
Dim msg As String
Dates = Now()
Password = txtPassword.Text

If Dates >= #2/1/02# And Dates <= #3/1/02# Then
Passwordd = "694520"
Else
If Dates >= #3/1/02# And Dates <= #4/1/02# Then
Passwordd = "942370"
Else
If Dates >= #4/1/02# And Dates <= #5/1/02# Then
Passwordd = "777"
Else
If Dates >= #5/1/02# And Dates <= #6/1/02# Then
Passwordd = "357340"
Else
If Dates >= #6/1/02# And Dates <= #7/1/02# Then
Passwordd = "250700"
Else
If Dates >= #7/1/02# And Dates <= #8/1/02# Then
Passwordd = "743101"
Else
If Dates >= #8/1/02# And Dates <= #9/1/02# Then
Passwordd = "888"
Else
If Dates >= #9/1/02# And Dates <= #10/1/02# Then
Passwordd = "200202"
Else
If Dates >= #10/1/02# And Dates <= #11/1/02# Then
Passwordd = "TURBO"
Else
If Dates >= #11/1/02# And Dates <= #12/1/02# Then
Passwordd = "227639"
Else
If Dates >= #12/1/02# And Dates <= #1/1/03# Then
Passwordd = "сновымгодом"
Else
Y = Выход()
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

If Password = Passwordd Then
X = Выход_из_формы()
stDocName = "Главная"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Else
Y = Выход()
End If
End Sub

Function Выход()
On Error GoTo Выход_Err

DoCmd.Quit acSave

Выход_Exit:
Exit Function

Выход_Err:
MsgBox "Ошибка"
Resume Выход_Exit

End Function
Function Выход_из_формы()
On Error GoTo Выход_из_формы_Err

DoCmd.RunCommand acCmdClose

Выход_из_формы_Exit:
Exit Function

Выход_из_формы_Err:
MsgBox "Ошибка"
Resume Выход_из_формы_Exit

End Function

Private Sub txtPassword_Updated(Code As Integer)
If Code = False Then
cmdOk.Enabled = True
Else
cmdOk.Enabled = False
End If
End Sub

P.S. Защита базы данных
Автор: Эдуард от 03.04.2002 21:23:25 Источник ...

15.06.2007 21:02:14

founder

45 сообщения

RE: Вход в систему по паролю

Вариант 1: Создай стандартную защиту msaccess на уровне пользователей, для энтого создай свой файл раб. группы, себя и клиента и т.д... Всё есть во встроенной справке - читай. Ничего сложного нет, нужно только разобраться. Установив нужную тебе защиту для каждого объекта, из экземпляра mdw, передаваемого клиенту, удаляешь себя и порядок. Защищайся на уровне пользователей, а не групп, бо пользователь Admin у всех одинаковый и ещё и по умолчанию грузится. Правда, mdw вскрываются, но не каждым :)
Вариант 2: создай mde-файл. В нём формы, модули и т.п. изменять нельзя.
Вариант 3: создать форму с паролем, описанную выше. Но, как ты знаешь, при удерживании shift, параметры запуска игнорируются - придётся ещё и нажатие shift отлавливать... Кроме этого, продуманному юзеру ничего не помешает импортнуть объекты в другую БД, просмотреть или изменить их, а потом без проблем загнать обратно. Или импортировать всё в новую БД игнорируя параметры запуска и без autoexec...

P.S. Защита базы данных
Автор: Founder от 15.04.2002 16:25:19 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Вход в си...

Поиск

Список форумов

Начало | Forums