OBS/Auswertung/DataInOut/SpreadGrid
Spread Grid
Ein Spread Grid ist eine flexible Tabelle mit aufbereiteten Daten. Über Scripting können hier bliebige Werte aufbereitet werden, bei denen dann die Daten entsprechend bestimmter Eingaben ausgewertet und angezeigt werden.
Verwendung von eigenen Macros innerhalb des Grids
Um ein eigenes Macro innerhalb des Grids zu verwenden muss das Macro im dafür vorgesehenen Bereich angelegt werden (rechts neben dem Grid).
Beispiel für ein Macro mit Parametern:
function Test(nVal: integer; cText: string): string; begin result := cText+ ' ' + IntToStr(nVal); end;
der Aufruf erfolgt innerhalb einer Zelle:
=macro("test", "15", "Ausgabe")
Folgende Methoden stehen innerhalb der Makros für den Zugriff auf das Grid bereit
Schreibt den Text "cText" in die angegebene Zelle
procedure SetCellText(oGrid: TObject; x, y: integer; cText: string);
procedure SetGridText(oGrid: TObject; cCell: string; cText: string);
Beispiele:
SetCellText(oGrid, 2, 2, 'Test');
SetGridText(oGrid, 'C3', 'Test');
Schreibt eine Zahl nValue in die angegebene Zelle
procedure SetCellValue(oGrid: TObject; x, y: integer; nValue: Double);
procedure SetGridValue(oGrid: TObject; cCell: string; nValue: Double);
Liest den Text aus der angegebenen Zelle
function GetCellText(oGrid: TObject; x, y: integer): string;
function GetGridText(oGrid: TObject; cCell: string): string;
Liest einen Wert aus der angebenen Zelle
function GetCellValue(oGrid: TObject; x, y: integer): Double;
function GetGridValue(oGrid: TObject; cCell: string): Double;
Setzt die Zeilenanzahl des Grids
procedure SetGridRowCount(oGrid: TObject; nRows: integer);
Setzt die Spaltenanzahl des Grids
procedure SetGridColCount(oGrid: TObject; nCols: integer);
Leert die angebenen Zellen bestimmter Zeilen
procedure ClearGridRows(oGrid: TObject; nRow, nRowCount: Integer);
Beispiel:
ClearGridRows(oGrid,5,0);//Leert alle Zellen ab Zeile 5
Leer die angegebenen Zellen bestimmter Spalten
procedure ClearGridCols(oGrid: TObject; nCol, nColCount: Integer); Beispiel:
ClearGridCols(oGrid,5,0);//Leert alle Zellen ab Spalte 5
Setzt die Hintergrundfarbe der Zeile nRow auf die Farbe oColor
procedure SetGridRowColor(oGrid: TObject; nRow: integer; oColor: TColor);
Beispiel:
SetGridRowColor(oGrid, 2, clYellow);
SetGridRowColor(oGrid, 3, clRed);
Aufruf beim Klicken auf eine Zelle
procedure OnClickCell(ARow, ACol: Integer);
Beispiel:
procedure OnClickCell(ARow, ACol: Integer);
begin
DebugLine(CRLF+'ClickCell');
DebugLine('Zeile '+IntToStr(ARow)); //Gibt die angeklickte Zeile aus
DebugLine('Spalte '+IntToStr(ACol)); //Gibt die angeklickte Spalte aus
end;
Aufruf wenn auf einen Zelle im Grid doppelgeklickt wird
procedure OnDblClickCell(ARow, ACol: Integer);
procedure OnDblClickCell(ARow, ACol: Integer);
begin
DebugLine(CRLF+'DblClickCel');
DebugLine('Zeile '+IntToStr(ARow)); //Gibt die angeklickte Zeile aus
DebugLine('Spalte '+IntToStr(ACol)); //Gibt die angeklickte Spalte aus
end;
Aufruf wenn die ausgewählte Zelle gewechselt wird
procedure OnCellChanging(OldRow, OldCol, NewRow, NewCol: Integer);
procedure OnCellChanging(OldRow, OldCol, NewRow, NewCol: Integer);
begin
DebugLine(CRLF+'OnCellChanging');
DebugLine('Alt Zeile '+IntToStr(OldRow)); //Vorherige Zeile
DebugLine('Alt Spalte '+IntToStr(OldCol)); //Vorherige Spalte
DebugLine('Neu Zeile '+IntToStr(NewRow)); //Aktuelle Zeile
DebugLine('Neu Spalte '+IntToStr(NewCol)); //Aktuelle Spalte
end;
Aufruf wenn auf F8 Grid füllen geklickt wird
procedure FillGrid();
Beispiel:
procedure FillGrid();
begin
SetGridRowCount(oGrid,100); //Legt die Anzahl der Zeilen fest
ClearGridRows(oGrid,5,0);//Leert die Zellen des Grids
end;
Kalkulation sofort durchführen
RefreshGrid(oGrid:TObject):String;
Folgende Funktionen können innerhalb des Grids verwendet werden:
Constants
- PI
- E
- True
- False
Single parameter functions
- ABS(parameter) : absolute value
- ROUND(parameter) : rounds value
- TRUNC(parameter) : truncates value
- CEILING(parameter; significance) : rounds the parameter to the nearest multiple of significance
- FRAC(parameter) : returns fractional part of value
- FACT(parameter) : factioral of value
- INT(parameter) : int part of value
- SIN(parameter) : sine of value
- COS(parameter) : cosine of value
- TAN(parameter) : tangens of value
- COTAN(parameter) : cotangens of value
- SINH(parameter) : hyperbolic sine of value
- COSH(parameter) : hyperbolic cosine of value
- TANH(parameter) : hyperbolic tangens of value
- COTANH(parameter) : hyperbolic cotangens of value
- ASIN(parameter) : arcsin of value
- ACOS(parameter) : arccos of value
- ATAN(parameter) : arctangens of value
- ACOTAN(parameter) : arccotangens of value
- LN(parameter) : natural logarithm of value
- LOG2(parameter) : base 2 logarithm of value
- LOG10(parameter) : base 10 logarithm of value
- EXP(parameter) : exponential of value
- RAND(parameter) : random between 0 and value
- RADIANS(parameter) : converts degrees to radians
- DEGREES(parameter) : converts radians to degrees
- SQR(parameter) : square of value
- SQRT(parameter) : square root of value
- CUBE(parameter) : cubic square of value
- CHS(parameter) : change sign
- POWER(parameter,exp) : parameter to exponent exp
Multi parameter functions
- LT(param1;param2) : larger than : returns 1 of param1>param2
- ST(param1;param2) : smaller than : returns 1 of param1<param2
- EQ(param1;param2) : equal : returns 1 of param1=param2 else 0
- CHOOSE(sel;param1;param2) : returns param1 if sel>0 else param2
Cell range functions
- SUM(range) : sum of all cell values in range
- PRODUCT(rangfe) : product of all cell values in range
- AVERAGE(range) : average of all cell values in range
- MIN(range) : min. cell value in range
- MAX(range) : max. cell value in range
- COUNT(range) : nr. of cells in range
- COUNTA(range) : nr of non blank cells in range
- COUNTIF(range;condition) : nr of cells meeting condition in range
- STDEV(range) : standard deviation of range
- STDEVP(range) : standard deviation of total population of range
- DEVSQ(range) : sum of squares of deviations of range
- VAR(range) : variance of range
Date & Time functions
- HOUR(parameter) : gets the hour from a cell containing a valid time string
- MIN(parameter) : gets the minute from a cell containing a valid time string
- SECOND(parameter) : gets the second from a cell containing a valid time string
- DAY(parameter) : gets the day from a cell containing a valid time string
- MONTH(parameter) : gets the month from a cell containing a valid time string
- YEAR(parameter) : gets the year from a cell containing a valid time string
- WEEKDAY(parameter) : gets the day of the week from a cell containing a valid time string
- TODAY : gets the current day
- NOW : gets the current time
Logical functions
- AND(parameters) : logical AND function
- OR((parameters) : logical OR function
- NAND(parameters) : logical NAND function
- NOR((parameters) : logical NOR function
- XOR((parameters) : logical XOR function
- NOT(parameter) : logical NOT function
- TRUE : constant returning true
- FALSE: constant returning false
String functions
- LEN(parameter) : returns the length of a string value
- LOWER(parameter) : returns string in lowercase
- UPPER(parameter) : returns string in uppercase
- CONCATENATE(parameter list) : returns concatenated string of parameters
- SUBSTITUTE(param text; param oldtext; param new text) : returns string with oldtext replaced by newtext
- LEFT(param string;len integer) : returns first len charactares of string
- RIGHT(param string;len integer) : returns last len characters of string
- MID(param string; pos; len: integer): returns len characters starting from position pos in string
- TRIM(param) : removes all spaces from text except spaces between words
- SEARCH(find text; text) : returns position of string find text in text
- LOOKUP(param; range1, range2) : returns the value of the element in range2 that has the index of the matching element in range1 for param
- MATCH(lookup; range) : returns the index of the element param in the range
- INDEX(range; val1, val2) : returns the value of element at index val1,val2 in the range
Beispiele
Artikel-Lieferanten-Auswerung
Warengruppe und ein Datumsbereich können eingegeben werden. Es werden für den Zeitraum pro Artikel die Lieferanten und Einkaufswerte ausgewertet. Datei:ArtikelLieferantenEinkaufsauswertung.zip