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

16
Epole/Common.vb
View File

@@ -54,6 +54,10 @@ Module Common
Dim PATTERNTABLE As DataTable Dim PATTERNTABLE As DataTable
End Structure End Structure
Public RunCnt As Integer = 0
Public RunDate As Date = Now
Public Admin As Boolean = False
Public StyleList() As SStyle Public StyleList() As SStyle
Public DataBaseFile As String = My.Application.Info.DirectoryPath & "\database\irea.mdb" Public DataBaseFile As String = My.Application.Info.DirectoryPath & "\database\irea.mdb"
@@ -77,7 +81,7 @@ Module Common
Public MenuFont As Cfont '//메뉴의 글자 Public MenuFont As Cfont '//메뉴의 글자
Public FormFont As Cfont '//폼의 글자 Public FormFont As Cfont '//폼의 글자
Public UserInfo As S_AuthInfo '//사용자정보 ' Public UserInfo As S_AuthInfo '//사용자정보
Public Enum Work_Type Public Enum Work_Type
kakong = 0 kakong = 0
@@ -148,10 +152,10 @@ Module Common
End Function End Function
Public Function Check_auth() As Boolean Public Function Check_auth() As Boolean
If UserInfo.Type = E_AuthType.Demo Then 'If UserInfo.Type = E_AuthType.Demo Then
MsgBox("현재권한으로는 이기능을 사용할 수 없습니다", MsgBoxStyle.Critical, "임시사용자권한") ' MsgBox("현재권한으로는 이기능을 사용할 수 없습니다", MsgBoxStyle.Critical, "임시사용자권한")
Return False ' Return False
End If 'End If
Return True Return True
End Function End Function
@@ -205,7 +209,7 @@ Module Common
End Sub End Sub
Public Sub AddLog(ByVal t1 As Boolean, ByVal txt As String, Optional ByVal t2fn As String = "") Public Sub AddLog(ByVal t1 As Boolean, ByVal txt As String, Optional ByVal t2fn As String = "")
If UserInfo.Type = E_AuthType.Admin Then Log.RichTextBox1.AppendText(txt & vbCrLf) 'If UserInfo.Type = E_AuthType.Admin Then Log.RichTextBox1.AppendText(txt & vbCrLf)
End Sub End Sub
Public Sub showlog() Public Sub showlog()
Log.Show() Log.Show()

56
Epole/MakeList.vb
View File

@@ -32,7 +32,7 @@ Public Class MakeList
Private Sub MakeList_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown Private Sub MakeList_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.F12 Then If e.KeyCode = Keys.F12 Then
Dim msg As String = InputBox("pass") Dim msg As String = InputBox("pass")
If msg = "arin" Then UserInfo.Type = E_AuthType.Admin If msg = "arin" Then Admin = True 'UserInfo.Type = E_AuthType.Admin
ShowMenu() ShowMenu()
End If End If
End Sub End Sub
@@ -40,18 +40,20 @@ Public Class MakeList
Private Sub ShowMenu() Private Sub ShowMenu()
For Each Obj As ToolStripMenuItem In Me.mbt_addnew.DropDownItems For Each Obj As ToolStripMenuItem In Me.mbt_addnew.DropDownItems
If Not Obj.Tag Is Nothing Then '//태그가있는 아이템의 권한을 확인한다. If Not Obj.Tag Is Nothing Then '//태그가있는 아이템의 권한을 확인한다.
If UserInfo.Type = E_AuthType.Admin Then
Obj.Visible = True Obj.Visible = True
Else
Obj.Visible = False 'If Admin Then
For Each C As Char In UserInfo.Permission ' Obj.Visible = True
' MsgBox(C & "//" & Obj.Tag.ToString) 'Else
If Obj.Tag.ToString.ToUpper = C.ToString.ToUpper Then '//태그가같다면 사용가능 ' Obj.Visible = False
Obj.Visible = True ' For Each C As Char In UserInfo.Permission
Exit For ' ' MsgBox(C & "//" & Obj.Tag.ToString)
End If ' If Obj.Tag.ToString.ToUpper = C.ToString.ToUpper Then '//태그가같다면 사용가능
Next ' Obj.Visible = True
End If ' Exit For
' End If
' Next
'End If
End If End If
Next Next
@@ -67,24 +69,24 @@ Public Class MakeList
End If End If
Me.view1.ASetting_Load(False) Me.view1.ASetting_Load(False)
Me.lb_auth.Text = "[사용기한:" + RunDate.ToShortDateString() + "]"
Select Case UserInfo.Type 'Select Case UserInfo.Type
Case E_AuthType.Admin ' Case E_AuthType.Admin
Me.lb_auth.Text = "[관리자]" ' Me.lb_auth.Text = "[사용기한:" + RunDate.ToShortDateString() + "]"
Me.lb_auth.ForeColor = Color.Green ' Me.lb_auth.ForeColor = Color.Green
Case E_AuthType.Demo ' Case E_AuthType.Demo
Me.lb_auth.Text = "[임시사용자]" ' Me.lb_auth.Text = "[임시사용자]"
Me.lb_auth.ForeColor = Color.Blue ' Me.lb_auth.ForeColor = Color.Blue
Case E_AuthType.Normal ' Case E_AuthType.Normal
Me.lb_auth.Text = "[정상사용자]" ' Me.lb_auth.Text = "[정상사용자]"
Me.lb_auth.ForeColor = Color.Black ' Me.lb_auth.ForeColor = Color.Black
End Select 'End Select
ShowMenu() ShowMenu()
If UserInfo.Type = E_AuthType.Demo Then 'If UserInfo.Type = E_AuthType.Demo Then
If DemoDlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then End ' If DemoDlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then End
End If 'End If
Me.Text = My.Application.Info.ProductName & " Ver. {0}.{1:00}.{2}.{3}" Me.Text = My.Application.Info.ProductName & " Ver. {0}.{1:00}.{2}.{3}"
Me.Text = System.String.Format(Me.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision) Me.Text = System.String.Format(Me.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision)

