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

fix: 제조일자를 표시하는 TEXT 필드 추가 테이블에서Manufacture_Date 데이터 조회해서 표시할수 있도록 수정

Browse Source
This commit is contained in:
kje97 2025-06-27 17:00:11 +09:00
parent 72dac81cf6
commit 7486a0f1d4
2 changed files with 1038 additions and 714 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1728
frm_Freq_Reg.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

24
frm_Freq_Reg.vb
View File

@ -56,6 +56,7 @@ Public Class frm_Freq_Reg
p1_date p1_date
p1_time p1_time
P3_DateTime P3_DateTime
Manufacture_Date
max_check max_check
@ -4082,6 +4083,7 @@ FAILDATA:
txb_5_type.Text = "-" txb_5_type.Text = "-"
txb_5_agency.Text = "-" txb_5_agency.Text = "-"
txb_5_area.Text = "-" txb_5_area.Text = "-"
txb_5_date.Text = "-"
txb_5_prod_date.Text = "-" txb_5_prod_date.Text = "-"
txb_5_freq.Text = "-" txb_5_freq.Text = "-"
txb_5_prod_mod.Text = "0" txb_5_prod_mod.Text = "0"
@ -4099,6 +4101,7 @@ FAILDATA:
txb_5_type.Refresh() txb_5_type.Refresh()
txb_5_agency.Refresh() txb_5_agency.Refresh()
txb_5_area.Refresh() txb_5_area.Refresh()
txb_5_date.Refresh()
txb_5_prod_date.Refresh() txb_5_prod_date.Refresh()
txb_5_freq.Refresh() txb_5_freq.Refresh()
txb_5_prod_mod.Refresh() txb_5_prod_mod.Refresh()
@ -4116,6 +4119,7 @@ FAILDATA:
txb_5_type.BackColor = Color.White txb_5_type.BackColor = Color.White
txb_5_agency.BackColor = Color.White txb_5_agency.BackColor = Color.White
txb_5_area.BackColor = Color.White txb_5_area.BackColor = Color.White
txb_5_date.BackColor = Color.White
txb_5_prod_date.BackColor = Color.White txb_5_prod_date.BackColor = Color.White
txb_5_freq.BackColor = Color.White txb_5_freq.BackColor = Color.White
txb_5_prod_mod.BackColor = Color.White txb_5_prod_mod.BackColor = Color.White
@ -4288,7 +4292,7 @@ SuccessExit:
End If End If
If TDUseCompare = True Then If TDUseCompare = True Then
DBCmd = "SELECT TestStep,Ct_Manufacture_Name,Ct_SN,Ct_Model,Ct_Type,Ct_Abroad,Ct_Agency,Ct_Frequency,Ct_Power,Ct_Max_ShotCnt,Ct_Motor_Lv, PV_SN,P1_Date,P1_Time,P3_DateTime FROM " & cartridge_table & " WHERE Product_SN = '" & prd_code & "'" DBCmd = "SELECT TestStep,Ct_Manufacture_Name,Ct_SN,Ct_Model,Ct_Type,Ct_Abroad,Ct_Agency,Ct_Frequency,Ct_Power,Ct_Max_ShotCnt,Ct_Motor_Lv, PV_SN,P1_Date,P1_Time,P3_DateTime,Manufacture_Date FROM " & cartridge_table & " WHERE Product_SN = '" & prd_code & "'"
If DBQueryReader(DBCmd) Then If DBQueryReader(DBCmd) Then
For i = 0 To check_list.max_check - 1 For i = 0 To check_list.max_check - 1
check_data(i) = sqlDataQuery(i).ToString check_data(i) = sqlDataQuery(i).ToString
@ -4307,6 +4311,14 @@ SuccessExit:
txb_5_reg_date.BackColor = Color.Green txb_5_reg_date.BackColor = Color.Green
End If End If
If check_data(check_list.Manufacture_Date) = Nothing Or check_data(check_list.Manufacture_Date) = "0" Then
txb_5_date.Text = "-"
txb_5_date.BackColor = Color.Red
'error_switch = True
Else
txb_5_date.Text = check_data(check_list.Manufacture_Date)
End If
If check_data(check_list.make_name) = Nothing Or check_data(check_list.make_name) = "0" Then If check_data(check_list.make_name) = Nothing Or check_data(check_list.make_name) = "0" Then
txb_5_make.Text = "-" txb_5_make.Text = "-"
txb_5_make.BackColor = Color.Red txb_5_make.BackColor = Color.Red
@ -4423,7 +4435,7 @@ SuccessExit:
txb_5_barcode.BackColor = Color.Green txb_5_barcode.BackColor = Color.Green
End If End If
Else Else
DBCmd = "SELECT TestStep,Ct_Manufacture_Name,Ct_SN,Ct_Model,Ct_Type,Ct_Abroad,Ct_Agency,PV_SN FROM " & MainNonTDDB & " WHERE Product_SN = '" & prd_code & "'" DBCmd = "SELECT TestStep,Ct_Manufacture_Name,Ct_SN,Ct_Model,Ct_Type,Ct_Abroad,Ct_Agency,PV_SN, Manufacture_Date FROM " & MainNonTDDB & " WHERE Product_SN = '" & prd_code & "'"
If DBQueryReader(DBCmd) Then If DBQueryReader(DBCmd) Then
For i = 0 To check_list.power - 1 For i = 0 To check_list.power - 1
check_data(i) = sqlDataQuery(i).ToString check_data(i) = sqlDataQuery(i).ToString
@ -4451,6 +4463,14 @@ SuccessExit:
txb_5_model.BackColor = Color.Green txb_5_model.BackColor = Color.Green
End If End If
If check_data(check_list.Manufacture_Date) = Nothing Or check_data(check_list.Manufacture_Date) = "0" Then
txb_5_date.Text = "-"
txb_5_date.BackColor = Color.Red
'error_switch = True
Else
txb_5_date.Text = check_data(check_list.Manufacture_Date)
End If
If check_data(check_list.serial) = Nothing Or check_data(check_list.serial) = "0" Then If check_data(check_list.serial) = Nothing Or check_data(check_list.serial) = "0" Then
txb_5_serial.Text = "-" txb_5_serial.Text = "-"
txb_5_serial.BackColor = Color.Red txb_5_serial.BackColor = Color.Red