3,326

(10 replies, posted in General)

Hello.


It's not possible in the current version but planned.

3,327

(2 replies, posted in General)

Hello.


Please check out this example, where you can translate values to your language
http://myvisualdatabase.com/forum/misc. … download=1

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


Кнопка поиска Button2 должна искать в таблице account
Также в таблице account у вас просто нет записей.


Исправленный проект:

3,329

(5 replies, posted in General)

First you should create new tables and fields using My Visual Database, then you can download tool SQLite Studio where you can open two databases (old and new) and move data between tables.

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


В текущей версии нет возможности отловить скролл колесика мышки.


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

К сожалению уже не вспомню.


Есть идея для создания редактируемого окна программы - где можно рисовать линии и делать на них ссылки в строки базы(привязка по значению).
Как такое реализовать и есть ли рабочие примеры?

сделал для вас пример:

3,331

(3 replies, posted in General)

Hello.


Thank you, I will fix it soon, I'll let you know.

3,332

(5 replies, posted in General)

Yes, if tables have relationship. Also you can use SQL query and keyword UNION to get results from two tables without relationship.


Please provide a concrete case.

3,333

(7 replies, posted in General)

kim143
Check it out
http://www.w3resource.com/sql/subquerie … liases.php

3,334

(1 replies, posted in General)

Unfortunately it's not possible.

vitstran wrote:

Как реализовать данный код от номера последней записи в таблице БД (взять значение от id записи) до значения в текстовом поле?

Номер - id_Inventar     - последняя запись в таблице

В форме присутствует текстовое поле (вводится числовое значение N), при нажатии кнопки должно создаться N записей:

Номер+1 - id_Inventar
Номер+2 - id_Inventar
..........................................
Номер+N - id_Inventar

пример

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    maxID, i: integer;
begin
    maxID := SQLExecute('SELECT MAX(id_Inventar) FROM tablename');

    for i := 1 to Trunc(Form1.Edit1.Value) do
        SQLExecute( 'INSERT INTO tablename (id_Inventar, fieldname) VALUES('+IntToStr(maxID+i)+',"some value")' );
end;

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


К сожалению здесь не обойтись без SQL запроса. Более того возможно придеться формировать SQL запрос с помощью скрипта.


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

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


Можете сделать этого с помощью скрипта

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    iRow, iCol: integer;
    s: string;
begin
    for iRow := 0 to Form1.TableGrid1.RowCount-1 do
    begin
        s := '';
        for iCol := 0 to Form1.TableGrid1.Columns.Count-2 do
        begin
            s := s + Form1.TableGrid1.Cells[iCol,iRow] + ' | ';
        end;
        Form1.Memo1.Lines.Add(s);
    end;
end;

3,338

(1 replies, posted in Script)

Hello.


A TableGrid component is designed to show data from a database, so you should save data to database, after that you can show the data in the TableGrid.


If you fill cells with values of TextBox, it's does mean that you will save this data to database.

3,339

(6 replies, posted in General)

domebil
Thanks, you found a bug. Fixed, please download and install latest version again:
http://myvisualdatabase.com/download/myvisualdb.exe

maksimzakharov wrote:

Вот, убрал exe.

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

3,341

(7 replies, posted in General)

It's possible, if every records of ingredients have DATETIME field with different values. Example of calculated field

(
(SELECT cereal.grams FROM cereal WHERE cereal.id=subrecords.id_cereal)  
-
(SELECT TOTAL(s.gram) FROM subrecords s WHERE (s.id_cereal=subrecords.id_cereal) AND (s.date <= subrecords.date )) 
)  
mihailgorelov wrote:

странно. После внедрения скрипта выдает ошибку при запуске. "BEGIN expected at 6:1"

Приложите пожалуйста ваш проект (zip файл без exe и dll)

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

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

3,345

(42 replies, posted in Russian)

mihailgorelov wrote:

DriveSoft

Скажите, а нет случайно проекта по учету номенклатуры с выдачей кросс аналогов?

К сожалению пока нету.

3,346

(2 replies, posted in General)

Check it out

3,347

(1 replies, posted in General)

You should use a function ToWords, example:

ShowMessage( ToWords(17676.50) );

3,348

(13 replies, posted in General)

kim143 wrote:

Hello @Dmitry I was testing derek's example and yours too both have similar issue when I edit record and try to save with similar or slight new value it stops me from saving, even i think that condition was just for new record and it was not for edit button .
thanks for help.

DriveSoft wrote:

Another example for you.


Yes, you are right, there is a bug, check it out:

procedure Form3_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    Grams: integer;
    id: integer;
begin
    id := Form3.Button1.dbGeneralTableId;
    if id=-1 then Grams := SQLExecute('SELECT TOTAL(gram) FROM subrecords WHERE id_cereal='+IntToStr(Form2.bSaveRecord.dbGeneralTableId))
    else Grams := SQLExecute('SELECT TOTAL(gram) FROM subrecords WHERE id_cereal='+IntToStr(Form2.bSaveRecord.dbGeneralTableId) +' AND id<>'+IntToStr(id));

    if (Grams+Form3.edGram.Value) > Form2.edGrams.Value then
    begin
        ShowMessage('Underweight.'+#13#13+'Allowed: '+Form2.edGrams.Text + #13+'In the moment: ' + IntToStr(Grams));
        Cancel := True;
    end;
end;

You can't use a property "Text" for mathematical operation, try to use a property Value

if form3.edit6.Value + sqlexecute('...


Also instead

inttostr(form3.combobox1.dbitemid)

you can use

form3.combobox1.sqlValue

3,350

(28 replies, posted in Russian)

tiopentalna wrote:

Здравствуйте!
В настройках TableGrid есть пункт Фильтр.
Можно ли там указать определенные условия?
Например вывод записей в таблицу, только если заполнена определенный атрибут таблицы.
Все остальные не выводить.
Есть ли такая возможность?
Как правильно написать?

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


Да, вы можете указать там условия, их синтаксис аналогичен, если бы вы писали условие в SQL запросе в секции WHERE
например


fieldname is NOT NULL