Каталог файлов

FastReport Печать суммы по группе в заголовке

Mon, 25 Jun 2012 04:00:55 GMT

FastReport как вывести сумму по группе в начале

FastReport печатаем сумму по группе вверху

Печать итоговой суммы по группе в заголовке группы

Этот довольно часто используемый прием требует использования скрипта. Ведь в обычном отчете значение суммы становится доступным только после того, как будут обработаны все записи группы. Чтобы вывести сумму в заголовке группы (т.е. до того, как будет обработана группа), используется следующий алгоритм:

- отчет делается двухпроходным;

- на первом проходе считается сумма по каждой группе и сохраняется в каком-нибудь массиве;

- на втором проходе значения извлекаются из массива и печатаются в заголовке группы.

Легкая программа для автоматического выполнения скриптов в SQL базе FireBird

Wed, 13 Jun 2012 05:26:22 GMT

Легкая программа для автоматического выполнения скриптов в SQL базе FireBird

программа которая позволяет автоматизировать работу скриптов в базе FireBird по времени

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

для Системы Ansoft Avard-a написал следующий модуль и записал в планировщик задач Windows следующее

Где скачать Pascal ABC

Fri, 18 May 2012 12:19:48 GMT

Pascal ABC 3.0.1 - Система предназначена для обучения программированию на языке Паскаль и ориентирована на школьников и студентов младших курсов.
Эта система призвана осуществить переход от простейших программ к модульному, объектно-ориентированному, событийному и компонентному программированию. Многие концепции в Pascal ABC упрощены, что позволяет использовать их на более ранних этапах обучения. Модуль графики обходится без объектов, хотя его возможности практически совпадают с графическими возможностями Borland Delphi.
Простейшие событийные программы можно писать, пользуясь лишь процедурными переменными. В консольных программах можно создавать таймеры и звуки, которые

AutoHotkey программа периодически нажимает заданные клавиши или повторяет движения мыши (имитирует работу пользователя)

Thu, 17 May 2012 03:21:11 GMT

AutoHotkey - это бесплатная программа с открытым исходным кодом, предназначенная для работы под Windows. Она поддерживает свой скриптовый язык, имеет широкий набор функций и собственных команд.

По своим функциям и возможностям программа имеет сходство с такими программами как Mkey или Hot-keyboard, но имеет более широкие возможности.

Возможности программы AutoHotkey:

Автоматизация почти всех процессов посредством клика мышки или нажатия клавиши. Можно использовать макрорегистратор, а можно вручную писать макросы.
Использование при печатании автозамены. Например, чтобы аббревеатура "aar" заменялась автоматически на automatic alternative routing.
Возможность назначение хоткеев (горячие клавиши) для клавиатуры, мышки или джойстика. Практически любую кнопку или комбинацию можно сделать хоткеем.
Переназначение кнопок на клавиатуре, мышке или джойстике.
С помощью клиентского скрипта WinLIRC возможна передача сигналов пульта ручного дистанционного управления.
Создание пользовательских интерфейсов и меню, создание пользовательских форм ввода данных.
Использование уже существующих скриптов AutoIt v2 с возможностью добавления в них новых возможностей.
Конвертация любого скрипта в EXE-файл, с возможностью последующего его запуска даже на тех компьютерах на которых AutoHotkey не установлен.

Как пользоваться AutoHotkey? Тем, кто интересуется этим вопросом и хочет это освоить, могу предложить скачать AutoHotkey инструкцию - скомпилированный chm-документ из статей на русском языке и переводов документации. Размер AutoHotkey инструкция имеет небольшой, меньше мегабайта, но почитать там есть что.

IBExpert 2011.04.25

Tue, 15 May 2012 05:08:30 GMT

IBExpert 2011.04.25 версия от N

IBExpert — оболочка, предназначенная для разработки и администрирования баз данных InterBase, Firebird и Yaffil, обладает множеством облегчающих работу компонентов: визуальный редактор для всех объектов базы данных, редактор SQL и исполнитель скриптов, отладчик для хранимых процедур и триггеров, построитель области, собственный скриптовый язык, а также дизайнер баз данных и т. д.

Возможности программы:
• Поддержка InterBase версий 4.х, 5.х, 6.х, 7.х; Firebird 1.х; Yaffil 1.х
• Работа одновременно с несколькими базами данных
• Отдельные редакторы для всех объектов БД с синтаксической подсветкой
• Мощный SQL редактор с историей запросов и возможностью фонового выполнения запросов
• Отладчик хранимых процедур и триггеров
• Поиск в метаданных
• Полное и частичное извлечение данных и метаданных
• Анализатор зависимостей объектов баз данных
• Отчеты по метаданным
• Менеджеры пользователей и пользовательских привилегий
• Экспорт данных в различные форматы

Разработчик: IBExpert KG

Простые примеры работы с векторным изображением Delphi

Sun, 13 May 2012 08:25:09 GMT