4
Epole/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' 지정되도록 할 수 있습니다. ' 지정되도록 할 수 있습니다.
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("17.07.17.2200")> <Assembly: AssemblyVersion("19.05.05.2200")>
<Assembly: AssemblyFileVersion("17.07.17.2200")> <Assembly: AssemblyFileVersion("19.05.05.2200")>

3
Epole/ReadMe.txt
View File

@@ -1,4 +1,5 @@
170717 * 가로등입력화면 관리번호2에서 틀고정 190505 인증로직변경
170717 * 가로등입력화면 관리번호2에서 틀고정
* 통합번호찰 프로그램(가로등) 으로 프로그램및 폴더명 모두 수정 * 통합번호찰 프로그램(가로등) 으로 프로그램및 폴더명 모두 수정
* 분리출력시 페이지 이동시에 데이터가 1개 누락되는 현상 제거 * 분리출력시 페이지 이동시에 데이터가 1개 누락되는 현상 제거
170716 170716

105
Epole/dialogForm/DemoDlg.Designer.vb generated
View File

@@ -37,15 +37,10 @@ Partial Class DemoDlg
Me.LabelCopyright = New System.Windows.Forms.Label() Me.LabelCopyright = New System.Windows.Forms.Label()
Me.LabelCompanyName = New System.Windows.Forms.Label() Me.LabelCompanyName = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.lb_ip = New System.Windows.Forms.Label()
Me.lb_expiredate = New System.Windows.Forms.Label() Me.lb_expiredate = New System.Windows.Forms.Label()
Me.lb_usertype = New System.Windows.Forms.Label()
Me.lb_remaincnt = New System.Windows.Forms.Label()
Me.lb_msg = New System.Windows.Forms.Label() Me.lb_msg = New System.Windows.Forms.Label()
Me.TableLayoutPanel.SuspendLayout() Me.TableLayoutPanel.SuspendLayout()
CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -76,7 +71,7 @@ Partial Class DemoDlg
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 46.95652!)) Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 46.95652!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 13.47826!)) Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 13.47826!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 8.0!)) Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 8.0!))
Me.TableLayoutPanel.Size = New System.Drawing.Size(527, 250) Me.TableLayoutPanel.Size = New System.Drawing.Size(527, 235)
Me.TableLayoutPanel.TabIndex = 0 Me.TableLayoutPanel.TabIndex = 0
' '
'LogoPictureBox 'LogoPictureBox
@@ -86,7 +81,7 @@ Partial Class DemoDlg
Me.LogoPictureBox.Location = New System.Drawing.Point(3, 3) Me.LogoPictureBox.Location = New System.Drawing.Point(3, 3)
Me.LogoPictureBox.Name = "LogoPictureBox" Me.LogoPictureBox.Name = "LogoPictureBox"
Me.TableLayoutPanel.SetRowSpan(Me.LogoPictureBox, 7) Me.TableLayoutPanel.SetRowSpan(Me.LogoPictureBox, 7)
Me.LogoPictureBox.Size = New System.Drawing.Size(167, 244) Me.LogoPictureBox.Size = New System.Drawing.Size(167, 229)
Me.LogoPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage Me.LogoPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.LogoPictureBox.TabIndex = 0 Me.LogoPictureBox.TabIndex = 0
Me.LogoPictureBox.TabStop = False Me.LogoPictureBox.TabStop = False
@@ -106,7 +101,7 @@ Partial Class DemoDlg
'LabelVersion 'LabelVersion
' '
Me.LabelVersion.Dock = System.Windows.Forms.DockStyle.Fill Me.LabelVersion.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelVersion.Location = New System.Drawing.Point(180, 24) Me.LabelVersion.Location = New System.Drawing.Point(180, 22)
Me.LabelVersion.Margin = New System.Windows.Forms.Padding(7, 0, 3, 0) Me.LabelVersion.Margin = New System.Windows.Forms.Padding(7, 0, 3, 0)
Me.LabelVersion.MaximumSize = New System.Drawing.Size(0, 16) Me.LabelVersion.MaximumSize = New System.Drawing.Size(0, 16)
Me.LabelVersion.Name = "LabelVersion" Me.LabelVersion.Name = "LabelVersion"
@@ -118,7 +113,7 @@ Partial Class DemoDlg
'LabelCopyright 'LabelCopyright
' '
Me.LabelCopyright.Dock = System.Windows.Forms.DockStyle.Fill Me.LabelCopyright.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelCopyright.Location = New System.Drawing.Point(180, 48) Me.LabelCopyright.Location = New System.Drawing.Point(180, 44)
Me.LabelCopyright.Margin = New System.Windows.Forms.Padding(7, 0, 3, 0) Me.LabelCopyright.Margin = New System.Windows.Forms.Padding(7, 0, 3, 0)
Me.LabelCopyright.MaximumSize = New System.Drawing.Size(0, 16) Me.LabelCopyright.MaximumSize = New System.Drawing.Size(0, 16)
Me.LabelCopyright.Name = "LabelCopyright" Me.LabelCopyright.Name = "LabelCopyright"
@@ -130,7 +125,7 @@ Partial Class DemoDlg
'LabelCompanyName 'LabelCompanyName
' '
Me.LabelCompanyName.Dock = System.Windows.Forms.DockStyle.Fill Me.LabelCompanyName.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelCompanyName.Location = New System.Drawing.Point(180, 72) Me.LabelCompanyName.Location = New System.Drawing.Point(180, 66)
Me.LabelCompanyName.Margin = New System.Windows.Forms.Padding(7, 0, 3, 0) Me.LabelCompanyName.Margin = New System.Windows.Forms.Padding(7, 0, 3, 0)
Me.LabelCompanyName.MaximumSize = New System.Drawing.Size(0, 16) Me.LabelCompanyName.MaximumSize = New System.Drawing.Size(0, 16)
Me.LabelCompanyName.Name = "LabelCompanyName" Me.LabelCompanyName.Name = "LabelCompanyName"
@@ -142,50 +137,22 @@ Partial Class DemoDlg
'Panel1 'Panel1
' '
Me.Panel1.BackColor = System.Drawing.Color.Transparent Me.Panel1.BackColor = System.Drawing.Color.Transparent
Me.Panel1.Controls.Add(Me.Button4)
Me.Panel1.Controls.Add(Me.Button3)
Me.Panel1.Controls.Add(Me.Button2) Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.Button1) Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(176, 211) Me.Panel1.Location = New System.Drawing.Point(176, 196)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(348, 26) Me.Panel1.Size = New System.Drawing.Size(348, 24)
Me.Panel1.TabIndex = 2 Me.Panel1.TabIndex = 2
' '
'Button4
'
Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button4.BackColor = System.Drawing.Color.Transparent
Me.Button4.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button4.Location = New System.Drawing.Point(71, 1)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(62, 25)
Me.Button4.TabIndex = 4
Me.Button4.Text = "인증2(&B)"
Me.Button4.UseVisualStyleBackColor = False
Me.Button4.Visible = False
'
'Button3
'
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button3.BackColor = System.Drawing.Color.Transparent
Me.Button3.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button3.Location = New System.Drawing.Point(2, 1)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(69, 25)
Me.Button3.TabIndex = 3
Me.Button3.Text = "인증1(&A)"
Me.Button3.UseVisualStyleBackColor = False
Me.Button3.Visible = False
'
'Button2 'Button2
' '
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.BackColor = System.Drawing.Color.Transparent Me.Button2.BackColor = System.Drawing.Color.Transparent
Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button2.Location = New System.Drawing.Point(133, 1) Me.Button2.Dock = System.Windows.Forms.DockStyle.Left
Me.Button2.Location = New System.Drawing.Point(0, 0)
Me.Button2.Name = "Button2" Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(83, 25) Me.Button2.Size = New System.Drawing.Size(83, 24)
Me.Button2.TabIndex = 2 Me.Button2.TabIndex = 2
Me.Button2.Text = "홈페이지(&H)" Me.Button2.Text = "홈페이지(&H)"
Me.Button2.UseVisualStyleBackColor = False Me.Button2.UseVisualStyleBackColor = False
@@ -196,7 +163,7 @@ Partial Class DemoDlg
Me.Button1.BackColor = System.Drawing.Color.Transparent Me.Button1.BackColor = System.Drawing.Color.Transparent
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.Button1.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) Me.Button1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Button1.Location = New System.Drawing.Point(284, 1) Me.Button1.Location = New System.Drawing.Point(284, -1)
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(64, 25) Me.Button1.Size = New System.Drawing.Size(64, 25)
Me.Button1.TabIndex = 1 Me.Button1.TabIndex = 1
@@ -207,67 +174,34 @@ Partial Class DemoDlg
' '
Me.TableLayoutPanel1.ColumnCount = 1 Me.TableLayoutPanel1.ColumnCount = 1
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.TableLayoutPanel1.Controls.Add(Me.lb_ip, 0, 4)
Me.TableLayoutPanel1.Controls.Add(Me.lb_expiredate, 0, 1) Me.TableLayoutPanel1.Controls.Add(Me.lb_expiredate, 0, 1)
Me.TableLayoutPanel1.Controls.Add(Me.lb_usertype, 0, 2)
Me.TableLayoutPanel1.Controls.Add(Me.lb_remaincnt, 0, 3)
Me.TableLayoutPanel1.Controls.Add(Me.lb_msg, 0, 0) Me.TableLayoutPanel1.Controls.Add(Me.lb_msg, 0, 0)
Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TableLayoutPanel1.Location = New System.Drawing.Point(173, 95) Me.TableLayoutPanel1.Location = New System.Drawing.Point(173, 87)
Me.TableLayoutPanel1.Margin = New System.Windows.Forms.Padding(0) Me.TableLayoutPanel1.Margin = New System.Windows.Forms.Padding(0)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1" Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 5 Me.TableLayoutPanel1.RowCount = 2
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 25.0!)) Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 25.0!)) Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 25.0!)) Me.TableLayoutPanel1.Size = New System.Drawing.Size(354, 106)
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(354, 113)
Me.TableLayoutPanel1.TabIndex = 3 Me.TableLayoutPanel1.TabIndex = 3
' '
'lb_ip
'
Me.lb_ip.AutoSize = True
Me.lb_ip.Location = New System.Drawing.Point(3, 92)
Me.lb_ip.Name = "lb_ip"
Me.lb_ip.Size = New System.Drawing.Size(53, 12)
Me.lb_ip.TabIndex = 1
Me.lb_ip.Text = "아이피 : "
'
'lb_expiredate 'lb_expiredate
' '
Me.lb_expiredate.AutoSize = True Me.lb_expiredate.AutoSize = True
Me.lb_expiredate.Location = New System.Drawing.Point(3, 23) Me.lb_expiredate.Location = New System.Drawing.Point(3, 53)
Me.lb_expiredate.Name = "lb_expiredate" Me.lb_expiredate.Name = "lb_expiredate"
Me.lb_expiredate.Size = New System.Drawing.Size(77, 12) Me.lb_expiredate.Size = New System.Drawing.Size(77, 12)
Me.lb_expiredate.TabIndex = 0 Me.lb_expiredate.TabIndex = 0
Me.lb_expiredate.Text = "인증만료일 : " Me.lb_expiredate.Text = "인증만료일 : "
' '
'lb_usertype
'
Me.lb_usertype.AutoSize = True
Me.lb_usertype.Location = New System.Drawing.Point(3, 46)
Me.lb_usertype.Name = "lb_usertype"
Me.lb_usertype.Size = New System.Drawing.Size(73, 12)
Me.lb_usertype.TabIndex = 0
Me.lb_usertype.Text = "사용자형태 :"
'
'lb_remaincnt
'
Me.lb_remaincnt.AutoSize = True
Me.lb_remaincnt.Location = New System.Drawing.Point(3, 69)
Me.lb_remaincnt.Name = "lb_remaincnt"
Me.lb_remaincnt.Size = New System.Drawing.Size(93, 12)
Me.lb_remaincnt.TabIndex = 0
Me.lb_remaincnt.Text = "사용가능 횟수 : "
'
'lb_msg 'lb_msg
' '
Me.lb_msg.AutoSize = True Me.lb_msg.AutoSize = True
Me.lb_msg.Dock = System.Windows.Forms.DockStyle.Fill Me.lb_msg.Dock = System.Windows.Forms.DockStyle.Fill
Me.lb_msg.Location = New System.Drawing.Point(3, 0) Me.lb_msg.Location = New System.Drawing.Point(3, 0)
Me.lb_msg.Name = "lb_msg" Me.lb_msg.Name = "lb_msg"
Me.lb_msg.Size = New System.Drawing.Size(348, 23) Me.lb_msg.Size = New System.Drawing.Size(348, 53)
Me.lb_msg.TabIndex = 0 Me.lb_msg.TabIndex = 0
Me.lb_msg.Text = "." Me.lb_msg.Text = "."
Me.lb_msg.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.lb_msg.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -276,7 +210,7 @@ Partial Class DemoDlg
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(547, 266) Me.ClientSize = New System.Drawing.Size(547, 251)
Me.Controls.Add(Me.TableLayoutPanel) Me.Controls.Add(Me.TableLayoutPanel)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False Me.MaximizeBox = False
@@ -298,12 +232,7 @@ Partial Class DemoDlg
Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents lb_expiredate As System.Windows.Forms.Label Friend WithEvents lb_expiredate As System.Windows.Forms.Label
Friend WithEvents lb_usertype As System.Windows.Forms.Label
Friend WithEvents lb_remaincnt As System.Windows.Forms.Label
Friend WithEvents lb_msg As System.Windows.Forms.Label Friend WithEvents lb_msg As System.Windows.Forms.Label
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents lb_ip As System.Windows.Forms.Label
End Class End Class

