|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
23.12.2012, 23:03 | #11 |
Участник клуба
Регистрация: 19.12.2007
Сообщений: 1,100
|
1. на что именно код ругается?
1.1 у меня в рабочей программе похожая схема авторизации - все отлично работает 2. а вот что должен делать приведенный Вами код - я так и не понял (
На форуме: Помогаю за спасибо
ICQ\Skype: Это моё личное время ... |
24.12.2012, 03:50 | #12 | |
Пользователь
Регистрация: 22.12.2012
Сообщений: 10
|
Цитата:
Что такое Trim? Да я сама честно говоря не понимаю,просто с этим кодом работать авторизация хоть как-то начала,а так у меня изначально ругался на филднейм,я сравнивала каждую строку в таблице авторизации с введёными данными в поля эдит. Ваш код я у себя так прописала,что-то не нравится ему этот Трим,говорит,что он не так должен называться с этим аргументом..((((( procedure TForm16.Button2Click(Sender: TObject); begin DM.Avt.Close; DM.Avt.SQL.Text:='SELECT * FROM Avt WHERE login = :Login AND password = :Password'; if (Trim(Form16.Edit1.Text <> '') and (Trim(Form16.Edit2.Text) <> '') then begin DM.Avt.Parameters.ParamByName('Logi n').Value := Form16.Edit1.Text; ADM.Avt.Parameters.ParamByName('Pas sword').Value := Form16.Edit2.Text; try DM.Avt.Open; Except ShowMessage('Не удаётся открыть таблицу пользователей'); Exit; end; if DM.Avt.RecordCount > 0 then begin ShowMessage('Вход успешно выполнен'); Form16.Visible := False; Form1.Visible := True; end else begin ShowMessage('Неверный логин и пароль.Повторите ввод); Form16.Edit1.Text := ''; Form16.Edit2.Text := ''; end; end else ShowMessage('Пустые поля логин и пароль не допускаются'); end; end; end. |
|
24.12.2012, 08:25 | #13 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
24.12.2012, 11:25 | #14 |
Участник клуба
Регистрация: 19.12.2007
Сообщений: 1,100
|
мг, согласен .... скобку забыл
На форуме: Помогаю за спасибо
ICQ\Skype: Это моё личное время ... |
24.12.2012, 12:07 | #15 | |
Форумчанин
Регистрация: 27.11.2012
Сообщений: 190
|
Цитата:
Возможно, уже сейчас начали возникать вопросы: а форма 16 у меня занимается покойниками или новорожденными? 15-16 или 16-15? |
|
24.12.2012, 14:57 | #16 |
Пользователь
Регистрация: 22.12.2012
Сообщений: 10
|
Yurk@ и Аватар,спасибо Вам огромное!!!!Всё работает))))
А кто-нибудь знает,где нужно прописать,чтобы форма с авторизацией выскакивала сразу после запуска программы,а уже после главная форма была доступна. |
24.12.2012, 16:24 | #17 |
Участник клуба
Регистрация: 19.12.2007
Сообщений: 1,100
|
ну так сделай главную форму Visible := False; и показывай форму логина пока не введут нужные данные - потом просто главную форму Visible := True; а логин форму закрывай (не скрывай, а именно закрывай)
На форуме: Помогаю за спасибо
ICQ\Skype: Это моё личное время ... |
25.12.2012, 06:48 | #18 |
Форумчанин
Регистрация: 27.11.2012
Сообщений: 190
|
Достаточно вставить свой код в обработчик OnCreate главной формы
|
27.12.2012, 20:37 | #19 |
Пользователь
Регистрация: 22.12.2012
Сообщений: 10
|
|
27.12.2012, 20:39 | #20 |
Пользователь
Регистрация: 22.12.2012
Сообщений: 10
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Cоздание сервера. | ISV-777 | Общие вопросы по Java, Java SE, Kotlin | 2 | 12.06.2012 21:58 |
cоздание бд на erwin | Chernov_vova | Общие вопросы по программированию, компьютерный форум | 0 | 22.05.2012 10:58 |
Надо найти ошибку в авторизации пользователя | moloko01 | PHP | 8 | 17.02.2011 14:19 |
Cоздание программы | gegjr | Помощь студентам | 4 | 07.03.2010 22:24 |
Созранение авторизации пользователя | _PROGRAMM_ | PHP | 5 | 12.01.2010 10:22 |