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