Hello.
It's not possible in the current version but planned.
My Visual Database → Posts by DriveSoft
Hello.
It's not possible in the current version but planned.
Hello.
Please check out this example, where you can translate values to your language
http://myvisualdatabase.com/forum/misc. … download=1
Здравствуйте.
Кнопка поиска Button2 должна искать в таблице account
Также в таблице account у вас просто нет записей.
Исправленный проект:
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.
Здравствуйте.
В текущей версии нет возможности отловить скролл колесика мышки.
С какой версии программы можно сохранять изображения не в базе, а как ссылку на картинку, но при этом чтобы сохранялась возможность предварительного просмотра по скрипту:
К сожалению уже не вспомню.
Есть идея для создания редактируемого окна программы - где можно рисовать линии и делать на них ссылки в строки базы(привязка по значению).
Как такое реализовать и есть ли рабочие примеры?
сделал для вас пример:
Hello.
Thank you, I will fix it soon, I'll let you know.
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.
kim143
Check it out
http://www.w3resource.com/sql/subquerie … liases.php
Unfortunately it's not possible.
Как реализовать данный код от номера последней записи в таблице БД (взять значение от 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;
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.
domebil
Thanks, you found a bug. Fixed, please download and install latest version again:
http://myvisualdatabase.com/download/myvisualdb.exe
Вот, убрал exe.
К сожалению не смогу вам помочь, т.к. вы используете пиратскую версию программы.
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 ))
)
странно. После внедрения скрипта выдает ошибку при запуске. "BEGIN expected at 6:1"
Приложите пожалуйста ваш проект (zip файл без exe и dll)
maksimzakharov
Отправьте пожалуйста ваш проект на support@drive-software.com
со ссылкой на данную тему
Возможно это что-то связано с правами записи в файл, к сожалению вы первый, кто столкнулся с подобной проблемой, поэтому не могу сказать точно. Приложите пожалуйста ваш проект.
DriveSoft
Скажите, а нет случайно проекта по учету номенклатуры с выдачей кросс аналогов?
К сожалению пока нету.
You should use a function ToWords, example:
ShowMessage( ToWords(17676.50) );
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
Здравствуйте!
В настройках TableGrid есть пункт Фильтр.
Можно ли там указать определенные условия?
Например вывод записей в таблицу, только если заполнена определенный атрибут таблицы.
Все остальные не выводить.
Есть ли такая возможность?
Как правильно написать?
Здравствуйте.
Да, вы можете указать там условия, их синтаксис аналогичен, если бы вы писали условие в SQL запросе в секции WHERE
например
fieldname is NOT NULL
My Visual Database → Posts by DriveSoft
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi