feat: MAXIMUM ALPHA
This commit is contained in:
jiwonRepair
parent
3de868bf87
commit
af0aa16041
@ -5,8 +5,6 @@ VisualStudioVersion = 17.5.33627.172
|
||||
MinimumVisualStudioVersion = 10.0.40219.1
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MAXIMUM_Product_Program", "MAXIMUM_Product_Program\MAXIMUM_Product_Program.vbproj", "{CA1C16A0-00FB-4EBD-AF29-5DBD46865EB7}"
|
||||
EndProject
|
||||
Project("{54435603-DBB4-11D2-8724-00A0C9A8B90C}") = "Setup", "Setup\Setup.vdproj", "{EA60ADAC-C42F-49C8-8BBA-F7F436B5FD18}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
@ -17,8 +15,6 @@ Global
|
||||
{CA1C16A0-00FB-4EBD-AF29-5DBD46865EB7}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{CA1C16A0-00FB-4EBD-AF29-5DBD46865EB7}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{CA1C16A0-00FB-4EBD-AF29-5DBD46865EB7}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{EA60ADAC-C42F-49C8-8BBA-F7F436B5FD18}.Debug|Any CPU.ActiveCfg = Debug
|
||||
{EA60ADAC-C42F-49C8-8BBA-F7F436B5FD18}.Release|Any CPU.ActiveCfg = Release
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
|
||||
@ -217,6 +217,7 @@ Public Class MainForm
|
||||
cboRegModel.Items.Add("MAXIMUM")
|
||||
cboRegModel.Items.Add("ALTO")
|
||||
cboRegModel.Items.Add("EFFECT")
|
||||
cboRegModel.Items.Add("MAXIMUM ALPHA")
|
||||
End Sub
|
||||
|
||||
Private Sub cboRegModel_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRegModel.SelectedIndexChanged
|
||||
@ -230,6 +231,8 @@ Public Class MainForm
|
||||
cboRegType.Items.Add("SET")
|
||||
Case "EFFECT"
|
||||
cboRegType.Items.Add("SET")
|
||||
Case "MAXIMUM ALPHA"
|
||||
cboRegType.Items.Add("SET")
|
||||
Case Else
|
||||
MsgBox("잘못된 경로입니다.", vbCritical)
|
||||
End Select
|
||||
@ -287,6 +290,19 @@ Public Class MainForm
|
||||
MsgBox("잘못된 경로입니다.", vbCritical)
|
||||
End Select
|
||||
|
||||
Case "MAXIMUM ALPHA"
|
||||
Select Case cboRegType.SelectedItem
|
||||
Case "SET"
|
||||
cboRegColor.Items.Add("Ruby_Red")
|
||||
cboRegColor.Items.Add("Topaz_Orange")
|
||||
cboRegColor.Items.Add("Emerald_Green")
|
||||
cboRegColor.Items.Add("Sappaire_Blue")
|
||||
cboRegColor.Items.Add("Topaz_Brown")
|
||||
cboRegColor.Items.Add("Sitrin_Gold")
|
||||
Case Else
|
||||
MsgBox("잘못된 경로입니다.", vbCritical)
|
||||
End Select
|
||||
|
||||
Case Else
|
||||
MsgBox("잘못된 경로입니다.", vbCritical)
|
||||
End Select
|
||||
@ -394,6 +410,33 @@ Public Class MainForm
|
||||
End Select
|
||||
End Select
|
||||
|
||||
Case "MAXIMUM ALPHA"
|
||||
|
||||
ModelCode = "7"
|
||||
TDUseCompare = True
|
||||
|
||||
Select Case dgvDataSet.Rows(cboSelect).Cells(2).Value
|
||||
Case "SET"
|
||||
TypeCode = "0"
|
||||
|
||||
Select Case dgvDataSet.Rows(cboSelect).Cells(5).Value
|
||||
Case "Ruby_Red"
|
||||
ColorCode = "1"
|
||||
Case "Topaz_Orange"
|
||||
ColorCode = "2"
|
||||
Case "Emerald_Green"
|
||||
ColorCode = "3"
|
||||
Case "Sapphire_Blue"
|
||||
ColorCode = "4"
|
||||
Case "Topaz_Brown"
|
||||
ColorCode = "5"
|
||||
Case "Stirin_Gold"
|
||||
ColorCode = "6"
|
||||
Case Else
|
||||
Return True
|
||||
End Select
|
||||
End Select
|
||||
|
||||
Case Else
|
||||
TDUseCompare = False
|
||||
Return True
|
||||
@ -500,7 +543,7 @@ Public Class MainForm
|
||||
|
||||
Private Sub FormSetting()
|
||||
Const ProgramName As String = "Product Program Ver_"
|
||||
Const VersionNum As String = "1.1.2"
|
||||
Const VersionNum As String = "1.1.3"
|
||||
|
||||
Me.Text = ProgramName & VersionNum
|
||||
Me.Size = New Size(1920, 1050)
|
||||
@ -2001,6 +2044,8 @@ FailFunc:
|
||||
DBCmd = "UPDATE " & ApplyPD1CntDB & " SET PD1_InfoTotalCnt = '" & CountSelect(CountList.Total) & "', PD1_InfoAltoOk = '" & CountSelect(CountList.Success) & "', PD1_InfoAltoNg = '" & CountSelect(CountList.Fail) & "' WHERE PD1_Date = '" & NowDate & "'"
|
||||
ElseIf ModelCode = 6 Then
|
||||
DBCmd = "UPDATE " & ApplyPD1CntDB & " SET PD1_InfoTotalCnt = '" & CountSelect(CountList.Total) & "', PD1_InfoEffectOk = '" & CountSelect(CountList.Success) & "', PD1_InfoEffectNg = '" & CountSelect(CountList.Fail) & "' WHERE PD1_Date = '" & NowDate & "'"
|
||||
ElseIf ModelCode = 7 Then
|
||||
DBCmd = "UPDATE " & ApplyPD1CntDB & " SET PD1_InfoTotalCnt = '" & CountSelect(CountList.Total) & "', PD1_InfoMaxAlphaOk = '" & CountSelect(CountList.Success) & "', PD1_InfoMaxAlphaNg = '" & CountSelect(CountList.Fail) & "' WHERE PD1_Date = '" & NowDate & "'"
|
||||
Else
|
||||
MsgBox("수량 업데이트, 잘못된 경로입니다.", vbCritical)
|
||||
Return True
|
||||
@ -2031,6 +2076,8 @@ FailFunc:
|
||||
DBCmd = "SELECT PD1_InfoTotalCnt,PD1_InfoAltoOk,PD1_InfoAltoNg FROM " & ApplyPD1CntDB & " WHERE PD1_Date = '" & NowDate & "'"
|
||||
ElseIf ModelCode = "6" Then
|
||||
DBCmd = "SELECT PD1_InfoTotalCnt,PD1_InfoEffectOk,PD1_InfoEffectNg FROM " & ApplyPD1CntDB & " WHERE PD1_Date = '" & NowDate & "'"
|
||||
ElseIf ModelCode = "7" Then
|
||||
DBCmd = "SELECT PD1_InfoTotalCnt,PD1_InfoMaxAlphaOk,PD1_InfoMaxAlphaNg FROM " & ApplyPD1CntDB & " WHERE PD1_Date = '" & NowDate & "'"
|
||||
Else
|
||||
MsgBox("수량 카운터 잘못된 경로입니다.", vbCritical)
|
||||
Return True
|
||||
|
||||
@ -60,6 +60,15 @@
|
||||
| EFFECT | 6 | True | SET | 0 | White_Pink | 1 |
|
||||
| | | | | | White_Sky | 2 |
|
||||
| | | | | | White_Brown | 3 |
|
||||
| EFFECT | 7 | True | SET | 0 | Ruby_Red | 1 |
|
||||
| | | | | | Topaz_Orange | 2 |
|
||||
| | | | | | Emerald_Green | 3 |
|
||||
| | | | | | Sapphire_Blue | 4 |
|
||||
| | | | | | Topaz_Brown | 5 |
|
||||
| | | | | | Stirin_Gold | 6 |
|
||||
|
||||
|
||||
|
||||
|
||||
## 5. DB 테이블 요약
|
||||
|
||||
|
||||
@ -1,3 +1 @@
|
||||
바코드 인쇄 내용 변경
|
||||
변경 전 : 년.월.일
|
||||
변경 후 : 년.월
|
||||
맥시멈 알파 제품군, 색상 추가
|
||||
Loading…
x
Reference in New Issue
Block a user