6,001 Reply by DriveSoft

(2 replies, posted in General)

Please download beta version:
http://myvisualdatabase.com/forum/viewtopic.php?id=1936


Added functions to get created/modified/accessed time to file

function CreatedFileTime(const FileName: string; var FileTime: TDateTime): boolean
function ModifiedFileTime(const FileName: string; var FileTime: TDateTime): boolean
function AccessedFileTime(const FileName: string; var FileTime: TDateTime): boolean

example:

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
var
    dt: TDateTime;
begin
    if CreatedFileTime('c:\temp\1.txt', dt) then
        ShowMessage( DateTimeToStr(dt) )
        else ShowMessage('Failed to get time.');
end;

Go to forum: General

6,002 Topic by DriveSoft

(9 replies, posted in General)

My Visual Database 2.3 beta


What's new?
- Added class TWebBrowser, allow you create on form web browser to display web pages and pdf documents, example:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    Web: TWebBrowser;
begin
    Web := TWebBrowser.Create(Form1);
    TWinControl(Web).Parent := Form1;
    Web.Width := Form1.Width;
    Web.Height := Form1.Height;

    Web.Navigate('http://ya.ru');
end;


- Added functions to get created/modified/accessed time to file

function CreatedFileTime(const FileName: string; var FileTime: TDateTime): boolean
function ModifiedFileTime(const FileName: string; var FileTime: TDateTime): boolean
function AccessedFileTime(const FileName: string; var FileTime: TDateTime): boolean

example:

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
var
    dt: TDateTime;
begin
    if CreatedFileTime('c:\temp\1.txt', dt) then
        ShowMessage( DateTimeToStr(dt) )
        else ShowMessage('Failed to get time.');
end;


- Added a property MultiSelect for ComboBox, allow to select severals values for search



Download:
http://myvisualdatabase.com/download/se … 20beta.zip

Go to forum: General

6,003 Topic by DriveSoft

(13 replies, posted in Russian)

My Visual Database 2.3 beta


Что нового?
- Добавлен класс TWebBrowser, позволяющий отображать web страницы и pdf документы, пока создать можно только с помощью скрипта, пример:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    Web: TWebBrowser;
begin
    Web := TWebBrowser.Create(Form1);
    TWinControl(Web).Parent := Form1;
    Web.Width := Form1.Width;
    Web.Height := Form1.Height;

    Web.Navigate('http://ya.ru');
end;



- Добавлены функции позволяющие узнать время создания/изменения/доступа к файлу

function CreatedFileTime(const FileName: string; var FileTime: TDateTime): boolean
function ModifiedFileTime(const FileName: string; var FileTime: TDateTime): boolean
function AccessedFileTime(const FileName: string; var FileTime: TDateTime): boolean

пример использования

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
var
    dt: TDateTime;
begin
    if CreatedFileTime('c:\temp\1.txt', dt) then
        ShowMessage( DateTimeToStr(dt) )
        else ShowMessage('Failed to get time.');
end;


- Добавлено свойство MultiSelect для ComboBox, позволяет выбрать несколько значений для поиска.




Скачать:
http://myvisualdatabase.com/download/se … 20beta.zip

Go to forum: Russian

6,004 Reply by DriveSoft

(4 replies, posted in Russian)

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


исправленный проект можете скачать здесь:

Go to forum: Russian

6,005 Reply by DriveSoft

(1 replies, posted in Russian)

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


Ваш код без ошибок, пожалуйста приложите ваш проект, посмотрю в чем дело.

Go to forum: Russian

6,006 Reply by DriveSoft

(4 replies, posted in Russian)

Пожалуйста приложите все файлы вашего проекта в виде zip архива, кроме exe и dll файлов.

Go to forum: Russian

6,007 Reply by DriveSoft

(2 replies, posted in General)

Hello,

I will add function for that in 1-2 days, I'll let you know.

Go to forum: General

6,008 Reply by DriveSoft

(3 replies, posted in General)

Hello,


You can do it using TWebBrowser, please download this version:
https://www.dropbox.com/s/ul1rf42j31big … a.zip?dl=0


in the beta version you can create TWebBrowser only using the script, example:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    Web: TWebBrowser;
begin
    Web := TWebBrowser.Create(Form1);
    TWinControl(Web).Parent := Form1;
    Web.Width := Form1.Width;
    Web.Height := Form1.Height;

    Web.Navigate('c:\document.pdf');
