You are not logged in. Please login or register.
My Visual Database → Posts by DriveSoft
Можно чуть проще
procedure Form1_OnShow (Sender: string; Action: string);
begin
if (GetUserName<>'МоёИмя') AND (GetUserName<>'User1') AND (GetUserName<>'User2') AND (GetUserName<>'User3') then
begin
MessageDlg(('ВАМ ОТКАЗАНО В ДОПУСКЕ' + #13#10+ 'К ПРОГРАММЕ "ProgramName"'),mtError, mbOK, 0);
Form1.Close;
end;
end;I made example for you.
After sending SMS, you can check them statuses, using button "Check statuses"
Unfortunately, this service does not support my development environment.
Unfortunately I can not write a script to do this, because need to spend some money for testing.
Вы можете просто перечислить имена всех пользователей, которые могут пользоваться программой
procedure Form1_OnShow (Sender: string; Action: string);
begin
if (GetUserName<>'User1') AND
(GetUserName<>'User2') AND
(GetUserName<>'User3') AND
(GetUserName<>'User4') AND
(GetUserName<>'User5')
then Form1.Close;
end;Приветствую,
Да, одновременно писать в базу данных несколько пользователей не могут, но это запись происходит как правило за доли секунды, и даже если 10 пользователей одновременно попытаются записать данные в БД, ничего страшного не произойдет, максимум программа подвиснет на секунду и сохранит.
Здравейте.
1. Это можно сделать с помощью вычисляемого поля
Round(fieldname, 3)
2. К сожалению не смог понять вопроса.
3. Почему при добавлении нового двигателя, необходимо удалить данные из таблицы?
или я не правильно вас понял?
К сожалению функция GetComputerName не реализована в текущей версии.
Приветствую,
Данный скрипт работает только с изображениями.
в вашем случае, это можно сделать так
procedure Form1_GridEmployees_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
Form1.Memo1.Text := SQLExecute ('SELECT memo FROM employees WHERE id='+Form1.GridEmployees.sqlValue);
end;также сделал для вас проект с примером
How large was the text?
Checked 60kb of text, all right.
and by the way, how can i select a date in one form and display that date in a texbox e another form?
thanks
procedure Form1_DateTimePicker1_OnChange (Sender: string);
begin
Form2.Edit1.Text := DateToStr(Form1.DateTimePicker1.Date);
end;but i want to have only one procedure for all.. is possible?
Yes, just copy name of procedure (frmManutenção_DateTimePicker1_OnChange)
to Tab Event > OnChange for all DateTimePicker components.
Сделал пример, печатает все штрихкоды из базы в три колонки на странице.
Для этого необходимо выполнить SQL запрос
SQLExecute ('DELETE FROM tablename');Можете создать событие OnShow у главной формы с кодом
procedure Form1_OnShow (Sender: string; Action: string);
begin
if GetUserName<>'PCName' then Form1.Close;
end;если имя компьютера не PCName, тогда программа просто закрывается.
Приветствую,
В принципе можно, узнать имя компьютера можно с помощью функции GetUserName
а имена компьютеров, на которых программа будет работать можно перечислить непосредственно в скрипте, так будет проще.
Unfortunately, in the current version is not possible to create a global event OnKeyPress for all forms.
Заповядайте )
Slava.Pepper
К сожалению я уже не помню вашего проекта, пожалуйста пришлите его на support@drive-software.com
также не пойму, что именно не работает?
Пришлите пожалуйста ваш проект на support@drive-software.com
со ссылкой на данную тему, постараюсь помочь.
В скрипте должен присутствовать только один блок
begin
end.также он располагается в самом низу скрипта, все что идет после слова end. будет проигнорировано.
Также исправил некоторые другие ошибки.
Исправленный проект приложил к сообщению.
Slava.Pepper
К сожалению я не могу понять ваших вопросов.
Что значит "насквозь через таблицу группы"?
и о какой переделке идет речь?
Доработал ваш проект.
Пожалуйста, приложите к сообщению ваш проект (zip файл без exe и dll)
Также опишите суть вопроса.
My Visual Database → Posts by DriveSoft
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi