Search options (Page 273 of 400)

pha1984
1.
К сожалению не могу открыть ваш проект, нажат на кнопку Демонстрация, ничего не происходит.
Также не ясно, что именно не получается? если данные наполняются с помощью кнопки Поиск, то в ней вы также можете указать, по какому именно полю необходимо отсортировать результат поиска.

2.  Необходимо установить свойство формы:

Code.KeyPreview := True;

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

3. Это одно и тоже, просто для новых версий тоже самое можно написать короче

Form1.GridEmployees.sqlValue

вместо

inttostr(Form1.GridEmployees.dbitemid)

Sergey
Каким образом появляется форма, на которой расположен TableGrid?
Если форма появляется с помощью скрипта, тогда TableGrid вам необходимо обновить также с помощью скрипта, например:

Form2.TableGrid1.dbUpdate; // обновляем содержимое компонента
Form2.Show; // показываем форму

(Sender: string; Action: string)
It's not use in this example, here you can get more info about events OnShow and OnClose
http://myvisualdatabase.com/help_en/script/form.html

Database is just one file. To restore the database, you should copy database file from backup folder to the current folder of your project and rename it to "sqlite.db"

Hello,

Usually you don't need any script when you using scanner, you need just set focus to textbox after scanning you will see code from barcode in the textbox, because scanner will send code like keystrokes.

Попробуйте так

ORDER BY tasks.dateCompletion, details.dateCompletion

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

Поправил.

kunar80

SELECT
tasks.contentTask,
strftime('%d.%m.%Y',tasks.dateCompletion),
details.contentDetails,
strftime('%d.%m.%Y',details.dateCompletion),
(CASE WHEN ((SELECT Count(*) FROM details WHERE details.id_tasks=tasks.id AND details.status=1) > 0 OR details.status=1) then 'НА КОНТРОЛЕ' else  '' end),

department.department, 
otdel.otdel, 
pozition.pozition, 
abonents.person

FROM tasks

LEFT OUTER JOIN details ON details.id_tasks = tasks.id

LEFT OUTER JOIN department ON details.id_department = department.id
LEFT OUTER JOIN otdel ON details.id_otdel = otdel.id
LEFT OUTER JOIN pozition ON details.id_pozition = pozition.id
LEFT OUTER JOIN abonents ON details.id_abonents = abonents.id

для версии 1.46 можно так

SQLExecute('INSERT INTO autorisationjournal (date/time_enter, date/time_exit) VALUES ('''+FormatDateTime('yyyy-MM-DD hh:nn:ss.000', Form1.DateTimePicker1.DateTime)+''','''+FormatDateTime('yyyy-MM-DD hh:nn:ss.000', Form1.DateTimePicker2.DateTime)+''');');

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

procedure NovayaForma_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
......

Alex
Посмотреть с какой целью? )

1.
Вы можете задать максимальную и минимальную дату с помощью скрипта
например:

Form1.DateTimePicker1.MaxDate := ...
Form1.DateTimePicker1.MInDate := ...

Для компонента Edit можно сделать следующий скрипт

procedure Form1_Edit1_OnChange (Sender: string);
begin
    if (Form1.Edit1.Value < 1) or (Form1.Edit1.Value > 31) then Form1.Edit1.Value := 1;
end;

2. Согласен, необходимо поправить.