как оперделить длину отрезка AB если известны координаты отрезка

Function Dlina(a,b:Tpoint):real;
var x1,y1,x2,y2:real;
begin
x1:=a.x;
y1:=a.y;
x2:=b.x;
y2:=b.y;
   result:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))
end;

как определить угол наклона отрезка A B в координатах
uses math;

Function Ugol(a,b:Tpoint):real;
var Ch:integer;
begin
result:=arctan2((a.y-b.y),(a.x-b.x));
end;

как создать векторный объект
type
    TMyObject=record
      cx,cy:integer; // Центр фигуры
      h,w:integer; // Высота и ширина объекта
      n:integer; // кол-во вершин
      m:array of Tpoint; // массив точек
    end;

Компонент для работы с PNG фалом

Thu, 10 May 2012 11:18:43 GMT

Компонент для работы с PNG фалом /36_TPNGImage.rar

пример процедуры конвертации файла из PNG в BMP

Процедура перерисовки фигур c n вершин

Wed, 28 Mar 2012 14:36:56 GMT

// cn:Tcanvas; - канва для рисоваия
// cx,cy координаты центра окружности
// a - угол поворота
//R1,r2 - оси по х и по у
// n - кол-во вершин фигуры

procedure GetFigur(cn:Tcanvas;cx,cy:integer;a:integer;r1,r2:integer;n:integer);
var x,y,i:integer;
    b:real;
    l:real;
    x1,y1:integer;
begin
b:=360/(n); // вычисляем угол
for i:=0 to n do begin
        l:=i*b+a; // расчитываем угол поворота оси
        x:=round(cx+r1*cos(l*pi/180)); // расчет точки по Х
        y:=round(cy+r2*sin(l*pi/180)); // расчет точки по У
        if i=0 then begin
          cn.MoveTo(x,y); // переносим карандашь
          x1:=x;
          y1:=y;
        end else
        if i=n then begin
          cn.LineTo(x,y); // рисуем линию
          cn.LineTo(x1,y1); // рисуем линию 2
        end else
        cn.LineTo(x,y); // рисуем линию
end;
end;

procedure GetFigura1(cx,cy,r1,a:integer);   // CX,cY - точка внутри фигуры R1 - радиус A-угол поворота
begin
GetFigur(form1.Canvas,cx,cy,a,r1,r1,4);   // рисуем 4-х угольник
end;
procedure GetFigura2(cx,cy,r1,a:integer);
begin
GetFigur(form1.Canvas,cx,cy,a,r1,r1,6); // рисуем 6-угольник
end;
procedure GetFigura3(cx,cy,r1,a:integer);
begin
GetFigur(form1.Canvas,cx,cy,a,r1,r1,3); // рисуем 3-угольник
end;

Отображение часов и времени прошедшего с запуска ОС

Fri, 23 Mar 2012 03:05:01 GMT

Пример отображения часов на форме Delphi
Отображение часов и времени прошедшего с запуска ОС

function WindowsUpTime : string ;
function MSecToTime(mSec: Integer): string;
const
    secondTicks = 1000;
    minuteTicks = 1000 * 60;
    hourTicks = 1000 * 60 * 60;
    dayTicks = 1000 * 60 * 60 * 24;
var
     D, H, M, S: string;
     ZD, ZH, ZM, ZS: Integer;
begin
     ZD := mSec div dayTicks;
     Dec(mSec, ZD * dayTicks) ;

     ZH := mSec div hourTicks;
     Dec(mSec, ZH * hourTicks) ;

     ZM := mSec div minuteTicks;
     Dec(mSec, ZM * minuteTicks) ;
     ZS := mSec div secondTicks;
     D := IntToStr(ZD) ;
     H := IntToStr(ZH) ;
     M := IntToStr(ZM) ;
     S := IntToStr(ZS) ;
     result:='';
     if zd>0 then result:=result+d+' Дней ';
     if zH>0 then result:=result+h+' часов ';
     result:=result+m+' минут ';
     result:=result+S+' Секунд ';
end;
begin
result := MSecToTime(GetTickCount) ;
end;

Лежит ли точка внутри четырехугольника

Fri, 16 Mar 2012 08:09:58 GMT

Пример демонстрирует возможность определения лежит ли точка внутри четырехугольника, если заданны координаты. выводит рисунок на canvas Delphi/Pascal.
Function Dlina(a,b:Tpoint):real; // находим расстояние между двумя точками
Function GetP(a,b,c:Tpoint):real; // периметр треугольника
Function GetS(a,b,c:Tpoint):real; // площадь треугольниа
Function GetS2(a,b,c,d:Tpoint):real; // функция площади любого четырехугольника стороны которого A,B,C,D диаганали AC BD
Function GetTochka(a,b,c,d:Tpoint;X:Tpoint):boolean; // проверка лежит ли точка внутри 4-х угольника
http://netsoftware.ucoz.ru/02_neskolko_figur.rar