1234 lines
53 KiB
VB.net
1234 lines
53 KiB
VB.net
|
Imports System.ComponentModel
|
|||
|
|
Imports System.Drawing
|
|||
|
|
Imports System.Drawing.Imaging
|
|||
|
|
Imports System.IO
|
|||
|
|
Imports System.Text
|
|||
|
|
Imports System.Xml
|
|||
|
|
Imports UTS_Core.Database
|
|||
|
|
Imports UTS_Core.UTSModule.Station
|
|||
|
|
|
|||
|
|
Namespace UTSModule.Project
|
|||
|
|
Public Class ProjectInfo
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 初始化项目模式
|
|||
|
|
''' </summary>
|
|||
|
|
Enum InitializeModeEnum
|
|||
|
|
''' <summary>
|
|||
|
|
''' 从云端数据库加载项目信息
|
|||
|
|
''' </summary>
|
|||
|
|
<Description("云数据库加载")>
|
|||
|
|
RemoteDatabaseLoad
|
|||
|
|
''' <summary>
|
|||
|
|
''' 从本地Xml文件加载项目信息
|
|||
|
|
''' </summary>
|
|||
|
|
<Description("本地文件加载")>
|
|||
|
|
LocalXmlLoad
|
|||
|
|
''' <summary>
|
|||
|
|
''' 从本地数据库加载项目信息
|
|||
|
|
''' </summary>
|
|||
|
|
<Description("本地数据库加载")>
|
|||
|
|
LocalDatabaseLoad
|
|||
|
|
''' <summary>
|
|||
|
|
''' 新建项目信息
|
|||
|
|
''' </summary>
|
|||
|
|
<Description("新建项目")>
|
|||
|
|
Create
|
|||
|
|
End Enum
|
|||
|
|
|
|||
|
|
#Region "New"
|
|||
|
|
Sub New(userId As Integer, projectName As String)
|
|||
|
|
Me.UserId = userId
|
|||
|
|
Index = -1
|
|||
|
|
ProductTypeId = 0
|
|||
|
|
Name = projectName
|
|||
|
|
Description = String.Empty
|
|||
|
|
EolDate = Now.AddMonths(6) '有效期6个月
|
|||
|
|
InitializeMode = InitializeModeEnum.Create
|
|||
|
|
Station = New List(Of ProcessStation)()
|
|||
|
|
DeleteStation = New List(Of ProcessStation)()
|
|||
|
|
|
|||
|
|
IsValid = True
|
|||
|
|
SnType = 1
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Sub New(userId As Integer, projectName As String, mode As InitializeModeEnum)
|
|||
|
|
Me.UserId = userId
|
|||
|
|
Index = -1
|
|||
|
|
ProductTypeId = 0
|
|||
|
|
Name = projectName
|
|||
|
|
Description = String.Empty
|
|||
|
|
EolDate = Now.AddMonths(6) '有效期6个月
|
|||
|
|
InitializeMode = mode
|
|||
|
|
Station = New List(Of ProcessStation)()
|
|||
|
|
DeleteStation = New List(Of ProcessStation)()
|
|||
|
|
|
|||
|
|
IsValid = True
|
|||
|
|
SnType = 1
|
|||
|
|
|
|||
|
|
InitializeProject(projectName, InitializeMode)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Sub New(userId As Integer, projectId As Integer, mode As InitializeModeEnum)
|
|||
|
|
Me.UserId = userId
|
|||
|
|
Index = projectId
|
|||
|
|
ProductTypeId = 0
|
|||
|
|
Name = String.Empty
|
|||
|
|
Description = String.Empty
|
|||
|
|
EolDate = Now.AddMonths(6) '有效期6个月
|
|||
|
|
InitializeMode = mode
|
|||
|
|
Station = New List(Of ProcessStation)()
|
|||
|
|
DeleteStation = New List(Of ProcessStation)()
|
|||
|
|
|
|||
|
|
IsValid = True
|
|||
|
|
SnType = 1
|
|||
|
|
|
|||
|
|
InitializeProject(projectId, InitializeMode)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
#Region "Property"
|
|||
|
|
''' <summary>
|
|||
|
|
''' 当前项目初始化方式
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property InitializeMode() As InitializeModeEnum
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 项目索引，创建项目时生成
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property Index() As Integer
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 项目类型索引
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property ProductTypeId() As Integer
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 项目名称
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property Name() As String
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 项目图像在FTP中的文件名
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property ImageName() As String
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 项目描述
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property Description() As String
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 项目有效日期
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property EolDate() As Date
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 项目是否有效
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property IsValid As Boolean
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 1有订单模式，0无订单模式,暂无作用
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property SnType() As Integer
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 项目备注
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property Remark() As String
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 单价
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property Price() As Decimal
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 项目站集合
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property Station() As List(Of ProcessStation)
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 被删除测试站集合
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property DeleteStation() As List(Of ProcessStation)
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 项目信息是否被修改
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property InfoChanged() As Boolean
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 预览图被修改
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property PreviewImageChanged() As Boolean
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 项目当前操作人员索引
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property UserId() As Integer
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private _masterImg As Image
|
|||
|
|
Private _previewImg As Image
|
|||
|
|
|
|||
|
|
Private _initLock As New Object
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 项目原图
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property MasterImage() As Image
|
|||
|
|
Get
|
|||
|
|
If _masterImg IsNot Nothing Then Return _masterImg
|
|||
|
|
If String.IsNullOrWhiteSpace(ImageName) Then Return Nothing
|
|||
|
|
SyncLock _initLock
|
|||
|
|
Threading.Thread.MemoryBarrier()
|
|||
|
|
If _masterImg IsNot Nothing Then Return _masterImg
|
|||
|
|
|
|||
|
|
Dim imgPath As String = UtsPath.ProductMasterImagePath(ImageName)
|
|||
|
|
If File.Exists(imgPath) = False Then
|
|||
|
|
Try
|
|||
|
|
UtsFtp.CreateObject.FtpDownload(UtsPath.RemoteProductMasterImagePath(ImageName), imgPath)
|
|||
|
|
Catch ex As Exception
|
|||
|
|
Console.WriteLine($"下载产品原图失败,{ex.Message}")
|
|||
|
|
Return Nothing
|
|||
|
|
End Try
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
_masterImg = ImageProcessor.ImageProcessor.GetBitmapImage(imgPath)
|
|||
|
|
End SyncLock
|
|||
|
|
|
|||
|
|
Return _masterImg
|
|||
|
|
End Get
|
|||
|
|
Set(value As Image)
|
|||
|
|
_masterImg = value
|
|||
|
|
End Set
|
|||
|
|
End Property
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 项目预览图
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Property PreviewImage() As Image
|
|||
|
|
Get
|
|||
|
|
If _previewImg IsNot Nothing Then Return _previewImg
|
|||
|
|
If String.IsNullOrWhiteSpace(ImageName) Then Return Nothing
|
|||
|
|
SyncLock _initLock
|
|||
|
|
Threading.Thread.MemoryBarrier()
|
|||
|
|
If _previewImg IsNot Nothing Then Return _previewImg
|
|||
|
|
|
|||
|
|
Dim imgPath As String = UtsPath.ProductPreviewImagePath(ImageName)
|
|||
|
|
If File.Exists(imgPath) = False Then
|
|||
|
|
Try
|
|||
|
|
UtsFtp.CreateObject.FtpDownload(UtsPath.RemoteProductPreviewImagePath(ImageName), imgPath)
|
|||
|
|
Catch ex As Exception
|
|||
|
|
Console.WriteLine($"下载产品预览图失败,{ex.Message}")
|
|||
|
|
Return Nothing
|
|||
|
|
End Try
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
_previewImg = ImageProcessor.ImageProcessor.GetBitmapImage(imgPath)
|
|||
|
|
End SyncLock
|
|||
|
|
Return _previewImg
|
|||
|
|
End Get
|
|||
|
|
Set(value As Image)
|
|||
|
|
_previewImg = value
|
|||
|
|
End Set
|
|||
|
|
End Property
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
#Region "InitializeProject"
|
|||
|
|
''' <summary>
|
|||
|
|
''' 初始化项目
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="projectName">项目名称</param>
|
|||
|
|
''' <param name="mode">加载模式</param>
|
|||
|
|
Public Sub InitializeProject(projectName As String, mode As InitializeModeEnum)
|
|||
|
|
If mode = InitializeModeEnum.RemoteDatabaseLoad Then
|
|||
|
|
LoadRemoteDbProject(projectName)
|
|||
|
|
ElseIf mode = InitializeModeEnum.LocalDatabaseLoad Then
|
|||
|
|
LoadLocalDbProject(projectName)
|
|||
|
|
ElseIf mode = InitializeModeEnum.LocalXmlLoad Then
|
|||
|
|
LoadLocalXmlProject(projectName)
|
|||
|
|
ElseIf mode = InitializeModeEnum.Create Then
|
|||
|
|
|
|||
|
|
Else
|
|||
|
|
Console.WriteLine($"InitializeProject Untreated Mode:{mode}")
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 初始化项目
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="projectId">项目索引</param>
|
|||
|
|
''' <param name="mode">加载模式</param>
|
|||
|
|
Public Sub InitializeProject(projectId As Integer, mode As InitializeModeEnum)
|
|||
|
|
If mode = InitializeModeEnum.RemoteDatabaseLoad Then
|
|||
|
|
LoadRemoteDbProject(projectId)
|
|||
|
|
ElseIf mode = InitializeModeEnum.LocalDatabaseLoad Then
|
|||
|
|
LoadLocalDbProject(projectId)
|
|||
|
|
ElseIf mode = InitializeModeEnum.LocalXmlLoad Then
|
|||
|
|
LoadLocalXmlProject(projectId.ToString())
|
|||
|
|
ElseIf mode = InitializeModeEnum.Create Then
|
|||
|
|
|
|||
|
|
Else
|
|||
|
|
Console.WriteLine($"InitializeProject Untreated Mode:{mode}")
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 加载本地项目
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="projectName">项目名称</param>
|
|||
|
|
Private Sub LoadLocalXmlProject(projectName As String)
|
|||
|
|
Dim filename As String = UtsPath.ProjectFilePath(projectName) '耦合了UTSPath类
|
|||
|
|
Dim xd As New XmlDocument() : xd.Load(filename)
|
|||
|
|
Dim nodeList As XmlNodeList = xd.SelectSingleNode("Project").ChildNodes
|
|||
|
|
For Each node As XmlNode In nodeList
|
|||
|
|
Dim xe As XmlElement = CType(node, XmlElement)
|
|||
|
|
Select Case xe.LocalName
|
|||
|
|
Case $"Index"
|
|||
|
|
Index = CInt(xe.InnerText)
|
|||
|
|
Case $"ProductTypeId"
|
|||
|
|
ProductTypeId = CInt(xe.InnerText)
|
|||
|
|
Case $"Name"
|
|||
|
|
Name = xe.InnerText
|
|||
|
|
Case $"ImageName"
|
|||
|
|
ImageName = xe.InnerText
|
|||
|
|
'Case $"PreviewImage"
|
|||
|
|
' MasterImage = ImageProcessor.ImageProcessor.CompressImageWithSize(ImageProcessor.ImageProcessor.StringToImage(xe.InnerText))
|
|||
|
|
Case $"Description"
|
|||
|
|
Description = xe.InnerText
|
|||
|
|
Case $"EolDate"
|
|||
|
|
EolDate = CDate(xe.InnerText)
|
|||
|
|
Case $"Remark"
|
|||
|
|
Remark = xe.InnerText
|
|||
|
|
Case $"Price"
|
|||
|
|
Price = CDec(xe.InnerText)
|
|||
|
|
Case "Stations"
|
|||
|
|
LoadAllStation(node.ChildNodes)
|
|||
|
|
Case Else
|
|||
|
|
Console.WriteLine($"LoadLocalProject Unknow XmlNodeName:{xe.LocalName}")
|
|||
|
|
End Select
|
|||
|
|
Next
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 加载项目所有站
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="nodeList"></param>
|
|||
|
|
Private Sub LoadAllStation(nodeList As XmlNodeList)
|
|||
|
|
Station.Clear()
|
|||
|
|
Dim xe As XmlElement
|
|||
|
|
For Each node As XmlNode In nodeList
|
|||
|
|
xe = CType(node, XmlElement)
|
|||
|
|
Select Case xe.LocalName
|
|||
|
|
Case "ProcessStation"
|
|||
|
|
LoadStation(xe.ChildNodes)
|
|||
|
|
End Select
|
|||
|
|
Next
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 加载测试站信息
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="nodeList">Xml节点</param>
|
|||
|
|
Private Sub LoadStation(nodeList As XmlNodeList)
|
|||
|
|
Dim stationInfo As New ProcessStation(Me)
|
|||
|
|
Dim xe As XmlElement
|
|||
|
|
For Each node As XmlNode In nodeList
|
|||
|
|
xe = CType(node, XmlElement)
|
|||
|
|
Select Case xe.LocalName
|
|||
|
|
Case $"StationID"
|
|||
|
|
stationInfo.StationID = CInt(xe.InnerText)
|
|||
|
|
Case $"ArtworkOrder"
|
|||
|
|
stationInfo.ArtworkOrder = CInt(xe.InnerText)
|
|||
|
|
Case $"Name"
|
|||
|
|
stationInfo.Name = xe.InnerText
|
|||
|
|
Case $"Type"
|
|||
|
|
stationInfo.StationType = CType([Enum].Parse(GetType(ProcessStation.StationTypeEnum), xe.InnerText), ProcessStation.StationTypeEnum)
|
|||
|
|
If [Enum].TryParse(xe.InnerText, stationInfo.StationType) = False Then
|
|||
|
|
stationInfo.StationType = ProcessStation.StationTypeEnum.None
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Case $"PreviewImage"
|
|||
|
|
stationInfo.PreViewImage = ImageProcessor.ImageProcessor.CompressImageWithSize(ImageProcessor.ImageProcessor.StringToImage(xe.InnerText))
|
|||
|
|
|
|||
|
|
Case $"DevType"
|
|||
|
|
stationInfo.DevType = xe.InnerText
|
|||
|
|
Case $"DevApp"
|
|||
|
|
stationInfo.DevApp = xe.InnerText
|
|||
|
|
Case $"Description"
|
|||
|
|
stationInfo.Description = xe.InnerText
|
|||
|
|
Case $"PacketName"
|
|||
|
|
stationInfo.Packet.FileName = xe.InnerText
|
|||
|
|
Case Else
|
|||
|
|
Console.WriteLine($"LoadStationInfo Unknow XmlNodeName:{xe.LocalName}")
|
|||
|
|
End Select
|
|||
|
|
Next
|
|||
|
|
Station.Add(stationInfo)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 通过数据表更新项目站信息
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="dtStation"></param>
|
|||
|
|
Private Sub UpdateStationFromDataTable(dtStation As DataTable)
|
|||
|
|
Station.Clear()
|
|||
|
|
For Each row As DataRow In dtStation.Rows
|
|||
|
|
Dim stationInfo As New ProcessStation(Me)
|
|||
|
|
With stationInfo
|
|||
|
|
.StationID = CInt(row(DbTableModel.Customer.StationListTable.ColNames.ID.ToString()))
|
|||
|
|
.ArtworkOrder = CInt(row(DbTableModel.Customer.StationListTable.ColNames.ArtworkOrder.ToString()))
|
|||
|
|
|
|||
|
|
If [Enum].TryParse(CStr(row(DbTableModel.Customer.StationListTable.ColNames.StationType.ToString())), .StationType) = False Then
|
|||
|
|
.StationType = ProcessStation.StationTypeEnum.None
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
.SnType = CType([Enum].Parse(GetType(ProcessStation.SnTypeEnum), CStr(row(DbTableModel.Customer.StationListTable.ColNames.SnType.ToString()))), ProcessStation.SnTypeEnum)
|
|||
|
|
|
|||
|
|
.Name = row(DbTableModel.Customer.StationListTable.ColNames.StationName.ToString()).ToString()
|
|||
|
|
.Description = row(DbTableModel.Customer.StationListTable.ColNames.StationDesc.ToString()).ToString()
|
|||
|
|
.Packet.FileName = row(DbTableModel.Customer.StationListTable.ColNames.PacketName.ToString()).ToString()
|
|||
|
|
.Packet.PacketMD5 = row(DbTableModel.Customer.StationListTable.ColNames.PacketMd5.ToString()).ToString()
|
|||
|
|
|
|||
|
|
.IsValid = CBool(row(DbTableModel.Customer.StationListTable.ColNames.Isvalid.ToString()))
|
|||
|
|
.SnListOrder = CInt(row(DbTableModel.Customer.StationListTable.ColNames.SnListOrder.ToString()))
|
|||
|
|
|
|||
|
|
Dim image As Object = row(DbTableModel.Customer.StationListTable.ColNames.PreviewImage.ToString())
|
|||
|
|
If IsDBNull(image) Then
|
|||
|
|
.PreViewImage = Nothing
|
|||
|
|
Else
|
|||
|
|
.PreViewImage = ImageProcessor.ImageProcessor.BytesToImage(CType(image, Byte()))
|
|||
|
|
End If
|
|||
|
|
End With
|
|||
|
|
Station.Add(stationInfo)
|
|||
|
|
Next
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 通过数据表更新项目信息
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="dtProject"></param>
|
|||
|
|
Private Sub UpdateProjectFromDataTable(dtProject As DataTable)
|
|||
|
|
If Integer.TryParse(dtProject(0)(DbTableModel.Customer.ProjectTable.ColNames.ID.ToString()).ToString, Index) = False Then
|
|||
|
|
Index = -1
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If Integer.TryParse(dtProject(0)(DbTableModel.Customer.ProjectTable.ColNames.ProductTypeID.ToString()).ToString, ProductTypeId) = False Then
|
|||
|
|
ProductTypeId = -1
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Name = dtProject(0)(DbTableModel.Customer.ProjectTable.ColNames.ProjectName.ToString()).ToString()
|
|||
|
|
Description = dtProject(0)(DbTableModel.Customer.ProjectTable.ColNames.Description.ToString()).ToString()
|
|||
|
|
|
|||
|
|
ImageName = dtProject(0)(DbTableModel.Customer.ProjectTable.ColNames.ImageName.ToString()).ToString()
|
|||
|
|
|
|||
|
|
If Date.TryParse(dtProject(0)(DbTableModel.Customer.ProjectTable.ColNames.EolDate.ToString()).ToString, EolDate) = False Then
|
|||
|
|
EolDate = Now
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If Boolean.TryParse(dtProject(0)(DbTableModel.Customer.ProjectTable.ColNames.IsValid.ToString()).ToString, IsValid) = False Then
|
|||
|
|
IsValid = False
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If Integer.TryParse(dtProject(0)(DbTableModel.Customer.ProjectTable.ColNames.SnType.ToString()).ToString, SnType) = False Then
|
|||
|
|
SnType = -1
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Remark = dtProject(0)(DbTableModel.Customer.ProjectTable.ColNames.Remark.ToString()).ToString()
|
|||
|
|
|
|||
|
|
If Decimal.TryParse(dtProject(0)(DbTableModel.Customer.ProjectTable.ColNames.Price.ToString()).ToString, Price) = False Then
|
|||
|
|
Price = 0
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 通过项目索引加载项目站信息
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="db">数据库执行器</param>
|
|||
|
|
''' <param name="dbName">数据库名称</param>
|
|||
|
|
''' <param name="projectId">项目索引</param>
|
|||
|
|
Private Sub LoadProjectStation(db As DbExecutor, dbName As String, projectId As Integer)
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.StationListTable.TableName
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.StationListTable.ColNames.ProjectID}` = {projectId} and `{DbTableModel.Customer.StationListTable.ColNames.Isvalid}` = 1 ORDER BY `{DbTableModel.Customer.StationListTable.ColNames.ArtworkOrder}`"
|
|||
|
|
Dim dtStation As DataTable = db.ExecuteDataTable(db.CmdHelper.DbSearchAll(dbName, tableName, condition))
|
|||
|
|
UpdateStationFromDataTable(dtStation)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 通过项目索引初始化项目信息
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="db">数据库执行器</param>
|
|||
|
|
''' <param name="dbName">数据库名称</param>
|
|||
|
|
''' <param name="projectId">项目索引</param>
|
|||
|
|
Private Sub LoadProjectInfo(db As DbExecutor, dbName As String, projectId As Integer)
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.ProjectTable.TableName
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.ProjectTable.ColNames.ID}` = {projectId}"
|
|||
|
|
Dim dtProject As DataTable = db.ExecuteDataTable(db.CmdHelper.DbSearchAll(dbName, tableName, condition))
|
|||
|
|
|
|||
|
|
If dtProject.Rows.Count <= 0 Then Throw New Exception($"Not Find ProjectID: {projectId}")
|
|||
|
|
UpdateProjectFromDataTable(dtProject)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 通过项目索引从远程数据库初始化项目信息
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="projectId">项目索引</param>
|
|||
|
|
Private Sub LoadRemoteDbProject(projectId As Integer)
|
|||
|
|
Using db As New DbExecutor(UtsDb.RemoteDbType, UtsDb.RemoteConnString)
|
|||
|
|
db.Open()
|
|||
|
|
LoadProjectInfo(db, UtsDb.RemotePrivateDb, projectId)
|
|||
|
|
LoadProjectStation(db, UtsDb.RemotePrivateDb, projectId)
|
|||
|
|
db.Close()
|
|||
|
|
End Using
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 通过项目索引加载项目站信息
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="db">数据库执行器</param>
|
|||
|
|
''' <param name="projectId">项目索引</param>
|
|||
|
|
Private Sub LoadProjectStation(db As DbExecutor, projectId As Integer)
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.StationListTable.TableName
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.StationListTable.ColNames.ProjectID}` = {projectId} ORDER BY `{DbTableModel.Customer.StationListTable.ColNames.ArtworkOrder}`"
|
|||
|
|
Dim dtStation As DataTable = db.ExecuteDataTable(db.CmdHelper.SearchAll(tableName, condition))
|
|||
|
|
UpdateStationFromDataTable(dtStation)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 通过项目索引初始化项目信息
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="db">数据库执行器</param>
|
|||
|
|
''' <param name="projectId">项目索引</param>
|
|||
|
|
Private Sub LoadProjectInfo(db As DbExecutor, projectId As Integer)
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.ProjectTable.TableName
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.ProjectTable.ColNames.ID}` = {projectId}"
|
|||
|
|
Dim dtProject As DataTable = db.ExecuteDataTable(db.CmdHelper.SearchAll(tableName, condition))
|
|||
|
|
If dtProject.Rows.Count <= 0 Then Throw New Exception($"Not Find ProjectID: {projectId}")
|
|||
|
|
|
|||
|
|
UpdateProjectFromDataTable(dtProject)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 通过项目索引从本地数据库初始化项目信息
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="projectId">项目索引</param>
|
|||
|
|
Private Sub LoadLocalDbProject(projectId As Integer)
|
|||
|
|
Using db As New DbExecutor(UtsDb.LocalDbType, UtsDb.LocalConnString)
|
|||
|
|
db.Open()
|
|||
|
|
LoadProjectInfo(db, projectId)
|
|||
|
|
LoadProjectStation(db, projectId)
|
|||
|
|
db.Close()
|
|||
|
|
End Using
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 通过项目名称加载数据库项目信息
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="db">数据库执行器</param>
|
|||
|
|
''' <param name="dbName">数据库名</param>
|
|||
|
|
''' <param name="projectName">项目名称</param>
|
|||
|
|
Private Sub LoadProjectInfo(db As DbExecutor, dbName As String, projectName As String)
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.ProjectTable.TableName
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.ProjectTable.ColNames.ProjectName}` = '{projectName}'"
|
|||
|
|
Dim dtProject As DataTable = db.ExecuteDataTable(db.CmdHelper.DbSearchAll(dbName, tableName, condition))
|
|||
|
|
If dtProject.Rows.Count <= 0 Then Throw New Exception($"Not Find projectName: {projectName}")
|
|||
|
|
|
|||
|
|
UpdateProjectFromDataTable(dtProject)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 通过项目名称从远程数据库初始化项目信息
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="projectName">项目名称</param>
|
|||
|
|
Private Sub LoadRemoteDbProject(projectName As String)
|
|||
|
|
Using db As New DbExecutor(UtsDb.RemoteDbType, UtsDb.RemoteConnString)
|
|||
|
|
db.Open()
|
|||
|
|
LoadProjectInfo(db, UtsDb.RemotePrivateDb, projectName)
|
|||
|
|
LoadProjectStation(db, UtsDb.RemotePrivateDb, Index)
|
|||
|
|
db.Close()
|
|||
|
|
End Using
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 通过项目名称加载数据库项目信息
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="db">数据库执行器</param>
|
|||
|
|
''' <param name="projectName">项目名称</param>
|
|||
|
|
Private Sub LoadProjectInfo(db As DbExecutor, projectName As String)
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.ProjectTable.TableName
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.ProjectTable.ColNames.ProjectName}` = '{projectName}'"
|
|||
|
|
Dim dtProject As DataTable = db.ExecuteDataTable(db.CmdHelper.SearchAll(tableName, condition))
|
|||
|
|
If dtProject.Rows.Count <= 0 Then Throw New Exception($"Not Find projectName: {projectName}")
|
|||
|
|
|
|||
|
|
UpdateProjectFromDataTable(dtProject)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 通过项目名称从本地数据库初始化项目信息
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="projectName">项目名称</param>
|
|||
|
|
Private Sub LoadLocalDbProject(projectName As String)
|
|||
|
|
Using db As New DbExecutor(UtsDb.LocalDbType, UtsDb.LocalConnString)
|
|||
|
|
db.Open()
|
|||
|
|
LoadProjectInfo(db, projectName)
|
|||
|
|
LoadProjectStation(db, Index)
|
|||
|
|
db.Close()
|
|||
|
|
End Using
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
#Region "LoadProjectList"
|
|||
|
|
''' <summary>
|
|||
|
|
''' 加载本地项目列表
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="projectDirPath"></param>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Private Shared Function LoadLocalProjectList(projectDirPath As String) As String()
|
|||
|
|
If Directory.Exists(projectDirPath) = False Then Return New String() {}
|
|||
|
|
Dim prjName, prjDirName As String
|
|||
|
|
Dim lstProjects As New List(Of String)
|
|||
|
|
Dim prjDirPaths As String() = Directory.GetDirectories(projectDirPath)
|
|||
|
|
For Each prjDirPath As String In prjDirPaths
|
|||
|
|
For Each fileName As String In Directory.GetFiles(prjDirPath)
|
|||
|
|
prjName = Path.GetFileNameWithoutExtension(fileName)
|
|||
|
|
prjDirName = Path.GetDirectoryName(fileName)
|
|||
|
|
If prjDirName.EndsWith(prjName) Then
|
|||
|
|
lstProjects.Add(prjName)
|
|||
|
|
Exit For
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
Next
|
|||
|
|
Return lstProjects.ToArray()
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 从数据表中提取项目名称列表
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="dtProject"></param>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Private Shared Function GetProjectsNameFromDataTable(dtProject As DataTable) As String()
|
|||
|
|
Dim lstProjects As New List(Of String)
|
|||
|
|
For Each row As DataRow In dtProject.Rows
|
|||
|
|
lstProjects.Add(row($"{DbTableModel.Customer.ProjectTable.ColNames.ProjectName}").ToString())
|
|||
|
|
Next
|
|||
|
|
Return lstProjects.ToArray()
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 从远程数据库加载项目名列表
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Private Shared Function LoadRemoteProjectList() As String()
|
|||
|
|
Using db As New DbExecutor(UtsDb.RemoteDbType, UtsDb.RemoteConnString)
|
|||
|
|
db.Open()
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.ProjectTable.TableName
|
|||
|
|
Dim colNames As String = $"`{DbTableModel.Customer.ProjectTable.ColNames.ProjectName}`"
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.ProjectTable.ColNames.IsValid}` = 1 order by `{DbTableModel.Customer.ProjectTable.ColNames.ProjectName}` asc"
|
|||
|
|
Dim dtProject As DataTable = db.ExecuteDataTable(db.CmdHelper.DbSearch(UtsDb.RemotePrivateDb, colNames, tableName, condition))
|
|||
|
|
db.Close()
|
|||
|
|
Return GetProjectsNameFromDataTable(dtProject)
|
|||
|
|
End Using
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 从本地数据库加载项目名列表
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Private Shared Function LoadLocalProjectList() As String()
|
|||
|
|
Using db As New DbExecutor(UtsDb.LocalDbType, UtsDb.LocalConnString)
|
|||
|
|
db.Open()
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.ProjectTable.TableName
|
|||
|
|
Dim colNames As String = $"`{DbTableModel.Customer.ProjectTable.ColNames.ProjectName}`"
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.ProjectTable.ColNames.IsValid}` = 1 order by `{DbTableModel.Customer.ProjectTable.ColNames.ProjectName}` asc"
|
|||
|
|
Dim dtProject As DataTable = db.ExecuteDataTable(db.CmdHelper.Search(colNames, tableName, condition))
|
|||
|
|
db.Close()
|
|||
|
|
Return GetProjectsNameFromDataTable(dtProject)
|
|||
|
|
End Using
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 加载项目列表
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="mode">加载模式</param>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Shared Function LoadProjectList(mode As InitializeModeEnum) As String()
|
|||
|
|
Select Case mode
|
|||
|
|
Case InitializeModeEnum.RemoteDatabaseLoad
|
|||
|
|
Return LoadRemoteProjectList()
|
|||
|
|
Case InitializeModeEnum.LocalDatabaseLoad
|
|||
|
|
Return LoadLocalProjectList()
|
|||
|
|
Case InitializeModeEnum.LocalXmlLoad
|
|||
|
|
Dim projectDirPath As String = UtsPath.ProjectDesignDirPath() '耦合了UTSPath类
|
|||
|
|
Return LoadLocalProjectList(projectDirPath)
|
|||
|
|
Case InitializeModeEnum.Create
|
|||
|
|
Console.WriteLine($"LoadProjectList Untreated Mode:{mode}")
|
|||
|
|
Return New String() {}
|
|||
|
|
Case Else
|
|||
|
|
Console.WriteLine($"LoadProjectList Untreated Mode:{mode}")
|
|||
|
|
Return New String() {}
|
|||
|
|
End Select
|
|||
|
|
End Function
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
#Region "ExportToXml"
|
|||
|
|
''' <summary>
|
|||
|
|
''' 保存项目所有站信息
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="xw"></param>
|
|||
|
|
Private Sub SaveProjectAllStation(xw As XmlWriter)
|
|||
|
|
xw.WriteStartElement($"Stations") '保存测试站信息节点
|
|||
|
|
For Each stationInfo As ProcessStation In Station
|
|||
|
|
xw.WriteStartElement($"Station")
|
|||
|
|
xw.WriteElementString("StationID", stationInfo.StationID.ToString())
|
|||
|
|
xw.WriteElementString("ArtworkOrder", stationInfo.ArtworkOrder.ToString())
|
|||
|
|
xw.WriteElementString("Name", stationInfo.Name)
|
|||
|
|
xw.WriteElementString("Type", stationInfo.StationType.ToString())
|
|||
|
|
xw.WriteElementString("PreviewImage", ImageProcessor.ImageProcessor.ImageToString(ImageProcessor.ImageProcessor.CompressImageWithSize(stationInfo.PreViewImage)))
|
|||
|
|
xw.WriteElementString("DevType", stationInfo.DevType)
|
|||
|
|
xw.WriteElementString("DevApp", stationInfo.DevApp)
|
|||
|
|
xw.WriteElementString("Description", stationInfo.Description)
|
|||
|
|
xw.WriteElementString("PacketName", stationInfo.Packet.FileName)
|
|||
|
|
xw.WriteEndElement()
|
|||
|
|
Next
|
|||
|
|
xw.WriteEndElement()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 保存项目至本地文件
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="filePath"></param>
|
|||
|
|
Private Sub SaveProjectToLocalFile(filePath As String)
|
|||
|
|
Dim xws As New XmlWriterSettings
|
|||
|
|
With xws
|
|||
|
|
.Indent = True
|
|||
|
|
.NewLineOnAttributes = False
|
|||
|
|
.Encoding = New UTF8Encoding(False)
|
|||
|
|
End With
|
|||
|
|
|
|||
|
|
Using xw As XmlWriter = XmlWriter.Create(filePath, xws)
|
|||
|
|
xw.WriteStartDocument()
|
|||
|
|
xw.WriteStartElement($"Project") '创建跟节点
|
|||
|
|
|
|||
|
|
xw.WriteElementString("Index", Index.ToString())
|
|||
|
|
xw.WriteElementString("ProductTypeId", ProductTypeId.ToString())
|
|||
|
|
xw.WriteElementString("Name", Name)
|
|||
|
|
xw.WriteElementString("ImageName", ImageName)
|
|||
|
|
'xw.WriteElementString("PreviewImage", ImageProcessor.ImageProcessor.ImageToString(ImageProcessor.ImageProcessor.CompressImageWithSize(MasterImage)))
|
|||
|
|
xw.WriteElementString("Description", Description)
|
|||
|
|
xw.WriteElementString("EolDate", EolDate.ToString())
|
|||
|
|
xw.WriteElementString("Remark", Remark)
|
|||
|
|
xw.WriteElementString("Price", Price.ToString())
|
|||
|
|
|
|||
|
|
|
|||
|
|
SaveProjectAllStation(xw)
|
|||
|
|
|
|||
|
|
xw.WriteEndElement()
|
|||
|
|
xw.WriteEndDocument()
|
|||
|
|
xw.Flush()
|
|||
|
|
xw.Close()
|
|||
|
|
End Using
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 将项目信息保存至本Xml文件
|
|||
|
|
''' </summary>
|
|||
|
|
Public Sub ExportToXml(filePath As String)
|
|||
|
|
Dim fileDirPath As String = filePath.Substring(0, filePath.LastIndexOf("\"c))
|
|||
|
|
|
|||
|
|
If Directory.Exists(fileDirPath) = False Then Directory.CreateDirectory(fileDirPath) '判断本地文件夹是否存在
|
|||
|
|
If File.Exists(filePath) Then File.Delete(filePath)
|
|||
|
|
SaveProjectToLocalFile(filePath)
|
|||
|
|
End Sub
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
#Region "Update Project"
|
|||
|
|
Private Function ProjectNameExists(db As DbExecutor, dbName As String, project As ProjectInfo) As Boolean
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.ProjectTable.TableName
|
|||
|
|
Dim colNames As String = $"Count(*)"
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.ProjectTable.ColNames.ProjectName}` = '{project.Name}' and
|
|||
|
|
`{DbTableModel.Customer.ProjectTable.ColNames.ID}` != '{project.Index}' "
|
|||
|
|
|
|||
|
|
Return CInt(db.ExecuteScalar(db.CmdHelper.DbSearch(dbName, colNames, tableName, condition))) > 0
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 查询项目是否存在
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="db">数据库执行器</param>
|
|||
|
|
''' <param name="dbName">数据库名称</param>
|
|||
|
|
''' <param name="project">项目信息</param>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Private Function ProjectExists(db As DbExecutor, dbName As String, project As ProjectInfo) As Boolean
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.ProjectTable.TableName
|
|||
|
|
Dim colNames As String = $"Count(*)"
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.ProjectTable.ColNames.ProjectName}` = '{project.Name}' or
|
|||
|
|
`{DbTableModel.Customer.ProjectTable.ColNames.ID}` = '{project.Index}' "
|
|||
|
|
Return CInt(db.ExecuteScalar(db.CmdHelper.DbSearch(dbName, colNames, tableName, condition))) > 0
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 项目表修改原有项目信息
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="db">数据库执行器</param>
|
|||
|
|
''' <param name="dbName">数据库名称</param>
|
|||
|
|
''' <param name="project">项目信息</param>
|
|||
|
|
Private Sub UpdateProjectTable(db As DbExecutor, dbName As String, project As ProjectInfo)
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.ProjectTable.TableName
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.ProjectTable.ColNames.ID}` = '{project.Index}'"
|
|||
|
|
|
|||
|
|
Dim colName As String
|
|||
|
|
Dim colNames As New List(Of String)
|
|||
|
|
|
|||
|
|
db.ClearDbParameter()
|
|||
|
|
If project.PreviewImageChanged Then
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.ImageName}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, project.ImageName)
|
|||
|
|
|
|||
|
|
SaveProjectImage(project) '保存项目图像文件至本地,发布至Ftp
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
|
|||
|
|
If project.InfoChanged Then
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.ProductTypeID}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.Int32, colName, project.ProductTypeId)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.ProjectName}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, project.Name)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.Description}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, project.Description)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.EolDate}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.DateTime, colName, $"{project.EolDate:yyyy-MM-dd HH:mm:ss}")
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.Remark}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, project.Remark)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.Price}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, project.Price)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.SnType}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.Int32, colName, project.SnType)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If colNames.Count = 0 Then Return '无更改则退出
|
|||
|
|
db.ExecuteNonQuery(db.CmdHelper.DbUpdateParam(dbName, tableName, colNames, condition))
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 项目表添加新项目
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="db">数据库执行器</param>
|
|||
|
|
''' <param name="dbName">数据库名称</param>
|
|||
|
|
''' <param name="project">项目信息</param>
|
|||
|
|
Private Sub InsertProjectTable(db As DbExecutor, dbName As String, project As ProjectInfo)
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.ProjectTable.TableName
|
|||
|
|
|
|||
|
|
Dim colName As String
|
|||
|
|
Dim colNames As New List(Of String)
|
|||
|
|
|
|||
|
|
db.ClearDbParameter()
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.ProductTypeID}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.Int32, colName, project.ProductTypeId)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.ProjectName}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, project.Name)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.Description}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, project.Description)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.UserID}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.Int32, colName, project.UserId)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.CreateTime}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.DateTime, colName, $"{Now:yyyy-MM-dd HH:mm:ss}")
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.EolDate}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.DateTime, colName, $"{project.EolDate:yyyy-MM-dd HH:mm:ss}")
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.ImageName}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, project.ImageName)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.Price}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, project.Price)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.SnType}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.Int32, colName, project.SnType)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.ProjectTable.ColNames.Remark}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, project.Remark)
|
|||
|
|
|
|||
|
|
db.ExecuteNonQuery(db.CmdHelper.DbInsertParam(dbName, tableName, colNames))
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 更新项目索引
|
|||
|
|
''' </summary>
|
|||
|
|
Private Function UpdateProjectIndex(db As DbExecutor, dbName As String, projectName As String) As Integer
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.ProjectTable.TableName
|
|||
|
|
Dim colNames As String = $"{DbTableModel.Customer.ProjectTable.ColNames.ID}"
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.ProjectTable.ColNames.ProjectName}` = '{projectName}'"
|
|||
|
|
Return CInt(db.ExecuteScalar(db.CmdHelper.DbSearch(dbName, colNames, tableName, condition)))
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub UploadProjectTable(db As DbExecutor, dbName As String, project As ProjectInfo)
|
|||
|
|
'项目重名检测
|
|||
|
|
If ProjectNameExists(db, dbName, project) Then
|
|||
|
|
Throw New Exception($"{project.Name} already exists!")
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
'项目已发布检测
|
|||
|
|
If ProjectExists(db, dbName, project) Then
|
|||
|
|
UpdateProjectTable(db, dbName, project)
|
|||
|
|
Else
|
|||
|
|
InsertProjectTable(db, dbName, project) '项目表添加一行
|
|||
|
|
|
|||
|
|
SaveProjectImage(project) '保存项目图像文件至本地,发布至Ftp
|
|||
|
|
|
|||
|
|
project.Index = UpdateProjectIndex(db, dbName, project.Name) '更新项目索引
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
project.PreviewImageChanged = False
|
|||
|
|
project.InfoChanged = False
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 更新上传项目信息
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="db"></param>
|
|||
|
|
''' <param name="project"></param>
|
|||
|
|
Private Sub UploadProjectInfo(db As DbExecutor, dbName As String, project As ProjectInfo)
|
|||
|
|
|
|||
|
|
'将项目信息更新到项目表
|
|||
|
|
UploadProjectTable(db, dbName, project)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub SaveProjectImage(project As ProjectInfo)
|
|||
|
|
Directory.CreateDirectory(UtsPath.ProductMasterImageDirPath())
|
|||
|
|
Directory.CreateDirectory(UtsPath.ProductPreviewImageDirPath())
|
|||
|
|
|
|||
|
|
Dim imgPath As String
|
|||
|
|
Dim ftp As UtsFtp = UtsFtp.CreateObject
|
|||
|
|
|
|||
|
|
imgPath = UtsPath.ProductMasterImagePath(project.ImageName)
|
|||
|
|
project.MasterImage.Save(imgPath)
|
|||
|
|
ftp.FtpUpload(UtsPath.RemoteProductMasterImagePath(project.ImageName), imgPath)
|
|||
|
|
|
|||
|
|
imgPath = UtsPath.ProductPreviewImagePath(project.ImageName)
|
|||
|
|
project.PreviewImage.Save(imgPath)
|
|||
|
|
ftp.FtpUpload(UtsPath.RemoteProductPreviewImagePath(project.ImageName), imgPath)
|
|||
|
|
End Sub
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
#Region "Update Station"
|
|||
|
|
Private Function StationExists(db As DbExecutor, dbName As String, processStation As ProcessStation) As Boolean
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.StationListTable.TableName
|
|||
|
|
Dim colName As String = "Count(*)"
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.StationListTable.ColNames.ProjectID}` = {processStation.ParentProject.Index}
|
|||
|
|
and (`{DbTableModel.Customer.StationListTable.ColNames.StationName}` = '{processStation.Name}'
|
|||
|
|
or `{DbTableModel.Customer.StationListTable.ColNames.ID}` = '{processStation.StationID}')"
|
|||
|
|
Return CInt(db.ExecuteScalar(db.CmdHelper.DbSearch(dbName, colName, tableName, condition))) > 0
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub InsertRowStationTable(db As DbExecutor, dbName As String, processStation As ProcessStation)
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.StationListTable.TableName
|
|||
|
|
Dim colName As String
|
|||
|
|
Dim colNames As New List(Of String)
|
|||
|
|
|
|||
|
|
db.ClearDbParameter()
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.ProjectID}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.Int32, colName, processStation.ParentProject.Index)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.StationName}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, processStation.Name)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.StationType}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, processStation.StationType.ToString())
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.ArtworkOrder}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.Int32, colName, processStation.ArtworkOrder)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.SnListOrder}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.Int32, colName, processStation.SnListOrder)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.SnType}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.Int32, colName, processStation.SnType)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.StationDesc}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, processStation.Description)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.LastUpdateDate}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.DateTime, colName, Now.ToString("yyyy-MM-dd HH:mm:ss"))
|
|||
|
|
|
|||
|
|
'最新包名
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.PacketName}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, processStation.Packet.FileName)
|
|||
|
|
|
|||
|
|
'预览图
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.PreviewImage}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.Binary, colName, ImageProcessor.ImageProcessor.ImageToBytes(processStation.PreViewImage, ImageFormat.Png))
|
|||
|
|
|
|||
|
|
db.ExecuteNonQuery(db.CmdHelper.DbInsertParam(dbName, tableName, colNames))
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub UpdateRowStationTable(db As DbExecutor, dbName As String, processStation As ProcessStation)
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.StationListTable.TableName
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.StationListTable.ColNames.ProjectID}` = {processStation.ParentProject.Index} and `{DbTableModel.Customer.StationListTable.ColNames.ID}` = '{processStation.StationID}'"
|
|||
|
|
|
|||
|
|
Dim colName As String
|
|||
|
|
Dim colNames As New List(Of String)
|
|||
|
|
|
|||
|
|
db.ClearDbParameter()
|
|||
|
|
|
|||
|
|
'基础信息
|
|||
|
|
If processStation.InfoChanged Then
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.StationName}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, processStation.Name)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.StationType}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, processStation.StationType.ToString())
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.ArtworkOrder}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.Int32, colName, processStation.ArtworkOrder)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.SnType}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.Int32, colName, processStation.SnType)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.StationDesc}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, processStation.Description)
|
|||
|
|
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.LastUpdateDate}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.DateTime, colName, Now.ToString("yyyy-MM-dd HH:mm:ss"))
|
|||
|
|
|
|||
|
|
'最新包名
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.PacketName}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.AnsiString, colName, processStation.Packet.FileName)
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
'预览图
|
|||
|
|
If processStation.PreviewImageChanged Then
|
|||
|
|
colName = $"{DbTableModel.Customer.StationListTable.ColNames.PreviewImage}"
|
|||
|
|
colNames.Add(colName)
|
|||
|
|
db.AddDbParameter(DbType.Binary, colName, ImageProcessor.ImageProcessor.ImageToBytes(processStation.PreViewImage, ImageFormat.Png))
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If colNames.Count = 0 Then Return '无修改
|
|||
|
|
|
|||
|
|
db.ExecuteNonQuery(db.CmdHelper.DbUpdateParam(dbName, tableName, colNames, condition))
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 更新工艺站索引
|
|||
|
|
''' </summary>
|
|||
|
|
Private Function UpdateStationIndex(db As DbExecutor, dbName As String, processStation As ProcessStation) As Integer
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.StationListTable.TableName
|
|||
|
|
Dim colNames As String = $"{DbTableModel.Customer.StationListTable.ColNames.ID}"
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.StationListTable.ColNames.ProjectID}` = {processStation.ParentProject.Index} And `{DbTableModel.Customer.StationListTable.ColNames.StationName}` = '{processStation.Name}'"
|
|||
|
|
Return CInt(db.ExecuteScalar(db.CmdHelper.DbSearch(dbName, colNames, tableName, condition)))
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub UploadStationTable(db As DbExecutor, dbName As String, processStation As ProcessStation)
|
|||
|
|
If StationExists(db, dbName, processStation) Then
|
|||
|
|
UpdateRowStationTable(db, dbName, processStation)
|
|||
|
|
Else
|
|||
|
|
'查询总数,赋值
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.StationListTable.ColNames.ProjectID}` = {processStation.ParentProject.Index}"
|
|||
|
|
Dim tbName As String = DbTableModel.Customer.StationListTable.TableName
|
|||
|
|
processStation.SnListOrder = CInt(db.ExecuteScalar(db.CmdHelper.DbSearchCount(UtsDb.RemotePrivateDb, tbName, condition))) + 1
|
|||
|
|
|
|||
|
|
InsertRowStationTable(db, dbName, processStation)
|
|||
|
|
|
|||
|
|
processStation.StationID = UpdateStationIndex(db, dbName, processStation)
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub UploadTestLogTable(db As DbExecutor, dbName As String, processStation As ProcessStation)
|
|||
|
|
Dim tbName As String = DbTableModel.Customer.TestLogTable.TableName(processStation.ParentProject.Index, processStation.StationID)
|
|||
|
|
|
|||
|
|
'创建测试记录表
|
|||
|
|
db.ExecuteNonQuery(DbTableModel.Customer.TestLogTable.CreateTableString(dbName, tbName, db.DatabaseType))
|
|||
|
|
|
|||
|
|
'不同类型检测必要字段是否添加
|
|||
|
|
Dim field As New Dictionary(Of String, String)
|
|||
|
|
Select Case processStation.StationType
|
|||
|
|
Case ProcessStation.StationTypeEnum.AOI
|
|||
|
|
field.Add("ImagePath", "varchar(128)")
|
|||
|
|
field.Add("ImagePath2", "varchar(128)")
|
|||
|
|
Case ProcessStation.StationTypeEnum.Assem
|
|||
|
|
field.Add("AssemblySn", "varchar(128)")
|
|||
|
|
Case ProcessStation.StationTypeEnum.PE
|
|||
|
|
|
|||
|
|
Case ProcessStation.StationTypeEnum.QA
|
|||
|
|
field.Add("QA_FlowLog", "varchar(1024)")
|
|||
|
|
field.Add("QA_CheckResult", "varchar(128)")
|
|||
|
|
Case ProcessStation.StationTypeEnum.Test
|
|||
|
|
|
|||
|
|
Case ProcessStation.StationTypeEnum.Test2
|
|||
|
|
|
|||
|
|
End Select
|
|||
|
|
|
|||
|
|
Dim colList As List(Of String) = DbConnect.DbConnector.GetUnExistsColList(db, dbName, tbName, field.Keys.ToList())
|
|||
|
|
|
|||
|
|
For Each colName As String In colList
|
|||
|
|
db.ExecuteNonQuery(db.CmdHelper.DbAddCol(dbName, tbName, colName, field(colName)))
|
|||
|
|
Next
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Sub UploadStationInfo(db As DbExecutor, dbName As String, project As ProjectInfo)
|
|||
|
|
For Each stationInfo As ProcessStation In project.Station
|
|||
|
|
'更新测试站信息
|
|||
|
|
UploadStationTable(db, dbName, stationInfo)
|
|||
|
|
|
|||
|
|
'创建测试站记录表
|
|||
|
|
UploadTestLogTable(db, dbName, stationInfo)
|
|||
|
|
|
|||
|
|
stationInfo.PreviewImageChanged = False
|
|||
|
|
stationInfo.InfoChanged = False
|
|||
|
|
stationInfo.TypeChange = False
|
|||
|
|
Next
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
#Region "Release Project"
|
|||
|
|
Private Sub ReleaseDataToDatabase()
|
|||
|
|
Using db As New DbExecutor(UtsDb.RemoteDbType, UtsDb.RemoteConnString)
|
|||
|
|
db.Open()
|
|||
|
|
|
|||
|
|
UploadProjectInfo(db, UtsDb.RemotePrivateDb, Me) '更新项目表
|
|||
|
|
|
|||
|
|
DeleteStationInfo(db, UtsDb.RemotePrivateDb, Me) '删除数据库项目站相关信息
|
|||
|
|
|
|||
|
|
UploadStationInfo(db, UtsDb.RemotePrivateDb, Me) '更新数据库项目站相关信息
|
|||
|
|
|
|||
|
|
db.Close()
|
|||
|
|
End Using
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 发布项目，将项目保存至本地,然后发布项目
|
|||
|
|
''' </summary>
|
|||
|
|
Public Sub Release(filePath As String)
|
|||
|
|
ExportToXml(filePath)
|
|||
|
|
|
|||
|
|
ReleaseDataToDatabase()
|
|||
|
|
End Sub
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
#Region "Delete Station"
|
|||
|
|
Private Sub DeleteStationInfo(db As DbExecutor, dbName As String, project As ProjectInfo)
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.StationListTable.TableName
|
|||
|
|
For Each stationInfo As ProcessStation In project.DeleteStation
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.StationListTable.ColNames.ProjectID}` = '{project.Index}' And `{DbTableModel.Customer.StationListTable.ColNames.ID}` = '{stationInfo.StationID}'"
|
|||
|
|
Dim destStr As String = $"`{DbTableModel.Customer.StationListTable.ColNames.Isvalid}` = 0"
|
|||
|
|
db.ExecuteNonQuery(db.CmdHelper.DbUpdate(dbName, tableName, destStr, condition))
|
|||
|
|
Next
|
|||
|
|
project.DeleteStation.Clear()
|
|||
|
|
End Sub
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
#Region "Delete Project"
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 删除项目在云端所有相关信息
|
|||
|
|
''' </summary>
|
|||
|
|
Public Sub Delete()
|
|||
|
|
Dim tableName As String = DbTableModel.Customer.ProjectTable.TableName
|
|||
|
|
Using db As New DbExecutor(UtsDb.RemoteDbType, UtsDb.RemoteConnString)
|
|||
|
|
db.Open()
|
|||
|
|
|
|||
|
|
Dim condition As String = $"`{DbTableModel.Customer.ProjectTable.ColNames.ID}` = {Index}"
|
|||
|
|
Dim destStr As String = $"`{DbTableModel.Customer.ProjectTable.ColNames.IsValid}` = 0"
|
|||
|
|
db.CmdHelper.DbUpdate(UtsDb.RemotePrivateDb, tableName, destStr, condition)
|
|||
|
|
|
|||
|
|
db.Close()
|
|||
|
|
End Using
|
|||
|
|
End Sub
|
|||
|
|
#End Region
|
|||
|
|
End Class
|
|||
|
|
End Namespace
|