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
Public Enum ModeList
DUALSONIC
MAXIMUM
ALTO
EFFECT
DUALSONIC '카트리지 분리형 모델
MAXIMUM '카트리지 일체형, HIFU + RF + EP + MC 기능 제공 모델
ALTO '카트리지 일체형, RF + EP 기능 제공 모델
EFFECT '카트리지 일체형, HIFU 기능 제공 모델
MAX_Mode
End Enum
Public SelectModel As Int16
Public SelectModeType As Int16
Public Sub StartTop()
@ -19,7 +19,7 @@
.Size = New Size(1210, 90)
End With
With .gbProdSelect
With .gbModelSelect
.Location = New Point(10, 5)
.Size = New Size(400, 80)
End With
@ -79,7 +79,7 @@
Public Sub DUALForm_Setting()
AuthSetting("인증코드설정", "카트리지")
DefaultSetting()
ModeSetting(SelectModel)
ModeSetting(SelectModeType)
DUALSetting()
End Sub
@ -93,21 +93,21 @@
Public Sub MAXForm_Setting()
AuthSetting("플래쉬 설정값 초기화", "초기화")
DefaultSetting()
ModeSetting(SelectModel)
ModeSetting(SelectModeType)
MAXSetting()
End Sub
Public Sub ALTOForm_Setting()
AuthSetting("플래쉬 설정값 초기화", "초기화")
DefaultSetting()
ModeSetting(SelectModel)
ModeSetting(SelectModeType)
MAXSetting()
End Sub
Public Sub EFFECTForm_Setting()
AuthSetting("플래쉬 설정값 초기화", "초기화")
DefaultSetting()
ModeSetting(SelectModel)
ModeSetting(SelectModeType)
MAXSetting()
End Sub
@ -143,7 +143,6 @@
End Sub
Private Sub ModeSetting(ModelNum As Int16)
InfoModeSetting(ModelNum)
ShotCountSetting(ModelNum)
MotorOpSetting(ModelNum)
FreqOpSetting(ModelNum)
@ -151,20 +150,18 @@
Private Sub DefaultSetting()
InfoSetting()
AreaSetting()
TDSetting()
FreqPowerSetting()
ShotSetting()
MotorSetting()
DeviceOpSetting()
End Sub
Private Sub AuthSetting(btnStr As String, btnStr2 As String)
'' 인증 항목
' 인증 항목
With MainForm
With .gbAuth
.Location = New Point(10, 35)
.Location = New Point(10, 26)
.Size = New Size(380, 70)
.Text = btnStr
End With
@ -187,545 +184,47 @@
End Sub
Private Sub InfoSetting()
With MainForm
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
If MainForm.SelectedModelInfo.Code.Length = 2 Then
With MainForm
With .gbInfo
.Size = New Size(380, 330)
With .lbType
.Text = "카트리지 구분"
End With
With .pnIfMoTy
.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
With .comboBoxColor
.Enabled = True
End With
With .rdbIfLUX_V2
.Location = New Point(190, 7)
.Text = "LUX"
.Checked = False
.Visible = True
With .comboBoxClass
.Enabled = True
End With
With .rdbIfALPHA
.Location = New Point(260, 7)
.Text = "ALPHA"
.Checked = False
With .pnlIfVersion
.Visible = True
.Enabled = True
End With
With .pnIfType
.Location = New Point(0, 40)
.Size = New Size(360, 40)
.Visible = True
.Enabled = True
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)
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
Else
With MainForm
With .gbInfo
.Size = New Size(380, 290)
With .lbType
.Text = "타입종류/버전"
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 = "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
With .comboBoxColor
.Enabled = False
End With
With .pnIfType
.Location = New Point(0, 40)
.Size = New Size(360, 40)
.Visible = False
With .comboBoxClass
.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.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
With .pnlIfVersion
.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 If
End Sub
Private Sub TDSetting()
@ -755,7 +254,6 @@
.ImeMode = ImeMode.Disable
End With
With .pnTdResult
.Location = New Point(10, 70)
.Size = New Size(360, 50)
@ -1183,37 +681,6 @@
.Minimum = 1
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
.Location = New Point(10, 190)
.Size = New Size(360, 40)
@ -1299,12 +766,6 @@
.txbIfCode.Text = String.Empty
.nudIfYear.Text = Format(Now, "yy")
.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
.txbAbroad.Text = String.Empty
.txbAgency.Text = String.Empty
@ -1345,9 +806,6 @@
.txbALAllErr.Text = String.Empty
End With
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 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 ApplyModelInfoDB As String = mainModelInfoDB
Public Const NonCartridgeTbl As String = "jomtTesterDB.jomtNonTDTbl"

8
Product_Manager/SerialPortMoudule.vb
View File

@ -169,10 +169,18 @@ Module SerialPortMoudule
'' MAXIMUM
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)
End If
Return cmdStr
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)
End If
Return cmdStr
Case "shotconf"
cmdStr = cmdVal(1)