feat: Block serial number registration for non-info1/info2 accounts
This commit is contained in:
parent
3fe99e62ef
commit
dd427a8d4e
@ -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()
|
||||
|
@ -1,3 +1 @@
|
||||
1. program ver 1.1.9
|
||||
2. 샷 수 검색 조건 변경
|
||||
- If ShotSearch() = "0" Then
|
||||
1. info1, info2 계정 외에는 시리얼번호를 등록 하지 못하도록 수정
|
||||
|
Loading…
x
Reference in New Issue
Block a user