You are not logged in. Please login or register.
My Visual Database → Russian → форма
Доброе время суток. Не могу понять где ошибка
procedure Form1_button_OnClick;
begin
Form1.Hide; // close form
Form1920х1080.Show
end;
(Нужно когда я нахожусь на форме1 при клике по кнопке Буттон, что бы эта форма закрылась и вышла Форм1920х1080
И еще вопрос, где то был пример или мне показалось? Что бы у каждого пользователя помимо своих прав, еще и форма своя открывалась
Приветствую.
Ошибка скорей всего в том, что вы неправильно создали событие для кнопки. Событие необходимо создавать дважды кликнув на вкладке События. Подробно http://myvisualdatabase.com/help_ru/scr … rview.html
Также будьте внимательны, когда скрываете главную форму, т.к. приложение будет висеть в памяти до тех пор, пока главная форма проекта не будет закрыта, в вашем случае вы ее просто скрыли, но не закрыли.
Здесь можете найти проекты с правами пользователя, там правда нет примера с открытием своей формы, просто приложите ваш проект с конкетным вопросом, постараюсь помочь
http://myvisualdatabase.com/forum/viewtopic.php?id=1060
Я так понимаю это из за этого?
А если главная форма это окно Логина и пароля. Как быть? ведь оно автоматически скрывается и если его делать не главным то тогда убирая скрипт, программа просто ломается и входит без пароля.
Здесь можете найти проекты с правами пользователя, там правда нет примера с открытием своей формы, просто приложите ваш проект с конкетным вопросом, постараюсь помочь
http://myvisualdatabase.com/forum/viewtopic.php?id=1060
Идея в том что бы админ попадал на форму Form1920x1080, юзер1 на Form1440х900, а юзер 2 на Form1280x700
для форума.rar 513.11 kb, 275 downloads since 2018-12-11
пример скрипта из моего проекта
// 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 ; //менеджерЯ так понимаю это из за этого?
А если главная форма это окно Логина и пароля. Как быть? ведь оно автоматически скрывается и если его делать не главным то тогда убирая скрипт, программа просто ломается и входит без пароля.Да.
Допустим у вас frmLogin - главная форма, просто закрываем ее при закрытии другой формы.
procedure Form1_OnClose (Sender: TObject; Action: string);
begin
frmLogin.Close;
end;пример скрипта из моего проекта
// 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 ; //менеджер
А вы можете показать эту рабочую частью своего проекта? Что бы я смог его запустить. Просто я вообще не шарю в коде. Куда его вставлять, особенно если уже сделал логирование на другом примере. А сравнить и копировать получается.
вырезал для вас часть программы
service.rar 174.11 kb, 278 downloads since 2018-12-12
Благодарю, всё хорошо расписано. Буду разбираться
My Visual Database → Russian → форма
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi