Declare Function int_Init_Locking Lib "REC_LOCK.DLL" Alias "Init_Locking" (ByVal File_Name As String, ByVal User_Name As String, ByVal Lock_Mode As Integer, DOS_Error As Integer) As Integer
Declare Function int_Done_Locking Lib "REC_LOCK.DLL" Alias "Done_Locking" (ByVal File_Name As String, ByVal User_Name As String, DOS_Error As Integer) As Integer
Declare Function int_Login_DateTime Lib "REC_LOCK.DLL" Alias "Login_DateTime" (ByVal File_Name As String, ByVal User_Name As String, Day_ As Integer, Month_ As Integer, Year_ As Integer, Hour_ As Integer, Min_ As Integer, Sec_ As Integer, DOS_Error As Integer) As Integer
Declare Function int_Login_Seconds Lib "REC_LOCK.DLL" Alias "Login_Seconds" (ByVal File_Name As String, ByVal User_Name As String, Seconds As Long, DOS_Error As Integer) As Integer
Declare Function int_What_Lock_Mode Lib "REC_LOCK.DLL" Alias "What_Lock_Mode" (ByVal File_Name As String, ByVal User_Name As String, Lock_Mode As Integer, DOS_Error As Integer) As Integer
Declare Function int_Clear_Table Lib "REC_LOCK.DLL" Alias "Clear_Table" (ByVal File_Name As String, ByVal Table_Name As String, DOS_Error As Integer) As Integer
Declare Function int_Lock_Record Lib "REC_LOCK.DLL" Alias "Lock_Record" (ByVal File_Name As String, ByVal User_Name As String, ByVal Table_Name As String, ByVal Record_ID As Long, ByVal Lock_Timeout As Integer, DOS_Error As Integer) As Integer
Declare Function int_Is_Record_Locked Lib "REC_LOCK.DLL" Alias "Is_Record_Locked" (ByVal File_Name As String, ByVal User_Name As String, ByVal Table_Name As String, ByVal Record_ID As Long, ByVal Lock_User As String, Lock_Day As Integer, Lock_Month As Integer, Lock_Year As Integer, Lock_Hour As Integer, Lock_Min As Integer, Lock_Sec As Integer, Lock_Seconds As Long, Lock_Timeout As Integer, DOS_Error As Integer) As Integer
Declare Function int_Unlock_Record Lib "REC_LOCK.DLL" Alias "Unlock_Record" (ByVal File_Name As String, ByVal Table_Name As String, ByVal Record_ID As Long, DOS_Error As Integer) As Integer
' Status-Konstanten
Global Const st_No_Error = 0 ' kein Fehler
Global Const st_Record_Not_Locked = 0 ' Datensatz ist nicht gesperrt
Global Const st_No_File_Name = 2 ' Name der Record-Locking-Verwaltungsdatei fehlt
Global Const st_No_User_Name = 3 ' Username fehlt
Global Const st_Max_Users = 4 ' max. Anzahl User erreicht
Global Const st_File_Destroyed = 5 ' Record-Locking-Verwaltungsdatei ist zerst÷rt
Global Const st_User_Not_Found = 6 ' User nicht gefunden
Global Const st_No_Table_Name = 7 ' Name der Datenbank-Tabelle bzw. Abfrage fehlt
Global Const st_Max_Tables = 8 ' max. Anzahl Tabellen erreicht
Global Const st_Lock_By_Same = 9 ' Datensatz vom akt. Benutzer gesperrt; keine automatische Entsperrⁿberwachung oder Zeitmarke noch nicht ⁿberschritten
Global Const st_Lock_By_Others = 10 ' Datensatz von einem anderem User gesperrt; keine automatische Entsperrⁿberwachung oder Zeitmarke noch nicht ⁿberschritten
Global Const st_Lock_By_Same_Out = 11 ' Datensatz vom akt. Benutzer gesperrt; Zeitmarke fⁿr die Sperrung ⁿberschritten, Entsperrung wird empfohlen
Global Const st_Lock_By_Others_Out = 12 ' Datensatz von einem anderem User gesperrt; Zeitmarke fⁿr die Sperrung ⁿberschritten, Entsperrung wird empfohlen
Global Const st_Max_Records = 13 ' max. Anzahl sperrbarer DatensΣtze erreicht
Global Const st_Table_Not_Found = 14 ' Datenbank-Tabelle bzw. Abfrage nicht gefunden
Global Const st_Record_Not_Found = 15 ' Datensatz nicht gefunden
' Sperrmethoden-Konstanten
Global Const lock_by_Select = 0 ' Lock-by-Select (Sperren bei Datensatz-Selektion)
Global Const lock_by_Edit = 1 ' Lock-by-Edit (Sperren bei Beginn des Editiervorgangs eines Datensatzes)
' Globale Variablen
Global glb_Last_Status As Integer ' letzter Status eines DLL-Funktionsaufrufes
Global glb_Last_DOS_Error As Integer ' Code des letzten DOS-Fehlers
Global glb_Lock_File_Name As String ' Name der Record-Locking-Verwaltungsdatei inkl. Pfad
Global glb_User_Name As String ' Name des akt. Benutzers in Mehrbenutzer-Umgebung
Global glb_Lock_Mode As Integer ' Sperrmethode: 0 = Lock-by-Select (Sperren bei Datensatz-Selektion), 1 = Lock-by-Edit (Sperren bei Beginn des Editiervorgangs eines Datensatzes)