9,626

(2 replies, posted in Script)

procedure mm_add_edit_edDate_OnExit (Sender: string);
begin
     if mm_add_edit.edDate.Checked=False then
     begin
          ShowMessage('Prosze podac date testu.');
     end;
end;


For validate data on form, i recommend use event OnClick of button for save data.

procedure mm_add_edit_ButtonSave_OnClick (Sender: string; var Cancel: boolean);
begin
     if mm_add_edit.edDate.Checked=False then
     begin
          ShowMessage('Prosze podac date testu.');
          Cancel := True; // This cancel the action button
     end;
end;

but you can't use property edDate.Color, this don't work in Windows anymore.

grial
Спасибо, планируется такая возможность.

9,628

(8 replies, posted in Russian)

Приветствую,

в текущей версии нет таких возможностей, поэтому только что добавил их, скачайте по этой ссылке неофициальную версию 1.41
https://www.dropbox.com/s/fr76z69sc69l1 … 201.41.zip


после чего можете воспользоваться следующими командами

OpenFile('имя файла'); // запустит программу либо откроет файл программой по умолчанию
OpenFile('имя файла', 'имя файла программы, с помощью которой необходимо открыть'); // откроет файл указанной программой
OpenUrl('http://ссылка'); // откроет ссылку в браузере по умолчанию.

9,629

(16 replies, posted in Russian)

makiavielli

прочитайте пожалуйста 13 сообщение в данной теме.

savage

Нет )
Никакая база данных не будет работать через ftp.

1. Не будет.


2. Через интернет возможно, только если локальные сети объедены с помощью VPN, либо можно использовать удаленный рабочий стол, напомню, что SQLite, которая используется в программе, не является полноценным клиент-сервером, но многопользовательская работы возможна.

9,632

(33 replies, posted in Russian)

shapovalovln

Приветствую,

у кнопки есть событие OnClick, можете им воспользоваться чтобы вызвать форму: Form2.Show; или Form2.ShowModal;
во втором случае, форма будет модальной, т.е. к предыдущей форме можно вернуться только закрыв Form2

Приветствую,


Думаю возможно с помощью скриптов, но пока не представилось случая протестировать это,  скачайте неофициальную 1.41 версию,  https://www.dropbox.com/s/fr76z69sc69l1 … 201.41.zip


в которую я добавил новую функция для скрипта SQLExecute, которая позволяет делать простой SQL запрос и получить одиночный результат, например для проверки пароля:


