初始化

WT-DMS/CBackupManage.vb

@@ -0,0 +1,36 @@
+Public Class CBackupManage
+    Public Const cst_TABLE_NAME As String = "备份记录表"
+    Public Shared m_COLS_NAME() As String = {
+        "序号",
+        "备份时间"
+    }
+
+    Public Enum COLS
+        序号
+        备份时间
+    End Enum
+
+    '权限
+    Public Shared AccessRight As Integer = RIGHTS.NONE
+
+    Public Sub New()
+    End Sub
+
+    Public Function SetBackupTime(ByVal timeString As String) As Boolean
+        Dim strSql As String = "UPDATE " & cst_TABLE_NAME & " SET " & m_COLS_NAME(COLS.备份时间) & "=" & timeString & " WHERE " & m_COLS_NAME(COLS.序号) & "=" & "1"
+
+        return SQL_ExeCommand(COL_RIGHTS.BOM管理, strSql) 
+    End Function
+
+    Public Function GetBackupTime(ByRef timeString As String) As Boolean
+        Dim strSql As String = "SELECT " & m_COLS_NAME(COLS.备份时间) & " FROM " & cst_TABLE_NAME & " WHERE " & m_COLS_NAME(COLS.序号) & "=" & "1"
+
+        Dim r_Table As New DataTable
+        If SQL_Query(COL_RIGHTS.BOM管理, strSql, r_Table) = True Then
+            timeString = r_Table.Rows(0).Item(0)
+            Return True
+        End If
+        Return False
+    End Function
+
+End Class