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
|
||||||
Imports System.IO.Ports
|
Imports System.IO.Ports
|
||||||
|
Imports System.Math
|
||||||
Imports System.Text
|
Imports System.Text
|
||||||
Imports System.Threading
|
Imports System.Threading
|
||||||
Imports System.Math
|
Imports Microsoft.VisualBasic.ApplicationServices
|
||||||
|
|
||||||
Public Class MainForm
|
Public Class MainForm
|
||||||
Private Const TDMaxLength As Int16 = 10
|
Private Const TDMaxLength As Int16 = 10
|
||||||
@ -949,6 +950,25 @@ FailFunc:
|
|||||||
|
|
||||||
|
|
||||||
Private Sub ProdInputFunc(sender As Object, e As EventArgs, SearchData As String)
|
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()
|
StepReset()
|
||||||
ValueReset()
|
ValueReset()
|
||||||
|
@ -1,3 +1 @@
|
|||||||
1. program ver 1.1.9
|
1. info1, info2 계정 외에는 시리얼번호를 등록 하지 못하도록 수정
|
||||||
2. 샷 수 검색 조건 변경
|
|
||||||
- If ShotSearch() = "0" Then
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user