初始化

2025-12-11 11:43:00 +08:00
commit 3ccb7d9375
467 changed files with 32608 additions and 0 deletions
--- a/WT-DMS/CMaterialInOut.vb
+++ b/WT-DMS/CMaterialInOut.vb
@@ -0,0 +1,132 @@
+Public Class CMaterialInOut
+    Dim m_SQL As New CSQLInterface
+    Public Shared cst_TABLE_NAME As String = "原料库存表"
+
+    '=====================新增库位库存
+    Public Shared m_COLS_NAME() As String = {
+    "序号",
+    "入库出库",
+    "料号PN",
+    "订单号",
+    "日期",
+    "时间",
+     "数量",
+    "操作员ID",
+    "仓库",
+    "库位",
+    "用途",
+    "库位库存"}
+
+    Public Enum COLS
+        序号
+        入库出库
+        料号PN
+        订单号
+        日期
+        时间
+        数量
+        操作员ID
+        仓库
+        库位
+        用途
+        库位库存
+        max
+    End Enum
+
+    '入库或者出库标志
+    Private IsOutStore As Boolean = False
+    Public Property OutStore() As Boolean
+        Get
+            Return IsOutStore
+        End Get
+        Set(ByVal value As Boolean)
+            IsOutStore = value
+        End Set
+    End Property
+
+    '权限
+    Public Shared AccessRight As Integer = RIGHTS.NONE
+
+
+    Public Sub New()
+        IsOutStore = False
+    End Sub
+
+    Public Function AddItem(ByVal 入库出库 As Boolean,
+                            ByVal 料号PN As String,
+                            ByVal 订单号 As String,
+                            ByVal 日期 As String,
+                            ByVal 时间 As String,
+                            ByVal 数量 As Integer,
+                            ByVal 操作员ID As String,
+                            ByVal 仓库 As String,
+                            ByVal 库位 As String,
+                            ByVal 用途 As String,
+                            ByVal 库位库存 As Integer
+                            ) As ERROR_CODE
+        If CBool(AccessRight And RIGHTS.WRITE) = False Then
+            Return ERROR_CODE.NORIGHT
+        End If
+
+        '"INSERT INTO [dbo].[TABLE1] ([11],[22],[33],[44],[55]) VALUES ('11','2','3','4','5')"
+        Dim strSql As String = "INSERT INTO `" & cst_TABLE_NAME & "` ("
+        '加入列名
+        Dim isFirst As Boolean = True
+        For i As Integer = COLS.入库出库 To m_COLS_NAME.Length - 1
+            If isFirst = True Then
+                isFirst = False
+            Else
+                strSql &= ","
+            End If
+            strSql &= "`" & m_COLS_NAME(i) & "`"
+        Next
+        strSql &= ") VALUES ("
+        strSql &= "'" & IIf(入库出库, 1, 0) & "',"
+        strSql &= "'" & 料号PN & "',"
+        strSql &= "'" & 订单号 & "',"
+        strSql &= "'" & 日期 & "',"
+        strSql &= "'" & 时间 & "',"
+        strSql &= "'" & 数量 & "',"
+        strSql &= "'" & 操作员ID & "',"
+        strSql &= "'" & 仓库 & "',"
+        strSql &= "'" & 库位 & "',"
+        strSql &= "'" & 用途 & "',"
+        strSql &= "'" & 库位库存 & "'"
+        strSql &= ")"
+
+        If SQL_ExeCommand(COL_RIGHTS.原料库存管理, strSql) = True Then
+            Return ERROR_CODE.SUCCESS
+        End If
+
+        Return ERROR_CODE.ACCESS
+    End Function
+
+    Public Function QueryInformation(ByRef Count As Integer, ByRef minIndex As Integer, ByRef maxIndex As Integer
+                      ) As ERROR_CODE
+        If CBool(AccessRight And RIGHTS.READ) = False Then
+            Return ERROR_CODE.NORIGHT
+        End If
+
+        Dim strSQL As String = "SELECT " &
+                                "COUNT(`" & m_COLS_NAME(COLS.序号) & "`), " &
+                                "MIN(`" & m_COLS_NAME(COLS.序号) & "`), " &
+                                "MAX(`" & m_COLS_NAME(COLS.序号) & "`) " &
+                                " FROM `" & cst_TABLE_NAME & "`"
+
+        Dim rValueTable(0) As Object
+        If SQL_DataReader(COL_RIGHTS.原料库存管理, strSQL, rValueTable) = True Then
+            Try
+                Count = rValueTable(0)
+                minIndex = rValueTable(1)
+                maxIndex = rValueTable(2)
+                Return ERROR_CODE.SUCCESS
+            Catch ex As Exception
+
+            End Try
+        End If
+
+        Return ERROR_CODE.ACCESS
+    End Function
+
+
+End Class