OBS/System/OBS Anleitung Customize Edit: Unterschied zwischen den Versionen

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
Keine Bearbeitungszusammenfassung
 
(14 dazwischenliegende Versionen von 2 Benutzern werden nicht angezeigt)
Zeile 1: Zeile 1:
<font size="2" color="#000000" face="Arial"> </font>
#REDIRECT [[OBS/Makros_und_Scripting/Anwendungsbereiche/Customize]]
 
<div><center><font size="6">OBS Anleitung Customize Edit</font></center></div> <br />Beim Benutzer kann man über F9 Layout mit Level 5 den Schalter Customize aktivieren.<br />Der Firmenbeauftragte kann dann für den Benutzer Anpassungen für den Benutzer durchführen.Nach der Anpassung muss Customize deaktiviert werden.<br /><br /><div>[[Image:FRMEDITCUSTOMIZE_1.jpg]]</div><br />Aufruf über STRG-F12 kann<br />in der Listeim Edit-Dialogin den Auswahlboxenin den Auswertungen (F3 Formulare/Exports)in der Positionserfassung<br />Mit Rechter Maus Taste und gedrückt CTRL können auch die Weitere Funktionen (in den Listen) bearbeitet werden.<br /><div>[[Image:FRMEDITCUSTOMIZE_2.jpg]]</div><br /><br /><br />die Benutzeraktivitäten eingeschränkt werden:<br /><div>[[Image:FRMEDITCUSTOMIZE_3.jpg]]</div><br />Name des Edit’s ist der KlassennameMakro Gilt Standardmäßig für alle User (XXX) es kann aber auch ein spezifischer Benutzer angegeben werden.<br />Folgende Aufrufe sind möglich:<br /><div><font size="5">'''<u>Edit Formulare</u>'''<br />InitScripter wird nach dem Create des Fensters aufgerufen<br /><div>
 
{| cellspacing="-1" cellpadding="2"
<table border=1>
|- valign="top"
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">'''Edit Kontroll Funktionen'''</font>
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">'''Tastatur Funktionen'''</font>
|- valign="top"
| width="297" valign="top" | <font size="2" color="#000000" face="Arial"><br /></font>
| width="297" valign="top" | <font size="2" color="#000000" face="Arial"><br /></font>
|- valign="top"
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">InitScripter</font>
| width="297" valign="top" | <font size="2" color="#000000" face="Arial"><br /></font>
|- valign="top"
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">CheckIfChanged</font>
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnF1</font>
|- valign="top"
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnESC</font>
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnF2</font>
|- valign="top"
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnEdInit</font>
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnF3</font>
|- valign="top"
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnEdFormInit</font>
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnF4</font>
|- valign="top"
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnEdClose</font>
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnF5</font>
|- valign="top"
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnEdRead</font>
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnF6</font>
|- valign="top"
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnEdShow</font>
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnF7</font>
|- valign="top"
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnEdVorb</font>
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnF8</font>
|- valign="top"
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnEdCheck</font>
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnF9</font>
|- valign="top"
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnEdSave</font>
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnF10</font>
|- valign="top"
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnEdSaveDirect</font>
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnPGDN</font>
|- valign="top"
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnEdReadDirect</font>
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnPGUP</font>
|- valign="top"
| width="297" valign="top" | <font size="2" color="#000000" face="Arial"><br /></font>
| width="297" valign="top" | <font size="2" color="#000000" face="Arial">OnRETURN</font>
|}
 
</div><br />Jede Makro Funktion hat 2 Aufrufe <br />1 Bevor die interne Delphi Funktion aufgerufen wird, gibt es einen Makro-Aufruf mit der Erweiterung Before_. Hat die Funktion den Rückgabewert Ready’, so wird die interne Delphi-Funktion nicht mehr aufgerufen. Diese Funktion wird unabhängig von der Delphi Funktion aufgerufen.<br />2 Standard Aufruf nach der internen Delphi Funktion. Diese wird nur ausgeführt  wenn es in Delphi eine On... Funktion bestückt wird.<br />
 
