Sql server и VS visual basic. Авторизация

@Ильнарр · Регистрация: 06.04.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте

Помогите пожалуйста.
Нужно создать авторизацию.
Есть форма, на форме 2 textbox-а и 2 label-а соответственно(Емайл и пароль) и кнопка "Вход". В базе данных SQL server есть таблица "Пользователи" с полями "Тип учетной записи", "Почта", "Пароль". Тип учетной записи - допустим админ, координатор или какой нибудь другой пользователь. Нужно сделать так, что бы при авторизации, каждый пользователь перешел на свою форму. Координатор - на форму 2 допустим, администратор на форму 1 и т. д. Спасибо заранее

@krapotkin · 04.02.2017, 17:19

Ввод логина и пароля при запуске программы

вот пример
там функция возвращает просто True или False
переделать ее чтобы возвращала тип учетной записи
и по итогам ее выполнения показывать ту или иную форму

@Ильнарр · 04.02.2017, 23:48 **[ТС]**

А нельзя по другому как нибудь ?
Допустим написать на кнопку код типа: If Textbox1.text = MyDataBaseDataSet.table.email.(содержимо е поля почты) and
Textbox2.text = MyDataBaseDataSet.table.password.*** then Form4.ShowDialog() else MsgBox("Ошибка")

@krapotkin · 05.02.2017, 01:24

все можно, кто ж вам запретит
но практика при которой данные живут на экране (Textbox2.text) сугубо порочна
сто пятьсот раз уже говорено - отделяйте интерфейс от логики и данных

кроме того, то, что написано у меня
делает ровно то, что вы пишете - проверяет поля датасета
а с чем вы там их будете сравнивать, без разницы

@Ильнарр · 05.02.2017, 01:35 **[ТС]**

Подскажите пожалуйста, как сделать так, как именно я хотел

@northener · 05.02.2017, 02:33

Теоретически так:
Выполнить запрос к БД

SQL
1
SELECT Roleid FROM MyBase WHERE (Email = ...) AND (Password = ...)

P.S. точками заменены неизвестные мне текстбоксы из VB.
P.P.S. А вообще что тут делает вопрос по VB?

@Ильнарр · 05.02.2017, 11:58 **[ТС]**

Я случайно не тот раздел указал(

@krapotkin · 05.02.2017, 12:37

если все еще непонятно, разъясняю - писать запрос, не зная вашей структуры таблицы, невозможно
то же самое - невозможно писать КОНКРЕТНЫЙ код для вас, не видя вашего проекта, его компонентов и их свойств

@Ильнарр · 05.02.2017, 14:34 **[ТС]**

Есть 3 формы.
1 форма - форма авторизации. (на форме расположены Text.box1 и Text.box2 соответственно логин и пароль и кнопка "авторизоваться")
2 форма - форма, после авторизации туда переходит участник
3 форма - форма, после авторизации переходит туда администратор

Есть база данных, в которой данные для авторизации. Это таблица Users (Email, password, (role - это список ролей, в моем случае администратор(1) и пользователь(2))).
И все

@YuryK · 05.02.2017, 15:30

Сообщение от Ильнарр

Есть 3 формы.

А при разработке приложения в IDE главной формы что ли нет?

Если участник и администратор работают в принципиально разных приложения, то лучше и делать 2 проекта. А то как администратор зайдет в качестве участника?

Если главная форма у них одна и та же, но ограничен функционал, то и настроить гл. форму после входа в программу.

Форму авторизации вообще лучше вызвать в файле проекта, до создания главной формы, например

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
begin
  Application.Initialize;
 
  if not
    TLoginForm.Connect()
  then
    exit;
 
  Application.CreateForm(Tdm, dm);
  Application.CreateForm(TfrmStaffAndEmployees, frmStaffAndEmployees);
  Application.Run;
end.

@Ильнарр · 05.02.2017, 15:37 **[ТС]**

Могу я с вами связаться как нибудь ?

@YuryK · 05.02.2017, 16:09

Как-то здесь можно, в личку пишут

Или тебе e-mail?

Добавлено через 10 минут
Кстати, в теме " VS visual basic", а форум Delphi

@D1973 · 05.02.2017, 18:49

Комментарий модератора

Ильнарр, предупреждаю! Вы нарушаете пункт 4.6 Правил форума

Обсуждение вопросов - только в теме на форуме. Приглашения к обсуждению еще где-либо (в том числе и с помощью системы личных сообщений) запрещены, за исключением коммерческих разделов.

@Ильнарр · 06.02.2017, 22:24 **[ТС]**

если все еще непонятно, разъясняю - писать запрос, не зная вашей структуры таблицы, невозможно
то же самое - невозможно писать КОНКРЕТНЫЙ код для вас, не видя вашего проекта, его компонентов и их свойств

VB.NET
1
2
3
4
5
6
7
8
9
10
11
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then MsgBox("Введите Email") Else 
        If TextBox2.Text = "" Then MsgBox("Введите Пароль") Else 
        For Each DGVR As DataGridViewRow In UserDataGridView.Rows
            If TextBox1.Text = DGVR.Cells(0).Value And TextBox2.Text = DGVR.Cells(1).Value And DGVR.Cells(2).Value = ("A") Then Form9.Show() Else 
            If TextBox1.Text = DGVR.Cells(0).Value And TextBox2.Text = DGVR.Cells(1).Value And DGVR.Cells(2).Value = ("C") Then Form8.Show() Else 
            If TextBox1.Text = DGVR.Cells(0).Value And TextBox2.Text = DGVR.Cells(1).Value And DGVR.Cells(2).Value = ("R") Then Form7.Show() Else 
            MsgBox("Не правильный Email или пароль")
            Exit For
        Next
    End Sub

Почем работает только 1 раз ?,,,,, я в V Basic Только новичок.... точнее до последних строк не доходит даже

@krapotkin · 06.02.2017, 22:42

модератор, перенесите тему, оказывается все-таки Basic )))

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Ильнарр 2 / 2 / 0 Регистрация: 06.04.2015 Сообщений: 91

	Sql server и VS visual basic. Авторизация 04.02.2017, 16:04. Показов 1171. Ответов 14 Метки нет (Все метки) Здравствуйте Помогите пожалуйста. Нужно создать авторизацию. Есть форма, на форме 2 textbox-а и 2 label-а соответственно(Емайл и пароль) и кнопка "Вход". В базе данных SQL server есть таблица "Пользователи" с полями "Тип учетной записи", "Почта", "Пароль". Тип учетной записи - допустим админ, координатор или какой нибудь другой пользователь. Нужно сделать так, что бы при авторизации, каждый пользователь перешел на свою форму. Координатор - на форму 2 допустим, администратор на форму 1 и т. д. Спасибо заранее Изображения 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,658 Записей в блоге: 21
	04.02.2017, 17:19
	Ввод логина и пароля при запуске программы вот пример там функция возвращает просто True или False переделать ее чтобы возвращала тип учетной записи и по итогам ее выполнения показывать ту или иную форму 1