44
Epole/dialogForm/DemoDlg.vb
View File

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

181
Epole/dialogForm/SplashScreen.vb
View File

@@ -3,7 +3,7 @@
Public NotInheritable Class SplashScreen Public NotInheritable Class SplashScreen
Dim install, installkey As Long Dim install, installkey As Long
Dim auth As New ACC.MyAuth Dim auth As New ACC.MyAuth
Dim Runcnt As Integer = 0 'Dim Runcnt As Integer = 0
Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If My.Application.Info.Title <> "" Then If My.Application.Info.Title <> "" Then
@@ -19,13 +19,30 @@ Public NotInheritable Class SplashScreen
Me.Show() : My.Application.DoEvents() Me.Show() : My.Application.DoEvents()
If Not LoadINI() Then End '//환경파일 불러오기실패시 종료한다. If Not LoadINI() Then End '//환경파일 불러오기실패시 종료한다.
ReadAuth() If Command() <> "ARIN" AndAlso Not ReadAuth() Then '//에러났을떄는 카운터를 확인
'//사용횟수가 10번ㅇ르 초과했는지 확인
Runcnt = Me.ReadAuthcount
If Command().ToUpper = "ARIN2506" Then Dim f As New fAuth()
UserInfo.Type = E_AuthType.Admin '//파라미터로 운영자모드 가능하게 If (f.ShowDialog <> Windows.Forms.DialogResult.OK) Then
End
End If
'If Runcnt >= 10 Then
' Dim NewKey As String = InputBox("인증번호를 입력하세요 (인증번호는 숫자로만 이루어져 있습니다)")
' If IsNumeric(NewKey) = False Then
' MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
' End
' End If
' auth.SetAuth(NewKey, My.Application.Info.DirectoryPath & "\epole.ini")
' MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
' End
'Else
' MsgBox(CStr(10 - Runcnt) & "번의 사용횟수가 남았습니다", MsgBoxStyle.Critical, "실행확인")
'End If
End If End If
'If Command().ToUpper = "ARIN2506" Then
' UserInfo.Type = E_AuthType.Admin '//파라미터로 운영자모드 가능하게
'End If
'If Not ReadAuth() Then DemoDlg.ShowDialog() 'If Not ReadAuth() Then DemoDlg.ShowDialog()
@@ -36,109 +53,77 @@ Public NotInheritable Class SplashScreen
MakeList.Show() MakeList.Show()
Me.Dispose() Me.Dispose()
End Sub End Sub
Private Function ReadAuth() As Boolean Private Function ReadAuthcount() As Integer
Dim RunCnt As Integer = 0
'//기능해제 160516 Dim ini As New MyINI(My.Application.Info.DirectoryPath & "\epole.ini")
UserInfo.Permission = New Char() {"B"} Dim RegDate As String = ini.Read("main", "regdate2", "")
UserInfo.Cnt = 1 Dim CurDate As String = Me.auth.GetDateNumberEnc(Today.AddDays(-10))
UserInfo.ExpireDate = Date.Now.AddYears(1) If RegDate = "" Then '//등록일이없으면 10번카운터를 셋팅한다.
UserInfo.Type = E_AuthType.Normal RunCnt = 1
Return True ini.Write("main", "reg2", RunCnt) '//1일로한다.
ini.Write("main", "regdate2", Me.auth.GetDateNumberEnc(Today)) '//1일로한다.
Else
'//먼저파일에 있는 키를 체크한다. '//상요자가 숫자를 임의로 고칠수있으니 설치된 날짜랑 오늘이랑 10일이상차이나면 횟수에상관없이 사용불가로한다.
Dim Key1 As String = ini.Read("main", "key1", "") If CurDate > RegDate Then
Dim key2 As String = ini.Read("main", "key2", "") MsgBox("프로그램을 사용할 수 없습니다" & vbCrLf & "배포업체에 문의하세요", MsgBoxStyle.Information, "확인")
Dim KeyCnt As String = ini.Read("main", "keycount", "11" & CStr(11).GetHashCode) '//없으면 최대로한다. Return 10
If key2 = "" Then UserInfo.Permission = "A" '//아무것도 없으면 1번메뉴만 실행가능하게한다.
Try
If IsNumeric(KeyCnt.Substring(2)) = False Then
UserInfo.Cnt = 11
UserInfo.Type = E_AuthType.Demo
UserInfo.Permission = "A"
Return False
End If End If
Catch ex As Exception RunCnt = ini.Read("main", "reg2", 10) '//없으면 10으로한다 즉 사용못하게하겠다는거다
UserInfo.Cnt = 11 If RunCnt < 10 Then
UserInfo.Type = E_AuthType.Demo RunCnt += 1
UserInfo.Permission = "A" ini.Write("main", "reg2", RunCnt) '//1일로한다.
Return False
End Try
'//둘다비어있으면 데모상태로한다.
If Key1 = "" AndAlso key2 = "" Then
UserInfo.Type = E_AuthType.Demo
If CStr(11).GetHashCode = KeyCnt.Substring(2) Then '//가져온 카운트랑 10이랑같으면 다썻다는 말이다.
UserInfo.Cnt = 11
Else '//아니라면 아직 무료횟수가 남았다는ㄱ다
Dim Cnt As Integer = KeyCnt.Substring(0, 2) '//02 라고치자
Cnt += 1 '//하나증가해서 기록한다.
ini.Write("main", "keycount", Format(Cnt, "00") & Format(Cnt, "00").GetHashCode)
UserInfo.Cnt = Cnt
End If End If
Return False
End If
Dim auth As New CEpole.Auth
If Key1.IndexOf("%") = -1 Then Key1 = "0%" & Key1
If Not auth.check_key1(Key1) OrElse Not auth.Check_key2(key2) Then '//키중에 오류가있다면 사용불가로한다.
UserInfo.Cnt = 11
UserInfo.Type = E_AuthType.Demo
UserInfo.Permission = "A"
Return False
End If
'//여기까지왓다면 둘다 정상이란소리다. :
'//IP가 맞는지 확인
Dim Cip() As String = GetFirstIP.Split(".")
Dim Cipsum As Short = 0
Dim IPok As Boolean = False
For Each a As String In Cip
Try
Cipsum += Val(a)
Catch ex As Exception
IPok = True
'//아이피에 문제가잇다 이거는 메일보낸다. 그리고 사용은 가능하게한다.
End Try
Next
'If IPok = False Then
' If Cipsum <> Val(Key1.Split("%")(0)) Then '//인증코드의 아이피의 합과 현재아이피의 합이 틀리다면
' UserInfo.Cnt = 11 '//데모상태로 전환한다.
' UserInfo.Type = E_AuthType.Demo
' UserInfo.Permission = "A"
' Return False
' End If
'End If
'//권한정보셋팅
UserInfo.Permission = key2.Split("%")(0).ToCharArray
Dim k() As String = Key1.Split("%")
'//닐짜비교()
Dim Curdate As Date = Today
Dim UserDate As Date = CDate(k(1).Substring(0, 4) & "-" & k(1).Substring(4, 2) & "-" & k(1).Substring(6, 2))
If Curdate > UserDate Then '//지정된날짜가 오늘보다 컷을경우 즉 기간을 오버했다는것이다. 사용불가이다.
UserInfo.Cnt = 11
UserInfo.Type = E_AuthType.Demo
Return False
Else '//정상사용자이다
UserInfo.ExpireDate = UserDate.ToShortDateString
UserInfo.Type = E_AuthType.Normal
Return True
End If End If
If RunCnt >= 10 Then Return 10
Return RunCnt
End Function End Function
Private Function ReadAuth() As Boolean
If install = 0 OrElse installkey = 0 Then
' MsgBox("인증정보가 존재하지 않습니다." & vbCrLf & vbCrLf & "홈페이지 [자료실] 에서 인증번호를 확인하세요" & vbCrLf & "062-382-0411" & vbCrLf & Common.HomePage, MsgBoxStyle.Critical, "확인")
'Process.Start(HomePage)
Return False
End If
Dim 현재날짜값 As Long = auth.GetDateNumber(Now)
If 현재날짜값 > install Then
' MsgBox("사용기간이 초과되었습니다." & vbCrLf & vbCrLf & "홈페이지 [자료실] 에서 인증번호를 확인하세요" & vbCrLf & "062-382-0411" & vbCrLf & Common.HomePage, MsgBoxStyle.Critical, "확인")
'Process.Start(HomePage)
Return False '//만기일을 초과했다면
End If
'Dim FI As New System.IO.FileInfo(My.Application.Info.DirectoryPath & "\epole.ini")
'If (auth.GetDateNumber(FI.LastAccessTimeUtc)) > Now.ToFileTimeUtc Then '//설정파일을 접근한 날짜가 오늘보다 크면 즉 오늘이 조작디었을경우다
' ' MsgBox("사용기간이 초과되었습니다." & vbCrLf & vbCrLf & "홈페이지 [자료실] 에서 인증번호를 확인하세요" & vbCrLf & "062-382-0411" & vbCrLf & Common.HomePage, MsgBoxStyle.Critical, "확인")
' 'Process.Start(HomePage)
' Return False '//만기일을 초과했다면
'End If
Dim 해쉬값 As Integer = install.GetHashCode()
If installkey.ToString <> 해쉬값 Then '//인증정보가 손상되었다면
' MsgBox("인증정보가 손상되었습니다" & vbCrLf & vbCrLf & "홈페이지 [자료실] 에서 인증번호를 확인하세요" & vbCrLf & "062-382-0411" & vbCrLf & Common.HomePage, MsgBoxStyle.Critical, "확인")
'Process.Start(HomePage)
Return False
End If
Rundate = Date.FromFileTimeUtc(install)
Return True
' MsgBox(auth.GetDateNumberEnc(Now))
End Function
Private Sub SetAuth(ByVal NewDate As Date) Private Sub SetAuth(ByVal NewDate As Date)
Dim auth As New ACC.MyAuth Dim auth As New MyAuth
Dim Arinini As New MyINI(My.Application.Info.DirectoryPath & "\epole.ini") Dim Arinini As New MyINI(My.Application.Info.DirectoryPath & "\epole.ini")
Arinini.Write("main", "install", auth.GetDateNumber(NewDate)) Arinini.Write("main", "install2", auth.GetDateNumber(NewDate))
Arinini.Write("main", "installkey", auth.GetDateNumberEnc(NewDate)) Arinini.Write("main", "installkey2", auth.GetDateNumberEnc(NewDate))
MsgBox("기록완료") MsgBox("기록완료")
End Sub End Sub
Private Function LoadINI() As Boolean Private Function LoadINI() As Boolean
Me.lb_msg.Text = "환경설정 데이터를 읽어옵니다" Me.lb_msg.Text = "환경설정 데이터를 읽어옵니다"
@@ -163,8 +148,8 @@ Public NotInheritable Class SplashScreen
Common.ViewFont.FontName = buf(0) Common.ViewFont.FontName = buf(0)
Common.ViewFont.FontSize = buf(1) Common.ViewFont.FontSize = buf(1)
Me.install = Arinini.Read("main", "install", 0) Me.install = Arinini.Read("main", "install2", 0)
Me.installkey = Arinini.Read("main", "installkey", 0) Me.installkey = Arinini.Read("main", "installkey2", 0)
buf = Arinini.Read("main", "menufont", "굴림,9").Split(",") buf = Arinini.Read("main", "menufont", "굴림,9").Split(",")
Common.MenuFont.FontName = buf(0) Common.MenuFont.FontName = buf(0)

