diff --git a/MAXIMUM_Product_Program/MainForm.vb b/MAXIMUM_Product_Program/MainForm.vb index 0717170..94942da 100644 --- a/MAXIMUM_Product_Program/MainForm.vb +++ b/MAXIMUM_Product_Program/MainForm.vb @@ -1,8 +1,9 @@ Imports System.IO Imports System.IO.Ports +Imports System.Math Imports System.Text Imports System.Threading -Imports System.Math +Imports Microsoft.VisualBasic.ApplicationServices Public Class MainForm Private Const TDMaxLength As Int16 = 10 @@ -949,6 +950,25 @@ FailFunc: Private Sub ProdInputFunc(sender As Object, e As EventArgs, SearchData As String) + Dim userID As String = "" + + ' info1 또는 info2 중 NowState가 1인 사용자 조회 + DBCmd = "SELECT UserID FROM " & LoginDB & " WHERE NowState = '1' AND (UserID = 'info1' OR UserID = 'info2')" + + If DBQueryReader(DBCmd) Then + userID = sqlDataQuery(0) + Else + MsgBox("사용자 정보 읽기 실패", vbExclamation) + GoTo FailFunc + End If + + If userID = "info1" Or userID = "info2" Then + ' PASS + Else + MsgBox("info1 또는 info2 계정을 사용하세요", vbExclamation) + GoTo FailFunc + End If + StepReset() ValueReset() diff --git a/업데이트 내역.txt b/업데이트 내역.txt index 6148598..350cb3e 100644 --- a/업데이트 내역.txt +++ b/업데이트 내역.txt @@ -1,3 +1 @@ -1. program ver 1.1.9 -2. 샷 수 검색 조건 변경 - - If ShotSearch() = "0" Then \ No newline at end of file +1. info1, info2 계정 외에는 시리얼번호를 등록 하지 못하도록 수정