转到Gitea托管

2026-01-10 14:53:04 +08:00
commit f250d0b46d
225 changed files with 27784 additions and 0 deletions
--- a/WT-DMS/mdl_Defs.vb
+++ b/WT-DMS/mdl_Defs.vb
@@ -0,0 +1,38 @@
+Public Module mdl_Defs
+    '权限定义
+    Public Enum RIGHTS
+        NONE = &H0
+        READ = &H1
+        WRITE = &H2
+        READ_WRITE = &H3
+        MANAGE = &H4
+    End Enum
+
+    '错误码定义
+    Public Enum ERROR_CODE
+        NONE
+        SUCCESS
+        NORIGHT
+        ACCESS
+    End Enum
+
+    '退出原因
+    Public Enum QUIT_RESON
+        close
+        logout
+    End Enum
+
+    '返回错误码字符串
+    Public Function GetErrorCodeString(ByVal errorcode As ERROR_CODE) As String
+        Select Case errorcode
+            Case ERROR_CODE.SUCCESS
+                Return ""
+            Case ERROR_CODE.NORIGHT
+                Return "无访问权限!"
+            Case ERROR_CODE.ACCESS
+                Return "访问数据库失败，请检查网络连接或联系管理员!"
+            Case Else
+                Return "未知错误"
+        End Select
+    End Function
+End Module