30
Epole/업로드폼/XLSImport.vb
View File

@@ -106,11 +106,11 @@ Public Class XLSImport
Dim Nullcnt As Short = 0 Dim Nullcnt As Short = 0
NOTICE("(임시)데이터베이스에 기록합니다(취소불가능)", Me.lb_msg) NOTICE("(임시)데이터베이스에 기록합니다(취소불가능)", Me.lb_msg)
If (Me.tb_ecnt.Text = 0 AndAlso UserInfo.Type = E_AuthType.Demo) OrElse (UserInfo.Type = E_AuthType.Demo AndAlso (Me.tb_ecnt.Text - Me.tb_scnt.Text) > 100) Then 'If (Me.tb_ecnt.Text = 0 AndAlso UserInfo.Type = E_AuthType.Demo) OrElse (UserInfo.Type = E_AuthType.Demo AndAlso (Me.tb_ecnt.Text - Me.tb_scnt.Text) > 100) Then
MsgBox("임시사용자는 자동종료카운트(0)을 사용할 수 없으며" & vbCrLf & vbCrLf & _ ' MsgBox("임시사용자는 자동종료카운트(0)을 사용할 수 없으며" & vbCrLf & vbCrLf & _
"시작카운터와 종료카운터의 범위는 100까지만 가능합니다", MsgBoxStyle.Information, "확인") ' "시작카운터와 종료카운터의 범위는 100까지만 가능합니다", MsgBoxStyle.Information, "확인")
Me.tb_ecnt.Text = Me.tb_scnt.Text + 100 ' Me.tb_ecnt.Text = Me.tb_scnt.Text + 100
End If 'End If
Me.DT_Sknetworks.Rows.Clear() : Me.DT_Sknetworks.AcceptChanges() Me.DT_Sknetworks.Rows.Clear() : Me.DT_Sknetworks.AcceptChanges()
For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//모든로우에해당하는데 시작줄부터한다 For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//모든로우에해당하는데 시작줄부터한다
@@ -190,11 +190,11 @@ Public Class XLSImport
Dim NullCnt As Short = 0 Dim NullCnt As Short = 0
NOTICE("(임시)데이터베이스에 기록합니다(취소불가능)", Me.lb_msg) NOTICE("(임시)데이터베이스에 기록합니다(취소불가능)", Me.lb_msg)
If (Me.tb_ecnt.Text = 0 AndAlso UserInfo.Type = E_AuthType.Demo) OrElse (UserInfo.Type = E_AuthType.Demo AndAlso (Me.tb_ecnt.Text - Me.tb_scnt.Text) > 100) Then 'If (Me.tb_ecnt.Text = 0 AndAlso UserInfo.Type = E_AuthType.Demo) OrElse (UserInfo.Type = E_AuthType.Demo AndAlso (Me.tb_ecnt.Text - Me.tb_scnt.Text) > 100) Then
MsgBox("임시사용자는 자동종료카운트(0)을 사용할 수 없으며" & vbCrLf & vbCrLf & _ ' MsgBox("임시사용자는 자동종료카운트(0)을 사용할 수 없으며" & vbCrLf & vbCrLf & _
"시작카운터와 종료카운터의 범위는 100까지만 가능합니다", MsgBoxStyle.Information, "확인") ' "시작카운터와 종료카운터의 범위는 100까지만 가능합니다", MsgBoxStyle.Information, "확인")
Me.tb_ecnt.Text = Me.tb_scnt.Text + 100 ' Me.tb_ecnt.Text = Me.tb_scnt.Text + 100
End If 'End If
Me.DT_Karo.Rows.Clear() : Me.DT_Karo.AcceptChanges() Me.DT_Karo.Rows.Clear() : Me.DT_Karo.AcceptChanges()
For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//모든로우에해당하는데 시작줄부터한다 For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//모든로우에해당하는데 시작줄부터한다
@@ -297,11 +297,11 @@ Public Class XLSImport
Dim nullcnt As Short = 0 Dim nullcnt As Short = 0
NOTICE("(임시)데이터베이스에 기록합니다(취소불가능)", Me.lb_msg) NOTICE("(임시)데이터베이스에 기록합니다(취소불가능)", Me.lb_msg)
If (Me.tb_ecnt.Text = 0 AndAlso UserInfo.Type = E_AuthType.Demo) OrElse (UserInfo.Type = E_AuthType.Demo AndAlso (Me.tb_ecnt.Text - Me.tb_scnt.Text) > 100) Then 'If (Me.tb_ecnt.Text = 0 AndAlso UserInfo.Type = E_AuthType.Demo) OrElse (UserInfo.Type = E_AuthType.Demo AndAlso (Me.tb_ecnt.Text - Me.tb_scnt.Text) > 100) Then
MsgBox("임시사용자는 자동종료카운트(0)을 사용할 수 없으며" & vbCrLf & vbCrLf & _ ' MsgBox("임시사용자는 자동종료카운트(0)을 사용할 수 없으며" & vbCrLf & vbCrLf & _
"시작카운터와 종료카운터의 범위는 100까지만 가능합니다", MsgBoxStyle.Information, "확인") ' "시작카운터와 종료카운터의 범위는 100까지만 가능합니다", MsgBoxStyle.Information, "확인")
Me.tb_ecnt.Text = Me.tb_scnt.Text + 100 ' Me.tb_ecnt.Text = Me.tb_scnt.Text + 100
End If 'End If
Me.DT_Jdung.Rows.Clear() : Me.DT_Jdung.AcceptChanges() Me.DT_Jdung.Rows.Clear() : Me.DT_Jdung.AcceptChanges()
For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//모든로우에해당하는데 시작줄부터한다 For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//모든로우에해당하는데 시작줄부터한다

