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

fix: IFNULL(Manufacture_Date,'') as Manufacture_Date 로 수정

Browse Source
This commit is contained in:
kje97 2025-06-30 15:53:26 +09:00
parent 1a04b3bce2
commit 3f5c84afa9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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,Manufacture_Date 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,IFNULL(Manufacture_Date,'') as 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, Manufacture_Date 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,IFNULL(Manufacture_Date,'') as 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,Manufacture_Date 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,IFNULL(Manufacture_Date,'') as 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,Manufacture_Date 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,IFNULL(Manufacture_Date,'') as 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)