UTS/AUTS_OLD
Archived
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

初始化到新仓库

Browse Source
This commit is contained in:
Wen Momo
2025-11-18 11:58:00 +08:00
parent 04c258ceb6
commit 164a105213
24 changed files with 172 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
UTS_Core/UTSModule/Project/FrmProject.vb
View File

@@ -173,6 +173,12 @@ Namespace UTSModule.Project
project.InfoChanged = True
End If
'Momo 2025-07-17 新增对项目有效期的修改检测
MsgBox（DtpValidDate.Value)
If String.Compare(project.EolDate.ToString, DtpValidDate.Value.ToString) <> 0 Then
project.EolDate = DtpValidDate.Value
project.InfoChanged = True
End If
If project.Price <> NudPrice.Value Then
project.Price = NudPrice.Value

7
UTS_Core/UTSModule/Project/ProjectInfo.vb
View File

@@ -859,8 +859,7 @@ Namespace UTSModule.Project
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}' "
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
@@ -1045,9 +1044,7 @@ Namespace UTSModule.Project
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}')"
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