fleshkyru
Для этого необходимо в SQL запрос включить поле id из таблицы, также как в примере.

6,552

(7 replies, posted in Script)

Yes.

Default color

Form1.Edit1.Color :=clWindow;

gray color

Form1.Edit1.Color :=clBtnFace;

6,553

(4 replies, posted in Script)

Here you can find the example (navigation on Form):
http://myvisualdatabase.com/forum/viewtopic.php?id=1451

6,554

(1 replies, posted in Russian)

Сделал для вас пример.

yanikmi
1. Имеете ввиду категории с различным количеством подкатегорий (древовидная структура)? в текущей версии это сделать не получится.

по остальным пунктам вполне реализуемо.

6,556

(4 replies, posted in General)

Montenegr0
An example for you:

krokodil_sk
In the current version is not possible, sqlite by default sorts only by ascii letters.
Need some improving to sort unicode symbols.

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


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

скачайте пожалуйста данный пример
http://myvisualdatabase.com/forum/misc. … download=1

6,560

(63 replies, posted in Russian)

delphinsl wrote:

Вставил в код char(13) и не работает перенос???

покажите пожалуйста ваш код полностью

6,561

(20 replies, posted in Russian)

создайте в каждом гриде событие OnChange и в каждом напишите:

Form1.Edit1.Text := FloatToStr(Form1.TableGrid1.Columns[0].Footer.FormulaValue + Form1.TableGrid2.Columns[0].Footer.FormulaValue);

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


В принципе можно сделать так

    // создаем две колонки с помощью пустого SQL запроса
    Form1.TableGrid1.dbSQL:='SELECT null,null'; // the id field, want to be able to edit or delete the entry from the table component
    // задаем названия колонок
    Form1.TableGrid1.dbListFieldsNames :='name2,name3'; // If you do not want to see the value of the id in the component table, enter a name for the column delete_col
    // выполняем пустой SQL запрос
    Form1.TableGrid1.dbSQLExecute;
    // добавляем необходимые количество строк, итого будет 11
    Form1.TableGrid1.AddRow(10);
    // включаем футер
    Form1.TableGrid1.Options := Form1.TableGrid1.Options + goFooter;
    // включаем форумулу суммы для первой колонки
    Form1.TableGrid1.Columns[0].Footer.FormulaKind := fkSum;   // доступные формулы: fkNone, fkAverage, fkCount, fkDistinct, fkMaximum, fkMinimum, fkSum
    // вычисляем футер
    Form1.TableGrid1.CalculateFooter;

yanikmi
Это необходимо сделать с помощью вычисляемого поля

CASE 
   WHEN date('now') >= date1 AND date('now') <=date2  THEN 'первая надпись'
   WHEN date('now') >= date2 AND date('now') <=date3  THEN 'вторая надпись'
   WHEN date('now') > date3 THEN 'третья надпись'
   ELSE 'четвертая надпись'
END

6,564

(20 replies, posted in Russian)

получить значение из футера в Edit можно так


Form1.Edit1.Text := FloatToStr(Form1.TableGrid1.Columns[0].Footer.FormulaValue);

6,565

(4 replies, posted in General)

Usually you should use button with action "ShowRecord" for that.


But I made an example for you how to do it using script and event OnCellDoubleClick

6,566

(2 replies, posted in Reports)

I made an example for you.
Click on "Print All" to demonstrate SUM function.

6,567

(63 replies, posted in Russian)

delphinsl

Select
BDog.nameGK || char(13) ||', шифр "' || bdog.shifr || '"',


также необходимо изменить высоту строк грида, чтобы текст в две строки мог влезть.

Form1.TableGrid1.RowSize := 32;

данную строчку можно расположить например в событии OnShow у формы.
либо в самом низу скрипта между
begin

end.



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

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.Columns[0].WrapKind := wkWordWrap; // для первой колонки в гриде
end;

6,568

(7 replies, posted in General)

doing.whatever.it.takes

Just change action of buttons Button4 and Button5 to "Show Form"

К сожалению я не понимаю как это можно реализовать на примере вашего проекта.

6,570

(7 replies, posted in General)

1 - What is an Information System
https://www.youtube.com/watch?v=Qujsd4vkqFI


2 - What is a Database
https://www.youtube.com/watch?v=t8jgX1f8kc4


3 - More About Databases
https://www.youtube.com/watch?v=ia4eCxPPc_o


4 - Even More about Databases
https://www.youtube.com/watch?v=KAJSjmNPGUk

6,571

(36 replies, posted in General)

heribertom6466
Here you can find info, how does a database work:
http://myvisualdatabase.com/forum/viewtopic.php?id=986

Приложите к сообщению пожалуйста ваш проект (zip файл без exe и dll)
Постараюсь помочь.

6,573

(7 replies, posted in General)

doing.whatever.it.takes
Please attach your project (zip file without exe and dll)
I'll try to help you.

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

с помощью утилиты regedit удалите данный ключ:
HKEY_CURRENT_USER\Software\My Visual DataBase

Какая цель данного скрипта?
Вы используете событие грида OnChange, которое возникает каждый раз, после его заполнения, даже если данные в гриде были не изменены.