5,651

(3 replies, posted in Russian)

vaskar wrote:

Дмитрий, спасибо за помощь.

Можете еще подсказать, как  организовать поиск событий в период между искомых дат?

Если необходимо искать события, которые имеются в искомом интервале, то можно обойтись без SQL запрос, используя кнопку с действием "Поиск" и установить для компонентов DateTimePicker свойство Filter


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

5,652

(3 replies, posted in Script)

Hello,


That works... except that the TableGrid only show numbers when there is also text in my file.

It's bug, I will test it, thanks.


You should not to use TableGrid for import data, please check out this example for import data:
http://myvisualdatabase.com/forum/viewtopic.php?id=1448

5,653

(7 replies, posted in Script)

Hello,


Function FileExists is present.
Check it out:

if FileExists('d:\1.txt') then ShowMessage('FileExists') else ShowMessage('File not exists');

5,654

(4 replies, posted in Russian)

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

Пожалуйста опишите подробней, в чем проблема?

Папка  C:\Program Files не имеет разрешения на запись для не администратора, зайдите в настройки проекта (Инструменты > Настройка, вкладка "Настройка", выберите пункт "Файл настроек расположить в папке: %appdata%...")

Попробуйте проверить доступность SMTP сервера с вашего ПК с помощью командной строки и команды telnet


(если telnet не установлен http://iamsan.ru/windows/telnet-windows7)


как проверить smtp сервер
http://howtoconfig.net/linux/telnet-check-smtp/

Данный пример позволяет отправлять сообщения используя SMTP протокол, у вас есть данные для доступа к SMTP серверу?
такие как адрес, порт, имя пользователя, пароль?

5,659

(8 replies, posted in Script)

identity
In the latest version script works exactly as you need, but in the old version not available some features, so need a little more script:

procedure frmAddtext_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    sFields, sValues: string;
    s1, s2, s3: string;
begin
    sFields := 'editone;edittwo;editthree';
    s1 := '"'+frmAddtext.Edit1.Text+'"';
    s2 := '"'+frmAddtext.Edit2.Text+'"';
    s3 := '"'+frmAddtext.Edit3.Text+'"';

    if s1='""' then s1 := 'NULL';
    if s2='""' then s2 := 'NULL';
    if s3='""' then s3 := 'NULL';

    sValues := s1+';'+s2+';'+s3;


   if CheckDublicate(frmAddtext.dbAction, '"Table"', sFields, sValues, frmAddtext.Button1.dbGeneralTableId) then
   begin
        ShowMessage('You have recorded these numbers before.');
        Cancel := True;
   end;
end;

5,660

(15 replies, posted in Script)

carlo_dj
I made an example for you:

5,661

(28 replies, posted in Russian)

ZBear wrote:

Изображение вынес в отдельную таблицу-справочник.
Теперь при добавлении возникает такая ошибка (во вложении).

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

5,662

(5 replies, posted in General)

mathmathou
Please send me your project to support@drive-software.com with link on this topic and describe steps to reproduce the error.
Thanks.

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


procedure Form1_OnShow (Sender: string; Action: string);
begin
    Form1.ComboBox1.ItemsChecked[1] := True; // ставим галочку в первом значении
end;

Да, пример:
http://myvisualdatabase.com/forum/viewtopic.php?id=1365

5,665

(1 replies, posted in General)

Hello,


Unfortunately no.

5,666

(9 replies, posted in General)

Hello,


Unfortunately what you have to suggest contrary to the proper database structure.
You can't use ComboBox without a relationship in database table.


May be will be better to make wizard which helps to create database table with prefilled records.

5,667

(22 replies, posted in Russian)

nikolai_nn wrote:

procedure Form1_OnShow (Sender: string; var Cancel: boolean);
begin

Form1.ComboBox1.Text := 'ОПИТ';
end;

но не се получава...възможно ли е?

Смотря что вы хотите сделать, вы писали что хотели бы заменить пустое значение в ComboBox на свое, выше я дал вам пример как это сделать.

5,668

(9 replies, posted in Script)

identity wrote:

Hi

the properties of the "DBfile" has type and I can choose between linkfile and linkfolder

but "DBimage" does not have type or linkfile

Could you please tell me how can I store image in a folder?

I have attached my project

thank you

Unfortunately in old version this property not exists.

5,669

(22 replies, posted in Russian)

nikolai_nn wrote:

извинете

Все равно не понял, что именно не так? )

5,670

(9 replies, posted in Script)

Hello,


It's not recommended to store pictures in the database, it's will slow down the running of the project.


You can configure a component DBImage to store images in a folder, set the property Type = LinkFile
also you can set property CopyTo, more info about CopyTo
http://myvisualdatabase.com/help_en/com … opyto.html

5,671

(22 replies, posted in Russian)

nikolai_nn wrote:

здравейте,имах предвид когато  form1_OnShow    ComboBox да изглежда така:

Не совсем понимаю, что вы имели ввиду.

5,672

(8 replies, posted in Script)

Please download latest freeware version here (1.45)
https://www.dropbox.com/s/t6iudxgkz9wct … 5.exe?dl=0


Your project for version 1.45:

5,673

(15 replies, posted in Script)

tcoton wrote:

I did not even thought about a calculated field... thanks Dmitry. Do you have a quick example?

julianday(datefield1) - julianday(datefield2)

5,674

(4 replies, posted in General)

Hello,


1. Exe file will be created in the project folder after first launch of your project from My Visual Database.
Just copy entire folder of project on other machines to use it.


2. Copy database file (sqlite.db) to the mapped drive then open settings (Options > Settings > Tab "Database location") to set a new database location.


3. Last one will overwrite the record.


4. No. But you can do it this check using script.

5,675

(22 replies, posted in Russian)

nikolai_nn wrote:

здравейте,възможно ли е когато в  ComboBox  не е избран запис  /положение -1/   да бъде надписан с текст /например .кйгфкйхгф/

Здравейте,

procedure Form1_OnShow (Sender: string; Action: string);
begin
    Form1.ComboBox1.dbEditRecord(-1, 'кйгфкйхгф');
end;