9,376

(1 replies, posted in General)

flying2birds wrote:

How to write script that automatically sets the current date in field "DateOfChange" when one of the fields in that record was changed. ?

procedure Form2_Edit1_OnKeyPress (Sender: string; var Key: Char);
begin
     Form2.DateTimePicker1.DateTime := now;
end;

procedure Form2_Edit2_OnKeyPress (Sender: string; var Key: Char);
begin
     Form2.DateTimePicker1.DateTime := now;
end;


flying2birds wrote:

Another one:
How to prevent some fields in a form from being changed, depending on the value of a specific field in that form.

procedure Form2_ButtonSave_OnClick (Sender: string; var Cancel: boolean);
begin
     if Form2.Edit1.Text = 'Hello' then 
     begin
         ShowMessage('You can't write here word Hello');         
         Cancel := True;
     end;
end;

9,377

(8 replies, posted in Russian)

Используя скрипт и SQL запрос, так:

SQLExecute ('UPDATE tablename SET record_count=8002 WHERE record_count=8001;');

9,378

(13 replies, posted in Russian)

Aleksandr.Gukov
возможно вы забыли присвоить компоненту ввода значение TableName или FieldName, если не поможет, отправьте пожалуйста проект на support@drive-software.com
Посмотрю.

9,379

(13 replies, posted in Russian)

frost666 wrote:

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

Пока это невозможно.


frost666 wrote:

и еще ))) 
1. Не получается ввести в базу аббревиатуру - ООО, ЗАО и.т.д. Первая буква большая а остальные маленькие.
2. В отчете по кнопке ОТЧЕТ весь текст выводится заглавными буквами.

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


в качестве временного решения
нужно открыть файл settings.ini и написать следующее
 
[DisableUpperCase]
Tablename.fieldname1=
Tablename.fieldname2=

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


если регистронезависимый поиск необходим, скачайте исправленный файл sqlite3.dll
http://myvisualdatabase.com/forum/misc. … download=1


При это вам все равно необходимо будет перечислить текстовые поля в секции [DisableUpperCase] файла settings.ini



frost666 wrote:

3. Можно ли к Label1 прифигачить текущую дату  ? )

Можно с помощью скрипта, например используя событие формы OnShow, например так

procedure Form1_OnShow (Sender: string; Action: string);
begin
     Form1.Label1.Caption := FormatDateTime('c', now);
end;


frost666 wrote:

4.  как можно реализовать заполнение Edit2 из Edit1 ?. Ну к примеру адрес проживания и фактический адрес одинаковые.

Form1.Edit2.Text := Form1.Edit1.Text;

9,380

(33 replies, posted in Russian)

Aleksandr.Nikolaev
Необходимо с помощью SQLite сделать экспорт таблицы в CSV файл, затем с помощью Excel заменить данные в колонке id на значение null и потом этот CSV файл импортировать в таблицу другой базы данных. Но возможно это будет сложней сделать, если у вас есть и другие таблицы со связями.


Если компьютеры объедены в локальную сеть, то можете использовать общую сетевую папку, чтобы все люди работали работали с одной и той же базой данных.

9,381

(8 replies, posted in Russian)

zhenja15
Ответил вам в другой теме.


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

В событии OnShow главного окна напишите следующий код:

Form1.Edit1.PasswordChar := '*';

название формы и текстового поля замените на свои.

9,383

(187 replies, posted in General)

Grivell
make sure that the end of the code has:

begin

end.

9,384

(187 replies, posted in General)

Grivell
Please, uncheck option "Close the current form after saving" in settings button for save.
Then create event for save button, where you can cleal controls

procedure Form1_Button1_OnAfterClick (Sender: string);
begin
  Form1.Edit1.Clear;
  Form1.ComboBox.dbItemID := -1;
end;

9,385

(1 replies, posted in General)

Hello,


