9,051

(1 replies, posted in Script)

Please, download example, how to check duplicate before add new record.

9,052

(5 replies, posted in General)

Check it.

9,053

(5 replies, posted in General)

What's new?
- Added OnChange event for TableGrid
- Added function for script DaveFileFromDataBase
- Added methods BeginUpdate and EndUpdate for TableGrid
- Added ability to search by month and year in DataTimePicker
- Added other functions for script
- Finished several bugfixes

Uropb_H
Свойство Filter находится в инспекторе объектов, возможно у вас старая версия программы.

вопрос задан слишком расплывчато )
примерно это можно сделать скриптом и SQL:

SQLExecute('INSERT INTO users (datefield) VALUES ("' + FormatDateTime('yyyy-MM-DD 00:00:00.000', frmForm2.DateTimePicker1.DateTime) + '");');

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


у ComboBox есть свойств Filter, где вы можете указать условие фильтрации.

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


к сожалению в текущей версии сделать связанный список из трех таблиц используя ComboBox-ы не получится.
можно только используя две таблицы, можете скачать проект с примером
http://myvisualdatabase.com/forum/misc. … download=1



Я заменил в вашем проекте ComboBox на TableGrid, в котором должны были быть показаны услуги, а для реализации связанного списка используется кнопка с действием Поиск и свойство Increm.Search от ComboBox (Подразделение).

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


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

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
     if Form1.ComboBox1.dbItemID = 1 then Form1.ButtonReport1.Click;
     if Form1.ComboBox1.dbItemID = 2 then Form1.ButtonReport2.Click;
     if Form1.ComboBox1.dbItemID = 3 then Form1.ButtonReport3.Click;         
end;

Здесь мы проверяем, какой пункт был вабран из ComboBox, и в зависимости от этого, программно кликаем по нужной кнопке для вызова отчета.

9,059

(12 replies, posted in Script)

rrg33l


procedure Form1_GridEmployees_OnChange (Sender: string);
var
   i,c: integer;
   k, q: integer;
begin
     Form1.GridEmployees.Columns[3].Visible := False; // hide column
     c := Form1.GridEmployees.RowCount - 1;
     q := Form1.GridEmployees.Columns.Count - 1;
     for i := 0 to c do
     begin
         if Form1.GridEmployees.Cells[3,i] = 'Yes' then
            for k := 0 to q do Form1.GridEmployees.Cell[k,i].Color := clRed;
         if Form1.GridEmployees.Cells[3,i] = 'No' then
            for k := 0 to q do Form1.GridEmployees.Cell[k,i].Color := clGreen;
     end;
end;

Also i made example project for you, here you can download

Все верно )

9,061

(23 replies, posted in Russian)

Получится )

9,062

(1 replies, posted in General)

Please, send me your project to support@drive-software.com
I'll try to help you.

9,063

(2 replies, posted in Reports)

You can do it using beta version 1.45
https://www.dropbox.com/s/88lx13h9cw5ro … 5.zip?dl=0


Please download here example project. For demonstrations, press button "Print selected"

9,064

(4 replies, posted in Script)

Hello,


Form1.DBImage1.Clear;

вместо active_task напишите так:

(case when active_task = 1 then 'Да' else 'Нет' end)

Вроде все нормально )

9,067

(28 replies, posted in Russian)

отправьте пожалуйста ваш проект на support@drive-software.com постараюсь выяснить причину.
пока без файла базы, а то он слишком большой.

9,068

(2 replies, posted in Russian)

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


у компонента DateTimePicker есть свойство Filter,
у компонента "Дата начала действия" выберите Filter: >=
у компонента "Дата окончания действия" выберите Filter: <=


p.s.
на форме "SearshForm" у кнопки "Добавить" неверно выбрано действие "Показать форму", исправьте на "Новая запись"


на этой же форме, у компонента CheckBox1 рекомендую установить следующие свойства:
AllowGrayed = True
DefaultState = Grayed
т.о. данный компонент по умолчанию не будет фильтровать данные в поиске, иначе не возможно вывести все записи.

9,069

(28 replies, posted in Russian)

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


не должно тормозить, вы случайно не выводите в результате поиска поле с типом Изображение?
Работа с базой по локальной сети?

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

SELECT Task_name, id_TaskType, start_PF, finishPL, finishFc, active_task, comments, id_users
FROM Tasks
WHERE ( Date(start_PF) <= Date({DateTimePicker2}) )  AND  (   ( (Date(finishFc) >= Date({DateTimePicker1})) OR (finishFc is null) )   )

осталось в эту конструкцию подставить ваши условия )

не совсем ясно, зачем здесь знак равенства?
видимо должно быть так

(условие 1)  AND  (   (условие 2)  AND  ( (условие 2.1) OR (условие 2.2) )   )

1. По моему в вашем запросе уже так и есть.


2. Заголовки колонок задаются там же, где прописывается SQL запрос, только чуть ниже в текстовом поле, через запятую.

Именно так,


у вас есть поле с типом Файл "file_project"
в этом поле обычно хранится непосредственно файл, но в вашем проект эта возможность не используется, в вашем случае хранится только путь к файлу, и этот путь хранится в поле, с приставкой _filename, в вашем случае в поле file_project_filename

Barcode usually work through the clipboard.
Could you please give me a little more details?