3,176 Reply by DriveSoft

(5 replies, posted in Script)

Check out this topic
http://myvisualdatabase.com/forum/viewtopic.php?id=2018

Go to forum: Script

3,177 Reply by DriveSoft

(8 replies, posted in Russian)

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

Go to forum: Russian

3,178 Reply by DriveSoft

(10 replies, posted in Russian)

kovalenko wrote:

Дмитрий ещё раз здравствуйте. Сделал эту процедуру в двух формах. Если не комментировать одну из них, то во второй подсвечивается красным
procedure CloseForms(exceptForm: TForm);
Что не так?

Не совсем понял, приведите ваш скрипт полностью

Go to forum: Russian

3,179 Reply by DriveSoft

(4 replies, posted in General)

Please attach your project (zip file without exe and dll) and describe steps to introduce the error.

Go to forum: General

3,180 Reply by DriveSoft

(1 replies, posted in Russian)

На форме "Контактное лицо" нет необходимости в компоненте ComboBox (контрагент). Программа автоматически привяжет контактное лицо к контрагенту.


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

procedure Контактное_лицо_OnShow (Sender: string; Action: string);
begin
    if Контактное_лицо.bOK.dbGeneralTableId=-1 then Контактное_лицо.ComboBox1.dbItemID := Контрагент.bOK.dbGeneralTableId;
end;

Go to forum: Russian

3,181 Reply by DriveSoft

(18 replies, posted in FAQ)

konstantin.gussev
Доработал пример

Go to forum: FAQ

3,182 Reply by DriveSoft

(1 replies, posted in Script)

Example, how to create StatusBar

var
    StatusBar: TStatusBar;

procedure Form1_OnShow (Sender: string; Action: string);
begin
    StatusBar := TStatusBar.Create(Form1);
    StatusBar.Parent := Form1;
    StatusBar.Panels.Add; //0
    StatusBar.Panels.Add; //1
    StatusBar.Panels.Add; //2

    StatusBar.Panels.Items[0].Width := 150;
    StatusBar.Panels.Items[0].Text := 'Hello';

    StatusBar.Panels.Items[1].Width := 100;
    StatusBar.Panels.Items[1].Text := 'Value';

    StatusBar.Panels.Items[2].Width := 100;
    StatusBar.Panels.Items[2].Text := 'Value';
end;

Icons for statusbar is not supported.


Project:

Go to forum: Script

3,183 Reply by DriveSoft

(19 replies, posted in Russian)

kovalenko wrote:
DriveSoft wrote:

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

Да, заработало. А подскажите как реализовать если на frmAbonent для абонента не одна фотка, а три?

procedure frmAbonent_bOK_OnAfterClick (Sender: string);
var
    dbFileName, sFileName, sNewFileName: string;
begin
    if frmAbonent.dbPhoto1.dbImageIsChanged then
    begin
        sFileName := frmAbonent.dbPhoto1.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmAbonent.dbPhoto1.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmAbonent.dbPhoto1.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo1_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
            end;
        end;
    end;
    
    if frmAbonent.dbPhoto2.dbImageIsChanged then
    begin
        sFileName := frmAbonent.dbPhoto2.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmAbonent.dbPhoto2.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmAbonent.dbPhoto2.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo2_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
            end;
        end;
    end;

    if frmAbonent.dbPhoto3.dbImageIsChanged then
    begin
        sFileName := frmAbonent.dbPhoto3.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmAbonent.dbPhoto3.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmAbonent.dbPhoto3.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo3_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
            end;
        end;
    end;
end;

Go to forum: Russian

3,184 Reply by DriveSoft

(19 replies, posted in Russian)

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

Go to forum: Russian

3,185 Reply by DriveSoft

(19 replies, posted in Russian)

Сделал для вас проект с примером:



скрипт

procedure frmAbonent_bOK_OnAfterClick (Sender: string);
var
    dbFileName, sFileName, sNewFileName: string;