8
Epole/입력폼/AddEpole_SkNetworks.vb
View File

@@ -409,10 +409,10 @@ Public Class AddEpole_SKNetworks
MsgBox("현재 선택된 줄은 출력이 되지않도록 설정되어있습니다", MsgBoxStyle.Critical, "확인") MsgBox("현재 선택된 줄은 출력이 되지않도록 설정되어있습니다", MsgBoxStyle.Critical, "확인")
Return Return
End If End If
If UserInfo.Type = E_AuthType.Demo Then 'If UserInfo.Type = E_AuthType.Demo Then
MsgBox("현재 권한은 임시사용자입니다" & vbCrLf & "이 메세지는 임시사용자만 출력됩니다", MsgBoxStyle.Information, "확인") ' MsgBox("현재 권한은 임시사용자입니다" & vbCrLf & "이 메세지는 임시사용자만 출력됩니다", MsgBoxStyle.Information, "확인")
End If 'End If
Dim Aa As New Cls_SkNetworks.PrintForm(Me.DT, IIf(UserInfo.Type = E_AuthType.Admin, True, False), Me.view1.기본스타일인덱스, CType(Me.bs.Current, DataRowView)) Dim Aa As New Cls_SkNetworks.PrintForm(Me.DT, IIf(Admin, True, False), Me.view1.기본스타일인덱스, CType(Me.bs.Current, DataRowView))
Aa.Show() Aa.Show()
End Sub End Sub

