Search options (Page 237 of 400)

получить цену в TextBox можно так:

procedure Form1_ComboBox1_OnChange (Sender: string);
begin
   Form1.Edit1.Value := SQLExecute('SELECT IFNULL(price, 0) FROM tablename WHERE id='+Form1.ComboBox1.sqlValue);
end;

Hello,

You should change this code:

    frmStart.mniAbout.Visible := False;
    frmStart.mniOptions.Visible := False;
    frmStart.mniFile.Visible := False;

to

    frmMain.mniAbout.Visible := False;
    frmMain.mniOptions.Visible := False;
    frmMain.mniFile.Visible := False;

Because only main form (first in the tab) have menu.

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

в SQL запросе вы просто перечислили все таблицы

From person
,phone
,Email
,Diapazon_f
,Appparat

вместо этого необходимо их правильно объединить

Select
person.ФИО
,person.Должность
,person.Организация
,person.Интерес
,person.Потребность
,person.Финанс
,person.Откуда_узн
,person.Доп_инф
,person.Доп_запр_инф
,person.Договоренность
,phone.Телефон
,Email.Электронная_почта
,Diapazon_f.diap_f
,Appparat.Аппарат_мс

From person

LEFT OUTER JOIN Diapazon_f ON Diapazon_f.id=person.id_Diapazon_f
LEFT OUTER JOIN Appparat ON Appparat.id=person.id_Appparat
LEFT OUTER JOIN phone ON phone.id_person=person.id
LEFT OUTER JOIN Email ON Email.id_person=person.id

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

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

Вместо этого используйте кнопку с действием "Поиск".

Роман
Если тип для поля выбран как Веществ. число, то ноль на конце в базе данных сохранить невозможно.
Тут больше вопрос связан с форматированием числа, поэтому для компонента TextBox установите значение Currency=True и Accuracy=3

тогда у числа всегда будет 3 знака после запятой.

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

Почему не получится? получится, что именно у вас не получается?

Please download latest beta version:
http://myvisualdatabase.com/download/se … 20beta.zip

try to add this line to disable auto assign hot keys

MyItem1.AutoHotKeys := maManual; 

example:

   MyItem1 := TMenuItem.Create (Form1);
   MyItem1.AutoHotKeys := maManual;
   MyItem1.Caption := 'MyItem1';

вы можете использовать дананое выч. поле

CASE
    WHEN strftime('%d.%m', 'now') = strftime('%d.%m', dateofbirth) THEN 0
    WHEN strftime('%d.%m', 'now', '+1 day') = strftime('%d.%m', dateofbirth) THEN 1
    ELSE NULL
END

оно вернет 0, если день рождение сегодня
и вернет 1 если день рождение завтра

по данному выч. полю вы можете фильтровать записи использую компонент TextBox и кнопку Поиск, т.о. показать записи у кого сегодня ДР или завтра

Please check out this topic
http://myvisualdatabase.com/forum/viewtopic.php?id=1956

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

Это можно реализовать с помощью кнопки с действием SQL запрос, сделал для вас проект с примером.

У таких компонентов как DBFile и DBImage есть свойство Type, установите его значение LinkFile
т.о. в базе будет храниться только ссылка на файл.

Также есть свойство CopyTo, в котором вы можете указать папку, куда файлы будут скопированы, подробней об этом свойстве можно прочитать здесь: http://myvisualdatabase.com/help_ru/com … opyto.html