fix: 제조일자를 표시하는 TEXT 필드 추가 테이블에서Manufacture_Date 데이터 조회해서 표시할수 있도록 수정
This commit is contained in:
parent
72dac81cf6
commit
7486a0f1d4
1728
frm_Freq_Reg.Designer.vb
generated
1728
frm_Freq_Reg.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@ -56,6 +56,7 @@ Public Class frm_Freq_Reg
|
||||
p1_date
|
||||
p1_time
|
||||
P3_DateTime
|
||||
Manufacture_Date
|
||||
|
||||
max_check
|
||||
|
||||
@ -4082,6 +4083,7 @@ FAILDATA:
|
||||
txb_5_type.Text = "-"
|
||||
txb_5_agency.Text = "-"
|
||||
txb_5_area.Text = "-"
|
||||
txb_5_date.Text = "-"
|
||||
txb_5_prod_date.Text = "-"
|
||||
txb_5_freq.Text = "-"
|
||||
txb_5_prod_mod.Text = "0"
|
||||
@ -4099,6 +4101,7 @@ FAILDATA:
|
||||
txb_5_type.Refresh()
|
||||
txb_5_agency.Refresh()
|
||||
txb_5_area.Refresh()
|
||||
txb_5_date.Refresh()
|
||||
txb_5_prod_date.Refresh()
|
||||
txb_5_freq.Refresh()
|
||||
txb_5_prod_mod.Refresh()
|
||||
@ -4116,6 +4119,7 @@ FAILDATA:
|
||||
txb_5_type.BackColor = Color.White
|
||||
txb_5_agency.BackColor = Color.White
|
||||
txb_5_area.BackColor = Color.White
|
||||
txb_5_date.BackColor = Color.White
|
||||
txb_5_prod_date.BackColor = Color.White
|
||||
txb_5_freq.BackColor = Color.White
|
||||
txb_5_prod_mod.BackColor = Color.White
|
||||
@ -4288,7 +4292,7 @@ SuccessExit:
|
||||
End If
|
||||
|
||||
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
|
||||
For i = 0 To check_list.max_check - 1
|
||||
check_data(i) = sqlDataQuery(i).ToString
|
||||
@ -4307,6 +4311,14 @@ SuccessExit:
|
||||
txb_5_reg_date.BackColor = Color.Green
|
||||
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
|
||||
txb_5_make.Text = "-"
|
||||
txb_5_make.BackColor = Color.Red
|
||||
@ -4423,7 +4435,7 @@ SuccessExit:
|
||||
txb_5_barcode.BackColor = Color.Green
|
||||
End If
|
||||
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
|
||||
For i = 0 To check_list.power - 1
|
||||
check_data(i) = sqlDataQuery(i).ToString
|
||||
@ -4451,6 +4463,14 @@ SuccessExit:
|
||||
txb_5_model.BackColor = Color.Green
|
||||
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
|
||||
txb_5_serial.Text = "-"
|
||||
txb_5_serial.BackColor = Color.Red
|
||||
|
Loading…
x
Reference in New Issue
Block a user