s := VarToStr( SQLExecute ('SELECT password FROM users WHERE login="admin") );


после чего в переменной s будет содержаться пароль, который можно проверить с тем, что ввел пользователь, если все ок, то пропускаем и запоминаем в глобальной переменной имя пользователя, чтобы потом использовать ее для проверки прав доступа к редактированию и удалению записей.


Но честно говоря, это довольно условная защита, т.к. пароли в базе хранятся в открытом виде, да и сам скрипт тоже представляет из себя обычный текстовый файл, который может отредактировать любой желающий.

9,634

(2 replies, posted in Russian)

Приветствую,


Скачайте новый проект, сделал часть скрипта, отвечающую за события более компактной, и добавил ToolBar на вторую форму.

9,635

(1 replies, posted in Russian)

Да, были, я заменил Grid на другой компонент, более функциональный, но в котором увы нет стилей.

9,636

(31 replies, posted in Russian)

Проверил, все ок с сортировкой.


Судя по ошибке, вы заполняете TableGrid SQL запросом? если да, то сортиврока пока правильно работать не будет, позже поправлю, на счет ошибки "Не удалось определить идентификатор записи", выдержка из документации:

Во всех этих примерах, в запросе мы добавляли id (напр.: SELECT lastname, fistname, id FROM...), что обязательно, если мы хотим иметь возможность отредактировать или удалить запись из компонента таблицы, в нашем случае с именем GridSearch.

Если вы не хотите видеть значение id в компоненте таблицы, введите название для этой колонки delete_col

http://myvisualdatabase.com/help_ru/com … n_sql.html

9,637

(187 replies, posted in General)

The Engineer

Thank you for the help, i don't have problem with designing or compiling an help system, i need translater from my native language to english.


Thanks )

9,638

(8 replies, posted in Russian)

djon.home

сложно сказать, я не знаю какая имеется связь между таблицами INC и Task


Таблицы объединяются с помощью JOIN, как вы сами видите в вашем запросе, так же можно объединить два и более независимых запроса с помощью оператора UNION, но при это у каждого запроса должно быть одинаковое количество полей и их тип. Более подробно об этом способе можно прочитать здесь http://www.sql.ru/docs/sql/u_sql/ch14.shtml

9,639

(16 replies, posted in Russian)

mldrobot2

Файл прикрепил к сообщению, скопируйте его так же в папку с программой My Visual Database


При это вам все равно необходимо будет перечислить текстовые поля в секции [DisableUpperCase] файла settings.ini

9,640

(15 replies, posted in Russian)

alex842
Моя недоработка, чтобы поиск заработал, пришлось вывести в результат поиска поле TranslTheme.id_Themes, заодно и поле Themes.ThemesID


если наличие TranslTheme.id_Themes в результатах поиска недопустимо, придется делать поиск через SQL запрос.


исправленный проект приатачен к сообщению.

Приветствую,

данное условие не может быть верным: WHERE Uslugi.usluga = {TableGrid2}
т.к. компонент {TableGrid2} возвращает id записи, а не текст.


попробуйте так
WHERE application.id_Uslugi = {TableGrid2}

9,642

(30 replies, posted in Russian)

atempbox
Спасибо, записал, надеюсь смогу отловить.

9,643

(8 replies, posted in Russian)

djon.home
WHERE (case when {ComboBox5}=-1 then 1=1 else Task.id_Performers={ComboBox5} end) OR ....

9,644

(16 replies, posted in Russian)

mldrobot2

Приветствую,

в базе данных не сохраняется регистр неанглийских букв, пришлось так сделать, чтобы работал регистронезависимый поиск.

в качестве временного решения
нужно открыть файл settings.ini и написать следующее
 
[DisableUpperCase]
Tablename.fieldname1=
Tablename.fieldname2=

таким образом в перечисленных полях будет отключена функция преобразования к одному регистру.
но в тоже время по этим поля не будет работать регистронезависимый поиск.


Если все же регистронезависимый поиск необходим, дайте знать, вышлю вам исправленную версию файла sqlite.dll

9,645

(10 replies, posted in Russian)

Владислав Косяков
увы пока не планирую, т.к. это усложнит интерфейс, а воспользуются этим единицы, чуть позже это можно будет сделать с помощью скрипта.

9,646

(2 replies, posted in Russian)

Приветствую.

1. Программа пока не умеет добавлять поля без потери информации, но в крайнем случае можно поступить так:
добавить новое поле в базу данных, но при запуске проекта отказаться от пересоздания базы данных.
затем воспользоваться программой SQLiteStudio, чтобы вручную добавить данное поле в таблицу базы данных.


2. Доработал ваш проект, добавил на форму FrmEmpAdd список, в который вы можете добавлять папки и права к ним.

9,647

(10 replies, posted in Russian)

Владислав Косяков
Да, действительно пока так не получиться сделать, мне необходимо доработать работу со скриптами.

9,648

(15 replies, posted in Russian)

kodecs
Перепроверил, все ок, может у вас старая версия программы?

9,649

(30 replies, posted in Russian)

atempbox
Если это возможно, пришлите проект на support@drive-software.com с указанием какие именно гриды не запоминают, проверю в чем дело.

9,650

(8 replies, posted in Russian)

Скачайте пожалуйста неофициальную версию 1.41, добавил данный компонент для сводной таблицы
https://www.dropbox.com/s/fr76z69sc69l1 … 201.41.zip


к сожалению не работал со сводными отчетами, поэтому мало что могу подсказать по ним.