Klasse TFrmStockSelect

Unit

Deklaration

type TFrmStockSelect = class(TForm)

Beschreibung

Das Fesnter realisiert ein Auswahlwerkzeug für die Verzeichenung Akten der Gattungen Sachakten, Personalakten, Urkunden, Fotos, Karten, Risse und Pläne sowie die Verwaltung des bestandeigenen Ordnungschemas. Achtung ! Alle Textfelder sind auf ReadOnly geschaltet!

Hierarchie

Felder

	Name	Beschreibung
	lblAE	Label Anzahl der Akteneinheiten
	lblArea	Label Lagerfäche in lfm.
	lblMaintainer	Label Bestandsbildner
	lblNexMaintainer	Label nächster Bestandsbildner
	lblPrevMainTainer	Label vorheriger Bestandsbildner
	lblRepositur	Label Repositur
	lblRunTime	Label Laufzeitinfo
	lblSignature	Label Signatur
	lblStockName	Label Bestandsname
	lblTectonix	Label Tektonik
	lblUsageLimits	Label Nutzungseischränkungen
	liCommand	Bildliste
	mmArea	Textfeld Lagerfäche in lfm.
	mmMaintainer	Textfeld Bestandsbildner
	mmNextMainTainer	Textfeld nächster Bestandsbildner
	mmNumContainer	Textfeld Anzahl der Akteneinheiten
	mmPrevMainTainer	Textfeld vorheriger Bestandsbildner
	mmRepository	Label Repositur
	mmRuntime	Textfeld Laufzeitinfo
	mmSignature	Textfeld Signatur
	mmStockName	Textfeld Bestandsname
	mmTectonix	Textfeld Tektonik
	mmUsageLimits	Textfeld Nutzungseischränkungen
	Panel1	??
	Panel11	??
	Panel3	??
	Panel4	??
	pnArchive	Panel Archive
	pnMain	Hautpanel
	pnTitle	Titelpanel
	sttArcName	Label Archive
	tbCommand	Befehlszeile
	tbtClassification	Knopf Klassifikation bzw. Ordnungsschema bearbeiten
	tbtClose	Knopf Fenster schließen
	tbtDoc1	Knopf Sachakten bearbeiten
	tbtDoc2	Knopf Personalakten bearbeiten
	tbtDoc3	Knopf Urkunden bearbeiten
	tbtDoc4	Knopf Karten, Risse und Pläne bearbeiten
	tbtFotos	Knopf Fotoakten bearbeiten
	tbtHelp	Knopf Hilfe
	ToolButton1	Separator
	ToolButton4	??

Methoden

Übersicht

	Function Execute(aDatabase:TAdnSQLDatabase; aUserIdent:Integer; aArcIdent:Integer; aStockIdent:Integer):Boolean;
	procedure FormCreate(Sender: TObject);
	procedure FormDestroy(Sender: TObject);
	procedure FormShow(Sender: TObject);
	procedure KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
	procedure tbtClassificationClick(Sender: TObject);
	procedure tbtCloseClick(Sender: TObject);
	procedure tbtDoc1Click(Sender: TObject);
	procedure tbtDoc2Click(Sender: TObject);
	procedure tbtDoc3Click(Sender: TObject);
	procedure tbtDoc4Click(Sender: TObject);
	procedure tbtFotosClick(Sender: TObject);
	procedure tbtHelpClick(Sender: TObject);

Beschreibung

Function Execute(aDatabase:TAdnSQLDatabase; aUserIdent:Integer; aArcIdent:Integer; aStockIdent:Integer):Boolean;

Erzeugen und Ausführen zur Pflege eines zentralen Bestandsnachweises.

parameters

aDatabase

Datenbankverbindung

aUserIdent

Nutzeridentifikator

aArcIdent

momentan gestetzes Archiv

aStockdent

momentan gestetzer Bestand

returns

Der Rückgabewert wird ignoriert.

procedure FormCreate(Sender: TObject);

Formular erzeugen

procedure FormDestroy(Sender: TObject);

Formular freigeben

procedure FormShow(Sender: TObject);

Formular Refresh Ctrls

procedure KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

Tastaturhandler

procedure tbtClassificationClick(Sender: TObject);

Aktion Verwaltung Ordnungsschema aufrufen

procedure tbtCloseClick(Sender: TObject);

Fenster schließen

procedure tbtDoc1Click(Sender: TObject);

Aktion Sachktenverzeichung aufrufen

procedure tbtDoc2Click(Sender: TObject);

Aktion Personalverzeichung aufrufen

procedure tbtDoc3Click(Sender: TObject);

Aktion Urkundenverzeichnung aufrufen

procedure tbtDoc4Click(Sender: TObject);

Aktion Verzeichnung von Karten, Rissen und Plänen aufrufen

procedure tbtFotosClick(Sender: TObject);

Aktion Fotoaktenverzeichnung aufrufen

procedure tbtHelpClick(Sender: TObject);

Aktion Hilfe aufrufen