Topic: Как организовать вход в готовый проект по логину и паролю?
Подскажите простым примером
My Visual Database → Russian → Как организовать вход в готовый проект по логину и паролю?
Подскажите простым примером
В качестве примера могу предложить два проекта,
один с пользователями
во втором добавлены права пользователей.
Просто и Гениально. Спасибо.
Практически первая программа под мои нужды готова. Это фантастика!!!!! У моих партнеров нет Excel. Стоит Open Office и вместо него Calc. Как можно обыграть кнопку Отправить в Excel, чтобы данные уходили в этот Calc.
Попробуйте по гриду нажать правой кнопкой мыши и выбрать в меню Copy All (Скопировать все) и вставить в Calc
либо можно сделать это через отчеты, которые могут открываться в Open Office.
Очень вам признателен. Сейчас попробую
Передачу данных по электронной почте сделал путем копирования и отправки sqlite.db. Но, есть одно предложение. Во вкладке Инструменты\Расположение файла базы данных\ добавить в модальном окошке Отправить по электронной почте. Тогда эту программу можно сделать полностью взаимосвязанной с удаленными компьютерами. База будет перезаписываться простым копированием и вставкой. Такое возможно ?
ivanovstudio
такой способ не возможен, чтобы сделать базу взаимосвязанной.
Для взаимодействия с удаленным компьютером, лучше воспользуйтесь удаленным рабочим столом.
А у меня получилось! Я установил программу на одном комп и на другом точно такую же , только права на кнопки изменил. Скинул на почту и перезаписал sqlite.db Причем сам этот файл изменил название на tst_sqlite.db и работает!!!
если данные изменяться и добавляться будут только на том компьютере, который рассылает этот файл, то проблем не будет.
иначе данные не будут синхронизированы.
Согласен. Только если принимающая сторона ничего не меняет. А может быть прописать функцию отправки через кнопку? При нажатии открывается папка с базой и отправляется на почту по умолчанию. Такое можно сделать в этой программе?
Планируется такая функция )
Можно я первым об этом узнаю? И последний вопрос: С мобильного на Андроиде работать в перспективе будет? Чтобы человек смог занести данные и отправить
Спасибо за терпение. Программа фантастическая по замыслу!!!
Версия для андройда это пока в далекой перспективе )
для андройда есть клиент для подключения к удаленному рабочему столу Windows, в принципе с помощью этого можно занести данные.
Прошу помощи!
На этапе входа в проект задействованы три формы:
1. frmHello (главная): кнопки bUser и bVisitor
2. frmLogin: текстбоксы edUser , edPassword и кнопка bEnter
3. frmChoice: кнопки 1, 2 и bSetting
Есть вот такой скрипт:
var
sUser: string = '';
// event OnShow
procedure frmHello_OnShow (Sender: string; Action: string);
begin
frmLogin.edPassword.PasswordChar := '*';
frmLogin.ShowModal; // show windows for login
end;
procedure frmLogin_bLogin_OnClick (Sender: string; var Cancel: boolean);
var
s: string;
begin
// SQL query for check user and password
s := VarToStr( SQLExecute('SELECT count(id) FROM users WHERE (login = ''' + frmLogin.edUser.Text + ''') AND (password = ''' + frmLogin.edPassword.Text + ''');') );
// if SQL query found login and password
if (s <> '0') and (s<>'') then
begin
sUser := frmLogin.edUser.Text; // remember username
// check admin rights
s := VarToStr( SQLExecute('SELECT administrator FROM users WHERE (login = ''' + sUser + ''');') );
if s='0' then frmChoice.bSetting.Enabled := False; // если пользователь не обладает правами администратора, отключить кнопку
frmLogin.Close; // close login form
end else MessageDlg('неправильный логин или пароль ', mtError, mbOk, 0); // сообщение, если пароль неверный
end;
// window closing event for login
procedure frmLogin_OnClose (Sender: string; Action: string);
begin
//if the user has not been defined, and the user closes the login window, then close the main form
if sUser='' then frmChoice.Close;
end;
begin
// Initial check whether there is a database administrator user
// if not, create an administrator with username admin and password admin
if VarToStr( SQLExecute('SELECT count(id) FROM users WHERE administrator=1;') ) = '0' then
begin
SQLExecute('INSERT INTO users (login, password, read, write, remove, search, administrator) VALUES ("admin", "admin", 1, 1, 1, 1, 1);');
frmLogin.edUser.Text := 'admin';
frmLogin.edPassword.Text := 'admin';
end;
end.
Работает так:
1. С логином 'admin' и паролем 'admin' - нормально
2. С логином и паролем пользователя – нормально
3. С незаполненными или не правильно заполненными полями edUser и edPassword – открывается MessageDlg, при нажатии на кнопку mbOk происходит вход в форму frmChoice с правами администратора (?).
4. Кроме того не закрываются не активные формы, т. е. каждая вновь открытая форма накладывается на открытую предыдущую.
5. При наборе пароля текстовые знаки не заменяются на ‘*’, хотя это вроде бы прописано: frmLogin.edPassword.PasswordChar := '*';
Очень прошу помочь разобраться!
И с Днём автомобилиста всех!
kunar80
Приложите пожалуйста ваш архив проекта к сообщению без exe и dll файла, либо пришлите проект на support@drive-software.com со ссылкой на данный топик.
kunar80
Приложите пожалуйста ваш архив проекта к сообщению без exe и dll файла, либо пришлите проект на support@drive-software.com со ссылкой на данный топик.
Спасибо за внимание к пользовапелям! Отправил сообщение в личку.
My Visual Database → Russian → Как организовать вход в готовый проект по логину и паролю?
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi