8,826

(237 replies, posted in Russian)

alex842
Все это планируется, спасибо )

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


можно сделать импорт из файла формата csv, который можно получить, сохранив Excel файл в данном формате.
Затем необходимо настроить скрипт, с учетом вашей базы данных.
Можете скачать пример проект с импортом
http://myvisualdatabase.com/forum/misc. … download=1


также можете воспользоваться бесплатной программы SQLite Studio, которая также умеет делать импорт в базу данных
http://sqlitestudio.pl/

А если бы ещё можно было и начальную папку задавать...

procedure Form1_Button8_OnClick (Sender: string; var Cancel: boolean);
var
   sFolder: string;
begin
     sFolder := 'd:\Films';
     if SelectDirectory('Select folder', '', sFolder) then
     begin
          ShowMessage(sFolder);
     end;
end;

alex842
попробуйте без проверок, просто сделав так, думаю кавычки в любом случае не помешают

OpenFile('"' + file + '"',prog);

alex842

1.

OpenFile('D:\Films');

2. Добавил новую функцию в бета версию 1.46, скачайте ее: https://www.dropbox.com/s/30ysr48sd8ca4 … 6.zip?dl=0
SelectDirectory(const Caption: string; const Root: String; var Directory: string) : Boolean

procedure Form1_Button8_OnClick (Sender: string; var Cancel: boolean);
var
   sFolder: string;
begin
     if SelectDirectory('Select folder', '', sFolder) then
     begin
          ShowMessage(sFolder);
     end;
end;

3. С этим пока сложней, постараюсь позже реализовать.

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


только что меня об этом же спросили в англоязычной части форума )
я сделал пример, как это реализовать:
http://myvisualdatabase.com/forum/misc. … download=1

8,832

(9 replies, posted in Script)

ramonjrtan


I made example for you, please, download here:

savage
Если я правильно понял, то никакая дополнительная проверка не нужна.


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

8,834

(12 replies, posted in Script)

einsteinf5
Please, send me your project to support@drive-software.com with link to your post
i'll try to help you


Example how to use Copy, Delete, ReplaceStr:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
   s: string;
begin
     s := 'One Two';
     s := Copy(s, 5, 3);   //  Copy(s: String; from, count: Integer): String
     ShowMessage(s); // result is "Two"

     s := 'One Two';
     Delete(s, 5, 3);        // Delete(var s: String; from, count: Integer)
     ShowMessage(s); // result is "One"

     s := 'One Two';
     s := ReplaceStr(s, 'Two', 'One');     // ReplaceStr(const AText, AFromText, AToText: string): string
     ShowMessage(s); // result is "One One"
end;

8,835

(12 replies, posted in Script)

DanielDTR
Please, download latest beta version 1.46, where i added new method for ComboBox:
https://www.dropbox.com/s/30ysr48sd8ca4 … 6.zip?dl=0

Form1.ComboBox1.Clear;

dpviper
Пришлите проект на support@drive-software.com
постараюсь помочь.

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


можно, создайте событие OnShow для формы регистрации новой записи

procedure Form2_OnShow (Sender: string; Action: string);
begin
   if Action = 'NewRecord' then Form2.ComboBox2.dbItemID := Form1.ComboBox1.dbItemID;
end;
Form1.DBFile1.dbInitialDir := 'c:\';

savage

скачайте бета версию 1.46, для компонента DBFile добавил свойство dbInitialDir.
https://www.dropbox.com/s/30ysr48sd8ca4 … 6.zip?dl=0


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


p.s.
С кодом все ок.

8,840

(2 replies, posted in Script)

varipatisem
You can do it using script.


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

8,841

(237 replies, posted in Russian)

Если я правильно понял, то необходимо так

OpenDialog.InitialDir := ExtractFileDir(Application.Exename) + 'otherFolder';

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

kunar80
Приложите пожалуйста ваш архив проекта к сообщению без exe и dll файла, либо пришлите проект на support@drive-software.com со ссылкой на данный топик.

8,843

(237 replies, posted in Russian)

savage

OpenDialog.InitialDir := 'd:\Films'; // задаем папку по умолчанию
OpenDialog.InitialDir := ExtractFileDir(Application.Exename); // папка по умолчанию будет каталогом программы

8,844

(4 replies, posted in Russian)

Поправил ошибку, спасибо )
скачайте снова версию 1.46
https://www.dropbox.com/s/30ysr48sd8ca4 … 6.zip?dl=0


пришлите пожалуйста ваш проект на support@drive-software.com
посмотрю на счет NULL

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

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

var
prog,file:string;
begin
prog:= 'C:\Program Files (x86)\Windows NT\Accessories\wordpad.exe';
file:= '"D:\MailCloud\Программирование\My Visual Database\DistribCat\ReadMe.rtf"';
OpenFile(file,prog);

8,846

(1 replies, posted in General)

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

8,847

(4 replies, posted in Russian)

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


Спасибо за найденный баг, поправил, скачайте снова версию 1.46
https://www.dropbox.com/s/30ysr48sd8ca4 … 6.zip?dl=0

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


проверка не нужна, id всегда будет уникальным.

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

8,850

(30 replies, posted in Script)

Please, download project: