5,301 Reply by DriveSoft

(4 replies, posted in Russian)

Приложите пожалуйста ваш проект для теста (zip файл без exe и dll)

Go to forum: Russian

5,302 Reply by DriveSoft

(1 replies, posted in Script)

Hello,


Done.

Go to forum: Script

5,303 Reply by DriveSoft

(11 replies, posted in Russian)

Vitaly
Для того, чтобы указать произвольный цвет, можно воспользоваться шестнадцетиричным числом
пример: $DDEEFF;
где FF - красный, EE - зеленый, DD - синий.

procedure Form1_Button7_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.TableGrid1.SelectionColor := $D1C0FA;
end;

Go to forum: Russian

5,304 Reply by DriveSoft

(16 replies, posted in Russian)

Честно говоря не знаю, нужен какой то сложный SQL запрос, можете попробовать обратиться на специализированный форум http://www.sql.ru/forum/sqlite

Go to forum: Russian

5,305 Reply by DriveSoft

(396 replies, posted in Russian)

wertyby wrote:

Дмитрий, а возможна ли реализация доп поля #фильтр# в меню настроек действия кнопки при параметре #поиск# как это реализовано при настройке поиска в гриде?

С какой целью? Ведь настройка Фильтр в гриде также влияет на фильтрацию при использовании кнопки Поиск.

Go to forum: Russian

5,306 Reply by DriveSoft

(131 replies, posted in Russian)

Роман
Попробуйте данный пример
http://myvisualdatabase.com/forum/misc. … download=1

Go to forum: Russian

5,307 Reply by DriveSoft

(34 replies, posted in Russian)

wertyby wrote:

Другой вопрос по данной теме. Происходит выборка с выгрузкой в таблегрид записей которые старше 30 дней, все хорошо. Далле Реализовано редактирование записи по двойному клику по строке но есть одно но выдает ошибку не удалось определить идентификатор записи. Если тапнуть один раз по гриду расположенному на этой же форме в который выводятся все записи то двойной щелчок начинает работать в гриде который ранее выдавал ошибку. В чем может быть проблема?

