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:
dk02ssq
2024-05-08 21:59:31 +08:00
parent ec4c447b01
commit e475a06eb5
254 changed files with 928 additions and 242730 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SQLliteReading/ProcessControlAPI.vb
View File

@@ -888,7 +888,7 @@ Public Class ProcessControlAPI
End Function
Private Function CboProject_SelectedIndexChanged(thestation As String) As String
Dim projectInfo As New ProjectInfo(_utsApp.Account.UserId, _utsApp.ProcessStation.ParentProject.Name, ProjectInfo.InitializeModeEnum.LocalDatabaseLoad)
Dim projectInfo As New ProjectInfo(_utsApp.Account.UserId, _utsApp.Account.UserName, _utsApp.ProcessStation.ParentProject.Name, ProjectInfo.InitializeModeEnum.LocalDatabaseLoad)
If IsNothing(projectInfo) Then
Return "站位信息异常请联系开发者！"
@@ -905,7 +905,7 @@ Public Class ProcessControlAPI
End Function
Private Function CboProject_SelectedIndexChanged1(thestationid As Integer) As String
Dim projectInfo As New ProjectInfo(_utsApp.Account.UserId, _utsApp.ProcessStation.ParentProject.Name, ProjectInfo.InitializeModeEnum.LocalDatabaseLoad)
Dim projectInfo As New ProjectInfo(_utsApp.Account.UserId, _utsApp.Account.UserName, _utsApp.ProcessStation.ParentProject.Name, ProjectInfo.InitializeModeEnum.LocalDatabaseLoad)
If IsNothing(projectInfo) Then
Return "站位信息异常请联系开发者！"