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

1] DB jomtModelInfoTbl 테이블에 추가된 모델정보를 기준으로 정보 읽기/쓰기 기능 제공되도록 수정

Browse Source 
2] 신규 시리얼번호 체계 적용
3] 버전 3.0.0 업데이트
This commit is contained in:
KwakJooYoung 2025-12-04 10:48:41 +09:00
parent 4011ef3462
commit 7748e101d6
5 changed files with 1453 additions and 2618 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

592
Product_Manager/FormSetting.vb
View File

@ -1,13 +1,13 @@
Module FormSetting Module FormSetting
Public Enum ModeList Public Enum ModeList
DUALSONIC DUALSONIC '카트리지 분리형 모델
MAXIMUM MAXIMUM '카트리지 일체형, HIFU + RF + EP + MC 기능 제공 모델
ALTO ALTO '카트리지 일체형, RF + EP 기능 제공 모델
EFFECT EFFECT '카트리지 일체형, HIFU 기능 제공 모델
MAX_Mode MAX_Mode
End Enum End Enum
Public SelectModel As Int16 Public SelectModeType As Int16
Public Sub StartTop() Public Sub StartTop()
@ -19,7 +19,7 @@
.Size = New Size(1210, 90) .Size = New Size(1210, 90)
End With End With
With .gbProdSelect With .gbModelSelect
.Location = New Point(10, 5) .Location = New Point(10, 5)
.Size = New Size(400, 80) .Size = New Size(400, 80)
End With End With
@ -79,7 +79,7 @@
Public Sub DUALForm_Setting() Public Sub DUALForm_Setting()
AuthSetting("인증코드설정", "카트리지") AuthSetting("인증코드설정", "카트리지")
DefaultSetting() DefaultSetting()
ModeSetting(SelectModel) ModeSetting(SelectModeType)
DUALSetting() DUALSetting()
End Sub End Sub
@ -93,21 +93,21 @@
Public Sub MAXForm_Setting() Public Sub MAXForm_Setting()
AuthSetting("플래쉬 설정값 초기화", "초기화") AuthSetting("플래쉬 설정값 초기화", "초기화")
DefaultSetting() DefaultSetting()
ModeSetting(SelectModel) ModeSetting(SelectModeType)
MAXSetting() MAXSetting()
End Sub End Sub
Public Sub ALTOForm_Setting() Public Sub ALTOForm_Setting()
AuthSetting("플래쉬 설정값 초기화", "초기화") AuthSetting("플래쉬 설정값 초기화", "초기화")
DefaultSetting() DefaultSetting()
ModeSetting(SelectModel) ModeSetting(SelectModeType)
MAXSetting() MAXSetting()
End Sub End Sub
Public Sub EFFECTForm_Setting() Public Sub EFFECTForm_Setting()
AuthSetting("플래쉬 설정값 초기화", "초기화") AuthSetting("플래쉬 설정값 초기화", "초기화")
DefaultSetting() DefaultSetting()
ModeSetting(SelectModel) ModeSetting(SelectModeType)
MAXSetting() MAXSetting()
End Sub End Sub
@ -143,7 +143,6 @@
End Sub End Sub
Private Sub ModeSetting(ModelNum As Int16) Private Sub ModeSetting(ModelNum As Int16)
InfoModeSetting(ModelNum)
ShotCountSetting(ModelNum) ShotCountSetting(ModelNum)
MotorOpSetting(ModelNum) MotorOpSetting(ModelNum)
FreqOpSetting(ModelNum) FreqOpSetting(ModelNum)
@ -151,20 +150,18 @@
Private Sub DefaultSetting() Private Sub DefaultSetting()
InfoSetting() InfoSetting()
AreaSetting()
TDSetting() TDSetting()
FreqPowerSetting() FreqPowerSetting()
ShotSetting() ShotSetting()
MotorSetting() MotorSetting()
DeviceOpSetting()
End Sub End Sub
Private Sub AuthSetting(btnStr As String, btnStr2 As String) Private Sub AuthSetting(btnStr As String, btnStr2 As String)
'' 인증 항목 ' 인증 항목
With MainForm With MainForm
With .gbAuth With .gbAuth
.Location = New Point(10, 35) .Location = New Point(10, 26)
.Size = New Size(380, 70) .Size = New Size(380, 70)
.Text = btnStr .Text = btnStr
End With End With
@ -187,545 +184,47 @@
End Sub End Sub
Private Sub InfoSetting() Private Sub InfoSetting()
With MainForm If MainForm.SelectedModelInfo.Code.Length = 2 Then
With .gbInfo
.Text = "제품 정보 설정"
.Location = New Point(10, 125)
.Size = New Size(380, 330)
End With
''----------------------------------------------------
With .pnIfNumber
.Location = New Point(10, 30)
.Size = New Size(360, 40)
End With
With .lbIfBarcode
.Location = New Point(5, 7)
End With
With .txbIfNumber
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.TextAlign = HorizontalAlignment.Center
.Text = "10" & Format(Now, "yy") & Format(Now, "MM") & "000000"
.ReadOnly = True
End With
''----------------------------------------------------
With .pnIfCode
.Location = New Point(10, 70)
.Size = New Size(360, 40)
End With
With .lbIfCode
.Location = New Point(5, 7)
End With
With .txbIfCode
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.TextAlign = HorizontalAlignment.Center
.Text = "JOMT"
.MaxLength = 4
End With
''----------------------------------------------------
With .pnIfDate
.Location = New Point(10, 110)
.Size = New Size(360, 40)
End With
With .lbIfDate
.Location = New Point(23, 7)
End With
With .lbIfYear
.Location = New Point(140, 8)
End With
With .nudIfYear
.Location = New Point(175, 5)
.Size = New Size(65, 32)
.TextAlign = HorizontalAlignment.Center
.Minimum = 10
.Maximum = 99
.Text = Format(Now, "yy")
End With
''----------------------------------------------------
With .lbIfMonth
.Location = New Point(250, 8)
End With
With .nudIfMonth
.Location = New Point(285, 5)
.Size = New Size(65, 32)
.TextAlign = HorizontalAlignment.Center
.Minimum = 1
.Maximum = 12
.Text = Format(Now, "MM")
End With
''--------------------------------------------------------
With .pnIfSerial
.Location = New Point(10, 230)
.Size = New Size(360, 40)
End With
With .lbIfSerial
.Location = New Point(5, 7)
End With
With .nudIfSerial
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.TextAlign = HorizontalAlignment.Center
.Maximum = 999999
.Minimum = 0
End With
With .pnIfResult
.Location = New Point(10, 270)
.Size = New Size(360, 50)
End With
With .btnIfWrite
.Location = New Point(250, 5)
.Size = New Size(105, 40)
.Text = "쓰기"
End With
With .btnIfRead
.Location = New Point(145, 5)
.Size = New Size(105, 40)
End With
With .txbInfoBox
.Location = New Point(10, 12)
.Size = New Size(130, 29)
.TextAlign = HorizontalAlignment.Center
.Text = String.Empty
.BackColor = Color.FromArgb(0, 192, 0)
.Visible = False
End With
End With
End Sub
Private Sub InfoModeSetting(ModeNum As Int16)
Select Case ModeNum
Case ModeList.DUALSONIC
With MainForm With MainForm
With .gbInfo With .lbType
.Size = New Size(380, 330) .Text = "카트리지 구분"
End With End With
With .pnIfMoTy With .comboBoxColor
.Location = New Point(10, 150)
.Size = New Size(360, 80)
End With
With .pnIfModel
.Location = New Point(0, 0)
.Size = New Size(360, 40)
End With
With .lbIfModel
.Location = New Point(23, 7)
.Text = "모델종류"
End With
With .rdbIfPRO_V1
.Location = New Point(110, 7)
.Text = "PRO"
.Checked = True
.Visible = True
.Enabled = True .Enabled = True
End With End With
With .rdbIfLUX_V2 With .comboBoxClass
.Location = New Point(190, 7)
.Text = "LUX"
.Checked = False
.Visible = True
.Enabled = True .Enabled = True
End With End With
With .rdbIfALPHA With .pnlIfVersion
.Location = New Point(260, 7)
.Text = "ALPHA"
.Checked = False
.Visible = True .Visible = True
.Enabled = True
End With End With
With .pnIfType
.Location = New Point(0, 40)
.Size = New Size(360, 40)
.Visible = True
.Enabled = True
End With End With
Else
With .lbIfType
.Location = New Point(23, 7)
End With
With .rdbIfFace
.Location = New Point(110, 7)
.Checked = True
End With
With .rdbIfEye
.Location = New Point(190, 7)
End With
With .rdbIfBody
.Location = New Point(260, 7)
End With
With .pnIfSerial
.Location = New Point(10, 230)
End With
With .pnIfResult
.Location = New Point(10, 270)
End With
End With
Case ModeList.MAXIMUM
With MainForm With MainForm
With .gbInfo With .lbType
.Size = New Size(380, 290) .Text = "타입종류/버전"
End With End With
With .pnIfMoTy With .comboBoxColor
.Location = New Point(10, 150)
.Size = New Size(360, 40)
End With
With .pnIfModel
.Location = New Point(0, 0)
.Size = New Size(360, 40)
End With
With .lbIfModel
.Location = New Point(23, 7)
.Text = "타입종류"
End With
With .rdbIfPRO_V1
.Location = New Point(110, 7)
.Text = "V1"
.Checked = False
.Visible = True
.Enabled = True
End With
With .rdbIfLUX_V2
.Location = New Point(190, 7)
.Text = "V2"
.Checked = True
.Visible = True
.Enabled = True
End With
With .rdbIfALPHA
.Location = New Point(260, 7)
.Text = "ALPHA"
.Checked = False
.Visible = False
.Enabled = False .Enabled = False
End With End With
With .pnIfType With .comboBoxClass
.Location = New Point(0, 40)
.Size = New Size(360, 40)
.Visible = False
.Enabled = False .Enabled = False
End With End With
With .lbIfType With .pnlIfVersion
.Location = New Point(23, 7)
End With
With .rdbIfFace
.Location = New Point(110, 7)
.Checked = True
End With
With .rdbIfEye
.Location = New Point(190, 7)
.Checked = False
End With
With .rdbIfBody
.Location = New Point(260, 7)
.Checked = False
End With
With .pnIfSerial
.Location = New Point(10, 190)
End With
With .pnIfResult
.Location = New Point(10, 230)
End With
End With
Case ModeList.ALTO
With MainForm
With .gbInfo
.Size = New Size(380, 290)
End With
With .pnIfMoTy
.Location = New Point(10, 150)
.Size = New Size(360, 40)
End With
With .pnIfModel
.Location = New Point(0, 0)
.Size = New Size(360, 40)
End With
With .lbIfModel
.Location = New Point(23, 7)
.Text = "타입종류"
End With
With .rdbIfPRO_V1
.Location = New Point(110, 7)
.Text = "SET"
.Checked = True
.Visible = True
.Enabled = True
End With
With .rdbIfLUX_V2
.Location = New Point(190, 7)
.Text = "V2"
.Checked = False
.Visible = False .Visible = False
.Enabled = False
End With
With .rdbIfALPHA
.Location = New Point(260, 7)
.Text = "ALPHA"
.Checked = False
.Visible = False
.Enabled = False
End With
With .pnIfType
.Location = New Point(0, 40)
.Size = New Size(360, 40)
.Visible = False
.Enabled = False
End With
With .lbIfType
.Location = New Point(23, 7)
End With
With .rdbIfFace
.Location = New Point(110, 7)
.Checked = True
End With
With .rdbIfEye
.Location = New Point(190, 7)
.Checked = False
End With
With .rdbIfBody
.Location = New Point(260, 7)
.Checked = False
End With
With .pnIfSerial
.Location = New Point(10, 190)
End With
With .pnIfResult
.Location = New Point(10, 230)
End With
End With
Case ModeList.EFFECT
With MainForm
With .gbInfo
.Size = New Size(380, 290)
End With
With .pnIfMoTy
.Location = New Point(10, 150)
.Size = New Size(360, 40)
End With
With .pnIfModel
.Location = New Point(0, 0)
.Size = New Size(360, 40)
End With
With .lbIfModel
.Location = New Point(23, 7)
.Text = "타입종류"
End With
With .rdbIfPRO_V1
.Location = New Point(110, 7)
.Text = "SET"
.Checked = True
.Visible = True
.Enabled = True
End With
With .rdbIfLUX_V2
.Location = New Point(190, 7)
.Text = "V2"
.Checked = False
.Visible = False
.Enabled = False
End With
With .rdbIfALPHA
.Location = New Point(260, 7)
.Text = "ALPHA"
.Checked = False
.Visible = False
.Enabled = False
End With
With .pnIfType
.Location = New Point(0, 40)
.Size = New Size(360, 40)
.Visible = False
.Enabled = False
End With
With .lbIfType
.Location = New Point(23, 7)
End With
With .rdbIfFace
.Location = New Point(110, 7)
.Checked = True
End With
With .rdbIfEye
.Location = New Point(190, 7)
.Checked = False
End With
With .rdbIfBody
.Location = New Point(260, 7)
.Checked = False
End With
With .pnIfSerial
.Location = New Point(10, 190)
End With
With .pnIfResult
.Location = New Point(10, 230)
End With
End With
Case Else
MsgBox("잘못된 경로입니다.", vbCritical)
End Select
End Sub
Private Sub AreaSetting()
With MainForm
With .gbArea
.Location = New Point(10, 475)
.Size = New Size(380, 170)
End With
With .pnAbroad
.Location = New Point(10, 30)
.Size = New Size(360, 40)
End With
With .lbAbroad
.Location = New Point(23, 7)
.Size = New Size(82, 24)
End With
With .txbAbroad
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.TextAlign = HorizontalAlignment.Center
.Text = "0"
End With
With .pnAgency
.Location = New Point(10, 70)
.Size = New Size(360, 40)
End With
With .lbAgency
.Location = New Point(5, 7)
.Size = New Size(100, 24)
End With
With .txbAgency
.Location = New Point(145, 5)
.Size = New Size(205, 32)
.TextAlign = HorizontalAlignment.Center
.Text = "0"
End With
With .pnArResult
.Location = New Point(10, 110)
.Size = New Size(360, 50)
End With
With .txbAreaBox
.Location = New Point(10, 12)
.Size = New Size(130, 29)
.BackColor = Color.FromArgb(0, 192, 0)
.TextAlign = HorizontalAlignment.Center
.Text = String.Empty
.Visible = False
End With
With .btnArRead
.Location = New Point(145, 5)
.Size = New Size(105, 40)
End With
With .btnArWrite
.Location = New Point(250, 5)
.Size = New Size(105, 40)
End With End With
End With End With
End If
End Sub End Sub
Private Sub TDSetting() Private Sub TDSetting()
@ -755,7 +254,6 @@
.ImeMode = ImeMode.Disable .ImeMode = ImeMode.Disable
End With End With
With .pnTdResult With .pnTdResult
.Location = New Point(10, 70) .Location = New Point(10, 70)
.Size = New Size(360, 50) .Size = New Size(360, 50)
@ -1183,37 +681,6 @@
.Minimum = 1 .Minimum = 1
End With End With
With .pnDvMoTy
.Location = New Point(10, 150)
.Size = New Size(360, 40)
End With
With .pnDvModel
.Location = New Point(0, 0)
.Size = New Size(360, 40)
End With
With .lbDvModel
.Location = New Point(23, 7)
.Size = New Size(82, 24)
End With
With .rdbDvPRO
.Location = New Point(110, 7)
.Size = New Size(66, 28)
End With
With .rdbDvLUX
.Location = New Point(182, 7)
.Size = New Size(67, 28)
End With
With .rdbDvALPHA
.Location = New Point(260, 7)
.Size = New Size(91, 28)
End With
With .pnDvSerial With .pnDvSerial
.Location = New Point(10, 190) .Location = New Point(10, 190)
.Size = New Size(360, 40) .Size = New Size(360, 40)
@ -1299,12 +766,6 @@
.txbIfCode.Text = String.Empty .txbIfCode.Text = String.Empty
.nudIfYear.Text = Format(Now, "yy") .nudIfYear.Text = Format(Now, "yy")
.nudIfMonth.Text = Format(Now, "MM") .nudIfMonth.Text = Format(Now, "MM")
.rdbIfPRO_V1.Checked = True
.rdbIfLUX_V2.Checked = False
.rdbIfALPHA.Checked = False
.rdbIfFace.Checked = True
.rdbIfEye.Checked = False
.rdbIfBody.Checked = False
.nudIfSerial.Text = String.Empty .nudIfSerial.Text = String.Empty
.txbAbroad.Text = String.Empty .txbAbroad.Text = String.Empty
.txbAgency.Text = String.Empty .txbAgency.Text = String.Empty
@ -1345,9 +806,6 @@
.txbALAllErr.Text = String.Empty .txbALAllErr.Text = String.Empty
End With End With
End Sub End Sub