begin
    if frmAbonent.dbPhoto.dbImageIsChanged then
    begin
        sFileName := frmAbonent.dbPhoto.dbFileName;
        sFileName := ExtractFileDir(Application.ExeName)+sFileName;
        sNewFileName := ExtractFilePath(Application.ExeName) + frmAbonent.dbPhoto.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName);

        dbFileName := '"\'+frmAbonent.dbPhoto.dbCopyTo + '\'+ frmAbonent.EditCounter.Text + '_' + DateToStr(frmAbonent.dtDate.Date) + ExtractFileExt(sFileName)+'"';

        if FileExists(sNewFileName) then
        begin
            if IDYES = MessageBox('File exists.' + #13+ sNewFileName+#13+ 'Overwrite?', 'Warning', MB_YESNO+MB_ICONQUESTION) then
            begin
                DeleteFile(sNewFileName);
                if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
            end;
        end else if RenameFile(sFileName, sNewFileName) then SQLExecute('UPDATE person SET photo_filename = '+dbFileName + ' WHERE id='+IntToStr(frmAbonent.bOK.dbGeneralTableId));
    end;
end;


Проект:

Go to forum: Russian

3,186 Reply by DriveSoft

(3 replies, posted in General)

manixs2013 wrote:

Thanks!

Can i send it to you via email?

Yes, send it to support@drive-software.com with link on this topic.

Go to forum: General

3,187 Reply by DriveSoft

(3 replies, posted in General)

Hello.


procedure Form2_OnShow (Sender: string; Action: string);
begin
    Form2.DateTimePicker1.DateTime := now;
end;

Go to forum: General

3,188 Reply by DriveSoft

(10 replies, posted in Russian)

Здравствуйте.


Скачайте пожалуйста последнюю бета версию 3.6
https://www.dropbox.com/s/4rfukqr2r1awq … b.zip?dl=0


Пример:

procedure frmNumber_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
    CloseForms(frmAbonent);
end;

procedure CloseForms(exceptForm: TForm);
var
    i,c: integer;
begin
    c := Screen.FormCount-1;
    for i := c downto 0 do
    begin
        if (Screen.Forms[i] is TAForm) and
           (Screen.Forms[i] <> exceptForm) and
           (Screen.Forms[i].ClassName <>'TfrmMaindbCore') then Screen.Forms[i].Close;
    end;
end;

процедура CloseForms закроет все формы кроме той, которая указана в параметрах, также главная форма также не будет закрыта.

Go to forum: Russian

3,189 Reply by DriveSoft

(11 replies, posted in General)

Example:

procedure Form2_OnShow (Sender: string; Action: string);
begin
    Form2.Edit1.Value := Form2.ButtonSave.dbGeneralTableId;
end;

Go to forum: General

3,190 Reply by DriveSoft

(18 replies, posted in FAQ)

konstantin.gussev wrote:

Было бы еще интересно сделать шифрование паролей в базу с помощью md5. Имея доступ к базе данных все пароли видны как на ладоне.

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

Go to forum: FAQ

3,191 Reply by DriveSoft

(18 replies, posted in FAQ)

konstantin.gussev
В sql запросе слово read заключите в кавычки двойные, т.к. для MySQL это слово является зарезирвированным.

Go to forum: FAQ

3,192 Reply by DriveSoft

(1 replies, posted in Russian)

Это решается с использованием вычисляемого поля, проект с примером:
http://myvisualdatabase.com/forum/misc. … download=1

Go to forum: Russian

3,193 Reply by DriveSoft

(6 replies, posted in General)

geochrist wrote:

Hi

I have not found a solution. I program on a laptop with hd display. When I run the app on other computers with other resolutions I have problems.\
Also under windows 10 many times the app does not appear correct on screen. Do you have any settings that I have to apply to the app (right click on app icon >>>properties) so that windows runs it correctly?

Can someone help me on the above issues?

Thanks
George

Please attach your project and screenshots to understand the problem, usually the property Anchors solves the problem with different resolutions.

Go to forum: General

3,194 Reply by DriveSoft

(4 replies, posted in General)

Thank you for your project, you found a bug. Please download latest version again, fixed:
http://myvisualdatabase.com/download/myvisualdb.exe

Go to forum: General

3,195 Reply by DriveSoft

(3 replies, posted in General)

Hello.


Please attach your project.

Go to forum: General

3,196 Reply by DriveSoft

(4 replies, posted in General)

Please send me you project and database to support@drive-software.com with link to this topic and describe steps to reproduce slow work.

Go to forum: General

3,197 Reply by DriveSoft

(1 replies, posted in Russian)

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


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

Go to forum: Russian

3,198 Reply by DriveSoft

(19 replies, posted in Russian)

Astra30
Реализовал отчет в вашем примере

Go to forum: Russian

3,199 Reply by DriveSoft

(4 replies, posted in General)

Hello.


Unfortunately it's not support. Please check out this example
http://myvisualdatabase.com/forum/misc. … download=1

Go to forum: General

3,200 Reply by DriveSoft

(2 replies, posted in General)

- Added functionality to receive email (POP3), example: http://myvisualdatabase.com/forum/viewtopic.php?id=3514
- Implemented bookmarks in script editor (to set bookmark Ctrl+Shift+[n]; to go to bookmark Ctrl+[n], where n = 1...9)
- Corrected formatting of the currency values in Combobox
- Added ability to use custom icons, example: http://myvisualdatabase.com/forum/viewtopic.php?id=3491
- Other minor modifications
- Fixed bugs)

Go to forum: General