37 lines
1.1 KiB
VB.net
37 lines
1.1 KiB
VB.net
|
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
|