1

(2 replies, posted in General)

Unfortunately you forgot attach the screenshot.

масштаб системы можно получить в данном свойстве
Screen.PixelsPerInch

3

(3 replies, posted in General)

Yep )

4

(12 replies, posted in General)

I still working on a new documentation for MVD.

5

(5 replies, posted in General)

Hello.


You still haven't received the email with a key?

Спасибо, исправлю.

Спасибо, подумаю над этим )

В настоящий момент идет работа над созданием новой документации. Можете ознакомиться с ней по данной ссылке
http://myvisualdatabase.com/doc_ru/


Буду рад выслушать ваши замечания и пожелания smile

9

(4 replies, posted in Script)

Here you can find some materials
http://myvisualdatabase.com/forum/viewtopic.php?id=2277


Also you can study examples
http://myvisualdatabase.com/forum/viewforum.php?id=10

10

(4 replies, posted in Script)

When you open form using script, you should call method dbUpdate for the TableGrid on this form.

Form2.TableGrid1.dbUpdate;

11

(3 replies, posted in Script)

example:

LMsg.CCList.Add.Address := 'email1@gmail.com';
LMsg.CCList.Add.Address := 'email2@gmail.com';
LMsg.CCList.Add.Address := 'email3@gmail.com';

12

(3 replies, posted in Script)

Check out this project
http://myvisualdatabase.com/forum/misc. … download=1


using this line you can add cc recipients
//LMsg.CCList.Add.Address := '';  // CC emails

Правильно будет
TreeView.OnDblClick := @TreeViewOnDoubleClick;


Также можете посмотреть данный проект с примером

14

(1 replies, posted in General)

Thank you, fixed.
http://myvisualdatabase.com/download/se … 20beta.zip

15

(5 replies, posted in Talks about all)

на форуме присутствует антиспам система, но видимо не справляется.

16

(1 replies, posted in General)

Thank you, fixed.

17

(5 replies, posted in General)

Everything is fine, I'm here )

pycuk wrote:

Добрый вечер. Если я сейчас куплю лицензию на минорные обновления, а затем хочу на постоянную перейти, будет ли скидка?

Да, вы просто сможете доплатить разницу в цене.

Постраничный вывод записей в TableGrid


Проект с примером.
http://myvisualdatabase.com/forum/misc. … download=1


http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=6587&download=0



CONST
    RECORS_LIMIT = 500;

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
    Form1.bSearch.Click;
end;

procedure Form1_bSearch_OnClick (Sender: TObject; var Cancel: boolean);
begin
    Form1.GridEmployees.dbOffSet := 0;
end;

procedure Form1_bNext_OnClick (Sender: TObject; var Cancel: boolean);
begin
    if Form1.GridEmployees.RowCount = 0 then exit;
    Form1.GridEmployees.dbOffSet := Form1.GridEmployees.dbOffSet + RECORS_LIMIT;
    Form1.GridEmployees.dbUpdate;
end;

procedure Form1_bPrev_OnClick (Sender: TObject; var Cancel: boolean);
begin
    Form1.GridEmployees.dbOffSet := Form1.GridEmployees.dbOffSet - RECORS_LIMIT;
    if Form1.GridEmployees.dbOffSet < 0 then Form1.GridEmployees.dbOffSet := 0;
    Form1.GridEmployees.dbUpdate;
end;

begin
    Form1.GridEmployees.dbLimit := RECORS_LIMIT;
end.

20

(5 replies, posted in Russian)

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

21

(5 replies, posted in Russian)

Patriot10200 wrote:

Да, конечно, на формате SQL тоже самое, и еще вопрос, как можно через ComboBox вытянуть из базы предыдущую запись, т.е. закрываешь путевку прописываешь конечный километраж, а при выдачи новой путевки конечный км. предыдущей путевки этого же авто вытягивался на начальный км. новой путевки? и как поменять текст в TableGrid ос чекбокса тоб значение было не (да/нет) а (закрыта/открыта) и при значении закрыто окрашивало всю строку в красный, очень буду признателен если поможете.

DriveSoft wrote:

Покажите пожалуйста скриншот с настройках при импорте, когда возникает ошибка.


Пришлите пожалуйста данный CSV файл, можно малую его часть, протестирую. support@drive-software.com


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

Form1.Edit1.Value := SQLExecute('SELECT km FROM putevka ORDER BY datetime DESC LIMIT 1');

либо просто получить максимальное значение километража

Form1.Edit1.Value := SQLExecute('SELECT MAX(km) FROM putevka');


Для закрыта/открыта создайте вычисляемое поле, где можете переопределить текст

(Case Bool_Field When 1 then 'Открыта' When 0 then 'Закрыта' End)

Пример
http://myvisualdatabase.com/forum/viewt … 966#p16966

23

(1 replies, posted in Russian)

Увы нет такой возможности. Можно только изменить цвет фона и цвет текста в ячейке.

24

(1 replies, posted in Russian)

пример

procedure Form1_cbPrices_OnChange (Sender: TObject);
begin
   Form1.Edit1.Value := SQLExecute('SELECT IFNULL(price, 0) FROM groups WHERE id=' + Form1.cbPrices.sqlValue);
end;

25

(5 replies, posted in General)

Check out this example, on form frmAbonent > Country