8
Epole/입력폼/AddEpole_jdung.vb
View File

@@ -421,10 +421,10 @@ Public Class AddEpole_jDung
MsgBox("현재 선택된 줄은 출력이 되지않도록 설정되어있습니다", MsgBoxStyle.Critical, "확인") MsgBox("현재 선택된 줄은 출력이 되지않도록 설정되어있습니다", MsgBoxStyle.Critical, "확인")
Return Return
End If End If
If UserInfo.Type = E_AuthType.Demo Then 'If UserInfo.Type = E_AuthType.Demo Then
MsgBox("현재 권한은 임시사용자입니다" & vbCrLf & "이 메세지는 임시사용자만 출력됩니다", MsgBoxStyle.Information, "확인") ' MsgBox("현재 권한은 임시사용자입니다" & vbCrLf & "이 메세지는 임시사용자만 출력됩니다", MsgBoxStyle.Information, "확인")
End If 'End If
Dim Aa As New Cls_Jdung.PrintForm(Me.DT, IIf(UserInfo.Type = E_AuthType.Admin, True, False), Me.view1.기본스타일인덱스, CType(Me.bs.Current, DataRowView)) Dim Aa As New Cls_Jdung.PrintForm(Me.DT, IIf(Admin, True, False), Me.view1.기본스타일인덱스, CType(Me.bs.Current, DataRowView))
Aa.Show() Aa.Show()
End Sub End Sub

