7,751

(1 replies, posted in Script)

Please, make sure that you have correctly set up event.
Here you can see, how to create the event
http://myvisualdatabase.com/help_en/scr … rview.html

7,752

(1 replies, posted in Russian)

Здесь можете скачать пример, как проверять на дубликат
http://myvisualdatabase.com/forum/viewtopic.php?id=1062

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


в вашем случае необходим нестандартный счетчик, как его реализовать можно посмотреть здесь
http://myvisualdatabase.com/forum/viewtopic.php?id=1088

7,754

(1 replies, posted in General)

Hello,


I made the example for you.

7,755

(1 replies, posted in Reports)

You can hide the button (visible=False) and click on this button using script (Form1.Button1.Click;)

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


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

7,757

(16 replies, posted in Script)

tcoton wrote:

No Problem, I tried to input the colours using the hexa codes but it does not work in 1.50 beta...

Please, show me, how exactly your using the hexa codes?

7,758

(12 replies, posted in General)

tcoton wrote:

How do you display a picture which has been saved in the database please?

I tried this feature, I have a picture in the database but no way on how to display it using 1.50 beta.

Please, download example from here
http://myvisualdatabase.com/forum/misc. … download=1

lenochka.detka
Действительно, так проще, спасибо )

7,760

(14 replies, posted in Russian)

К сожалению нет.

Slava.Pepper wrote:

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

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

Приветствую,
к сожалению в версии 1.46 не получится, это возможно начиная с версии 1.48
http://myvisualdatabase.com/forum/viewtopic.php?id=777

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


procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    OpenFile('notepad.exe');
end;

7,764

(14 replies, posted in Russian)

Для MVD нет понятия Сервер, каждая копия является локальной.

7,765

(3 replies, posted in General)

It would have to work in the grid.
Please, send me your project for test (with exe)
support@drive-software.com

7,766

(2 replies, posted in Script)

Hello,


You can create calculated field for it.

CASE WHEN DOCUMENT_FLAG=1 then 'Yes' else '' end


Also you can send me your project to support@drive-software.com
I'll try to help you.

7,767

(2 replies, posted in General)

Hello,



Please, send me your project to support@drive-software.com
With link at this post.

7,768

(9 replies, posted in Russian)

и этот тоже замените на

procedure Form1_GridEmployees_OnMouseUp (Sender: string; MouseLeft, MouseRight, MouseMiddle: boolean; Shift, Alt, Ctrl: boolean; X, Y: Integer);
begin
    if Ctrl then
    begin
        if Form1.GridEmployees.Cell[0, Form1.GridEmployees.SelectedRow].Color <> clRed then
        begin
            Form1.GridEmployees.Cell[0, Form1.GridEmployees.SelectedRow].Color := clRed;
            SQLExecute ('UPDATE employees SET marked=1 WHERE id='+IntToStr(Form1.GridEmployees.dbItemID));
        end else
        begin
            Form1.GridEmployees.Cell[0, Form1.GridEmployees.SelectedRow].Color := clWindow;
            SQLExecute ('UPDATE employees SET marked=0 WHERE id='+IntToStr(Form1.GridEmployees.dbItemID));
        end;
    end;
end;

7,769

(9 replies, posted in Russian)

попробуйте заменить этот участок кода

procedure Form1_GridEmployees_OnChange (Sender: string);
var
   i,c, id: integer;
   s: string;
begin
     c := Form1.GridEmployees.RowCount - 1;
     for i := 0 to c do
     begin
         Form1.GridEmployees.SelectedRow:=i;
         id := Form1.GridEmployees.dbItemID;

         s := SQLExecute('SELECT marked FROM employees WHERE id='+IntToStr(id));
         if s = '1' then Form1.GridEmployees.Cell[0, i].Color := clRed;
     end;
end;

7,770

(2 replies, posted in Reports)

Open settings of button for the Report and remove component TableGrid from the right side list.
1. Select the components involved in the search

7,771

(2 replies, posted in Script)

You must create a event OnClose for the Form2, where you can close the Form1

procedure Form2_OnClose (Sender: string; Action: string);
begin
    Form1.Close;
end;

7,772

(9 replies, posted in Russian)

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


Сделал для вас пример, с помощью мышки, удерживая Ctrl, можете устанавливать и снимать цветовое выделение, также это сохраняется в базе данных.

Да, пришлите на support@drive-software.com

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


В самом низу скрипта должен присутствовать обязательный блок

begin

end.

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

Приложите пожалуйста ваш проект (zip файл без exe и dll)
с описанием, от какого поля и символа зависит бланк печати.


постараюсь помочь.