Search options (Page 383 of 400)

CrazyWetEr
отправьте мне на support@drive-software.com всю папку с проектом, одного файла .vdb недостаточно.
постараюсь помочь.

Please, send me your project to support@drive-software.com
i need to know database structure.

CrazyWetEr
это можно реализовать с помощью скрипта, скрипт необходимо разместить на событие OnClick кнопки с действием Сохранить, который проверит наличие данного кода товара перед выполнение действия Сохранения

procedure frmTovar_ButtonSave_OnClick (Sender: string; var Cancel: boolean);
begin

    if frmTovar.dbAction = 'NewRecord' then // если форма с действием Новая запись, то начинаем проверку
    begin
          // делаем SQL запрос, где проверяем наличие данного кода, содержащегося в компоненте edKodTovara 
          if StrToInt(VarToStr(SQLExecute('SELECT count(kodtovara) FROM tovar WHERE kodtovara=' + edKodTovara.Text))) > 0 then
          begin
                ShowMessage('Товар с данным кодом уже есть в базе данных'); // показываем сообщение об ошибке
                Cancel := True; // отменяем действие кнопки Сохранить запись
         end;
    end;

end;

Важно! для правильной работы скрипта, скачайте пожалуйста версию 1.41
https://www.dropbox.com/s/fr76z69sc69l1 … 201.41.zip

Hello,

You can't do it, i'll fix it.

5maniac5
Дополнительное поле в базе данных для количества дней должно быть числом,  на форме разместить компонент TextBox куда будете вводить необходимое количество дней, тогда код будет таким

procedure Form1_DateTimePicker1_OnChange (Sender: string);
var
     i: integer;
begin
     // проверяем корректность ввода количества дней
     try
         i := StrToInt(Edit1.Text); // Edit1 - компонент содержит количество дней
     except
         i := 0; // если например в Edit1 ввели текст, то возникла ошибка преобразования в число
     end;

     Form1.DateTimePicker2.Date := Form1.DateTimePicker1.Date + i; // прибавляем i дней
end;


// события изменения данных в Edit1
procedure Form1_Edit1_OnChange (Sender: string);
begin
    Form1_DateTimePicker1_OnChange(''); // вызываем код из события Form1_DateTimePicker1_OnChange чтобы обновить данные
end;

Hi, in current version there is no function for check directory exists, but thank you for idea, i'll make it )

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

допустим есть два компонента выбора даты на форме, в первый (DateTimePicker1) вводим начальную дату , а во втором компоненте (DateTimePicker2) будет появляться дата +N дней.

у компонент выбора даты есть событие OnChange, которое срабатывает, когда пользователь выбирает дату

procedure Form1_DateTimePicker1_OnChange (Sender: string);
begin
     Form1.DateTimePicker2.Date := Form1.DateTimePicker1.Date + 5; // прибавляем 5 дней
end;

так же можно сделать поиск по интервалу дат, чтобы отфильтровать записи, у которых подходит срок.
в этом сообщении написано, как это сделать
http://myvisualdatabase.com/forum/viewt … d=207#p207

всплывающее окно при старте так же можно сделать, у компонента TableGrid есть настройки, где можно в пункте 3. указать фильтр записей, примерно такого вида:
(datefield > date('now')) and (datefield < date('now', '+5 days'))
будут показаны записи, у которых дата больше текущей и меньше текущей+5 дней

также в настройках нужно поставить галочку, Автовыполнение запроса

kirikx
в текущей версии такое возможно реализовать только с помощью SQL запроса, где можно проверить поле на пустое значение: WHERE pic = null

Hello,

procedure Ordine_grid_prodotto_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
   Ordine.cb_codProdotto.dbItemID := Ordine_grid_prodotto.dbItemID;
end;

Это делается в SQL запросе в секции WHERE, например

WHERE

(datefield >= {dtDepFrom}) AND (datefield <= {dtDepTo});

где datefield - поле с датой
dtDepFrom - компонент DateTimePicker с датой От
dtDepTo - компонент DateTimePicker с датой По

You can mix text and fields in property FieldName, example:
Name: {firstname}, phone {phonefield}

Result:
Name: Smith, phone +134643643