8
Epole/입력폼/AddEpole_karo.vb
View File

@@ -452,10 +452,10 @@ Public Class AddEpole_karo
MsgBox("현재 선택된 줄은 출력이 되지않도록 설정되어있습니다", MsgBoxStyle.Critical, "확인") MsgBox("현재 선택된 줄은 출력이 되지않도록 설정되어있습니다", MsgBoxStyle.Critical, "확인")
Return Return
End If End If
If UserInfo.Type = E_AuthType.Demo Then 'If UserInfo.Type = E_AuthType.Demo Then
MsgBox("현재 권한은 임시사용자입니다" & vbCrLf & "이 메세지는 임시사용자만 출력됩니다", MsgBoxStyle.Information, "확인") ' MsgBox("현재 권한은 임시사용자입니다" & vbCrLf & "이 메세지는 임시사용자만 출력됩니다", MsgBoxStyle.Information, "확인")
End If 'End If
Dim Aa As New Cls_Karo.PrintForm(Me.DT, IIf(UserInfo.Type = E_AuthType.Admin, True, False), Me.view1.기본스타일인덱스, CType(Me.bs.Current, DataRowView)) Dim Aa As New Cls_Karo.PrintForm(Me.DT, IIf(Admin, True, False), Me.view1.기본스타일인덱스, CType(Me.bs.Current, DataRowView))
Aa.Show() Aa.Show()
End Sub End Sub

