[ Closed ] Ряд вопросов от новичка. (Page 1 of 2)

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

Необходимо для правильной работы внутренних алгоритмов программы, словарные таблицы это как правило таблицы с постоянным набором записей, например таблица статусов заказа (Новый, В работе, Закрыт) или перечисление полов (Неопределен, Мужской, Женский)

Как правило ничего страшного не произойдет если вы неверно отметите эти галочки, т.к. нужны они в редких случаях.

Позволяет указать произвольную сортировку сразу по нескольких столбцам, например: lastname, status
т.о. отсортирует сперва по фамилии, затем по статусам.

Да, например есть БД телефонного справочника, с таблицами persons и phones, в таблице phones есть внешний ключ с поддержкой целостности на таблицу persons, т.о. при удалении записи из таблицы persons, будут удалены и все его телефонные номера.

У компонента есть свойство Format, в котором вы можете задать свой формат времени, в данном случае: HH:mm

для кнопки авторизации установите свойство Default = true

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

  if SQLExecute ('SELECT admin FROM users WHERE id = '+IntToStr(idUser)) = '1' then
  begin 
      isAdmin := True
  end else 
  begin
     frmFind.btDir.Visible:=False;
     frmFind.btJour.Visible:=False;
  end;

events.date >= date('now')

http://myvisualdatabase.com/forum/viewtopic.php?id=1058

С этим к сожалению не смогу помочь, могу помочь только с конкретными вопросами.

Raspr
Чтобы было видно и записи за предыдущий день, попробуйте так

events.date >= date('now','-1 day') 

Для удаления попробуйте такой запрос

SQLExecute('DELETE FROM logs WHERE datefield < date("now", "- 60 days")');

CURRENT_DATE() - это синтаксис для MySQL, в запросе выше я привел пример для SQLite, какую СУБД вы используете?

До калькулятора пока мозгов не хватает. Тренируюсь на кошках.  Захотел выкрасить ячейки в гриде, где запись моложе одного часа. Ошибок нет, результата нет (выкрашивает все). Не приходилось такое делать?

procedure frmFind_TableGrid1_OnChange (Sender: string);
var
    i,c: integer;
begin
    c := frmFind.TableGrid1.RowCount -1;

    for i := 0 to c do
    begin
        if SQLExecute('SELECT * FROM events WHERE date_ins < datetime("now","-1 hour")') then frmFind.TableGrid1.Cell[2,i].Color := clYellow
    end;
end;

Делал по аналогии с чисткой логов. Там корректно работает как так:

SQLExecute('DELETE FROM logs WHERE date < date("now","-60 day")');

так и эдак:

SQLExecute('DELETE FROM logs WHERE date < datetime("now","-1 hour")');

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

Извиняюсь за задержку с ответом, был в отпуске, вопрос все еще актуален для вас?

То ли лыжи не едут, то ли я... как известно.

Пытаюсь кнопкой проверить существует ли запись, и если существует присвоить текстовому полю значение. Все удается только в случае, когда значение цифровое и обязательно начинается не с нуля. Если с нуля, нуль игнорируется, если буквы присутствуют - ошибка в запросе возникает. Не подскажете от куда у меня руки растут? ))

Правильно будет в запрос передавать sqlValue
Form1.edNom.Text := SQLExecute('SELECT nom FROM primer WHERE number = '+Form1.edNumber.sqlValue );
Но если вам скучно то можно написать и так :
Form1.edNom.Text := SQLExecute('SELECT nom FROM primer WHERE number = '+chr(39)+Form1.edNumber.text+chr(39) );

chr(39) это вставка символа с 39 номером ' ( апостроф )
Таблицу мона глянуть тут например http://book.itep.ru/10/ascii.htm

Так же можете посмотреть пример

Еще вопрос.
В форме, при сохранении выполняется простой математ. расчет (на клик). И хотелось бы при определенных условиях (в частности, результат < 0) не сохранять запись. Сейчас у меня получается только вывести сообщение о том, что так делать нельзя )), но запись сохраняется. Есть какой-то способ не сохранять запись? Если только способом сохранения записи скриптом, то нельзя ли пример запроса с одним, двумя полями на добавление записи с данными из текстбокса, комбобокса?

Вы можете создать событие OnClick у кнопки с действием "Сохранить запись", в этом событии вы можете проверить какое либо условие и запретить сохранение, например

procedure frmAddEdit_ButtonSave_OnClick (Sender: string; var Cancel: boolean);
begin
    if (ваше условие) then
    begin
        ShowMessage('ваше сообщение');
        Cancel := True; // запрещаем сохранять запись
    end;
end;

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

request.user_r IS NULL

...я бы преобразовал текст в DateTime ( а не наоботот ) и сравнивал бы .
DateTime   это число где целая часть это дни а дробная это часть суток ( часы минуты секунды миллисекунды в тиках )
С DateTime  можно проводить любые арифметические операции
....и именно потому что DateTime число абсолютно все равно какой месяц год и положение звезд на небе ))))
Пример Дмитрия ( ниже ) более корректен ( свой удалил )

Знания - сила! Очередное спасибо и с новым вопросом:
Не удается с помощью MessageDlg продолжить или отменить. Две кнопки не дружатся. Пробовал так:

MessageDlg('бла-бла-бла',mtConfirmation,mbOKCancel,0);

и

MessageDlg('бла-бла-бла',mtConfirmation,[mbOK, mbCancel],0);

не хотит. И если я просто в чем-то накосорезил подскажите, правильны ли дальнейшие действия вида:

if buttonSelected = mrOK

Есть ли возможность импорта данных? или я не заметил?