yanikmi wrote:

А вариант перенести пункт "Настройки" на другую форму, просто у меня главная является формой авторизации, а настроить доступ к базе данных надо?

Можете с помощью кнопки и скрипта вызвать данную настройку, пример:

procedure Form2_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
   Form1.mniSettings.Click;
end;

6,502

(30 replies, posted in General)

prahousefamily
Thank you for the help, found the bug and fixed.

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


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

fleshkyru
Имеете ввиду окно авторизации, к сожалению пока его отключить нельзя, т.к. не реализована возможность запомнить пароль для доступа к MySQL.


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

fleshkyru
К сожалению нет архива в вашем сообщении.
Какое выскакивает сообщение?

6,506

(1 replies, posted in General)

Hello,


Using MySQL server many persons can work at the same time via Internet.


First you need MySQL server, for that you can buy hosting (https://www.digitalocean.com/ and etc.)
or download and install MySQL server on own PC: http://dev.mysql.com/downloads/mysql/



After that just open your project and switch DBMS to MySQL and enter the server address and login/password
http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=1339&download=0

shanin_s

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


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


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

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

shanin_s wrote:

Наверное Вас 1000 раз задавали этот вопрос, как из базы вытащить файл, который был ранее в нее внесен?

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

shanin_s wrote:

А начиная с какой версии функция "DeleteFile" присутствует?

начиная с версии 1.45

shanin_s
К сожалении в версии 1.44 функция 'DeleteFile' отсуствует.


на счет расширения, попробуйте так

procedure frmEmployee_DBFile1_OnChange (Sender: string);
var
    s: string;
    i: integer;
begin
    s := frmEmployee.DBFile1.Text;
    if s <> '' then
    begin
        i := Pos('.', s);
        SetLength(s, i-1);
        frmEmployee.Edit1.text := s;
    end else frmEmployee.Edit1.Clear;

end;
yanikmi wrote:

Правильно ли я понимаю, в 2.0 добавлено MySQL, других изменений нет?

Да, правильно.

6,513

(30 replies, posted in General)

Just MySQL.


All registered users with licenses 'Free Minor Updates" also can use this version without additional charge.

Вы можете с помощью SQL запроса подключить еще одну базу данных

пример

SQLExecute('ATTACH DATABASE ''testDB.db'' as ''TEST''');


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

SELECT TEST.person.firstname, TEST.person.lastname FROM TEST.person


так можно перенести данные из одной базы в другую (не тестировал)

INSERT INTO destinationTable (field1, field2) SELECT TEST.field1, TEST.field2 FROM TEST.sourceTable


если в офисах есть интернет, рекомендую ознакомиться с версией программы 2.0
http://myvisualdatabase.com/forum/viewtopic.php?id=1728

6,515

(30 replies, posted in General)

Alpha version 2.040b with support MySQL


download:
http://myvisualdatabase.com/download/my … 2.040b.exe



download MySQL Community Server:
http://dev.mysql.com/downloads/mysql/



Video, how to install MySQL server:
http://myvisualdatabase.com/forum/viewt … p?pid=9770


how to enable MySQL
http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&amp;item=1339&amp;download=0

Почти все хостинги для сайтов уже имеют установленную СУБД MySQL, которую вы может использовать для My Visual Database.


My Visual Database при работе с СУБД MySQL использует таблицы с типом InnoDB, которые могут быть недоступны для использования на самых дешевых тарифах хостинга.

Альфа версия 2.040 с поддержкой клиент серверной СУБД - MySQL
(доступна для всех зарегистрированных пользователей)


Скачать:
http://myvisualdatabase.com/download/my … 2.040b.exe



Скачать MySQL сервер можно здесь
http://dev.mysql.com/downloads/mysql/




Как перейти на MySQL субд:
http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&amp;item=1338&amp;download=0

shanin_s wrote:

И еще один вопрос, как получить разность двух дат в месяцах. Поясню, имеется два поля, дата начала и дата окончания и вычисляемое поле в виде разности этих дат. Результатом расчета является разность в годах, а мне нужно в месяцах(если даты 16.09.2014 и 16.09.2015 то в поле разности получается 1, а если 16.05.2015 и 16.09.2015, то результат 0) .

необходима формула для вычисляемого поля? попробуйте так

(strftime('%Y', datefield1)*12+strftime('%m', datefield1)) -  (strftime('%Y', datefield2)*12+strftime('%m', datefield2))

Приветствую, пример, как очистить папку mp3 которая распологается в папке с проектом:

procedure ClearDirectory(path: string);
var
    sl: TStringList;
    i,c: integer;
begin
    sl := TStringList.Create;
    sl.Text := GetFilesList(path);
    c := sl.Count-1;

    for i := 0 to c do
    begin
        DeleteFile(sl[i]);
    end;

    sl.free;
end;


procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
var
   sPath:string;
begin
    sPath := ExtractFilePath(Application.Exename) + 'mp3';
    ClearDirectory(sPath);
end;

6,520

(6 replies, posted in Russian)

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

procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
var
    sFile: string;
begin
    try
    sFile := SaveFileFromDataBase ('test','file', 2);
    except
    end;
    
    PlaySound(sFile) ; // сможет проиграть только wav файл, для mp3 используйте MediaPlayer.PlayFile('mp3 файл'); 
end;

6,521

(6 replies, posted in Russian)

fleshkyru
Файлы хранятся непосредственно в базе данных или в отдельной папке? если в отдельной папке, определено ли свойство компонента DBFile.CopyTo ?


проиграть mp3 файл можно так

MediaPlayer.PlayFile('mp3 файл'); 
MediaPlayer.Pause;
MediaPlayer.Stop;

6,522

(6 replies, posted in Russian)

В принципе использование данного компонента не требует никакой специфики.
Пример для вас:

К сожалению это невозможно.

KiraImago
Для простого экспорта в Excel вы можете использовать кнопку с действием "Открыть в Excel"


также вы можете создать отчет используя кнопку с действием "Отчет", результат которого вы можете экспортировать в Word/Excel/PDF/OpenOffice и т.д.

6,525

(3 replies, posted in Russian)

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