Блог по программированию в среде Delphi

Поиск по блогу

Есть идея по созданию интересной программы?

Опиши тут и я по возможности постараюсь это реализовать специально для тебя! Без $ ))

четверг, 22 августа 2013 г.

Программа установки не может скопировать файл kmk04810.md

В процессе установки драйвера для Kyocera TaskAlfa 221  возникала следующая ошибка:
Программа установки не может скопировать файл kmk04810.md

Необходимо установить сертификат файла kyomita.cat и все установится нормально.

суббота, 13 июля 2013 г.

ADO фильтрация данных с именем столбца содержащим пробелы

Имеем запрос к таблице следующего вида:
SELECT
    ID_Task as 'ID', Text_task as 'Задачи',
    Term_task as 'Выполнить до:'
from Task

Необходимо отфильтровать данные, но если написать  в фильтре
filter:='Выполнить до: LIKE '+ QuotedStr(DateToStr(Now));
это приведет к возникновению исключительной ситуации, и вызову диалогового окна  с описанием, изображенного на рисунке 1.

Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом
Рисунок 1 - Скрин диалогового окна с описанием исключительной ситуации


Необходимо взять название столбца в квадратные скобки [ ].


После внесения изменений, получится следующее выражение:
filter:='[Выполнить до:] LIKE '+ QuotedStr(DateToStr(Now));

В этом случае фильтрация выполнится, как и предполагалось.

вторник, 21 мая 2013 г.

понедельник, 20 мая 2013 г.

MasterData фиксированное количество строк

Имеем
MasterData1

Добавляем еще один MasterData (MasterData2), в диспетчере свойств, устанавливаем свойство Visible в False, на случай если строк в MasterData1 и так будет достаточно.

Получаем
MasterData1
MasterData2
В MasterData2 делаем пустую строку нашего MasterData.
В обработчике  события OnBeforePrint MasterData2 вставляем код:

procedure MasterData2OnBeforePrint(Sender: TfrxComponent);
var
  EmptyCount: integer;    
begin
  EmptyCount := 10-MasterData1.RowCount; //имеется в виду, что будет 10 строк постоянно
  if EmptyCount > 0 then
  begin
    MasterData2.Visible:=True;                                            
    MasterData2.RowCount := EmptyCount;
  end;
end;

Header в FastReport 4 не отображается перед MasterData

Имеем:

Header1
MasterData1


Как вариант положите перед этим Header1 еще один MasterData2 в котором будут данные всегда и сделайте его невидимым. Header1 теперь будет виден у вас в независимости от того есть ли данные в MasterData1.

Результат:

Header1
MasterData2
MasterData1

Error Class TfrxCheckboxView not found



Бросьте в проект компонент frxCheckBoxObject или подключите файл frxChBox.pas к проекту в ручную.

четверг, 16 мая 2013 г.

IBExpert приятные моменты))

Неприятное сообщение в  IBExpert:
This operation is not defined for system tables. unsuccessful metadata update. cannot delete

Данное сообщение возникло в процессе попытки удаления поля, и было весьма неприятно и не понятно с чем оно связано. Из внешних ключей удалил, но поле активно сопротивлялось моим действиям. Оказалось, что IBExpert проверяет использование полей не только в связях с другими таблицами, но так же идет проверка в триггерах и процедурах.
Закомментировал процедуру, где использовалось удаляемое поле и все прекрасно удалилось.

Спасибо разработчикам IBExpert за их прекрасный инструмент!