=<font size="2" color="#000000" face="Arial"><font size="3">'''Globale Variable FrmEdit'''</font></font>=
 
<br />Über die Variable FrmEdit kann auf alle Felder und auf die Property des Edit Objekt zugegriffen werden. Folgende Property’s stehen zu Verfügung<br /><div>
 
{| cellspacing="-1" cellpadding="2"
<table border=1>
|- valign="top"
| width="127" valign="top" | <font size="2" color="#000000" face="Arial">'''Property'''</font>
| width="431" valign="top" | <font size="2" color="#000000" face="Arial">'''Erläuterung'''</font>
|- valign="top"
| width="127" valign="top" | <font size="2" color="#000000" face="Arial"><br /></font>
| width="431" valign="top" | <font size="2" color="#000000" face="Arial"><br /></font>
|- valign="top"
| width="127" valign="top" | <font size="2" color="#000000" face="Arial">'lCheckOK'</font>
| width="431" valign="top" | <font size="2" color="#000000" face="Arial">Kann bei der Überprüfung von F2 benutzt werden ob die Eingabewerte korrekt eingegeben wurden sind.Bei False wird nicht abgespeichert.</font>
|- valign="top"
| width="127" valign="top" | <font size="2" color="#000000" face="Arial">'lEditMode'</font>
| width="431" valign="top" | <font size="2" color="#000000" face="Arial">True  = InsertmodusFalse = Editmodus</font>
|- valign="top"
| width="127" valign="top" | <font size="2" color="#000000" face="Arial">'lDataUpdate'</font>
| width="431" valign="top" | <font size="2" color="#000000" face="Arial">True = Daten des Edits wurden verändert</font>
|- valign="top"
| width="127" valign="top" | <font size="2" color="#000000" face="Arial">'lDataChecked'</font>
| width="431" valign="top" | <font size="2" color="#000000" face="Arial">False=Daten werden auf gültigkeit überprüft (lCheckok)</font>
|- valign="top"
| width="127" valign="top" | <font size="2" color="#000000" face="Arial">'lCloseInsert'</font>
| width="431" valign="top" | <font size="2" color="#000000" face="Arial">Edit-Fenster wird (lEditMode = True) nach F2 geschlossen</font>
|- valign="top"
| width="127" valign="top" | <font size="2" color="#000000" face="Arial">'lCloseEdit'</font>
| width="431" valign="top" | <font size="2" color="#000000" face="Arial">Edit-Fenster wird (lEditMode = False) nach F2 geschlossen</font>
|- valign="top"
| width="127" valign="top" | <font size="2" color="#000000" face="Arial">'lDataESC'</font>
| width="431" valign="top" | <font size="2" color="#000000" face="Arial">Soll bei einer Änderung im Edit eine Abfrage beim Verlassen der Maske erscheinen</font>
|- valign="top"
| width="127" valign="top" | <font size="2" color="#000000" face="Arial">'lCanLock'</font>
| width="431" valign="top" | <font size="2" color="#000000" face="Arial">Ob bei der Eingabe nur eine Person den Datensat editieren darf</font>
|- valign="top"
| width="127" valign="top" | <font size="2" color="#000000" face="Arial">'lInsert'</font>
| width="431" valign="top" | <font size="2" color="#000000" face="Arial">Edit Felder im Insert/Überschreibemodus (zur zeit keine Funktion)</font>
|}
 
</div><br />Auslesen von komponenten </font><font size="3">        </font><font size="3" face="courier new">'''FrmEdit.xGet('a_vorname');'''Setzen von Komponenten</font><font size="3">        </font><font size="3">        </font><font size="3" face="courier new">'''FrmEdit.xSet('a_vorname',’Meier’);'''<br /><br /><br />
 
=<font size="2" color="#000000" face="Arial"><font size="3">'''Mögliche Zugriffe auf Komponenten und Werte des Edits'''</font></font>=
 
