5,001

(2 replies, posted in Russian)

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


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

5,002

(89 replies, posted in Russian)

RZ-007 wrote:

Ок....ещё проще...
есть две таблицы: "ААА" с полем "ааа" и "ВВВ"с  полем "id_AAA"
Как сделать скриптом запись  в таблицу   "ВВВ" с  полем "id_AAA"
используя ComboBox1, который берёт значения из  таблицы: "ААА" с полем "ааа"???

SQLExecute('INSERT INTO BBB (id_AAA) VALUES ('+Form1.ComboBox1.sqlValue+')');

5,003

(3 replies, posted in Russian)

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

Form1.TableGrid1.Columns[0].Footer.FormulaValue

5,004

(8 replies, posted in General)

Gilberto_Schiavinatto wrote:

Hi, Dmitry
It took me to the return, the unstable application be the subject (sometimes did not work ..), now I had a problem again, see image and follows the file.

Do you use any application to find the error?

For some reason your file forms.xml contain special symbols, unfortunately I don't know reason, looks like some other app change this file.


Here you can download fixed file forms.xml for your project:

5,005

(11 replies, posted in Russian)

danisl wrote:

Добрый день! А как можно в подвале округлить значения?

Можно

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.Columns[0].Footer.Caption := IntToStr(Round(Form1.TableGrid1.Columns[0].Footer.FormulaValue));
end;

5,006

(10 replies, posted in Russian)

Роман wrote:

Это просто супер!!!
1.) Возможно отключить 3D ?
2.) Возможно выбирать стиль,тип диаграмм?

1.

ChartLine.View3D := False; 

2. О каких типах идет речь?

5,007

(9 replies, posted in Script)

Unfortunately in the current version there is no another method to send emails.

5,008

(89 replies, posted in Russian)

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

5,009

(9 replies, posted in Russian)

Игоревич wrote:

Еще есть вопрос. У меня сейчас в главной таблице считает общее кол-во записей за все месяца. Как сделать колонку которая будет показывать сколько записей было за этот месяц, прошлый, позапрошлый и т.д.. Заранее спс.

Это можно сделать с помощью выч. полей.


Количество записей в текущем месяце

( SELECT COUNT(*) FROM tablename WHERE strftime('%m.%Y', datefield)= strftime('%m.%Y', date('now')) )

Количество записей в прошлом месяце

( SELECT COUNT(*) FROM employees WHERE strftime('%m.%Y', dateofbirth)= strftime('%m.%Y', date('now', '-1 month')) )

Количество записей в позапрошлом месяце

( SELECT COUNT(*) FROM employees WHERE strftime('%m.%Y', dateofbirth)= strftime('%m.%Y', date('now', '-2 months')) )

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


К сожалению пока такой возможности нет.

5,011

(3 replies, posted in Russian)

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


Здесь можете прочитать подробней, как сделать итог в компоненте TableGrid
http://myvisualdatabase.com/help_ru/com … ooter.html

5,012

(6 replies, posted in General)

dbk wrote:

I get this error when i try to run the project

http://s32.postimg.org/y2ft0mdxd/Naamloos.jpg

First you should download beta version 2.6
https://www.dropbox.com/s/pebrvqwqcbluy … a.zip?dl=0

Игоревич wrote:
DriveSoft wrote:

Игоревич
Спасибо, я планирую сделать видео курсы по  базам данных в целом и по использованию MVD.

Так когда ждать книгу "My Visual DataBase для чайников". Для юзеров это сейчас более актуально.

К сожалению не могу назвать даже примерных сроков.

5,014

(6 replies, posted in General)

My Visual Database 2.6 beta
https://www.dropbox.com/s/pebrvqwqcbluy … a.zip?dl=0



What's new?

- Chart on form (using script), an example: http://myvisualdatabase.com/forum/misc. … download=1


- Fast way to insert many records (using transaction), example:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    SqliteTr: TDBXSqliteTransaction;
    i: integer;
begin
    SqliteTr := BeginSQLiteTransaction;
    for i:= 0 to 10000 do SQLExecute('INSERT INTO employees (lastname) VALUES(''Smith'')');
    CommitSQLiteTransaction(SqliteTr);
end;

5,015

(9 replies, posted in Script)

