Search options (Page 230 of 400)

Посмотрите пожалуйста данный видео урок
https://www.youtube.com/watch?v=-kKAgCgyRtY

You use DBImage with property Type=LinkFile?
If yes,  please check it out:
http://myvisualdatabase.com/forum/viewtopic.php?id=1427

Hello,

Try to use TOTAL instead SUM

(select TOTAL(inwards.inqty)
from inwards
where medicine.id = inwards.id_medicine)
-
(select TOTAL(out.outqty)
from out
where medicine.id = out.id_medicine)

The sum() and total() aggregate functions return sum of all non-NULL values in the group. If there are no non-NULL input rows then sum() returns NULL but total() returns 0.0. NULL is not normally a helpful result for the sum of no rows but the SQL standard requires it and most other SQL database engines implement sum() that way so SQLite does it in the same way in order to be compatible. The non-standard total() function is provided as a convenient way to work around this design problem in the SQL language.

nikolai_nn
Пожалуйста опишите, что именно вы хотите сделать с помощью скрипта.

You can call method DoOnChange for parent combobox to update child combobox and use event OnAfterClick for button with action "New Record"

procedure Form1_ButtonNewRecord_OnAfterClick (Sender: string);
var
    iID: integer;
begin
    iID := Form1.CB2.dbItemID; // to save selected id
    Form1.CB1.DoOnChange;
    Form1.CB2.dbItemID := iID; // to restore selected item
end;

nikolai_nn
Здравейте.

1. 

Form1.ComboBox1.dbDeleteRecord (-1);

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

2.  Вы можете сделать форму с изменяемым размером.
Установите свойство формы Sizeable = True
также каждый компонент имеет свойство Anchors, которое позволяет задать поведение компонента при изменении размеров формы, например чтобы он изменялся в размерах вместе с формой (Anchors = Left, Top, Right, Bottom)
либо чтобы компонент всегда был в правом нижнем углу (Anchors = Right, Bottom) и т.д.

You use MySQL server, so I don't have access to your database for testing.

Try to connect to database from My Visual Database, thus your database structure will be automatically analyzed and you will get error message if your database structure is broken.

Example:

 if (main.bxest1.value >= 0) and (main.bxest1.value <= 3) then main.bxest1.Color := clWhite;
 if (main.bxest1.value >= 4) and (main.bxest1.value <= 6) then main.bxest1.Color := clYellow;
 if (main.bxest1.value > 6) then main.bxest1.Color := clRed;

Исправил ошибку.
Как выяснилось свойством Visible следует управлять с помощью скрипта из за специфики свойства данного компонента (TabSheet), поэтому пришлось убрать его из инспектора объектов.

Скачайте пожалуйста снова последнюю версию
http://myvisualdatabase.com/thank_you_f … ading.html

Спасибо за найденную ошибку.

Script is pascal language, so you can use any book about Pascal (Delphi) language.

Here you can find list functions and classes

Проверил на версиях 2.1, 2.2, 2.3
разницы не заметил, на всех версиях диалог появляется на доли секунды.