Видимо в запросе нет поля id записи, поэтому в гриде записи есть, но идентификатора записи нет, просто включите поле id в ваш запрос (подробней http://myvisualdatabase.com/help_ru/com … _sql.html)

Go to forum: Russian

5,308 Reply by DriveSoft

(10 replies, posted in Russian)

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


Можно, откройте DBF файл в Excel, затем сохраните его как CSV файл и импортируйте в MVD.
Пример импорта CSV файла можно посмотреть здесь
http://myvisualdatabase.com/forum/viewtopic.php?id=1373

Go to forum: Russian

5,309 Reply by DriveSoft

(16 replies, posted in Russian)

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

Go to forum: Russian

5,310 Reply by DriveSoft

(18 replies, posted in Russian)

Xexrby Tdutybq wrote:

нет все таки не работет

Пожалуйства приложите проект с данным запросом.

Go to forum: Russian

5,311 Reply by DriveSoft

(5 replies, posted in Script)

Please attach your project.

Go to forum: Script

5,312 Reply by DriveSoft

(3 replies, posted in Russian)

razdrob
Уберите эту строку

if FileExists(sFile) then

т.к. в переменной два файла, функция FileExists может проверить строку только с одним файлом.

Go to forum: Russian

5,313 Reply by DriveSoft

(11 replies, posted in Russian)

Vitaly wrote:

Вопрос по цвету выделения строки. Написал скрипт на выделение нужных строк красным и зеленым цветом. Если честно - очень яркие цвета, глаза режет. Есть какая-либо возможность заменить на их бледные оттенки?

Вы можете выбрать произвольный цвет, справа от надписи "SelectionColor" есть маленький квадратик, нажмите его.

Go to forum: Russian

5,314 Reply by DriveSoft

(5 replies, posted in Script)

ehwagner wrote:

Dimitry,
Is there an option in SelectDirectory that will allow the end user to create a directory within the same dialog box as the SelectDirectory, if the directory is not present? I have seen this in other Windows applications. Just wondering if you can do it here.

Hello,


I added this options in the latest beta version, please download
https://www.dropbox.com/s/kfh2q7h8l73lx … a.zip?dl=0


example:

    SelectDirectory('Caption', 'c:\', s); // default dialog
    SelectDirectory('Caption', 'c:\', s, True); // with button create a directory
    SelectDirectory('Caption', 'c:\', s, True, True); // with button create a directory and shows files

Go to forum: Script

5,315 Reply by DriveSoft

(30 replies, posted in Russian)

Raspr wrote:

Еще вопрос.
В форме, при сохранении выполняется простой математ. расчет (на клик). И хотелось бы при определенных условиях (в частности, результат < 0) не сохранять запись. Сейчас у меня получается только вывести сообщение о том, что так делать нельзя )), но запись сохраняется. Есть какой-то способ не сохранять запись? Если только способом сохранения записи скриптом, то нельзя ли пример запроса с одним, двумя полями на добавление записи с данными из текстбокса, комбобокса?

Вы можете создать событие OnClick у кнопки с действием "Сохранить запись", в этом событии вы можете проверить какое либо условие и запретить сохранение, например

procedure frmAddEdit_ButtonSave_OnClick (Sender: string; var Cancel: boolean);
begin
    if (ваше условие) then
    begin
        ShowMessage('ваше сообщение');
        Cancel := True; // запрещаем сохранять запись
    end;
end;

Go to forum: Russian

5,316 Reply by DriveSoft

(1 replies, posted in Russian)

http://myvisualdatabase.com/forum/viewt … 468#p13468

Go to forum: Russian

5,317 Reply by DriveSoft

(3 replies, posted in Russian)

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


Добавил такую возможность в последнюю бета версию 2.5
https://www.dropbox.com/s/kfh2q7h8l73lx … a.zip?dl=0


пример:

procedure Form1_bSend_OnClick (Sender: string; var Cancel: boolean);
var
    sFiles: string;
begin
    sFiles :='d:\down.bmp' + #13 + 'd:\wmpnss_color32.bmp'; // перечислите файлы разделяя их знаком #13 (перенос строки)

    if SendMail(Form1.edServer.Text, Form1.edUsername.Text, Form1.edPassword.Text, Trunc(Form1.edPort.Value), Form1.edFrom.Text, Form1.edTo.Text, Form1.edSubject.Text, Form1.mmMessage.Text, sFiles) then
        ShowMessage('Message sent');

end;

Go to forum: Russian

5,318 Reply by DriveSoft

(7 replies, posted in Russian)

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


имеете ввиду искать с помощью одного компонента Edit сразу по нескольким полям?
Скачайте пожалуйста данный проект с примером
http://myvisualdatabase.com/forum/misc. … download=1

Go to forum: Russian

5,319 Reply by DriveSoft

(6 replies, posted in Russian)

Обучающие материалы по скриптам:


Введение в Object Pascal
http://www.snkey.net/books/delphi/ch1-3.html


Операторы Object Pascal
http://www.snkey.net/books/delphi/ch1-4.html


Структурные типы данных
http://www.snkey.net/books/delphi/ch1-5.html


Процедуры и функции
http://www.snkey.net/books/delphi/ch1-6.html


Визуальные компоненты
http://www.snkey.net/books/delphi/ch2-2.html


Черчение, рисование и печать
http://www.snkey.net/books/delphi/ch2-3.html


Исключения и взаимодействие с API
http://www.snkey.net/books/delphi/ch2-4.html


Стандартные компоненты
http://www.snkey.net/books/delphi/ch3-2.html

Go to forum: Russian

5,320 Reply by DriveSoft

(2 replies, posted in Russian)

razdrob wrote:

Доброго дня!
Как оформить перенос в строке редактора при длинной строке, например SQL ?
испробовано:
_

' ..' +
/n

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


попробуйте так


SQLExecute('SELECT field1, ' + 
'field2, FROM tablename');

Go to forum: Russian

5,321 Reply by DriveSoft

(14 replies, posted in Russian)

Rebrovvv wrote:

Отправил Вам на электронку наш API_ID от SMS.RU с пополненным балансом

Поправил, скачайте пожалуйста бета версию 2.5
https://www.dropbox.com/s/kfh2q7h8l73lx … a.zip?dl=0


пример отправки

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
var
    s: string;
begin
    s := HTTPEncode('Привет всем');
    HTTPGet('http://sms.ru/sms/send?api_id=[api_id]&to=[phone]&text='+s);
end;

Go to forum: Russian

5,322 Reply by DriveSoft

(3 replies, posted in Script)

rjkantor wrote:

Is supporting a compiled dcu possible in a future release?  I would nice to share some functionality but not to provide my source.

Unfortunately it's not possible.

Go to forum: Script

5,323 Reply by DriveSoft

(1 replies, posted in General)

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


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

begin

end.

просто перенесите эту часть кода в событие OnShow главной формы.

Go to forum: General

5,324 Reply by DriveSoft

(5 replies, posted in Russian)

alduyr wrote:

Смотрел - спасибо. Меня в первую очередь интересует как правильно создать таблицы базы данных, что к чему относится ?

Это выходит за рамки документации о программе, об этом пишут целые книги.


Думаю вам будет достаточна прочитать несколько первых глав, чтобы иметь представления о базах данных, таблицах, полях и связях
http://www.sql.ru/articles/mssql/2006/0 … ases.shtml

Go to forum: Russian

5,325 Reply by DriveSoft

(2 replies, posted in Russian)

CASE WHEN B<=C THEN 'Тратата' ELSE 'Трутуту' END

Go to forum: Russian