2198
Product_Manager/MainForm.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

1117
Product_Manager/MainForm.vb
View File

File diff suppressed because it is too large Load Diff

4
Product_Manager/MySqlMoudule.vb
View File

@ -4,7 +4,11 @@ Module MySqlMoudule
Private Const CartridgeTbl As String = "jomtTesterDB.jomtCartridgeTbl" Private Const CartridgeTbl As String = "jomtTesterDB.jomtCartridgeTbl"
Private Const CartridgeTblTest As String = "jomtTesterServerDB.jomtCartridgeTbl" Private Const CartridgeTblTest As String = "jomtTesterServerDB.jomtCartridgeTbl"
Private Const mainModelInfoDB As String = "jomtTesterDB.jomtModelInfoTbl"
Private Const testModelInfoDB As String = "jomtTesterServerDB.jomtModelInfoTbl"
Public UseCartridgeTbl As String = CartridgeTbl Public UseCartridgeTbl As String = CartridgeTbl
Public ApplyModelInfoDB As String = mainModelInfoDB
Public Const NonCartridgeTbl As String = "jomtTesterDB.jomtNonTDTbl" Public Const NonCartridgeTbl As String = "jomtTesterDB.jomtNonTDTbl"

8
Product_Manager/SerialPortMoudule.vb
View File

