Haegwang/Karodeung
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

권한 기능 업데이트

Browse Source
This commit is contained in:
Chikyun
2019-05-05 22:25:20 +09:00
parent 750cdf9fd0
commit 3d7b335a06
14 changed files with 206 additions and 274 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
Epole/dialogForm/DemoDlg.vb
View File

@@ -1,12 +1,12 @@
Public NotInheritable Class DemoDlg
Private Sub DemoDlg_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If UserInfo.Type = E_AuthType.Demo AndAlso UserInfo.Cnt > 10 Then
End
Else
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Dispose()
End If
'If UserInfo.Type = E_AuthType.Demo AndAlso UserInfo.Cnt > 10 Then
' End
'Else
' Me.DialogResult = Windows.Forms.DialogResult.OK
' Me.Dispose()
'End If
End Sub
Private Sub DemoDlg_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
@@ -27,24 +27,24 @@
Me.LabelCompanyName.Text = My.Application.Info.CompanyName
Display_info()
If UserInfo.Type = E_AuthType.Demo AndAlso UserInfo.Cnt > 10 Then '//사용불가다
Me.Button1.Text = "끝내기(&O)"
End If
'If UserInfo.Type = E_AuthType.Demo AndAlso UserInfo.Cnt > 10 Then '//사용불가다
' Me.Button1.Text = "끝내기(&O)"
'End If
'Me.TextBoxDescription.Text = My.Application.Info.Description
End Sub
Private Sub Display_info()
Me.lb_expiredate.Text = "인증만료일 : " & UserInfo.ExpireDate
Select Case UserInfo.Type
Case E_AuthType.Admin
Me.lb_usertype.Text = "사용자형태 : 관리자"
Case E_AuthType.Demo
Me.lb_usertype.Text = "사용자형태 : 임시(일부기능만 사용가능)"
Me.lb_remaincnt.Text = "사용 횟수 : " & UserInfo.Cnt & "/10" & IIf(UserInfo.Cnt > 10, "[사용횟수초과]", "")
Case E_AuthType.Normal
Me.lb_usertype.Text = "사용자형태 : 정상"
End Select
Me.lb_ip.Text = "아이피 : " & GetFirstIP()
Me.lb_expiredate.Text = "인증만료일 : " & RunDate.ToShortDateString()
'Select Case UserInfo.Type
' Case E_AuthType.Admin
' Me.lb_usertype.Text = "사용자형태 : 관리자"
' Case E_AuthType.Demo
' Me.lb_usertype.Text = "사용자형태 : 임시(일부기능만 사용가능)"
' Me.lb_remaincnt.Text = "사용 횟수 : " & UserInfo.Cnt & "/10" & IIf(UserInfo.Cnt > 10, "[사용횟수초과]", "")
' Case E_AuthType.Normal
' Me.lb_usertype.Text = "사용자형태 : 정상"
'End Select
'Me.lb_ip.Text = "아이피 : " & GetFirstIP()
End Sub
Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
@@ -55,7 +55,7 @@
Process.Start(HomePage)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim auth As New CEpole.Auth
Dim NewKey As String = InputBox("인증번호1을 입력하세요")
If NewKey <> "" AndAlso auth.check_key1(NewKey) Then '//뭔가있고 정상이라면
@@ -66,10 +66,10 @@
MsgBox("취소되었거나 정상적인 키가 아닙니다", MsgBoxStyle.Critical, "오류")
Me.Close()
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim auth As New CEpole.Auth
Dim NewKey As String = InputBox("인증번호2를 입력하세요")
If NewKey <> "" AndAlso auth.Check_key2(NewKey) Then '//뭔가있고 정상이라면