Всего материалов в каталоге: 12
Показано материалов: 1-10 |
Страницы: 1 2 » |
FastReport как вывести сумму по группе в начале FastReport печатаем сумму по группе вверху Печать итоговой суммы по группе в заголовке группы
Этот
довольно часто используемый прием требует использования скрипта. Ведь в
обычном отчете значение суммы становится доступным только после того,
как будут обработаны все записи группы. Чтобы вывести сумму в заголовке
группы (т.е. до того, как будет обработана группа), используется
следующий алгоритм:
- отчет делается двухпроходным;
- на первом проходе считается сумма по каждой группе и сохраняется в каком-нибудь массиве; - на втором проходе значения извлекаются из массива и печатаются в заголовке группы. |
Легкая программа для автоматического выполнения скриптов в SQL базе FireBird программа которая позволяет автоматизировать работу скриптов в базе FireBird по времени
допустим необходимо чтобы каждый день проверять рабочий период и в случаи его скорого закрытия добавить к дате закрытия рабочего периода скажем 10 дней.
для Системы Ansoft Avard-a написал следующий модуль и записал в планировщик задач Windows следующее
|
 Pascal ABC 3.0.1 - Система предназначена для обучения программированию на языке Паскаль и ориентирована на школьников и студентов младших курсов. Эта система призвана осуществить переход от простейших программ к модульному, объектно-ориентированному, событийному и компонентному программированию. Многие концепции в Pascal ABC упрощены, что позволяет использовать их на более ранних этапах обучения. Модуль графики обходится без объектов, хотя его возможности практически совпадают с графическими возможностями Borland Delphi. Простейшие событийные программы можно писать, пользуясь лишь процедурными переменными. В консольных программах можно создавать таймеры и звуки, которые |
AutoHotkey - это бесплатная программа с открытым
исходным кодом, предназначенная для работы под Windows. Она поддерживает
свой скриптовый язык, имеет широкий набор функций и собственных команд.
По своим функциям и возможностям программа имеет сходство с такими
программами как Mkey или Hot-keyboard, но имеет более широкие
возможности.
Возможности программы AutoHotkey:
- Автоматизация почти всех процессов посредством клика мышки или
нажатия клавиши. Можно использовать макрорегистратор, а можно вручную
писать макросы.
- Использование при печатании автозамены. Например, чтобы
аббревеатура "aar" заменялась автоматически на automatic alternative
routing.
- Возможность назначение хоткеев (горячие клавиши) для
клавиатуры, мышки или джойстика. Практически любую кнопку или комбинацию
можно сделать хоткеем.
- Переназначение кнопок на клавиатуре, мышке или джойстике.
- С помощью клиентского скрипта WinLIRC возможна передача сигналов пульта ручного дистанционного управления.
- Создание пользовательских интерфейсов и меню, создание пользовательских форм ввода данных.
- Использование уже существующих скриптов AutoIt v2 с возможностью добавления в них новых возможностей.
- Конвертация любого скрипта в EXE-файл, с возможностью
последующего его запуска даже на тех компьютерах на которых AutoHotkey
не установлен.
Как пользоваться AutoHotkey? Тем, кто интересуется этим вопросом и хочет это освоить, могу предложить скачать AutoHotkey инструкцию
- скомпилированный chm-документ из статей на русском языке и переводов
документации. Размер AutoHotkey инструкция имеет небольшой, меньше
мегабайта, но почитать там есть что. |
IBExpert 2011.04.25 версия от N
IBExpert — оболочка, предназначенная для разработки и администрирования баз данных InterBase, Firebird и Yaffil, обладает множеством облегчающих работу компонентов: визуальный редактор для всех объектов базы данных, редактор SQL и исполнитель скриптов, отладчик для хранимых процедур и триггеров, построитель области, собственный скриптовый язык, а также дизайнер баз данных и т. д.
Возможности программы:
• Поддержка InterBase версий 4.х, 5.х, 6.х, 7.х; Firebird 1.х; Yaffil 1.х
• Работа одновременно с несколькими базами данных
• Отдельные редакторы для всех объектов БД с синтаксической подсветкой
• Мощный SQL редактор с историей запросов и возможностью фонового выполнения запросов
• Отладчик хранимых процедур и триггеров
• Поиск в метаданных
• Полное и частичное извлечение данных и метаданных
• Анализатор зависимостей объектов баз данных
• Отчеты по метаданным
• Менеджеры пользователей и пользовательских привилегий
• Экспорт данных в различные форматы
Разработчик: IBExpert KG
|
|
как оперделить длину отрезка 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 фалом /36_TPNGImage.rarпример процедуры конвертации файла из PNG в BMP |
|
// 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;
|
|
Пример отображения часов на форме 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;
|
|
Пример демонстрирует возможность определения лежит ли точка внутри четырехугольника, если заданны координаты. выводит рисунок на 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
|
|