Please download fixed sqlite3.dll file, copy to folder My Visual Database and project folder
http://myvisualdatabase.com/forum/misc. … download=1


Then open the settings.ini file and write:

[DisableUpperCase]
Tablename.Fieldname1=
Tablename.Fieldname2=


Thus in these fields will be disabled for the conversion to a upper case.

9,386

(4 replies, posted in Russian)

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


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


в качестве временного решения
нужно открыть файл settings.ini и написать следующее
 
[DisableUpperCase]
Tablename.fieldname1=
Tablename.fieldname2=

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


если регистронезависимый поиск необходим, скачайте исправленный файл sqlite3.dll
http://myvisualdatabase.com/forum/misc. … download=1


При это вам все равно необходимо будет перечислить текстовые поля в секции [DisableUpperCase] файла settings.ini

9,387

(13 replies, posted in Russian)

Полей может быть не более 2000, каким образом не получается больше 10 сделать?


на счет второго вопроса, спасибо, поправлю )


не понял на счет возможности выбрать таблицу вручную?

9,388

(6 replies, posted in General)

caylea1
Thanks, you find bug, fixed.


Please, download again:
http://myvisualdatabase.com/download/myvisualdb.exe

9,389

(33 replies, posted in Russian)

Niema
При создании отчета на основе SQL, получить отдельно месяц и год можно так:

SELECT strftime('%m', datefield) as month, strftime('%Y', datefield) as year

а разницу между датами получить так

((strftime('%s', TimeFinish) - strftime('%s', TimeStart)) / 3600)

получит разницу в часах

9,390

(33 replies, posted in Russian)

Hram
в отчетах есть компонент предназначенный для построения диаграмм (Chart Object), но к сожалению пользоваться им пока не приходилось.

9,391

(13 replies, posted in Russian)

tretalek
Если я правильно понял, так и должно работать.
Отправьте пожалуйста ваш проект на support@drive-software.com
посмотрю что не так.

9,392

(187 replies, posted in General)

zappy and rodhi
Thank you for ideas.

9,393

(11 replies, posted in Russian)

mitrich45
в курсе этой проблемы, постараюсь решить.

9,394

(46 replies, posted in Russian)

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


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

9,395

(11 replies, posted in Russian)

mitrich45
планируется )

9,396

(11 replies, posted in Russian)

Что нового?
- Добавлена возможность создать отчет без использования SQL запроса
- Улучшена навигация по формам, удобно в случае большого количество форм в вашем проекте
- Добавлено несколько новых функций для скрипта


Скачать новую версию можете по этой ссылке:
http://drive-software.com/download/myvisualdb.exe



С Уважением, Дмитрий.

9,397

(3 replies, posted in General)

What's new?
- Added ability to create report without using SQL query
- Improved navigation through forms for projects with large amount of forms
- Added several new functions to the script


Download:
http://myvisualdatabase.com/download/myvisualdb.exe



Kind Regards
Dmitriy.

9,398

(6 replies, posted in General)

You should create two Calculated Field in table "questions" for this:
1

(SELECT choice.name FROM choice WHERE choice.id = id_choice1)

2

(SELECT choice.name FROM choice WHERE choice.id = id_choice2)

Then you can add these calculated fields to the TableGrid

9,399

(6 replies, posted in General)

atanubehigh


Now you can download version 1.42 here:
http://myvisualdatabase.com/download/myvisualdb.exe

9,400

(13 replies, posted in Russian)

1) Все равно не понял )


2) Для этого необходимо в базе данных создать еще одну  таблицу, которая будет иметь поле с типом "Файл", и создать связь к основной таблице, таким образом запись сможет иметь неограниченное количество файлов связанных с ней. Пожалуйста, посмотрите видео урок создания телефонного справочника https://www.youtube.com/watch?v=lN6_yeK84K8
там один абонент может иметь неограниченное число телефонных номеров, в вашем случае вместо телефонных номеров будут файлы.


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