From 1b4edfe99604cd1c5285fed256b668ba38f4544e Mon Sep 17 00:00:00 2001 From: ssy99 Date: Wed, 7 May 2025 11:09:41 +0900 Subject: [PATCH 01/10] =?UTF-8?q?feat:=20Maximum,=20Alto,=20Effect=20?= =?UTF-8?q?=EC=A0=9C=ED=92=88=20=EC=8B=9C=EB=A6=AC=EC=96=BC=EB=B2=88?= =?UTF-8?q?=ED=98=B8=20=EA=B4=80=EB=A0=A8=20DB=20=EC=97=85=EB=8D=B0?= =?UTF-8?q?=EC=9D=B4=ED=8A=B8=20=EA=B8=B0=EB=8A=A5=20=EC=B6=94=EA=B0=80?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Product_Manager/MainForm.vb | 53 ++++++++++++++++++++++++++++++++++--- 1 file changed, 49 insertions(+), 4 deletions(-) diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb index e48376c..52646af 100644 --- a/Product_Manager/MainForm.vb +++ b/Product_Manager/MainForm.vb @@ -654,12 +654,23 @@ End_Finish: End If txbIfNumber.Text = ModelCode & Mid(SerialValue, 1, 4) & Mid(SerialValue, 8, 3) & Mid(SerialValue, 5, 3) - Dim cartridgeSerial = Mid(SerialValue, 5, 3) & Mid(SerialValue, 8, 3) - '여기에 Update TD 번호 조건 걸어서 넣기' - ' 변수 정리하고 어떤 칼럼인지 정리 - Dim DBCmd = "UPDATE " & UseCartridgeTbl & "SET Product_SN = '" & txbIfNumber.Text & "', Ct_Manufacture_Name = '" & txbIfCode.Text & "', Ct_Manufacture_Year = '" & nudIfYear.Value & "', Ct_Manufacture_Month = '" & nudIfMonth.Value & "', Ct_SN = '" & cartridgeSerial & "', Ct_Model = 'MAXIMUM', Ct_Type = 'SET', Ct_Remain_ShotCnt = 0 WHERE PV_SN = '" & TDNameStr & "'" + If ckbDBUse.Checked = True Then + Dim cartridgeSerial = Mid(SerialValue, 5, 3) & Mid(SerialValue, 8, 3) + Dim DBCmd = "UPDATE " & UseCartridgeTbl & " SET " & + "Product_SN = '" & txbIfNumber.Text & "', " & + "Ct_Manufacture_Name = '" & txbIfCode.Text & "', " & + "Ct_Manufacture_Year = '" & nudIfYear.Value & "', " & + "Ct_Manufacture_Month = '" & nudIfMonth.Value & "', " & + "Ct_SN = '" & cartridgeSerial & "', " & + "Ct_Model = 'MAXIMUM', " & + "Ct_Type = 'SET', " & + "Ct_Remain_ShotCnt = 0 " & + "WHERE PV_SN = '" & TDNameStr & "'" + + DBCommand(DBCmd) + End If txbInfoBox.Text = "SUCCESS" txbInfoBox.BackColor = Color.Green @@ -732,6 +743,23 @@ End_Finish: txbIfNumber.Text = ModelCode & Mid(SerialValue, 1, 4) & Mid(SerialValue, 8, 3) & Mid(SerialValue, 5, 3) + If ckbDBUse.Checked = True Then + Dim cartridgeSerial = Mid(SerialValue, 5, 3) & Mid(SerialValue, 8, 3) + + + Dim DBCmd = "UPDATE " & NonCartridgeTbl & " SET " & + "Product_SN = '" & txbIfNumber.Text & "', " & + "Ct_Manufacture_Name = '" & txbIfCode.Text & "', " & + "Ct_Manufacture_Year = '" & nudIfYear.Value & "', " & + "Ct_Manufacture_Month = '" & nudIfMonth.Value & "', " & + "Ct_SN = '" & cartridgeSerial & "', " & + "Ct_Model = 'ALTO', " & + "Ct_Type = 'SET' " & + "WHERE PV_SN = '" & TDNameStr & "'" + + DBCommand(DBCmd) + End If + txbInfoBox.Text = "SUCCESS" txbInfoBox.BackColor = Color.Green GoTo End_Finish @@ -803,6 +831,23 @@ End_Finish: txbIfNumber.Text = ModelCode & Mid(SerialValue, 1, 4) & Mid(SerialValue, 8, 3) & Mid(SerialValue, 5, 3) + If ckbDBUse.Checked = True Then + Dim cartridgeSerial = Mid(SerialValue, 5, 3) & Mid(SerialValue, 8, 3) + + Dim DBCmd = "UPDATE " & UseCartridgeTbl & " SET " & + "Product_SN = '" & txbIfNumber.Text & "', " & + "Ct_Manufacture_Name = '" & txbIfCode.Text & "', " & + "Ct_Manufacture_Year = '" & nudIfYear.Value & "', " & + "Ct_Manufacture_Month = '" & nudIfMonth.Value & "', " & + "Ct_SN = '" & cartridgeSerial & "', " & + "Ct_Model = 'EFFECT', " & + "Ct_Type = 'SET', " & + "Ct_Remain_ShotCnt = 0 " & + "WHERE PV_SN = '" & TDNameStr & "'" + + DBCommand(DBCmd) + End If + txbInfoBox.Text = "SUCCESS" txbInfoBox.BackColor = Color.Green GoTo End_Finish From 85f2f35f07af0ebfaa095e9bcacb4823e0578a33 Mon Sep 17 00:00:00 2001 From: ssy99 Date: Wed, 7 May 2025 11:47:26 +0900 Subject: [PATCH 02/10] =?UTF-8?q?feat:=20=EC=A7=80=EC=97=AD=20=EC=A0=95?= =?UTF-8?q?=EB=B3=B4=20=EA=B4=80=EB=A0=A8=20DB=20=EC=97=85=EB=8D=B0?= =?UTF-8?q?=EC=9D=B4=ED=8A=B8=20=EA=B8=B0=EB=8A=A5=20=EC=B6=94=EA=B0=80?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Product_Manager/MainForm.vb | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb index 52646af..8a957a9 100644 --- a/Product_Manager/MainForm.vb +++ b/Product_Manager/MainForm.vb @@ -1611,6 +1611,7 @@ End_Finish: Private Sub MAXIMUM_AreaWriteFunc() Dim StageCnt As Int16 = ErrorList.NonError + Try If AreaWriteStart() Then StageCnt = ErrorList.DataError @@ -1619,6 +1620,7 @@ End_Finish: Dim ResultData As String = ReadInfo() + If ResultData = Str(ErrorList.SendError) Or ResultData = Str(ErrorList.ReceiveError) Then StageCnt = ResultData GoTo FAIL_Finish @@ -1637,6 +1639,38 @@ End_Finish: GoTo FAIL_Finish End If + If ckbDBUse.Checked = True Then + Dim TDNameStr = TDNameLoad() + + If TDNameStr = Str(ErrorList.SendError) Or TDNameStr = Str(ErrorList.ReceiveError) Then + MsgBox("TD 시리얼 번호를 확인할 수 없습니다. 저장하고자 하는 Serial 번호를 먼저 입력하여 주십시오.", vbExclamation, FormName) + StageCnt = TDNameStr + GoTo FAIL_Finish + End If + + Dim DBExist As Boolean = TDNameDBLoad(TDNameStr) + + If DBExist = False Then + MsgBox("TD 시리얼 번호가 데이터베이스에 등록되어 있지 않습니다.", vbCritical, FormName) + StageCnt = ErrorList.ReceiveError + GoTo FAIL_Finish + End If + + + Dim dataBase = UseCartridgeTbl + + If SelectModel.Equals(ModelList.ALTO) Then + dataBase = NonCartridgeTbl + End If + + DBCmd = "UPDATE " & dataBase & " SET " & + "Ct_Abroad = '" & txbAbroad.Text.Trim() & "', " & + "Ct_Agency = '" & txbAgency.Text.Trim() & "' " & + "WHERE PV_SN = '" & TDNameStr & "'" + + DBCommand(DBCmd) + End If + txbAreaBox.Text = "SUCCESS" txbAreaBox.BackColor = Color.Green GoTo End_Finish From 3c29dd9eee12b6a3c64053c7dd10f5404593ff9c Mon Sep 17 00:00:00 2001 From: ssy99 Date: Wed, 7 May 2025 12:15:48 +0900 Subject: [PATCH 03/10] =?UTF-8?q?feat:=20=EC=A3=BC=ED=8C=8C=EC=88=98,=20?= =?UTF-8?q?=ED=8C=8C=EC=9B=8C=20=EA=B4=80=EB=A0=A8=20DB=20=EC=97=85?= =?UTF-8?q?=EB=8D=B0=EC=9D=B4=ED=8A=B8=20=EA=B8=B0=EB=8A=A5=20=EC=B6=94?= =?UTF-8?q?=EA=B0=80?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Product_Manager/MainForm.vb | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb index 8a957a9..a7b392f 100644 --- a/Product_Manager/MainForm.vb +++ b/Product_Manager/MainForm.vb @@ -2121,6 +2121,31 @@ End_Finish: GoTo FAIL_Finish End If + If ckbDBUse.Checked = True Then + Dim TDNameStr = TDNameLoad() + + If TDNameStr = Str(ErrorList.SendError) Or TDNameStr = Str(ErrorList.ReceiveError) Then + MsgBox("TD 시리얼 번호를 확인할 수 없습니다. 저장하고자 하는 Serial 번호를 먼저 입력하여 주십시오.", vbExclamation, FormName) + StageCnt = TDNameStr + GoTo FAIL_Finish + End If + + Dim DBExist As Boolean = TDNameDBLoad(TDNameStr) + + If DBExist = False Then + MsgBox("TD 시리얼 번호가 데이터베이스에 등록되어 있지 않습니다.", vbCritical, FormName) + StageCnt = ErrorList.ReceiveError + GoTo FAIL_Finish + End If + + DBCmd = "UPDATE " & UseCartridgeTbl & " SET " & + "Ct_Frequency = '" & txbFreq.Text & "', " & + "Ct_Power = '" & CSng(txbPower.Text) & "' " & + "WHERE PV_SN = '" & TDNameStr & "'" + + DBCommand(DBCmd) + End If + txbFPBox.Text = "SUCCESS" txbFPBox.BackColor = Color.Green GoTo End_Finish From 9297786de80103566320142c1ce5ab1495073534 Mon Sep 17 00:00:00 2001 From: ssy99 Date: Wed, 7 May 2025 13:12:39 +0900 Subject: [PATCH 04/10] =?UTF-8?q?feat:=20=EB=AA=A8=ED=84=B0=20=EC=A0=95?= =?UTF-8?q?=EB=B3=B4=20=EA=B4=80=EB=A0=A8=20DB=20=EC=97=85=EB=8D=B0?= =?UTF-8?q?=EC=9D=B4=ED=8A=B8=20=EA=B8=B0=EB=8A=A5=20=EC=B6=94=EA=B0=80?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Product_Manager/MainForm.vb | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb index a7b392f..9525c17 100644 --- a/Product_Manager/MainForm.vb +++ b/Product_Manager/MainForm.vb @@ -2363,6 +2363,30 @@ End_Finish: GoTo FAIL_Finish End If + If ckbDBUse.Checked = True Then + Dim TDNameStr = TDNameLoad() + + If TDNameStr = Str(ErrorList.SendError) Or TDNameStr = Str(ErrorList.ReceiveError) Then + MsgBox("TD 시리얼 번호를 확인할 수 없습니다. 저장하고자 하는 Serial 번호를 먼저 입력하여 주십시오.", vbExclamation, FormName) + StageCnt = TDNameStr + GoTo FAIL_Finish + End If + + Dim DBExist As Boolean = TDNameDBLoad(TDNameStr) + + If DBExist = False Then + MsgBox("TD 시리얼 번호가 데이터베이스에 등록되어 있지 않습니다.", vbCritical, FormName) + StageCnt = ErrorList.ReceiveError + GoTo FAIL_Finish + End If + + DBCmd = "UPDATE " & UseCartridgeTbl & " SET " & + "Ct_Motor_Lv = '" & txbMotor.Text & "' " & + "WHERE PV_SN = '" & TDNameStr & "'" + + DBCommand(DBCmd) + End If + txbMtBox.Text = "SUCCESS" txbMtBox.BackColor = Color.Green GoTo End_Finish From 367abad21a3d22b1771f9726bdaea95c45b4e7f1 Mon Sep 17 00:00:00 2001 From: ssy99 Date: Wed, 7 May 2025 14:48:06 +0900 Subject: [PATCH 05/10] =?UTF-8?q?feat:=20Dualsonic=20=EC=A0=9C=ED=92=88=20?= =?UTF-8?q?=EC=8B=9C=EB=A6=AC=EC=96=BC=EB=B2=88=ED=98=B8=20=EA=B4=80?= =?UTF-8?q?=EB=A0=A8=20DB=20=EC=97=85=EB=8D=B0=EC=9D=B4=ED=8A=B8=20?= =?UTF-8?q?=EA=B8=B0=EB=8A=A5=20=EC=B6=94=EA=B0=80?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Product_Manager/MainForm.vb | 39 ++++++++++++++++++++++++++++++++----- 1 file changed, 34 insertions(+), 5 deletions(-) diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb index 9525c17..6e8db83 100644 --- a/Product_Manager/MainForm.vb +++ b/Product_Manager/MainForm.vb @@ -462,8 +462,8 @@ End_Finish: GoTo FAIL_Finish End If - Dim ModelCode As Int16 = ModelSetting() - Dim TypeCode As Int16 = TypeSetting() + Dim ModelCode As ModelList = ModelSetting() + Dim TypeCode As TypeList = TypeSetting() If ModelCode = ModelList.MAX_Model Or TypeCode = TypeList.MAXType Then MsgBox("존재하지 않는 모델 및 타입 코드입니다. 체크된 내용을 확인하여 주십시오.", vbCritical, FormName) @@ -561,11 +561,10 @@ End_Finish: GoTo FAIL_Finish End If - SerialValue = ModelCode & TypeCode & nudIfYear.Text & MonthParsing & Mid(SerialValue, 4, 3) & Mid(SerialValue, 1, 3) - txbIfNumber.Text = SerialValue + txbIfNumber.Text = CInt(ModelCode) & CInt(TypeCode) & nudIfYear.Text & MonthParsing & Mid(SerialValue, 4, 3) & Mid(SerialValue, 1, 3) tmpCmdMessage = "cartsn" - cmdMessage = "[sb" & tmpCmdMessage & " " & SerialValue & "]" + cmdMessage = "[sb" & tmpCmdMessage & " " & txbIfNumber.Text & "]" If SendData(cmdMessage) Then StageCnt = ErrorList.SendError @@ -579,6 +578,36 @@ End_Finish: GoTo FAIL_Finish End If + If ckbDBUse.Checked = True Then + Dim TDNameStr = TDNameLoad() + + If TDNameStr = Str(ErrorList.SendError) Or TDNameStr = Str(ErrorList.ReceiveError) Then + MsgBox("TD 시리얼 번호를 확인할 수 없습니다. 저장하고자 하는 Serial 번호를 먼저 입력하여 주십시오.", vbExclamation, FormName) + StageCnt = TDNameStr + GoTo FAIL_Finish + End If + + Dim DBExist As Boolean = TDNameDBLoad(TDNameStr) + + If DBExist = False Then + MsgBox("TD 시리얼 번호가 데이터베이스에 등록되어 있지 않습니다.", vbCritical, FormName) + StageCnt = ErrorList.ReceiveError + GoTo FAIL_Finish + End If + + Dim DBCmd = "UPDATE " & UseCartridgeTbl & " SET " & + "Product_SN = '" & txbIfNumber.Text & "', " & + "Ct_Manufacture_Name = '" & txbIfCode.Text & "', " & + "Ct_Manufacture_Year = '" & nudIfYear.Value & "', " & + "Ct_Manufacture_Month = '" & nudIfMonth.Value & "', " & + "Ct_SN = '" & SerialValue & "', " & + "Ct_Model = '" & ModelCode.ToString & "', " & + "Ct_Type = '" & TypeCode.ToString & "', " & + "WHERE PV_SN = '" & TDNameStr & "'" + + DBCommand(DBCmd) + End If + If DataResult <> "success" Then StageCnt = ErrorList.ResultError GoTo FAIL_Finish From 1583625fcfc47e7727255fb0f22cba48e753b883 Mon Sep 17 00:00:00 2001 From: ssy99 Date: Wed, 7 May 2025 14:56:45 +0900 Subject: [PATCH 06/10] =?UTF-8?q?feat:=20Dualsonic=20=EC=A0=9C=ED=92=88=20?= =?UTF-8?q?=EC=A7=80=EC=97=AD=20=EC=A0=95=EB=B3=B4=20=EA=B4=80=EB=A0=A8=20?= =?UTF-8?q?DB=20=EC=97=85=EB=8D=B0=EC=9D=B4=ED=8A=B8=20=EA=B8=B0=EB=8A=A5?= =?UTF-8?q?=20=EC=B6=94=EA=B0=80?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Product_Manager/MainForm.vb | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb index 6e8db83..7f5533a 100644 --- a/Product_Manager/MainForm.vb +++ b/Product_Manager/MainForm.vb @@ -1622,6 +1622,31 @@ End_Finish: GoTo FAIL_Finish End If + If ckbDBUse.Checked = True Then + Dim TDNameStr = TDNameLoad() + + If TDNameStr = Str(ErrorList.SendError) Or TDNameStr = Str(ErrorList.ReceiveError) Then + MsgBox("TD 시리얼 번호를 확인할 수 없습니다. 저장하고자 하는 Serial 번호를 먼저 입력하여 주십시오.", vbExclamation, FormName) + StageCnt = TDNameStr + GoTo FAIL_Finish + End If + + Dim DBExist As Boolean = TDNameDBLoad(TDNameStr) + + If DBExist = False Then + MsgBox("TD 시리얼 번호가 데이터베이스에 등록되어 있지 않습니다.", vbCritical, FormName) + StageCnt = ErrorList.ReceiveError + GoTo FAIL_Finish + End If + + DBCmd = "UPDATE " & UseCartridgeTbl & " SET " & + "Ct_Abroad = '" & txbAbroad.Text.Trim() & "', " & + "Ct_Agency = '" & txbAgency.Text.Trim() & "' " & + "WHERE PV_SN = '" & TDNameStr & "'" + + DBCommand(DBCmd) + End If + txbAreaBox.Text = "SUCCESS" txbAreaBox.BackColor = Color.Green GoTo End_Finish From 64769a930c04f050d03f59863de8a600709c2786 Mon Sep 17 00:00:00 2001 From: ssy99 Date: Wed, 7 May 2025 14:57:10 +0900 Subject: [PATCH 07/10] =?UTF-8?q?feat:=20Dualsonic=20=EC=A0=9C=ED=92=88=20?= =?UTF-8?q?=EC=A3=BC=ED=8C=8C=EC=88=98,=20=ED=8C=8C=EC=9B=8C=20=EA=B4=80?= =?UTF-8?q?=EB=A0=A8=20DB=20=EC=97=85=EB=8D=B0=EC=9D=B4=ED=8A=B8=20?= =?UTF-8?q?=EA=B8=B0=EB=8A=A5=20=EC=B6=94=EA=B0=80?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Product_Manager/MainForm.vb | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb index 7f5533a..a76de8c 100644 --- a/Product_Manager/MainForm.vb +++ b/Product_Manager/MainForm.vb @@ -2145,6 +2145,30 @@ End_Finish: GoTo FAIL_Finish End If + If ckbDBUse.Checked = True Then + Dim TDNameStr = TDNameLoad() + + If TDNameStr = Str(ErrorList.SendError) Or TDNameStr = Str(ErrorList.ReceiveError) Then + MsgBox("TD 시리얼 번호를 확인할 수 없습니다. 저장하고자 하는 Serial 번호를 먼저 입력하여 주십시오.", vbExclamation, FormName) + StageCnt = TDNameStr + GoTo FAIL_Finish + End If + + Dim DBExist As Boolean = TDNameDBLoad(TDNameStr) + + If DBExist = False Then + MsgBox("TD 시리얼 번호가 데이터베이스에 등록되어 있지 않습니다.", vbCritical, FormName) + StageCnt = ErrorList.ReceiveError + GoTo FAIL_Finish + End If + + DBCmd = "UPDATE " & UseCartridgeTbl & " SET " & + "Ct_Frequency = '" & txbFreq.Text & "', " & + "Ct_Power = '" & CSng(txbPower.Text) & "' " & + "WHERE PV_SN = '" & TDNameStr & "'" + + DBCommand(DBCmd) + End If txbFPBox.Text = "SUCCESS" txbFPBox.BackColor = Color.Green From 0ff58bc86598485f72ca8b6157061ee72bb8999b Mon Sep 17 00:00:00 2001 From: ssy99 Date: Wed, 7 May 2025 15:20:48 +0900 Subject: [PATCH 08/10] =?UTF-8?q?feat:=20=EC=83=B7=20=EC=88=98=20=EA=B4=80?= =?UTF-8?q?=EB=A0=A8=20DB=20=EC=97=85=EB=8D=B0=EC=9D=B4=ED=8A=B8=20?= =?UTF-8?q?=EA=B8=B0=EB=8A=A5=20=EC=B6=94=EA=B0=80?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Product_Manager/MainForm.vb | 49 +++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb index a76de8c..8b4f8b1 100644 --- a/Product_Manager/MainForm.vb +++ b/Product_Manager/MainForm.vb @@ -2714,6 +2714,31 @@ End_Finish: GoTo FAIL_Finish End If + If ckbDBUse.Checked = True Then + Dim TDNameStr = TDNameLoad() + + If TDNameStr = Str(ErrorList.SendError) Or TDNameStr = Str(ErrorList.ReceiveError) Then + MsgBox("TD 시리얼 번호를 확인할 수 없습니다. 저장하고자 하는 Serial 번호를 먼저 입력하여 주십시오.", vbExclamation, FormName) + StageCnt = TDNameStr + GoTo FAIL_Finish + End If + + Dim DBExist As Boolean = TDNameDBLoad(TDNameStr) + + If DBExist = False Then + MsgBox("TD 시리얼 번호가 데이터베이스에 등록되어 있지 않습니다.", vbCritical, FormName) + StageCnt = ErrorList.ReceiveError + GoTo FAIL_Finish + End If + + DBCmd = "UPDATE " & UseCartridgeTbl & " SET " & + "Ct_Remain_ShotCnt = '" & txbShot.Text & "' " & + "Ct_Max_ShotCnt = '" & txbMaxShot.Text & "' " & + "WHERE PV_SN = '" & TDNameStr & "'" + + DBCommand(DBCmd) + End If + txbShotBox.Text = "SUCCESS" txbShotBox.BackColor = Color.Green GoTo End_Finish @@ -2743,6 +2768,30 @@ End_Finish: GoTo FAIL_Finish End If + If ckbDBUse.Checked = True Then + Dim TDNameStr = TDNameLoad() + + If TDNameStr = Str(ErrorList.SendError) Or TDNameStr = Str(ErrorList.ReceiveError) Then + MsgBox("TD 시리얼 번호를 확인할 수 없습니다. 저장하고자 하는 Serial 번호를 먼저 입력하여 주십시오.", vbExclamation, FormName) + StageCnt = TDNameStr + GoTo FAIL_Finish + End If + + Dim DBExist As Boolean = TDNameDBLoad(TDNameStr) + + If DBExist = False Then + MsgBox("TD 시리얼 번호가 데이터베이스에 등록되어 있지 않습니다.", vbCritical, FormName) + StageCnt = ErrorList.ReceiveError + GoTo FAIL_Finish + End If + + DBCmd = "UPDATE " & UseCartridgeTbl & " SET " & + "Ct_Remain_ShotCnt = '" & txbShot.Text & "' " & + "WHERE PV_SN = '" & TDNameStr & "'" + + DBCommand(DBCmd) + End If + txbShotBox.Text = "SUCCESS" txbShotBox.BackColor = Color.Green GoTo End_Finish From bd575ced77c73d741dd2e3655aa7eb8054f8b716 Mon Sep 17 00:00:00 2001 From: ssy99 Date: Wed, 7 May 2025 15:25:16 +0900 Subject: [PATCH 09/10] =?UTF-8?q?feat:=20=EC=83=B7=20=EC=88=98=20=EC=97=85?= =?UTF-8?q?=EB=8D=B0=EC=9D=B4=ED=8A=B8=20=EC=BF=BC=EB=A6=AC=20=EC=A0=9C?= =?UTF-8?q?=EA=B1=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Product_Manager/MainForm.vb | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb index 8b4f8b1..3d4a6ed 100644 --- a/Product_Manager/MainForm.vb +++ b/Product_Manager/MainForm.vb @@ -5,6 +5,7 @@ Imports Microsoft Imports System.Runtime.Remoting Imports System.Windows.Forms.VisualStyles.VisualStyleElement.TaskbarClock Imports Mysqlx +Imports Mysqlx.XDevAPI Public Class MainForm Public Const FormVersion As String = "2.0.0" @@ -694,8 +695,7 @@ End_Finish: "Ct_Manufacture_Month = '" & nudIfMonth.Value & "', " & "Ct_SN = '" & cartridgeSerial & "', " & "Ct_Model = 'MAXIMUM', " & - "Ct_Type = 'SET', " & - "Ct_Remain_ShotCnt = 0 " & + "Ct_Type = 'SET' " & "WHERE PV_SN = '" & TDNameStr & "'" DBCommand(DBCmd) @@ -870,8 +870,7 @@ End_Finish: "Ct_Manufacture_Month = '" & nudIfMonth.Value & "', " & "Ct_SN = '" & cartridgeSerial & "', " & "Ct_Model = 'EFFECT', " & - "Ct_Type = 'SET', " & - "Ct_Remain_ShotCnt = 0 " & + "Ct_Type = 'SET' " & "WHERE PV_SN = '" & TDNameStr & "'" DBCommand(DBCmd) From 45de258a3937b5d85db00412ab26cd8592454afc Mon Sep 17 00:00:00 2001 From: ssy99 Date: Wed, 7 May 2025 15:46:03 +0900 Subject: [PATCH 10/10] =?UTF-8?q?feat:=20=EC=83=B7=20=EC=88=98=20=EA=B4=80?= =?UTF-8?q?=EB=A0=A8=20=EB=A1=9C=EC=A7=81=20ALTO=20=EC=A0=9C=ED=92=88=20?= =?UTF-8?q?=EB=B6=84=EB=A6=AC?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Product_Manager/MainForm.vb | 76 ++++++++++++++++++++++++++++++++++--- 1 file changed, 71 insertions(+), 5 deletions(-) diff --git a/Product_Manager/MainForm.vb b/Product_Manager/MainForm.vb index 3d4a6ed..b836849 100644 --- a/Product_Manager/MainForm.vb +++ b/Product_Manager/MainForm.vb @@ -1557,8 +1557,10 @@ End_Finish: Select Case SelectModel Case ModeList.DUALSONIC DUALSONIC_AreaWriteFunc() - Case ModeList.MAXIMUM, ModeList.ALTO, ModeList.EFFECT + Case ModeList.MAXIMUM, ModeList.EFFECT MAXIMUM_AreaWriteFunc() + Case ModeList.ALTO + ALTO_AreaWriteFunc() Case Else MsgBox("잘못된 경로입니다.", vbCritical, FormName) End Select @@ -1709,14 +1711,78 @@ End_Finish: GoTo FAIL_Finish End If + DBCmd = "UPDATE " & UseCartridgeTbl & " SET " & + "Ct_Abroad = '" & txbAbroad.Text.Trim() & "', " & + "Ct_Agency = '" & txbAgency.Text.Trim() & "' " & + "WHERE PV_SN = '" & TDNameStr & "'" - Dim dataBase = UseCartridgeTbl + DBCommand(DBCmd) + End If - If SelectModel.Equals(ModelList.ALTO) Then - dataBase = NonCartridgeTbl + txbAreaBox.Text = "SUCCESS" + txbAreaBox.BackColor = Color.Green + GoTo End_Finish + + Catch ex As Exception + MsgBox("입력 진행 도중 에러 발생!" & vbCrLf & ex.Message, vbCritical, FormName) + GoTo FAIL_Finish + End Try + +FAIL_Finish: + txbAreaBox.Text = "ERROR" + Str(StageCnt) + txbAreaBox.BackColor = Color.Red +End_Finish: + txbAreaBox.Refresh() + End Sub + + Private Sub ALTO_AreaWriteFunc() + Dim StageCnt As Int16 = ErrorList.NonError + + Try + If AreaWriteStart() Then + StageCnt = ErrorList.DataError + GoTo FAIL_Finish + End If + + Dim ResultData As String = ReadInfo() + + + If ResultData = Str(ErrorList.SendError) Or ResultData = Str(ErrorList.ReceiveError) Then + StageCnt = ResultData + GoTo FAIL_Finish + End If + + Dim Data1 As String = Mid(ResultData, 1, InStr(ResultData, ",") - 1) + ResultData = Mid(ResultData, InStr(ResultData, ",") + 1, ResultData.Length) + Dim Data2 As String = Mid(ResultData, 1, InStr(ResultData, ",") - 1) + ResultData = Mid(ResultData, InStr(ResultData, ",") + 1, ResultData.Length) + Dim Data3 As String = Mid(ResultData, 1, InStr(ResultData, ",") - 1) + + ResultData = MAXInfoWrite(Data1, Data2, Data3, txbAbroad.Text, txbAgency.Text) + + If ResultData = ErrorList.SendError Or ResultData = ErrorList.ReceiveError Then + StageCnt = ResultData + GoTo FAIL_Finish + End If + + If ckbDBUse.Checked = True Then + Dim TDNameStr = TDNameLoad() + + If TDNameStr = Str(ErrorList.SendError) Or TDNameStr = Str(ErrorList.ReceiveError) Then + MsgBox("TD 시리얼 번호를 확인할 수 없습니다. 저장하고자 하는 Serial 번호를 먼저 입력하여 주십시오.", vbExclamation, FormName) + StageCnt = TDNameStr + GoTo FAIL_Finish End If - DBCmd = "UPDATE " & dataBase & " SET " & + Dim DBExist As Boolean = NonTDNameDBLoad(TDNameStr) + + If DBExist = False Then + MsgBox("TD 시리얼 번호가 데이터베이스에 등록되어 있지 않습니다.", vbCritical, FormName) + StageCnt = ErrorList.ReceiveError + GoTo FAIL_Finish + End If + + DBCmd = "UPDATE " & NonCartridgeTbl & " SET " & "Ct_Abroad = '" & txbAbroad.Text.Trim() & "', " & "Ct_Agency = '" & txbAgency.Text.Trim() & "' " & "WHERE PV_SN = '" & TDNameStr & "'"