home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / demo / rec_lock / exmpl2_1.bas < prev    next >
BASIC Source File  |  1994-09-09  |  3KB  |  49 lines
  1. ' Example 2 - Lock-by-Select Demo
  2.  
  3. Option Explicit
  4.  
  5. Global Const glb_Database_Name = "CITIES.MDB"
  6. Global Const glb_Table_Name = "Tab_Cities"
  7. Global Const glb_First_Record_ID = 1
  8. Global Const glb_Last_Record_ID = 15
  9.  
  10. Sub Show_Status ()
  11.  
  12.     Select Case glb_Last_Status
  13.         Case st_No_Error
  14.             MsgBox "STATUS:" & Chr$(13) & Chr$(13) & "alles o.k."
  15.         Case st_DOS_Error
  16.             MsgBox "STATUS:" & Chr$(13) & Chr$(13) & "DOS-Fehler"
  17.         Case st_No_File_Name
  18.             MsgBox "STATUS:" & Chr$(13) & Chr$(13) & "Name der Record-Locking-Verwaltungsdatei fehlt"
  19.         Case st_No_User_Name
  20.             MsgBox "STATUS:" & Chr$(13) & Chr$(13) & "Username fehlt"
  21.         Case st_Max_Users
  22.             MsgBox "STATUS:" & Chr$(13) & Chr$(13) & "max. Anzahl User erreicht"
  23.         Case st_File_Destroyed
  24.             MsgBox "STATUS:" & Chr$(13) & Chr$(13) & "Record-Locking-Verwaltungsdatei ist zerst÷rt"
  25.         Case st_User_Not_Found
  26.             MsgBox "STATUS:" & Chr$(13) & Chr$(13) & "User nicht gefunden"
  27.         Case st_No_Table_Name
  28.             MsgBox "STATUS:" & Chr$(13) & Chr$(13) & "Name der Datenbank-Tabelle bzw. Abfrage fehlt"
  29.         Case st_Max_Tables
  30.             MsgBox "STATUS:" & Chr$(13) & Chr$(13) & "max. Anzahl Tabellen erreicht"
  31.         Case st_Lock_By_Same
  32.             MsgBox "STATUS:" & Chr$(13) & Chr$(13) & "Datensatz vom akt. Benutzer gesperrt; keine automatische Entsperrⁿberwachung oder Zeitmarke noch nicht ⁿberschritten"
  33.         Case st_Lock_By_Others
  34.             MsgBox "STATUS:" & Chr$(13) & Chr$(13) & "Datensatz von einem anderem User gesperrt; keine automatische Entsperrⁿberwachung oder Zeitmarke noch nicht ⁿberschritten"
  35.         Case st_Lock_By_Same_Out
  36.             MsgBox "STATUS:" & Chr$(13) & Chr$(13) & "Datensatz vom akt. Benutzer gesperrt; Zeitmarke fⁿr die Sperrung ⁿberschritten, Entsperrung wird empfohlen"
  37.         Case st_Lock_By_Others_Out
  38.             MsgBox "STATUS:" & Chr$(13) & Chr$(13) & "Datensatz von einem anderem User gesperrt; Zeitmarke fⁿr die Sperrung ⁿberschritten, Entsperrung wird empfohlen"
  39.         Case st_Max_Records
  40.             MsgBox "STATUS:" & Chr$(13) & Chr$(13) & "max. Anzahl sperrbarer DatensΣtze erreicht"
  41.         Case st_Table_Not_Found
  42.             MsgBox "STATUS:" & Chr$(13) & Chr$(13) & "Datenbank-Tabelle bzw. Abfrage nicht gefunden"
  43.         Case st_Record_Not_Found
  44.             MsgBox "STATUS:" & Chr$(13) & Chr$(13) & "Datensatz nicht gefunden"
  45.     End Select
  46.  
  47. End Sub
  48.  
  49.