@ -169,10 +169,18 @@ Module SerialPortMoudule
'' MAXIMUM '' MAXIMUM
Case "rdsconf1" Case "rdsconf1"
If MainForm.SelectedModelInfo.Code.Length = 2 Then '16자리 시리얼번호
cmdStr = cmdVal(1) & "," & cmdVal(2) & "," & cmdVal(3) & "," & cmdVal(4) & "," & cmdVal(5) & "," & cmdVal(6) & "," & cmdVal(7)
Else '12자리 시리얼번호
cmdStr = cmdVal(1) & "," & cmdVal(2) & "," & cmdVal(3) & "," & cmdVal(4) & "," & cmdVal(5) cmdStr = cmdVal(1) & "," & cmdVal(2) & "," & cmdVal(3) & "," & cmdVal(4) & "," & cmdVal(5)
End If
Return cmdStr Return cmdStr
Case "wrsconf1" Case "wrsconf1"
If MainForm.SelectedModelInfo.Code.Length = 2 Then '16자리 시리얼번호
cmdStr = cmdVal(1) & "," & cmdVal(2) & "," & cmdVal(3) & "," & cmdVal(4) & "," & cmdVal(5) & "," & cmdVal(6) & "," & cmdVal(7)
Else '12자리 시리얼번호
cmdStr = cmdVal(1) & "," & cmdVal(2) & "," & cmdVal(3) & "," & cmdVal(4) & "," & cmdVal(5) cmdStr = cmdVal(1) & "," & cmdVal(2) & "," & cmdVal(3) & "," & cmdVal(4) & "," & cmdVal(5)
End If
Return cmdStr Return cmdStr
Case "shotconf" Case "shotconf"
cmdStr = cmdVal(1) cmdStr = cmdVal(1)