jionmt-sw/etc-prod-utility
5
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

fix: 생산일자 -> (실제)제조일자로 변경, 생산일자에 Manufacture_Date 읽어와서 표시할수 있게 함수 수정

Browse Source
This commit is contained in:
kje97 2025-06-27 16:43:43 +09:00
parent 7083749149
commit 1a04b3bce2
2 changed files with 1753 additions and 1474 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3219
Product_Manager/MainForm.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

8
Product_Manager/MainForm.vb
View File

@ -4144,7 +4144,7 @@ End_Finish:
End Sub End Sub
Private Function TD_Search() As Boolean Private Function TD_Search() As Boolean
Dim DBCmd As String = "Select Product_SN,Ct_Manufacture_Name,Ct_SN,Ct_Model,Ct_Type,Ct_Abroad,Ct_Agency,Ct_Power,Ct_Max_ShotCnt,Ct_Motor_Lv,PV_SN,Ct_Frequency,P3_DateTime FROM " & UseCartridgeTbl & " WHERE PV_SN = '" & txbLoadNum.Text & "' Limit 1" Dim DBCmd As String = "Select Product_SN,Ct_Manufacture_Name,Ct_SN,Ct_Model,Ct_Type,Ct_Abroad,Ct_Agency,Ct_Power,Ct_Max_ShotCnt,Ct_Motor_Lv,PV_SN,Ct_Frequency,Manufacture_Date FROM " & UseCartridgeTbl & " WHERE PV_SN = '" & txbLoadNum.Text & "' Limit 1"
If DBQueryReader(DBCmd) Then If DBQueryReader(DBCmd) Then
txbPDSN.Text = sqlDataQuery(0) txbPDSN.Text = sqlDataQuery(0)
@ -4168,7 +4168,7 @@ End_Finish:
End Function End Function
Private Sub NonTD_Search() Private Sub NonTD_Search()
Dim DBCmd As String = "SELECT Product_SN, Ct_Manufacture_Name, Ct_SN, Ct_Model ,Ct_Type, Ct_Abroad, Ct_Agency, PV_SN, P3_DateTime FROM " & NonCartridgeTbl & " WHERE PV_SN = '" & txbLoadNum.Text & "' Limit 1" Dim DBCmd As String = "SELECT Product_SN, Ct_Manufacture_Name, Ct_SN, Ct_Model ,Ct_Type, Ct_Abroad, Ct_Agency, PV_SN, Manufacture_Date FROM " & NonCartridgeTbl & " WHERE PV_SN = '" & txbLoadNum.Text & "' Limit 1"
If DBQueryReader(DBCmd) Then If DBQueryReader(DBCmd) Then
txbPDSN.Text = sqlDataQuery(0) txbPDSN.Text = sqlDataQuery(0)
@ -4191,7 +4191,7 @@ End_Finish:
End Sub End Sub
Private Function Product_Search() As Boolean Private Function Product_Search() As Boolean
Dim DBCmd As String = "SELECT Product_SN,Ct_Manufacture_Name,Ct_SN,Ct_Model,Ct_Type,Ct_Abroad,Ct_Agency,Ct_Power,Ct_Max_ShotCnt,Ct_Motor_Lv,PV_SN,Ct_Frequency,P3_DateTime FROM " & UseCartridgeTbl & " WHERE Product_SN = '" & txbLoadNum.Text & "' Limit 1" Dim DBCmd As String = "SELECT Product_SN,Ct_Manufacture_Name,Ct_SN,Ct_Model,Ct_Type,Ct_Abroad,Ct_Agency,Ct_Power,Ct_Max_ShotCnt,Ct_Motor_Lv,PV_SN,Ct_Frequency,Manufacture_Date FROM " & UseCartridgeTbl & " WHERE Product_SN = '" & txbLoadNum.Text & "' Limit 1"
If DBQueryReader(DBCmd) Then If DBQueryReader(DBCmd) Then
txbPDSN.Text = sqlDataQuery(0) txbPDSN.Text = sqlDataQuery(0)
@ -4215,7 +4215,7 @@ End_Finish:
End Function End Function
Private Sub NonTDProduct_Search() Private Sub NonTDProduct_Search()
Dim DBCmd As String = "SELECT Product_SN, Ct_Manufacture_Name, Ct_SN, Ct_Model,Ct_Type,Ct_Abroad,Ct_Agency,PV_SN,P3_DateTime FROM " & NonCartridgeTbl & " WHERE Product_SN = '" & txbLoadNum.Text & "' Limit 1" Dim DBCmd As String = "SELECT Product_SN, Ct_Manufacture_Name, Ct_SN, Ct_Model,Ct_Type,Ct_Abroad,Ct_Agency,PV_SN,Manufacture_Date FROM " & NonCartridgeTbl & " WHERE Product_SN = '" & txbLoadNum.Text & "' Limit 1"
If DBQueryReader(DBCmd) Then If DBQueryReader(DBCmd) Then
txbPDSN.Text = sqlDataQuery(0) txbPDSN.Text = sqlDataQuery(0)