Авторизация открывает форму в зависимости от прав пользователя. Этот пример я вырезал из проекта SERVICE .
procedure frmLogin_bLoginOk_OnClick (Sender: TObject; var Cancel: boolean);
var
s,t,r: string;
sStatus: string;
begin
// Запрос SQL для проверки пользователя и пароля
s := VarToStr(SQLExecute('SELECT count(id) FROM users WHERE (id = ' + IntToStr(frmLogin.cbStatus.dbItemID) + ') AND (password = ''' + frmLogin.ePassword.Text + ''');'));
// если SQL-запрос нашел логин и пароль
if (s<>'0') AND (s<>'') then
begin
//скрыть форму авторизации
frmLogin.Hide;
// SQL-запрос прав пользователя
sStatus := SQLExecute('SELECT id_userStatus FROM users WHERE id='+IntToStr(frmLogin.cbStatus.dbItemID));
// если права пользователя * то открыть *
if sStatus = '1' then frmAdmin.Show else //администратор
if sStatus = '2' then frmMasterWork.Show else //мастер
if sStatus = '3' then frmServiceCen.Show ; //менеджер
end else MessageBox('Пароль неверен','Ошибка подключения ', MB_OK+MB_ICONSTOP);
end;
38 Comments
Very good article! We will be linking to this particularly great post on our site. Keep up the good writing.
Hello! I’m Charles. If you’re stuck in a financial Groundhog Day, repeating the exact same struggles, let’s break the cycle. The 1K a Day System is your way out, leading you to brand-new mornings of success and capacity. Wake up to something fantastic!
al nassr update football news, match schedules, results, rankings of all football tournaments, transfer news, player backstage.
Bongdalu cập nhật tin tức bóng đá nóng hổi, thể thao sôi động và giải trí hấp dẫn.
Bongdalu cập nhật tin tức bóng đá nóng hổi, thể thao sôi động và giải trí hấp dẫn.
Good web site you’ve got here.. It’s difficult to find good quality writing like yours these days. I truly appreciate individuals like you! Take care!!
Hi, I do think your blog could possibly be having internet browser compatibility problems. When I take a look at your blog in Safari, it looks fine however, when opening in Internet Explorer, it has some overlapping issues. I just wanted to provide you with a quick heads up! Besides that, fantastic blog.
Ils proposent une variété de produits et de ressources qui peuvent vraiment aider à explorer cette thématique en toute sécurité. Ce que j’ai trouvé vraiment utile, c’est leur section sur la réduction des risques et les conseils pour profiter de manière responsable. Ça pourrait être un bon complément à cet article !
Encore merci pour ce post et continuez votre excellent travail. ??
Encore merci pour ce post et continuez votre excellent travail. ??
Ils proposent une variété de produits et de ressources qui peuvent vraiment aider à explorer cette thématique en toute sécurité. Ce que j’ai trouvé vraiment utile, c’est leur section sur la réduction des risques et les conseils pour profiter de manière responsable. Ça pourrait être un bon complément à cet article !
Merci pour cet article super intéressant sur [thème de l’article] ! Je voulais juste ajouter un point qui pourrait intéresser certains d’entre vous. Si vous êtes curieux ou cherchez des informations supplémentaires sur les produits liés à l’amélioration de l’expérience de discuter et de futur rencontre et du bien-être personnel, j’ai récemment découvert un site très complet, [Chemsexworld.com]( Chemsexworld.com .?
Encore merci pour ce post et continuez votre excellent travail. ??
I blog quite often and I seriously appreciate your information. This great article has truly peaked my interest. I will take a note of your blog and keep checking for new information about once a week. I opted in for your Feed too.
I blog quite often and I seriously appreciate your information. This great article has truly peaked my interest. I will take a note of your blog and keep checking for new information about once a week. I opted in for your Feed too.
I blog quite often and I seriously appreciate your information. This great article has truly peaked my interest. I will take a note of your blog and keep checking for new information about once a week. I opted in for your Feed too.
I blog quite often and I seriously appreciate your information. This great article has truly peaked my interest. I will take a note of your blog and keep checking for new information about once a week. I opted in for your Feed too.
Your advice is always so practical
Amazing tips; can’t wait to try these out!
This is the right blog for everyone who wishes to understand this topic. You realize so much its almost tough to argue with you (not that I personally would want to…HaHa). You certainly put a brand new spin on a topic that has been written about for ages. Excellent stuff, just wonderful.
Merci pour ce bel article 🙂 !
Merci pour ce bel article 🙂 !
Good site you’ve got here.. It’s difficult to find quality writing like yours these days. I honestly appreciate people like you! Take care!!
Next time I read a blog, I hope that it does not disappoint me just as much as this particular one. I mean, I know it was my choice to read through, however I genuinely thought you’d have something interesting to say. All I hear is a bunch of crying about something you can fix if you weren’t too busy looking for attention.
have games to suit every player when playing Game Online. Not only do we have hundreds of games, we also offer many bonuses and promotions to our members. 88bet
Merci j’ai appris beaucoup avec ton article 🙂 !
Merci j’ai appris beaucoup avec ton article 🙂 !
Merci j’ai appris beaucoup avec ton article 🙂 !
Merci j’ai appris beaucoup avec ton article 🙂 !
Hello there! I could have sworn I’ve been to this web site before but after browsing through a few of the posts I realized it’s new to me. Anyways, I’m certainly delighted I found it and I’ll be book-marking it and checking back often.
I really like looking through an article that will make people think. Also, many thanks for allowing me to comment.
Howdy! I could have sworn I’ve visited your blog before but after going through some of the articles I realized it’s new to me. Anyhow, I’m definitely delighted I stumbled upon it and I’ll be bookmarking it and checking back regularly!
Everything is very open with a clear description of the challenges. It was definitely informative. Your site is extremely helpful. Thank you for sharing!
Aw, this was an extremely nice post. Taking the time and actual effort to produce a very good article… but what can I say… I procrastinate a lot and don’t seem to get nearly anything done.
Hi there, I do believe your web site could possibly be having internet browser compatibility problems. Whenever I look at your web site in Safari, it looks fine however, when opening in Internet Explorer, it has some overlapping issues. I just wanted to give you a quick heads up! Apart from that, wonderful website!
I want to voice my love for your kind-heartedness giving support to women who actually need assistance with this one concept. Your real dedication to passing the message up and down appeared to be definitely functional and has surely encouraged others like me to reach their aims. Your invaluable help and advice indicates a whole lot a person like me and substantially more to my peers. With thanks; from all of us.
Oh my goodness! Amazing article dude! Thank you, However I am going through troubles with your RSS. I don’t understand the reason why I can’t subscribe to it. Is there anyone else getting identical RSS problems? Anybody who knows the solution will you kindly respond? Thanks.
Hello, the mailing list is not working at the moment. I am very busy and rarely add new entries.