end;

Go to forum: General

6,009 Reply by DriveSoft

(11 replies, posted in General)

Hello,


Yes, I added TWebBrowser to MVD, please download this version:
https://www.dropbox.com/s/ul1rf42j31big … a.zip?dl=0


in the beta version you can create TWebBrowser only using the script, example:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    Web: TWebBrowser;
begin
    Web := TWebBrowser.Create(Form1);
    TWinControl(Web).Parent := Form1;
    Web.Width := Form1.Width;
    Web.Height := Form1.Height;

    Web.Navigate('c:\document.pdf');
end;

Go to forum: General

6,010 Reply by DriveSoft

(131 replies, posted in Russian)

Leonid wrote:

Добрый день !
Подскажите пожалуйста , как скриптом переместить компонент на форме . В идеале хотелось бы его выделить мышкой и потаскать по форме .

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


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

Go to forum: Russian

6,011 Reply by DriveSoft

(131 replies, posted in Russian)

заведите глобальную переменную например: isButton1: boolean;


затем для этих двух кнопок создайте событие OnClick, для первой кнопки в этом событии установите переменную isButton1 := True;


а для второй кнопки isButton1 := False;


затем в событии Form2_TableGrid1_OnDoubleClick делайте проверку этой переменной так


if isButton1 then Form2.Button3.Click else Form2.Button4.Click;

Go to forum: Russian

6,012 Reply by DriveSoft

(3 replies, posted in Russian)

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

Go to forum: Russian

6,013 Reply by DriveSoft

(6 replies, posted in General)

imcisco
Please download version 2.1 which have 60 days trial period:
http://myvisualdatabase.com/download/myvisualdb2.1.exe

Go to forum: General

6,014 Reply by DriveSoft

(6 replies, posted in Russian)

Проект с примером:

Go to forum: Russian

6,015 Reply by DriveSoft

(6 replies, posted in Russian)

http://www.delphibasics.ru/EncodeDate.php
http://www.delphibasics.ru/DecodeDate.php

Go to forum: Russian

6,016 Reply by DriveSoft

(1 replies, posted in General)

Hello,


Here you can find example, how  to detect duplicate entries
http://myvisualdatabase.com/forum/viewtopic.php?id=1441


To prevent to save empty entries, create event OnClick for button using for save record.

procedure Form2_buttonSave_OnClick (Sender: string; Action: string);
begin
    Form2.buttonSave.dbDoCloseForm := False; // cancel closing window
    Form2.buttonSave.dbDontResetID := True; 
end;

Go to forum: General

6,017 Reply by DriveSoft

(4 replies, posted in Script)

I have done progress differently, please download the project

Go to forum: Script

6,018 Reply by DriveSoft

(54 replies, posted in Russian)

Готово, добавил новое выч. поле и CheckBox на форме, который учавствует в поиске и позволяет отфильтровать записи с нулевым остатком, при необходимости данный CheckBox можете скрыть (Visible=False)

Go to forum: Russian

6,019 Reply by DriveSoft

(6 replies, posted in Russian)

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


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


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

Go to forum: Russian

6,020 Reply by DriveSoft

(3 replies, posted in Russian)

Пока нет.

Go to forum: Russian

6,021 Reply by DriveSoft

(4 replies, posted in Script)

Hello,


Please attach your project, I'll check how to you use Application.Processmessage and I'll try to add progress bar.

Go to forum: Script

6,022 Reply by DriveSoft

(396 replies, posted in Russian)

motorolla
Спасибо.

Go to forum: Russian

6,023 Reply by DriveSoft

(28 replies, posted in General)

RZ-007 wrote:

Подскажите у версии 2.2 пробный период такой же как и у версии 2.1 60 дней?

нет, был изменен на 7 дней.

Go to forum: General

6,024 Reply by DriveSoft

(11 replies, posted in Script)

DefaultIndex has no effect when a record is edited.

Go to forum: Script

6,025 Reply by DriveSoft

(1 replies, posted in Script)

Maybe I misunderstood the question, but you don't need write INSERT or UPDATE sql queries for record, when you use Cancel := True;

Go to forum: Script