Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Авторизация 
:(
    Опции темы
staziah2
Дата 19.5.2015, 09:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 24.3.2015

Репутация: нет
Всего: нет
Добрый день! Понимаю что,это тема заезжена вдоль и поперек,но видимо пока не доходит до меня. Имеется wwDBLookupCombo,Edit,Button. БД:MSSQL 2000. Так вот,здесь надо,чтобы 76 отдел имел полный доступ,то бишь 76 отдел это как бы admin, а остальные цеха и отделы это юзеры. И мне надо,чтобы 76 отдел мог войти в главную форму,а другие в одну форму.
Вот код:
Код

procedure TForm7.Button1Click(Sender: TObject);
var login,parol:string;
begin
login:=wwDBLookupCombo1.Text;
parol:=Edit1.Text;
 
begin
dm.ADOQuery1.Close;
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.SQL.Text:='select * from password Where ((Cex='''+login+''') And (parol='''+parol+'''))';
DM.ADOQuery1.Open;
end;
if DM.ADOQuery1.RecordCount<>0 then
if DM.ADOQuery1.FieldByName('Cex').AsString = '76' then
     Form3.Show
 
else
 if dm.ADOQuery1.FieldByName('Cex').AsString = '' then
  Form1.Show;
 
end
;


Ну не могу понять.
PM MAIL ICQ   Вверх
Illusion Dolphin
Дата 19.5.2015, 14:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 2
Всего: 63
[offtopic]
Я бы зашёл в программу как: "'); DROP TABLE password;"
[/offtopic]

А если по вопросу, то я не понял, в чём проблема и что не получается. 


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
staziah2
Дата 20.5.2015, 01:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 24.3.2015

Репутация: нет
Всего: нет
Цитата(Illusion Dolphin @ 19.5.2015,  14:03)
[offtopic]
Я бы зашёл в программу как: "'); DROP TABLE password;"
[/offtopic]

А если по вопросу, то я не понял, в чём проблема и что не получается.

не могу зайти ни на какую форму после нажатия кнопки Вход. Выбрала отдел,набрала пароль,нажимаю на кнопку Вход и ничего нет. Никакая форма не открывается
PM MAIL ICQ   Вверх
Illusion Dolphin
Дата 23.5.2015, 22:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 2
Всего: 63
Цитата

не могу зайти ни на какую форму после нажатия кнопки Вход. 

А кто "открывает" форму? Вы пробовали отлаживать программу в отладчике? Метод .Show вызывается?


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1039 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.