10
Epole/통합번호찰_가로등.vbproj
View File

@@ -160,6 +160,13 @@
<Compile Include="dialogForm\Frm_ViewSetup.vb"> <Compile Include="dialogForm\Frm_ViewSetup.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="EnDec.vb" />
<Compile Include="fAuth.Designer.vb">
<DependentUpon>fAuth.vb</DependentUpon>
</Compile>
<Compile Include="fAuth.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form_Work.designer.vb"> <Compile Include="Form_Work.designer.vb">
<DependentUpon>Form_Work.vb</DependentUpon> <DependentUpon>Form_Work.vb</DependentUpon>
</Compile> </Compile>
@@ -266,6 +273,9 @@
<SubType>Designer</SubType> <SubType>Designer</SubType>
<DependentUpon>Frm_ViewSetup.vb</DependentUpon> <DependentUpon>Frm_ViewSetup.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="fAuth.resx">
<DependentUpon>fAuth.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Form_Work.resx"> <EmbeddedResource Include="Form_Work.resx">
<DependentUpon>Form_Work.vb</DependentUpon> <DependentUpon>Form_Work.vb</DependentUpon>
<SubType>Designer</SubType> <SubType>Designer</SubType>

3
Epole/통합번호찰_가로등.vbproj.user
View File

@@ -3,7 +3,8 @@
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<EnableUnmanagedDebugging>false</EnableUnmanagedDebugging> <EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
<EnableSQLServerDebugging>false</EnableSQLServerDebugging> <EnableSQLServerDebugging>false</EnableSQLServerDebugging>
<StartArguments>ARIN25061</StartArguments> <StartArguments>
</StartArguments>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<EnableUnmanagedDebugging>false</EnableUnmanagedDebugging> <EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>

BIN
Epole_통합가로등.v12.suo
View File

Binary file not shown.