Prozedurkopf

Aus DBWiki
Wechseln zu: Navigation, Suche

Unter einem Prozedurkopf versteht man bei der Entwicklung von Anwendungen einen Text, der Angaben wie den Autor, Versionen und Änderungen, Auftraggeber und weitere wichtige Informationen enthält. Dieser Text wird auskommentiert, d.h. dieser Text wird nicht ausgeführt, er ist lediglich Text, den Entwickler beim Ändern von Programmen einsehen können, wie Kommentare, die man zwischen und neben den Code schreibt.

Im weiteren Sinne wird dem Prozedurkopf auch der Deklarationsteil der Prozedur zugerechnet.

Prozedurköpfe können auch benutzerfreundlich über eine Eingabemaske erstellt werden oder bei einer Makroaufzeichnung automatisch vom System generiert werden.

Beispiel

Folgendes Beispiel enthält den Prozedurkopf im engeren Sinne sowie einen Deklarationsteil:

Option Compare Database
Option Explicit
 
' =================================================================== '
'                                                                     '
'    -------------    SUB-PROZEDUR OPENRECORDSET   ---------------    '
'                                                                     '
' Typ:                Public Sub                                      '
' Name:               OpenRecordset                                   '
' Autor:              Adalbert Großrechnerputzer                      '
' Version:            3                                               '
' Vorversion:         2                                               '
' Änderungskürzel:    AG16012009                                      '
' Argumente:          -                                               '
' =================================================================== '
 
Public Sub OpenRecordset()
' -- DATENDEKLARATIONEN -------------------
Dim rs1 As DAO.Recordset
Dim sSql As String
Dim kNachname As String
 
' -- Kriterium eingeben -------------------
'  kNachname = InputBox("Bitte Nachnamen eingeben!")   'AG16012009-
kNachname _
= Nz(InputBox("Bitte Nachnamen eingeben!"), "")  'AG16012009+
 
' -- SQL-Abfrage --------------------------
If kNachname <> "" Then
' ... ...