krokodil_sk wrote:

Hi,

Is possible to send email with sendmail to CC or to BCC ?

Thx,

K.

Hello,


It's not supported in the current version.

5,016

(89 replies, posted in Russian)

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

5,017

(2 replies, posted in Russian)

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


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

procedure Form2_OnClose (Sender: string; Action: string);
begin
    Form1.Close;
end;

5,018

(23 replies, posted in Russian)

bullet13 wrote:

Здравствуйте.

Подскажите как в SQL запросе получить до разделителя.

Пример.
Есть поле Project.projFile_fileName оно содержит путь до файла "C:\Programm\Test\test.pdf"
мне нужно оставить только  "test.pdf"

Именно в запросе SQL.

Спасибо.

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


К сожалению не смог найти способ сделать это для SQLite.

5,019

(4 replies, posted in Script)

gamalier_ramirez wrote:

Hello Dmitry

I have some questions:

1. I need to change the default menu in the menu bar to place my own choices and hide that comes by default, as I do?
2. I need to run a form that has a TabGrid from the Menu, as I do
3. What was the last version Freeware?

Always grateful for your timely response

Thank you

1. Here you can find example how to add own menu
http://myvisualdatabase.com/forum/viewtopic.php?id=1432


and an example how to hide default menu
http://myvisualdatabase.com/forum/viewtopic.php?id=1440



2. In this way you can run a form:

Form2.ShowModal;

3. 1.45

5,020

(9 replies, posted in Russian)

sait0219 wrote:
DriveSoft wrote:

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

Чтобы такое сделать нужно много времени?

Здесь можете найти подобный пример
http://myvisualdatabase.com/forum/viewtopic.php?id=1053

5,021

(12 replies, posted in Russian)

memult wrote:

Спасибо.
А не подскажите еще по такому вопросу: в программе генерируется отчет и сохраняется каждый раз по определенному адресу, с именем, которое меняется в зависимости от того,какой сейчас день. Т.к например Иванов. А.И. 16.03.15; Иванов. А.И. 19.03.15 и тд. Дата в конец имени добавляется методом тыка в календаре. И если случайно ошибиться датой, этот файл пересохраниться с тем же именем, и не спросит нужно ли заменять этот файл или нет.  Как сделать, чтобы была возможность выбрать, перезаписывать ли файл или нет? Скприпт программы лежит у Вас на почте в проекте. Тема письма: К теме : http://myvisualdatabase.com/forum/viewt … p?id=2453.

С помощью функции FileExists вы можете проверить наличие файла на диске, затем при его наличии задать пользователю вопрос с попощью функции MessageDlg

if MessageDlg('Перезаписать файл?', mtInformation, mbYes+mbNo, 0) = mrYes then

5,022

(9 replies, posted in Russian)

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

5,023

(9 replies, posted in Russian)

sait0219 wrote:

Дмитрий вы подскажите как посчитать, из заполненных полей сумму в ячейку итого? Как это реализовать, очень нужно. Через 5 дней защита диплома нужно показать проект

DriveSoft wrote:

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


Я могу помочь только с конкретным вопросом.

В вашем примере присутствует двойной подвал, такое можно реализовать только через отчеты, но вам необходимо реализовать это на форме? Также на форме не получиться вводить данные непосредственно в TableGrid как в Excel.

5,024

(10 replies, posted in Russian)

My Visual Database 2.6 beta
https://www.dropbox.com/s/pebrvqwqcbluy … a.zip?dl=0



Что нового?
- Для компонента ComboBox добавлено свойство FirstEmptyItem, позволяет убрать первый пустой пункт списка.


- Добавлена возможность разместить на форме график с помощью скрипта.
Проект с примером:
http://myvisualdatabase.com/forum/misc. … download=1



- Добавлена возможность быстрой вставки большого количества записей (транзакция), пример:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    SqliteTr: TDBXSqliteTransaction;
    i: integer;
begin
    SqliteTr := BeginSQLiteTransaction;
    for i:= 0 to 10000 do SQLExecute('INSERT INTO employees (lastname) VALUES(''Smith'')');
    CommitSQLiteTransaction(SqliteTr);
end;



-

5,025

(9 replies, posted in Russian)

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


Я могу помочь только с конкретным вопросом.