From ae6cf6989aec919f0dc357efc6dbefba9fc5946c Mon Sep 17 00:00:00 2001 From: KwakJooYoung Date: Thu, 18 Sep 2025 09:13:29 +0900 Subject: [PATCH] =?UTF-8?q?=EC=8B=A0=EA=B7=9C=ED=92=88=EB=AA=A9=20?= =?UTF-8?q?=EC=B6=94=EA=B0=80=20:=20MAXIMUM=20ALPHA,=20=EC=82=AC=EC=9D=80?= =?UTF-8?q?=ED=92=88=20JGIFT-0031,=20JGIFT-0032,=20JGIFT-0033,=20JGIFT-003?= =?UTF-8?q?4=20&=20=EC=86=8C=EC=8A=A4=20=EC=A0=95=EB=A6=AC?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- frmMySqlTest.Designer.vb | 2 +- frmMySqlTest.vb | 601 ++++++++++++++++++++++----------------- 2 files changed, 341 insertions(+), 262 deletions(-) diff --git a/frmMySqlTest.Designer.vb b/frmMySqlTest.Designer.vb index e84bdbb..da47717 100644 --- a/frmMySqlTest.Designer.vb +++ b/frmMySqlTest.Designer.vb @@ -344,7 +344,7 @@ Partial Class frmMySqlTest Me.Controls.Add(Me.btnReadDB) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmMySqlTest" - Me.Text = "패킹 및 전표 Database Delete Program" + Me.Text = "패킹 및 전표 Database Delete Program V1.0.0" Me.gb_pack.ResumeLayout(False) Me.gb_state.ResumeLayout(False) Me.gb_state.PerformLayout() diff --git a/frmMySqlTest.vb b/frmMySqlTest.vb index be8df2e..d1981bb 100644 --- a/frmMySqlTest.vb +++ b/frmMySqlTest.vb @@ -1,6 +1,7 @@ 'Imports System.Data.OleDb 'Imports System.Reflection Imports System.ComponentModel +Imports Microsoft.Office.Core Imports Excel = Microsoft.Office.Interop.Excel ''Imports Microsoft.Office.Interop Public Class frmMySqlTest @@ -8,9 +9,8 @@ Public Class frmMySqlTest Private Enum data_set packcode pack_date + set_serial - bag_type - etc_name pro_fa_serial pro_ey_serial pro_bo_serial @@ -24,51 +24,142 @@ Public Class frmMySqlTest Alpha_bo_Serial Alto_Serial Effect_Serial + EffectV3_Serial + MAXIMUM_ALPHA_Serial + '신규제품추가 : 추가하는 품목의 변수 추가 + ordercode order_name phone ship_date invoice - - max End Enum - Private data_select(data_set.max) As String + Private data_set_max_index As Integer = [Enum].GetNames(GetType(data_set)).Length - 1 + Private data_select(data_set_max_index) As String Private Enum data_count - set_cnt - mask5_cnt - mask10_cnt - hair_cnt - gel_cnt - minigel_cnt - amp_cnt - cre_cnt - umb_cnt - fen_cnt - char_cnt - cab_cnt - toner_cnt - case_cnt - dustbag_cnt - bag_cnt - etc_cnt - pro_fa_cnt - pro_ey_cnt - pro_bo_cnt - lux_fa_cnt - lux_ey_cnt - lux_bo_cnt - MAXIMUM_cnt - Alpha_cnt - Alpha_fa_cnt - Alpha_ey_cnt - Alpha_bo_cnt - Alto_cnt - Effect_cnt + 'product + set_cnt = 1 ' Pro_Set, Lux_Set + proface_cnt = 3 + luxface_cnt + proeye_cnt + luxeye_cnt + probody_cnt + luxbody_cnt + maximum_cnt + alphaSet_cnt + alphaFace_cnt + alphaEye_cnt + alphaBody_cnt + alto_cnt + effect_cnt + effectV3_cnt + maximumAlpha_cnt + '신규제품추가 : 추가하는 품목의 변수 추가 - max + 'component + mask5 + mask10 + hairband + gel + minigel + ample + cream + umb + fen + charger + cable + toner + problack + probeige + prored + propink + maxblack + maxapr + maxmint + maxbeige + soothing + car0 + car1 + car2 + car3 + car4 + car5 + car6 + bag + cosbag + dustbag + maxPurple + proSnakeBlack + kollagen + kollagenset + kollagen_P + kollagenset_P + cleansingWater + tonerPad + maxSaffianoBK + hologram1 + hologram3 + hologram5 + caseSaffianoPp + maxYellow + Kollagen_Pe1 + Kollagen_Pe3 + Kollagen_Pe5 + ATCircleCase + APSquareCase + maxPeach + massageSoothing + maxSMint + meshpouch + firmingAmp + hyaluronicAmp + nightshot + morningshot + casemaxwoodi + Elicolltoner + Elicollamp + Elicollcream + Elihyaltoner + Elihyalamp + Elihyalcream + Dayshot + Beautyshopbag + Gummy + Stickjelly + Newyearbag + Emsbelt + Beltbag + Dayshot2 + Elixir + Elixirpremium + Emsbeltcontrollset + FabricBag + Goldshopbag + MorNigshotset + CTBox + ElesqLiftingToner + ElesqLiftingCeam + ElesqLiftingECream + ElesqLiftingAmp + ElesqAquaToner + ElesqAquaCeam + ElesqAquaECream + ElesqAquaAmp + car8 + keyring + DoenaLiftingToner + DoenaLiftingAmp + DoenaLiftingCream + FirmingCollagenGel + keyringSally + beautykitHairband + beautykitMirrorS + beautykitMirrorL + '신규구성품추가 : 추가하는 품목의 변수 추가 End Enum - Private data_cnt(data_count.max) As String + Private data_count_max_index As Integer = [Enum].GetNames(GetType(data_count)).Length - 1 + Private data_cnt(data_count_max_index) As String Private cmd As String Private dbcmd As String @@ -77,9 +168,13 @@ Public Class frmMySqlTest Private sales_table As String = "jomtTesterDB.jomtSalesPackingTbl" Private order_test As String = "jomtOrderTestDB.jomtTesterOrderTbl" Private sales_test As String = "jomtTesterServerDB.jomtSalesPackingTbl" + Private prod_table As String = "jomtTesterDB.jomtProdList" + Private component_table As String = "jomtTesterDB.jomtComponentTbl" Private order_db As String = order_table Private sales_db As String = sales_table + Private prod_db As String = prod_table + Private component_db As String = component_table Private clear_switch As Boolean = False @@ -201,119 +296,173 @@ Public Class frmMySqlTest Private Function db_select(serial As String) As Boolean - dbcmd = "SELECT IFNULL(sale.PackingCode,'NULL'),IFNULL(sale.`Data`,'NULL'), IFNULL(sale.Main_Product_SN,'NULL'),IFNULL(sale.Set_Cnt,'0'),IFNULL(sale.Mask5Cnt,'0'),IFNULL(sale.Mask10Cnt,'0'),IFNULL(sale.HairBandCnt,'0'),IFNULL(sale.GelCnt,'0') ,IFNULL(sale.MiniGelCnt,'0'),IFNULL(sale.AmpleCnt,'0'),IFNULL(sale.CreamCnt,'0'),IFNULL(sale.UmbrellaCnt,'0'),IFNULL(sale.FenCnt,'0'),IFNULL(sale.ChargerCnt,'0'),IFNULL(sale.CableCnt,'0'),IFNULL(sale.TonerCnt,'0'), IFNULL(sale.CaseCnt,'0') , IFNULL(sale.DustBagCnt,'0'), IFNULL(sale.BagCnt,'0'), IFNULL(sale.BagType,'0'),IFNULL(sale.EtcCnt,'0'),IFNULL(sale.etcName,'NULL'),IFNULL(sale.Pro_Face_Serial,'NULL'),IFNULL(sale.Pro_CT_FaceCnt,'0'),IFNULL(sale.Pro_Eye_Serial,'NULL'),IFNULL(sale.Pro_CT_EYE_Cnt,'0'),IFNULL(sale.Pro_Body_Serial,'NULL'),IFNULL(sale.Pro_CT_BodyCnt,'0'),IFNULL(sale.Lux_Face_Serial,'NULL'),IFNULL(sale.Lux_CT_FaceCnt,'0'),IFNULL(sale.Lux_Eye_Serial,'NULL'),IFNULL(sale.Lux_CT_EYE_Cnt,'0'),IFNULL(sale.Lux_Body_Serial,'NULL'),IFNULL(sale.Lux_CT_BodyCnt,'0'),IFNULL(sale.MAXIMUM_SN,'NULL'),IFNULL(sale.MAXIMUM_Cnt,'0'), IFNULL(sale.Alpha_Set_Serial,'NULL'),IFNULL(sale.Alpha_Set_cnt,'0'),IFNULL(sale.Alpha_Face_Serial,'NULL'),IFNULL(sale.Alpha_Face_cnt,'0'),IFNULL(sale.Alpha_Eye_Serial,'NULL'),IFNULL(sale.Alpha_Eye_cnt,'0'),IFNULL(sale.Alpha_Body_Serial,'NULL'),IFNULL(sale.Alpha_Body_cnt,'0'),IFNULL(sale.Alto_Serial,'NULL'),IFNULL(sale.Alto_cnt,'0'),IFNULL(sale.Effect_Serial,'NULL'),IFNULL(sale.Effect_cnt,'0'),ifnull(otb.Order_Code,'NULL'),ifnull(otb.Orderer_Name,'NULL'),ifnull(otb.Phone_Number,'NULL'),ifnull(otb.Shipment_Date,'NULL'),IFNULL(otb.Invoice_Number,'NULL') FROM " & sales_db & " AS sale LEFT JOIN " & order_db & " AS otb ON sale.PackingCode = otb.Packing_Code WHERE sale.PackingCode = '" & serial & "' GROUP BY sale.PackingCode" + dbcmd = "SELECT IFNULL(sale.PackingCode,'NULL') + , IFNULL(sale.`Data`,'NULL') + + , IFNULL(sale.Main_Product_SN,'NULL') + , IFNULL(sale.Pro_Face_Serial,'NULL') + , IFNULL(sale.Pro_Eye_Serial,'NULL') + , IFNULL(sale.Pro_Body_Serial,'NULL') + , IFNULL(sale.Lux_Face_Serial,'NULL') + , IFNULL(sale.Lux_Eye_Serial,'NULL') + , IFNULL(sale.Lux_Body_Serial,'NULL') + , IFNULL(sale.MAXIMUM_SN,'NULL') + , IFNULL(sale.Alpha_Set_Serial,'NULL') + , IFNULL(sale.Alpha_Face_Serial,'NULL') + , IFNULL(sale.Alpha_Eye_Serial,'NULL') + , IFNULL(sale.Alpha_Body_Serial,'NULL') + , IFNULL(sale.Alto_Serial,'NULL') + , IFNULL(sale.Effect_Serial,'NULL') + , IFNULL(sale.EffectV3_Serial,'NULL') + , IFNULL(sale.MAXIMUM_ALPHA_SN,'NULL') + + , IFNULL(otb.Order_Code,'NULL') + , IFNULL(otb.Orderer_Name,'NULL') + , IFNULL(otb.Phone_Number,'NULL') + , IFNULL(otb.Shipment_Date,'NULL') + , IFNULL(otb.Invoice_Number,'NULL') + + , IFNULL(sale.Set_Cnt,'0') + , '0' + , IFNULL(sale.Pro_CT_FaceCnt,'0') + , IFNULL(sale.Lux_CT_FaceCnt,'0') + , IFNULL(sale.Pro_CT_EYE_Cnt,'0') + , IFNULL(sale.Lux_CT_EYE_Cnt,'0') + , IFNULL(sale.Pro_CT_BodyCnt,'0') + , IFNULL(sale.Lux_CT_BodyCnt,'0') + , IFNULL(sale.MAXIMUM_Cnt,'0') + , IFNULL(sale.Alpha_Set_Cnt,'0') + , IFNULL(sale.Alpha_Face_Cnt,'0') + , IFNULL(sale.Alpha_Eye_Cnt,'0') + , IFNULL(sale.Alpha_Body_Cnt,'0') + , IFNULL(sale.Alto_Cnt,'0') + , IFNULL(sale.Effect_Cnt,'0') + , IFNULL(sale.EffectV3_Cnt,'0') + , IFNULL(sale.MAXIMUM_ALPHA_Cnt,'0') + + , IFNULL(sale.Mask5Cnt,'0') + , IFNULL(sale.Mask10Cnt,'0') + , IFNULL(sale.HairBandCnt,'0') + , IFNULL(sale.GelCnt,'0') + , IFNULL(sale.MiniGelCnt,'0') + , IFNULL(sale.AmpleCnt,'0') + , IFNULL(sale.CreamCnt,'0') + , IFNULL(sale.UmbrellaCnt,'0') + , IFNULL(sale.FenCnt,'0') + , IFNULL(sale.ChargerCnt,'0') + , IFNULL(sale.CableCnt,'0') + , IFNULL(sale.TonerCnt,'0') + , IFNULL(sale.Case_PRO_Black,'0') + , IFNULL(sale.Case_PRO_Beige,'0') + , IFNULL(sale.Case_PRO_Red,'0') + , IFNULL(sale.Case_PRO_Pink,'0') + , IFNULL(sale.Case_MAX_Black,'0') + , IFNULL(sale.Case_MAX_Apr,'0') + , IFNULL(sale.Case_MAX_Mint,'0') + , IFNULL(sale.Case_MAX_Beige,'0') + , IFNULL(sale.SoothingGelCnt,'0') + , IFNULL(sale.Carton0_Cnt,'0') + , IFNULL(sale.Carton1_Cnt,'0') + , IFNULL(sale.Carton2_Cnt,'0') + , IFNULL(sale.Carton3_Cnt,'0') + , IFNULL(sale.Carton4_Cnt,'0') + , IFNULL(sale.Carton5_Cnt,'0') + , IFNULL(sale.Carton6_Cnt,'0') + , IFNULL(sale.Shopbag_Cnt,'0') + , IFNULL(sale.CosShopbag_Cnt,'0') + , IFNULL(sale.DustBagCnt,'0') + , IFNULL(sale.Case_MAX_Purple,'0') + , IFNULL(sale.Case_PRO_SnakeBlakc,'0') + , IFNULL(sale.KollagenCnt,'0') + , IFNULL(sale.KollagenSetCnt,'0') + , IFNULL(sale.Kollagen_PCnt,'0') + , IFNULL(sale.KollagenSet_PCnt,'0') + , IFNULL(sale.CleansingWaterCnt,'0') + , IFNULL(sale.TonerPadCnt,'0') + , IFNULL(sale.Case_MAX_SafBK_Cnt,'0') + , IFNULL(sale.Hologram_1Cnt,'0') + , IFNULL(sale.Hologram_3Cnt,'0') + , IFNULL(sale.Hologram_5Cnt,'0') + , IFNULL(sale.Case_MAX_SafPp_Cnt,'0') + , IFNULL(sale.Case_MAX_Yellow,'0') + , IFNULL(sale.Kollagen_Pe1Cnt,'0') + , IFNULL(sale.Kollagen_Pe3Cnt,'0') + , IFNULL(sale.Kollagen_Pe5Cnt,'0') + , IFNULL(sale.ATCircleCaseCnt,'0') + , IFNULL(sale.APSquareCaseCnt,'0') + , IFNULL(sale.Case_MAX_Peach,'0') + , IFNULL(sale.MasSoothingCnt,'0') + , IFNULL(sale.Case_MAX_SMintCnt,'0') + , IFNULL(sale.MeshPouchCnt,'0') + , IFNULL(sale.FirmingAmpCnt,'0') + , IFNULL(sale.HyaluronicAmpCnt,'0') + , IFNULL(sale.nightshotcnt,'0') + , IFNULL(sale.morningshotcnt,'0') + , IFNULL(sale.casemaxwoodicnt,'0') + , IFNULL(sale.Elicolltonercnt,'0') + , IFNULL(sale.Elicollampcnt,'0') + , IFNULL(sale.Elicollcreamcnt,'0') + , IFNULL(sale.Elihyaltonercnt,'0') + , IFNULL(sale.Elihyalampcnt,'0') + , IFNULL(sale.Elihyalcreamcnt,'0') + , IFNULL(sale.Dayshotcnt,'0') + , IFNULL(sale.Beautyshopbagcnt,'0') + , IFNULL(sale.Gummycnt,'0') + , IFNULL(sale.stickjellycnt,'0') + , IFNULL(sale.Newyearbagcnt,'0') + , IFNULL(sale.Emsbeltcnt,'0') + , IFNULL(sale.Beltbagcnt,'0') + , IFNULL(sale.Dayshot2cnt,'0') + , IFNULL(sale.Elixircnt,'0') + , IFNULL(sale.Elixirpremiumcnt,'0') + , IFNULL(sale.Emsbeltcontrollsetcnt,'0') + , IFNULL(sale.FabricBagcnt,'0') + , IFNULL(sale.Goldshopbagcnt,'0') + , IFNULL(sale.MorNigshotsetcnt,'0') + , IFNULL(sale.CTBoxcnt,'0') + , IFNULL(sale.ElesqLiftingTonercnt,'0') + , IFNULL(sale.ElesqLiftingCeamcnt,'0') + , IFNULL(sale.ElesqLiftingECreamcnt,'0') + , IFNULL(sale.ElesqLiftingAmpcnt,'0') + , IFNULL(sale.ElesqAquaTonercnt,'0') + , IFNULL(sale.ElesqAquaCeamcnt,'0') + , IFNULL(sale.ElesqAquaECreamcnt,'0') + , IFNULL(sale.ElesqAquaAmpcnt,'0') + , IFNULL(sale.Carton8_Cnt,'0') + , IFNULL(sale.KeyringCnt,'0') + , IFNULL(sale.DoenaLiftingTonercnt,'0') + , IFNULL(sale.DoenaLiftingAmpcnt,'0') + , IFNULL(sale.DoenaLiftingCreamcnt,'0') + , IFNULL(sale.FirmingCollagenGelcnt,'0') + , IFNULL(sale.KeyringSallyCnt,'0') + , IFNULL(sale.BeautykitHairbandCnt,'0') + , IFNULL(sale.BeautykitMirrorSCnt,'0') + , IFNULL(sale.BeautykitMirrorLCnt,'0') + + FROM " & sales_db & " AS sale LEFT JOIN " & order_db & " AS otb ON sale.PackingCode = otb.Packing_Code + WHERE sale.PackingCode = '" & serial & "' GROUP BY sale.PackingCode" '신규제품추가/신규구성품추가 : 추가하는 품목의 시리얼, 개수 조회 추가 If DBQueryReader(dbcmd) Then - data_select(data_set.packcode) = sqlDataQuery(0) - data_select(data_set.pack_date) = sqlDataQuery(1) - data_select(data_set.set_serial) = sqlDataQuery(2) - data_cnt(data_count.set_cnt) = sqlDataQuery(3) - data_cnt(data_count.mask5_cnt) = sqlDataQuery(4) - data_cnt(data_count.mask10_cnt) = sqlDataQuery(5) - data_cnt(data_count.hair_cnt) = sqlDataQuery(6) - data_cnt(data_count.gel_cnt) = sqlDataQuery(7) - data_cnt(data_count.minigel_cnt) = sqlDataQuery(8) - data_cnt(data_count.amp_cnt) = sqlDataQuery(9) - data_cnt(data_count.cre_cnt) = sqlDataQuery(10) - data_cnt(data_count.umb_cnt) = sqlDataQuery(11) - data_cnt(data_count.fen_cnt) = sqlDataQuery(12) - data_cnt(data_count.char_cnt) = sqlDataQuery(13) - data_cnt(data_count.cab_cnt) = sqlDataQuery(14) - data_cnt(data_count.toner_cnt) = sqlDataQuery(15) - data_cnt(data_count.case_cnt) = sqlDataQuery(16) - data_cnt(data_count.dustbag_cnt) = sqlDataQuery(17) - data_cnt(data_count.bag_cnt) = sqlDataQuery(18) - data_select(data_set.bag_type) = sqlDataQuery(19) - data_cnt(data_count.etc_cnt) = sqlDataQuery(20) - data_select(data_set.etc_name) = sqlDataQuery(21) - data_select(data_set.pro_fa_serial) = sqlDataQuery(22) - data_cnt(data_count.pro_fa_cnt) = sqlDataQuery(23) - data_select(data_set.pro_ey_serial) = sqlDataQuery(24) - data_cnt(data_count.pro_ey_cnt) = sqlDataQuery(25) - data_select(data_set.pro_bo_serial) = sqlDataQuery(26) - data_cnt(data_count.pro_bo_cnt) = sqlDataQuery(27) - data_select(data_set.lux_fa_serial) = sqlDataQuery(28) - data_cnt(data_count.lux_fa_cnt) = sqlDataQuery(29) - data_select(data_set.lux_ey_serial) = sqlDataQuery(30) - data_cnt(data_count.lux_ey_cnt) = sqlDataQuery(31) - data_select(data_set.lux_bo_serial) = sqlDataQuery(32) - data_cnt(data_count.lux_bo_cnt) = sqlDataQuery(33) - data_select(data_set.MAXIMUM_serial) = sqlDataQuery(34) - data_cnt(data_count.MAXIMUM_cnt) = sqlDataQuery(35) - data_select(data_set.Alpha_Serial) = sqlDataQuery(36) - data_cnt(data_count.Alpha_cnt) = sqlDataQuery(37) - data_select(data_set.Alpha_fa_Serial) = sqlDataQuery(38) - data_cnt(data_count.Alpha_fa_cnt) = sqlDataQuery(39) - data_select(data_set.Alpha_ey_Serial) = sqlDataQuery(40) - data_cnt(data_count.Alpha_ey_cnt) = sqlDataQuery(41) - data_select(data_set.Alpha_bo_Serial) = sqlDataQuery(42) - data_cnt(data_count.Alpha_bo_cnt) = sqlDataQuery(43) - data_select(data_set.Alto_Serial) = sqlDataQuery(44) - data_cnt(data_count.Alto_cnt) = sqlDataQuery(45) - data_cnt(data_count.Effect_cnt) = sqlDataQuery(46) - data_select(data_set.Effect_Serial) = sqlDataQuery(47) - data_select(data_set.ordercode) = sqlDataQuery(48) - data_select(data_set.order_name) = sqlDataQuery(49) - data_select(data_set.phone) = sqlDataQuery(50) - data_select(data_set.ship_date) = sqlDataQuery(51) - data_select(data_set.invoice) = sqlDataQuery(52) + + For i = 0 To data_set_max_index + data_select(i) = sqlDataQuery(i) + Next + + For i = 1 To data_count_max_index + data_cnt(i) = sqlDataQuery(data_set_max_index + i) + Next Return True Else - data_select(data_set.packcode) = "NULL" - data_select(data_set.pack_date) = "NULL" - data_select(data_set.set_serial) = "NULL" - data_cnt(data_count.set_cnt) = "0" - data_cnt(data_count.mask5_cnt) = "0" - data_cnt(data_count.mask10_cnt) = "0" - data_cnt(data_count.hair_cnt) = "0" - data_cnt(data_count.gel_cnt) = "0" - data_cnt(data_count.minigel_cnt) = "0" - data_cnt(data_count.amp_cnt) = "0" - data_cnt(data_count.cre_cnt) = "0" - data_cnt(data_count.umb_cnt) = "0" - data_cnt(data_count.fen_cnt) = "0" - data_cnt(data_count.char_cnt) = "0" - data_cnt(data_count.cab_cnt) = "0" - data_cnt(data_count.toner_cnt) = "0" - data_cnt(data_count.case_cnt) = "0" - data_cnt(data_count.dustbag_cnt) = "0" - data_cnt(data_count.bag_cnt) = "0" - data_select(data_set.bag_type) = "NULL" - data_cnt(data_count.etc_cnt) = "0" - data_select(data_set.etc_name) = "NULL" - data_select(data_set.pro_fa_serial) = "NULL" - data_cnt(data_count.pro_fa_cnt) = "0" - data_select(data_set.pro_ey_serial) = "NULL" - data_cnt(data_count.pro_ey_cnt) = "0" - data_select(data_set.pro_bo_serial) = "NULL" - data_cnt(data_count.pro_bo_cnt) = "0" - data_select(data_set.lux_fa_serial) = "NULL" - data_cnt(data_count.lux_fa_cnt) = "0" - data_select(data_set.lux_ey_serial) = "NULL" - data_cnt(data_count.lux_ey_cnt) = "0" - data_select(data_set.lux_bo_serial) = "NULL" - data_cnt(data_count.lux_bo_cnt) = "0" - data_select(data_set.MAXIMUM_serial) = "NULL" - data_cnt(data_count.MAXIMUM_cnt) = "0" - data_select(data_set.Alpha_Serial) = "NULL" - data_cnt(data_count.Alpha_cnt) = "0" - data_select(data_set.Alpha_fa_Serial) = "NULL" - data_cnt(data_count.Alpha_fa_cnt) = "0" - data_select(data_set.Alpha_ey_Serial) = "NULL" - data_cnt(data_count.Alpha_ey_cnt) = "0" - data_select(data_set.Alpha_bo_Serial) = "NULL" - data_cnt(data_count.Alpha_bo_cnt) = "0" - data_select(data_set.Alto_Serial) = "NULL" - data_cnt(data_count.Alto_cnt) = "0" - data_select(data_set.Effect_Serial) = "NULL" - data_cnt(data_count.Effect_cnt) = "0" - data_select(data_set.ordercode) = "NULL" - data_select(data_set.order_name) = "NULL" - data_select(data_set.phone) = "NULL" - data_select(data_set.ship_date) = "NULL" - data_select(data_set.invoice) = "NULL" + + For i = 0 To data_set_max_index + data_select(i) = "NULL" + Next + + For i = 0 To data_count_max_index + data_cnt(i) = "0" + Next Return False @@ -327,136 +476,45 @@ Public Class frmMySqlTest Try - For i = 0 To data_count.max + For i = 0 To data_count_max_index dgv_switch = False item_name = Nothing item_serial = Nothing - If data_cnt(data_count.max - i) > 0 Then + If data_cnt(i) > 0 Then + If i = data_count.set_cnt Then 'Pro_Set, Lux_Set + If Mid(data_select(data_set.set_serial), 1, 2) = "10" Then + item_name = "DUALSONIC Pro 1Set (KR)" + Else + item_name = "DUALSONIC Lux 1Set (KR)" + End If - Select Case data_count.max - i - Case 0 - If Mid(data_select(data_set.max), 1, 2) = "10" Then - item_name = "DUALSONIC Pro 1Set (KR)" - item_serial = data_select(data_set.max) - dgv_switch = True - Else - item_name = "DUALSONIC Lux 1Set (KR)" - item_serial = data_select(data_set.max) - dgv_switch = True - End If - Case 1 - item_name = "DUALSONIC Elixir MASK 5EA" - dgv_switch = True - Case 2 - item_name = "DUALSONIC Elixir MASK 10EA" - dgv_switch = True - Case 3 - item_name = "[사은품] 벨크로헤어밴드" - dgv_switch = True - Case 4 - item_name = "DUALSONIC Blooming Moisture Gel" - dgv_switch = True - Case 5 - item_name = "DUALSONIC Blooming Moisture Gel(30ml * 5EA)" - dgv_switch = True - Case 6 - item_name = "DUALSONIC Skin Cell Elixir Ampoule" - dgv_switch = True - Case 7 - item_name = "DUALSONIC Skin Cell Elixir Cream" - dgv_switch = True - Case 8 - item_name = "[사은품] 우산" - dgv_switch = True - Case 9 - item_name = "[사은품] 손풍기" - dgv_switch = True - Case 10 - item_name = "충전기 Assy" - dgv_switch = True - Case 11 - item_name = "마이크로 충전 케이블" - dgv_switch = True - Case 12 - item_name = "DUALSONIC Skin Elixir Toner" - dgv_switch = True - Case 13 - item_name = "DUALSONIC 가죽 케이스 세트" - dgv_switch = True - Case 14 - item_name = "DUALSONIC DUST BAG 1BOX" - dgv_switch = True - Case 15 - item_name = data_select(data_set.bag_type) - dgv_switch = True - Case 16 - item_name = data_select(data_set.etc_name) - dgv_switch = True - Case 17 - item_name = "DUALSONIC Pro FACE CARTRIDGE" - item_serial = data_select(data_set.pro_fa_serial) - dgv_switch = True - Case 18 - item_name = "DUALSONIC Pro Eye CARTRIDGE" - item_serial = data_select(data_set.pro_ey_serial) - dgv_switch = True - Case 19 - item_name = "DUALSONIC Pro Body Cartridge 1Set Rev.0 (KR)" - item_serial = data_select(data_set.pro_bo_serial) - dgv_switch = True - Case 20 - item_name = "DUALSONIC Lux FACE CARTRIDGE" - item_serial = data_select(data_set.lux_fa_serial) - dgv_switch = True - Case 21 - item_name = "DUALSONIC Lux Eye CARTRIDGE" - item_serial = data_select(data_set.lux_ey_serial) - dgv_switch = True - Case 22 - item_name = "DUALSONIC Lux Body Cartridge 1Set Rev.0 (KR)" - item_serial = data_select(data_set.lux_bo_serial) - dgv_switch = True - Case 23 - item_name = "MAXIMUM FULL PACK (KR)" - item_serial = data_select(data_set.MAXIMUM_serial) - dgv_switch = True - Case 24 - item_name = "Alpha Set (KR)" - item_serial = data_select(data_set.Alpha_Serial) - dgv_switch = True - Case 25 - item_name = "Alpha FACE CARTRIDGE" - item_serial = data_select(data_set.Alpha_fa_Serial) - dgv_switch = True - Case 26 - item_name = "Alpha Eye CARTRIDGE" - item_serial = data_select(data_set.Alpha_ey_Serial) - dgv_switch = True - Case 27 - item_name = "Alpha Body CARTRIDGE" - item_serial = data_select(data_set.Alpha_bo_Serial) - dgv_switch = True - Case 28 - item_name = "Alto PACK (KR)" - item_serial = data_select(data_set.Alto_Serial) - dgv_switch = True - Case 29 - item_name = "Effect PACK (KR)" - item_serial = data_select(data_set.Effect_Serial) - dgv_switch = True + item_serial = data_select(data_set.set_serial) + ElseIf i < data_count.mask5 Then + dbcmd = "SELECT ItemName FROM " & prod_db & " WHERE ProdCode = '" & i & "' AND ItemName NOT LIKE '%체험%' LIMIT 1" + If DBQueryReader(dbcmd) Then + item_name = sqlDataQuery(0) + End If - End Select + item_serial = data_select(i) + Else + dbcmd = "SELECT ItemName FROM " & component_db & " WHERE ProdCode = '" & (i - data_count.mask5) & "' LIMIT 1" + If DBQueryReader(dbcmd) Then + item_name = sqlDataQuery(0) + End If + End If + + dgv_switch = True End If If dgv_switch = True Then - dgv_pack_item.Rows.Add(item_name, data_cnt(data_count.max - i), item_serial) + dgv_pack_item.Rows.Add(item_name, data_cnt(i), item_serial) End If - Next + Return True Catch ex As Exception @@ -596,7 +654,28 @@ Public Class frmMySqlTest Private Function pack_delete(serial As String) As Boolean - dbcmd = "UPDATE " & sales_db & " SET PackingCode = 'null_" & txb_pack_code.Text & "', Main_Product_SN = NULL, Main_FACE_SN = NULL, Main_EYE_SN = NULL, Pro_Face_Serial = NULL, Pro_Eye_Serial = NULL, Pro_Body_Serial = NULL, Lux_Face_Serial = NULL, Lux_Eye_Serial = NULL, Lux_Body_Serial = NULL , MAXIMUM_SN = NULL , Alpha_Set_Serial = NULL , Alpha_Face_Serial = NULL , Alpha_Eye_Serial = NULL , Alpha_Body_Serial = NULL , Alto_Serial = NULL , Effect_Serial = NULL , note = '" & serial & "' WHERE PackingCode = '" & txb_pack_code.Text & "'" + dbcmd = "UPDATE " & sales_db & + " SET PackingCode = 'null_" & txb_pack_code.Text & "' + , Main_Product_SN = NULL + , Main_FACE_SN = NULL + , Main_EYE_SN = NULL + , Pro_Face_Serial = NULL + , Pro_Eye_Serial = NULL + , Pro_Body_Serial = NULL + , Lux_Face_Serial = NULL + , Lux_Eye_Serial = NULL + , Lux_Body_Serial = NULL + , MAXIMUM_SN = NULL + , Alpha_Set_Serial = NULL + , Alpha_Face_Serial = NULL + , Alpha_Eye_Serial = NULL + , Alpha_Body_Serial = NULL + , Alto_Serial = NULL + , Effect_Serial = NULL + , EffectV3_Serial = NULL + , MAXIMUM_ALPHA_SN = NULL + , note = '" & serial & "' + WHERE PackingCode = '" & txb_pack_code.Text & "'" '신규제품추가 : 추가하는 품목의 변수 추가 If DBCommand(dbcmd) Then Return True End If