<br /><div><font face="courier new">procedure InitScripter(ofrm:Tobject);<div><font face="courier new">var oSte : TEdit;<div><font face="courier new">begin<div><font face="courier new">   oSte := FrmEdit.FindComponent('stred_db_a_vzusatz');<div><font face="courier new">   Meldung(FrmEdit.stred_db_a_vzusatz.Text);<div><font face="courier new">end;<div><font face="courier new"><br /><div><font face="courier new"><br /><div><font face="courier new"><br /><div><font face="courier new">function OnEdCheck():string;<div><font face="courier new">var oSte     : TEdit;<div><font face="courier new">    cEdit    : String;<div><font face="courier new">    cVorname : String;<div><font face="courier new">begin<div><font face="courier new"><br /><div><font face="courier new">   if (FrmEdit.lEditMode) then begin<div><font face="courier new">      Meldung('Edit Mode True');<div><font face="courier new">   end else begin<div><font face="courier new">      Meldung('Edit Mode False');<div><font face="courier new">   end;<div><font face="courier new"><br /><div><font face="courier new">   Meldung(FrmEdit.stred_db_a_name.Text);<div><font face="courier new"><br /><div><font face="courier new">   oSte := FrmEdit.FindComponent('stred_db_a_name');<div><font face="courier new">   Meldung(oSte.Text);<div><font face="courier new"><br /><div><font face="courier new">   cVorname:= FrmEdit.xGet('a_vorname');<div><font face="courier new">   Meldung(cVorname);<div><font face="courier new"><br /><div><font face="courier new">   if (Empty(cVorname)) then begin<div><font face="courier new">       FrmEdit.lCheckOk := False;<div><font face="courier new">       Meldung('Bitte Vorname eingtragen');<div><font face="courier new">   end;<div><font face="courier new"><br /><div><font face="courier new">end;<div><font face="courier new"><br /><div><font face="courier new">Wenn möglich immer mit </font><font face="courier new">'''xGet'''</font><font face="courier new"> und </font><font face="courier new">'''xSet'''</font><font face="courier new"> auf Komponenten Werte zugreifen.<div><font size="3" face="courier new"><br /><br /><div><font size="5">'''<u>Listen Formulare</u>'''<br />folgende Funktionen stehen zur Verfügung:<br />InitScripterOnListNewOnResizeOnRefresh<br />Before_Close<br />Before_OnF1Before_OnF2Before_OnF3Before_OnF4Before_OnF5Before_OnF6Before_OnF7Before_OnF8Before_OnF9Before_OnF10Before_OnReturnBefore_OnInsertBefore_OnDeleteBefore_OnESC<br />OnF1OnF2OnF3OnF4OnF5OnF6OnF7OnF8OnF9OnF10OnReturnOnInsertOnDeleteOnESC<br />'''Beispiel:'''<br /><div><font face="courier new">var oListe : TxFrmListe;<div><font face="courier new"><br /><div><font face="courier new">procedure InitScripter(oFrm:Tobject);<div><font face="courier new">var cTable : String;<div><font face="courier new">begin<div><font face="courier new">    oListe := oFrm;<div><font face="courier new">    cTable := oListe.Name;<div><font face="courier new">    Meldung(cTable);<div><font face="courier new">    Meldung(oListe.Query.sql.text);<div><font face="courier new">    Meldung(oListe.Query.A2C('sys_uid'));<div><font face="courier new">    Meldung(oListe.cTable);<div><font face="courier new">end;<br />wird bei den Before Funktionen "READY" zurückgegeben, so werden die internen Funktionen nicht mehr ausgeführt.Damit kann der natürliche Ablauf des Programmes veränder werden.Dies kann schwere Prgrammfehler verursachen!<br /><br /><br /><div><font size="3" face="courier new"><br /><div><font size="3" face="courier new"><br />[[Category:html]]
----
[[Benutzer:Auto import|Auto import]] 15:21, 25. Aug. 2011 (CEST)

Aktuelle Version vom 9. April 2019, 12:48 Uhr