@Ильнарр 2 / 2 / 0 Регистрация: 06.04.2015 Сообщений: 91
	04.02.2017, 23:48 [ТС]
	А нельзя по другому как нибудь ? Допустим написать на кнопку код типа: If Textbox1.text = MyDataBaseDataSet.table.email.(содержимо е поля почты) and Textbox2.text = MyDataBaseDataSet.table.password.*** then Form4.ShowDialog() else MsgBox("Ошибка") 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,658 Записей в блоге: 21
	05.02.2017, 01:24
	все можно, кто ж вам запретит но практика при которой данные живут на экране (Textbox2.text) сугубо порочна сто пятьсот раз уже говорено - отделяйте интерфейс от логики и данных кроме того, то, что написано у меня делает ровно то, что вы пишете - проверяет поля датасета а с чем вы там их будете сравнивать, без разницы 1

@Ильнарр 2 / 2 / 0 Регистрация: 06.04.2015 Сообщений: 91
	05.02.2017, 01:35 [ТС]
	Подскажите пожалуйста, как сделать так, как именно я хотел 0

@Ильнарр 2 / 2 / 0 Регистрация: 06.04.2015 Сообщений: 91
	05.02.2017, 11:58 [ТС]
	Я случайно не тот раздел указал( 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,658 Записей в блоге: 21
	05.02.2017, 12:37
	если все еще непонятно, разъясняю - писать запрос, не зная вашей структуры таблицы, невозможно то же самое - невозможно писать КОНКРЕТНЫЙ код для вас, не видя вашего проекта, его компонентов и их свойств 0

@Ильнарр 2 / 2 / 0 Регистрация: 06.04.2015 Сообщений: 91
	05.02.2017, 14:34 [ТС]
	Есть 3 формы. 1 форма - форма авторизации. (на форме расположены Text.box1 и Text.box2 соответственно логин и пароль и кнопка "авторизоваться") 2 форма - форма, после авторизации туда переходит участник 3 форма - форма, после авторизации переходит туда администратор Есть база данных, в которой данные для авторизации. Это таблица Users (Email, password, (role - это список ролей, в моем случае администратор(1) и пользователь(2))). И все 0

@Ильнарр 2 / 2 / 0 Регистрация: 06.04.2015 Сообщений: 91
	05.02.2017, 15:37 [ТС]
	Могу я с вами связаться как нибудь ? 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	05.02.2017, 16:09
	Как-то здесь можно, в личку пишут Или тебе e-mail? Добавлено через 10 минут Кстати, в теме " VS visual basic", а форум Delphi 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,658 Записей в блоге: 21
	06.02.2017, 22:42
	модератор, перенесите тему, оказывается все-таки Basic ))) 0