Vb.net логин для администратора и персонала
i want to login form in vb.net using ms access for Admin and staff.If admin login the form , it show the main form . if staff login the form,it show the main2 form. pls help my project...pls give me the coding
Что я уже пробовал:
войдите в форму для администратора и персонала
Sunasara Imdadhusen
Вы уже начали писать код?
Member 13738315
с бро
Member 13738315
Если Len(Trim(ComboBox1.Text)) = 0, То
Ящик для сообщений.Show("Пожалуйста, выберите тип пользователя", "ошибка ввода", MessageBoxButtons.Хорошо, MessageBoxIcon.Ошибка)
Поле combobox1.Сосредоточить()
Выход Из Субмарины
Конец, Если
Если Len(Trim(TextBox1.Text)) = 0, То
Ящик для сообщений.Show("пожалуйста, введите имя пользователя", "ошибка ввода", MessageBoxButtons.Хорошо, MessageBoxIcon.Ошибка)
Текстовое поле 1.Сосредоточить()
Выход Из Субмарины
Конец, Если
Если Len(Trim(TextBox2.Text)) = 0, То
Ящик для сообщений.Show("пожалуйста, введите пароль", "ошибка ввода", MessageBoxButtons.Хорошо, MessageBoxIcon.Ошибка)
Поле textbox2.Фокус()
Выход Из Субмарины
Конец, Если
Попробуй
Dim myConnection как OleDbConnection
myConnection = новый объект oledbconnection("поставщик=Майкрософт.Туз.Oledb для.12.0;Источник Данных=|Параметр Datadirectory|\Посещаемость.МДБ.# то#; сохранять сведения о безопасности=false в;")
Dim myCommand As OleDbCommand
myCommand = новый объект oledbcommand("выберите пункт "Пользователи".имя_пользователя Пароль_пользователя от пользователей,регистрация, когда Регистрация.Логин=пользователь.имя пользователя и пользователей.Username = @Username and user_password = @UserPassword", myConnection)
Дим команде uname как нового класса oledbparameter("@имя пользователя", значения sqldbtype.Тип varchar)
Дим uPassword как нового класса oledbparameter("@Парольпользователя", значения sqldbtype.Тип varchar)
команда uname.Значение = Элемент Textbox1.Текст
uPassword.Значение = TextBox2.Text
моя команда.Параметры.Добавить(uName)
моя команда.Параметры.Добавить(uPassword)
моя команда.Соединение.Открыть()
Dim myReader As OleDbDataReader = myCommand.ExecuteReader(CommandBehavior.Значение closeconnection)
Dim Login As Object = 0
Если мой читатель.Затем HasRows
myReader.Читать()
Login = myReader(логин)
Конец, Если
Если Логин = Ничего, То
MsgBox("вход в систему не удался...Попробуйте еще раз !", MsgBoxStyle.Критично, "Вход Запрещен")
Текстовое Поле 1.Очистить()
Поле textbox2.Понятно()
Текстовое поле 1.Сосредоточить()
Еще
ProgressBar1.Видимое = Истинное
ProgressBar1.Maximum = 5000
ProgressBar1.Minimum = 0
ProgressBar1.Value = 4
ProgressBar1.Step = 1
Для i = от 0 до 5000
ProgressBar1.PerformStep()
Следующий
Меня.Скрыть()
Меня.Метка1.Скрыть()
Меня.Текстовое поле textbox1.Скрыть()
Меня.Метка2.Скрыть()
Меня.Поле textbox2.Скрыть()
Я.Кнопка 1.Скрыть()
Меня.Элемент button2.Скрыть()
Меня.LinkLabel1.Скрыть()
Меня.Метка3.Скрыть()
Меня.Label6.Скрыть()
Меня.Поле combobox1.Скрыть()
Главный.Покажите()
Конец, Если
моя команда.Располагать()
myConnection.Закрывать()
Поймать ex как исключение
Ящик для сообщений.Show(ex.Message, "Error", MessageBoxButtons.Хорошо, MessageBoxIcon.Ошибка)
Конец Попытки
Конец Подводной Лодки
Это мой кодирующий братан...но я не знаю, как упомянуть условие, чтобы два типа логина usertype открыли две разные формы.
Richard MacCutchan
Этот сайт не существует для того, чтобы делать вашу работу за вас.
Member 13738315
спасибо братан...можете сказать мне тот же код в sql server 2008 и vb.net.... pls братан