ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запись по каким логином внесли данные
12 сообщений из 12, страница 1 из 1
Запись по каким логином внесли данные
    #39859104
tuke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tuke
Участник
Всем доброго времени суток,

Доступ в базу данных осуществляется через ввода логина и пароля, и пользователь вводит данные в основную таблицу main через форму add.
Как сделать так чтобы в таблицу main хранились логины (в поле login) пользователей которые внесли записи. Логин и пароли хранятся в таблице tblUser


ссылка на файл - https://drive.google.com/open?id=16yCZ2ON0PB_xZcgVzyaPc7zq3MW9HMRu
Вход
логин: 111
пароль:123
...
Рейтинг: 0 / 0
09.09.2019, 05:24
| Ответить | Цитировать | Написать  
Запись по каким логином внесли данные
    #39859298
Agapov_stas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Agapov_stas
Участник
tuke,

Или сохранить в глобальную переменную id юзверя (не лучший вариант, по нескольким причинам) или же хранить id текущего пользователя в отдельной таблице (либо временной, либо история посещений).
...
Рейтинг: 0 / 0
09.09.2019, 12:58
| Ответить | Цитировать | Написать  
Запись по каким логином внесли данные
    #39859322
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
tuke,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Function Get_Environmental() As String
Dim sHostName As String
Dim sUserName As String
    ' Имя Контупера
    sHostName = Environ$("computername")
    ' Имя Юзверя
    sUserName = Environ$("username")
    Get_Environmental = sHostName & "     " & sUserName
End Function
...
Рейтинг: 0 / 0
09.09.2019, 13:59
| Ответить | Цитировать | Написать  
Запись по каким логином внесли данные
    #39859390
tuke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tuke
Участник
Agapov_stas, как реализовать? создал таблицу, потом как сделать чтоб логин туда записывался?
...
Рейтинг: 0 / 0
09.09.2019, 15:24
| Ответить | Цитировать | Написать  
Запись по каким логином внесли данные
    #39859392
tuke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tuke
Участник
ROI,
Файл работает на разных компьютерах. Каждый раз надо в коде имя компьютера менять?
...
Рейтинг: 0 / 0
09.09.2019, 15:26
| Ответить | Цитировать | Написать  
Запись по каким логином внесли данные
    #39859402
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
tukeROI,
Файл работает на разных компьютерах. Каждый раз надо в коде имя компьютера менять?
не надо менять имя контупера берется автоматом.
Environ$("computername")
вы хотя бы поиском пользуетесь?
...
Рейтинг: 0 / 0
09.09.2019, 15:37
| Ответить | Цитировать | Написать  
Запись по каким логином внесли данные
    #39859584
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
tuke, сохраняю в таблице в специальном раздельчике ник текущего пользователя и публичной функцией вытаскиваю его оттуда когда надо, этот ник записывается туда при входе. табличка локальная.
...
Рейтинг: 0 / 0
09.09.2019, 21:17
| Ответить | Цитировать | Написать  
Запись по каким логином внесли данные
    #39859687
Agapov_stas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Agapov_stas
Участник
tukeAgapov_stas, как реализовать? создал таблицу, потом как сделать чтоб логин туда записывался?
У Вас есть событие кнопки по которому Вы проверяете валидность данных логин/пароль. Вот в нем и реализуйте добавление в таблицу текущего пользователя.
Что-то типа:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Private Sub Кнопка1_Click()
If IsNull(Me.txtLoginID) Then
 MsgBox "Введите логин", vbInformation, "Login Required"
 Me.txtLoginID.SetFocus
ElseIf IsNull(Me.txtPassword) Then
 MsgBox "Введите пароль", vbInformation, "Password Required"
 Me.txtPassword.SetFocus
Else
    'Процесс работы
    If (IsNull(DLookup("UserLogin", "tblUser", "UserLogin ='" & Me.txtLoginID.Value & "'"))) Or _
    (IsNull(DLookup("password", "tblUser", "Password ='" & Me.txtPassword.Value & "'"))) Then
        MsgBox "Неправильный логин или пароль"
    Else
        CurrentDb.Execute "INSERT INTO ВашаТаблица(ПолеИмяПользователя) VALUES ('" & Me.txtLoginID.Value & "')"
        DoCmd.Close
        DoCmd.OpenForm "main"
    End If
End If
End Sub



Единственное, Вам необходимо очищать эту самую таблицу при входе, к примеру на событие Form_Load, чтобы была всегда одна запись.
Код: vbnet
1.
2.
3.
Private Sub Form_Load()
CurrentDb.Execute "DELETE * FROM ВашаТаблица"
End Sub



Достать текущего пользователя можно DLookUp -ом в необходимый момент.
...
Рейтинг: 0 / 0
10.09.2019, 09:31
| Ответить | Цитировать | Написать  
Запись по каким логином внесли данные
    #39859692
Agapov_stas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Agapov_stas
Участник
Только да, лучше хранить id пользователя. Мало ли какие данные понадобятся.
...
Рейтинг: 0 / 0
10.09.2019, 09:36
| Ответить | Цитировать | Написать  
Запись по каким логином внесли данные
    #39860086
tuke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tuke
Участник
Agapov_stas, Вы правы.
Добавил Ваш код Работает на логин, как изменить на ID логина?
...
Рейтинг: 0 / 0
11.09.2019, 06:37
| Ответить | Цитировать | Написать  
Запись по каким логином внесли данные
    #39860088
tuke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tuke
Участник
Agapov_stas, а что если с таблицы tblUser ID пользователя удалить и ключевым полем сделать UserLogin?
...
Рейтинг: 0 / 0
11.09.2019, 06:43
| Ответить | Цитировать | Написать  
Запись по каким логином внесли данные
    #39860179
tuke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tuke
Участник
Agapov_stas, Огромное спасибо, Заработал как хотел.
...
Рейтинг: 0 / 0
11.09.2019, 10:46
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запись по каким логином внесли данные
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&gotonew=1&tid=1610486]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 59ms
get topic data:
 8ms
get first new msg:
 6ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 10ms
total:  153ms
созд. / загр.: 153ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]