farpoint v5, v13 통합

This commit is contained in:
chi
2020-05-24 15:14:12 +09:00
parent e82a1c6728
commit 872fdbf995
292 changed files with 31980 additions and 1093 deletions

View File

@@ -0,0 +1,21 @@
Namespace My
' MyApplication에 대해 다음 이벤트를 사용할 수 있습니다.
'
' Startup: 응용 프로그램이 시작되고 시작 폼이 만들어지기 전에 발생합니다.
' Shutdown: 모든 응용 프로그램 폼이 닫힌 후에 발생합니다. 이 이벤트는 응용 프로그램이 비정상적으로 종료되는 경우에는 발생하지 않습니다.
' UnhandledException: 응용 프로그램에서 처리되지 않은 예외가 발생하는 경우 이 이벤트가 발생합니다.
' StartupNextInstance: 단일 인스턴스 응용 프로그램을 시작할 때 해당 응용 프로그램이 이미 활성 상태인 경우 발생합니다.
' NetworkAvailabilityChanged: 네트워크가 연결되거나 연결이 끊어질 때 발생합니다.
Partial Friend Class MyApplication
Private Sub MyApplication_UnhandledException(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) Handles Me.UnhandledException
MsgBox("처리되지않은 오류가 발생했습니다" & vbCrLf & "정확한 오류발생 상황을 기록해주시면" & vbCrLf & "개발에 많은 도움이됩니다", MsgBoxStyle.Critical, "확인")
Dim Version As String = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Revision
Dim A As New ACC.MailForm("sender@mail.com", "처리되지않은 오류발생", "오류발생 상황을 적어주세요", "전주번호관리프로그램v3(Ver " & Version & ")", ACC.MailForm.MailType.Err, e.Exception.ToString)
A.ShowDialog()
e.ExitApplication = True
End Sub
End Class
End Namespace

View File

@@ -0,0 +1,256 @@
Imports System.Net
Imports System.Net.Dns
Module Common
Enum ESorted
No = 1
YES = 2
NULL = 0
End Enum
Enum E_AuthType
Dev = 1
Normal = 0
adm = 2
Demo = -9
End Enum
Structure S_AuthInfo
Dim Type As E_AuthType '//인증형태
Dim Cnt As Short '//무료사용횟수(데모모드시)
Dim ExpireDate As String
Dim Id As String '//사용자Id
Dim Name As String '//사용자명
Dim authmsg As String
Dim Permission() As Char '//권한
End Structure
Structure Cfont
Dim FontName As String
Dim FontSize As Int16
End Structure
Structure Str_Alllabels '레이블들을 저장한다.
Dim ctl As CEpole.C_label
Dim desc As String
End Structure
Structure SStyle
Dim Desc As String
Dim File As String
Dim Backimg As String
Dim MarginX As Integer
Dim MarginY As Integer
Dim ScaleX As Single
Dim ScaleY As Single
Dim PrintFontOffset As Integer
Dim Viewimage As Boolean
Dim LandScape As Boolean
Dim Dummy As Boolean
Dim Dummytype As Short
Dim dummmyx As Short
Dim dummmyy As Short
Dim picstyle As Short
Dim CanvasX As Integer
Dim CanvasY As Integer
Dim Filter As String
Dim PATTERNTABLE As DataTable
End Structure
Public StyleList() As SStyle
Public RunCnt As Integer = 0
Public RunDate As Date = Date.Now
Public Admin As Boolean = False
Public DataBaseFile As String = My.Application.Info.DirectoryPath & "\database\irea.mdb"
Public ini As New ACC.MyINI(My.Application.Info.DirectoryPath & "\epole.ini")
'Public ConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBaseFile
Public Arin As New ACC.ARINCLASS
Public ArinPath As New ACC.MyPath
Public Auto_Log As Boolean = False '//디비나 각종 로그파일을 쌓을지 여부
Public PICmanFile As String = vbNullString '//그림관리프로그램의 파일명을 적는다.
Public MakeState As String = vbNullString
Public PoleState As String = vbNullString
Public PoleEtcState As String = vbNullString
Public PicState As String = vbNullString '/그림파일연결관리다.
Public HelpWebSite As String = vbNullString '//웹페이지주소 일단은 도움말을 얻기위해쓴다.
Public HomePage As String = vbNullString
Public SORTNULL As Boolean = True '//전주세부-정렬이 번호가 비어잇을경우 가장위에표시할지 아닐지!
Public NUMCOLOR As Boolean '//가공번호찰에서 번호에 색상을 지정할지
'Public Admin As Boolean = False '//개발자모드로 접속햇을때
Public ViewFont As Cfont '//뷰의 글자
Public MenuFont As Cfont '//메뉴의 글자
Public FormFont As Cfont '//폼의 글자
' Public UserInfo As S_AuthInfo '//사용자정보
Public Enum Work_Type
kakong = 0
jijung = 1
suyong = 2
tongsin = 3
karodung = 4
jongakdung = 5
boandung = 6
Sknetworks = 7
Lcable = 8
End Enum
Public Sub Work_Form(ByVal T As String)
Form_Work.Show()
Form_Work.Msg(T)
End Sub
Public Function Get_SavePatternString(ByVal 저장대상 As String, ByVal pc As Boolean, ByVal cp As String, ByVal pl As Boolean, ByVal pstr As String, ByVal plen As Short, _
ByVal pchr As String) As System.Text.StringBuilder
If pc Then cp = "[문자패턴]"
If pl Then cp &= "[길이패턴]"
If cp = "" Then cp = "[패턴없음]"
Dim Msg As New System.Text.StringBuilder("(" & 저장대상 & ")" & " 패턴을 저장합니다")
'//문자패턴이 적용되어있다면 문자패턴으로 적용할 것을 궎장하며 그렇지 않은 경우에는 길이패턴이나 문자패턴을 적절히 권장한다.
'//길이가 5자리이하이고 특수문자(-,;)등이 없는경우에 길이패턴 적용을 권유한다.
Msg.AppendLine()
Msg.AppendLine("패턴 저장방법에는 길이,문자가 있습니다")
Msg.AppendLine("패턴우선순위 : 문자패턴 -> 길이패턴")
Msg.AppendLine()
Msg.AppendLine("현재적용된 패턴 : " & cp)
If pc Then
Msg.AppendLine()
Msg.AppendLine(">> 현재 문자패턴이 적용되어있습니다" & vbCrLf & ">> 문자패턴은 가장우선되는 패턴방식입니다")
Msg.AppendLine(">> 저장시에는 [문자패턴]으로 저장하시기 바랍니다.")
Msg.AppendLine(">> [길이패턴]으로 저장하는것은 의미가 없습니다")
ElseIf pl Then
Msg.AppendLine()
Msg.AppendLine(">> 현재 길이패턴이 적용되어있습니다" & vbCrLf & ">> 패턴은 길이,문자 둘다 저장이 가능합니다")
Else
Msg.AppendLine()
Msg.AppendLine(">> 적용된 패턴이없습니다")
Msg.AppendLine(">> 문자수(길이)가 적은 문자의경우 [길이패턴] 저장을 권장합니다")
End If
Msg.AppendLine()
Msg.AppendLine("길이패턴이란? (문자의 길이가 같을떄 적용)")
Msg.AppendLine(" 선택된문자는 " & pstr & " 이며 길이는 = " & plen & " 입니다")
Msg.AppendLine(" 저장을 하면 " & 저장대상 & " 의 길이가 " & plen & vbCrLf & " 인 문자가 오면 패턴이 적용됩니다")
Msg.AppendLine()
Msg.AppendLine("문자패턴이란? (같은 형태의 문자일때 적용)")
Msg.AppendLine(" 선택된문자는 " & pstr & " 이며 형태는 = " & pchr & " 입니다")
Msg.AppendLine(" 저장을 하면 " & 저장대상 & " 의 형태가 " & pchr & vbCrLf & " 인 문자가 오면 패턴이 적용됩니다")
Msg.AppendLine(" * 1=숫자,0=알파벳문자,H=한글문자,;=특수문자(;),-=특수문자(-)")
Msg.AppendLine()
Msg.AppendLine("패턴우선순위란? (패턴이 중복적용되었을때 높은우선순위가 적용)")
Msg.AppendLine(" 길이,문자 패턴이 둘다 적용되어있을경우 우선순위가 높은")
Msg.AppendLine(" 문자패턴이 최종적으로 적용이 됩니다.(길이패턴은 무시됨)")
Msg.AppendLine()
Msg.AppendLine("# 길이패턴으로 저장하시겠습니까?")
Msg.AppendLine("# 예) 길이저장 , 아니오) 문자저장 , 취소) 취소")
If pc Then Msg.AppendLine("# 문자패턴이 적용되었으므로 [길이패턴] 저장은 의미가 없습니다")
Return Msg
End Function
Public Function Check_auth() As Boolean
'If UserInfo.Type = E_AuthType.Demo Then
' MsgBox("현재권한으로는 이기능을 사용할 수 없습니다", MsgBoxStyle.Critical, "임시사용자권한")
' Return False
'End If
Return True
End Function
Public Sub NOTICE(ByVal MSG As String, ByVal Src As Object)
On Error Resume Next
If Src.GetType.Name.ToUpper = "TOOLSTRIPSTATUSLABEL" Then
CType(Src, ToolStripStatusLabel).Text = "" & MSG & Space(1)
CType(Src, ToolStripStatusLabel).ForeColor = Color.Black
ElseIf Src.GetType.Name.ToUpper = "LABEL" Then
CType(Src, Label).Text = "" & MSG & Space(1)
CType(Src, Label).ForeColor = Color.Black
End If
' My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep)
End Sub
Public Sub NOTICE(ByVal MSG As String, ByVal FCOLOR As Color, ByVal Src As System.Windows.Forms.ToolStripStatusLabel)
Src.Text = "" & MSG & Space(1)
Src.ForeColor = FCOLOR
' My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep)
End Sub
Public Sub ReNum(ByVal Srcspread As NewFp, ByVal NumColumnindex As Integer, Optional ByVal PBar As ProgressBar = Nothing)
If Not PBar Is Nothing Then
PBar.Minimum = 0
PBar.Maximum = Srcspread.ActiveSheet.RowCount
PBar.Value = 0
End If
For Each SR As FarPoint.Win.Spread.Row In Srcspread.ActiveSheet.Rows
If Not PBar Is Nothing Then PBar.Value += 1
Srcspread.ActiveSheet.Cells(SR.Index, NumColumnindex).Value = SR.Index + 1
Next
End Sub
Public Sub AddLog(ByVal t1 As Boolean, ByVal txt As String, Optional ByVal t2fn As String = "")
' If UserInfo.Type = E_AuthType.Dev Then Log.RichTextBox1.AppendText(txt & vbCrLf)
End Sub
Public Sub showlog()
Log.Show()
End Sub
Public Sub hidelog()
Log.Close()
End Sub
Public Sub resetLog()
Log.RichTextBox1.Text = ""
End Sub
Public Sub ReNum(ByRef SrcTable As DataTable, ByVal ColumnName As String, Optional ByVal PBar As ProgressBar = Nothing)
If Not SrcTable.GetChanges Is Nothing Then
MsgBox("변경된 내용이 있습니다" & vbCrLf & vbCrLf & "먼저 저장을 하세요", MsgBoxStyle.Information, "확인")
Return
End If
If MsgBox("모든번호가 새로 갱신됩니다" & vbCrLf & vbCrLf & "계속하시겠습니까?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then
Return
End If
If Not PBar Is Nothing Then
PBar.Minimum = 0
PBar.Maximum = SrcTable.Rows.Count
PBar.Value = 0
End If
Dim i As Integer = 0
Dim DV As New DataView(SrcTable, "", "정렬번호,번호", DataViewRowState.CurrentRows)
Dim DT As DataTable = DV.ToTable
For Each dr As DataRow In DT.Rows
i += 1
dr(ColumnName) = i
If Not PBar Is Nothing Then PBar.Value += 1
Next
SrcTable.Merge(DT)
MsgBox("번호 정렬이 완료되었습니다", MsgBoxStyle.Information, "확인")
End Sub
Public Function GetFirstIP() As String '//ip주소보기
Dim objAddress() As Net.IPAddress
'Dim IA As Net.IPAddress
Dim B(15) As Byte
Dim sAns As String = vbNullString
objAddress = Dns.GetHostEntry(GetHostName).AddressList
Try
Return objAddress(0).ToString
Catch ex As Exception
Return ""
End Try
End Function
End Module

414
SpreadNet.v13/Epole/Config.Designer.vb generated Normal file
View File

@@ -0,0 +1,414 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Config
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.tb_ur = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.cmb_ml = New System.Windows.Forms.ComboBox()
Me.cmb_dl = New System.Windows.Forms.ComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.tbgdfgd = New System.Windows.Forms.TextBox()
Me.bt_fw = New System.Windows.Forms.Button()
Me.bt_dv = New System.Windows.Forms.Button()
Me.tb_fds = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.bt_mm = New System.Windows.Forms.Button()
Me.tb_mf = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.bt_ok = New System.Windows.Forms.Button()
Me.bt_c = New System.Windows.Forms.Button()
Me.cmb_pc = New System.Windows.Forms.ComboBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.cmb_sdt = New System.Windows.Forms.ComboBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.SORTCHK = New System.Windows.Forms.CheckBox()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.chb_numcolor = New NewControlGroup.NewChkBox()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(33, 21)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(117, 12)
Me.Label1.TabIndex = 0
Me.Label1.Text = "사용자정의 실행파일"
'
'tb_ur
'
Me.tb_ur.Location = New System.Drawing.Point(156, 15)
Me.tb_ur.Name = "tb_ur"
Me.tb_ur.Size = New System.Drawing.Size(233, 21)
Me.tb_ur.TabIndex = 0
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(395, 15)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(56, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "찾기"
Me.Button1.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(41, 47)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(109, 12)
Me.Label2.TabIndex = 3
Me.Label2.Text = "제작목록 시작 상태"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(6, 71)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(143, 12)
Me.Label3.TabIndex = 4
Me.Label3.Text = "(가공)세부목록 시작 상태"
'
'cmb_ml
'
Me.cmb_ml.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmb_ml.FormattingEnabled = True
Me.cmb_ml.Items.AddRange(New Object() {"일반", "최대화", "최소화"})
Me.cmb_ml.Location = New System.Drawing.Point(156, 42)
Me.cmb_ml.Name = "cmb_ml"
Me.cmb_ml.Size = New System.Drawing.Size(76, 20)
Me.cmb_ml.TabIndex = 2
'
'cmb_dl
'
Me.cmb_dl.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmb_dl.FormattingEnabled = True
Me.cmb_dl.Items.AddRange(New Object() {"일반", "최대화", "최소화"})
Me.cmb_dl.Location = New System.Drawing.Point(156, 68)
Me.cmb_dl.Name = "cmb_dl"
Me.cmb_dl.Size = New System.Drawing.Size(76, 20)
Me.cmb_dl.TabIndex = 3
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(41, 149)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(109, 12)
Me.Label4.TabIndex = 7
Me.Label4.Text = "폼윈도우 글꼴 설정"
'
'tbgdfgd
'
Me.tbgdfgd.BackColor = System.Drawing.Color.Gainsboro
Me.tbgdfgd.Location = New System.Drawing.Point(156, 144)
Me.tbgdfgd.Name = "tbgdfgd"
Me.tbgdfgd.ReadOnly = True
Me.tbgdfgd.Size = New System.Drawing.Size(76, 21)
Me.tbgdfgd.TabIndex = 6
'
'bt_fw
'
Me.bt_fw.Location = New System.Drawing.Point(237, 143)
Me.bt_fw.Name = "bt_fw"
Me.bt_fw.Size = New System.Drawing.Size(56, 23)
Me.bt_fw.TabIndex = 7
Me.bt_fw.Text = "변경"
Me.bt_fw.UseVisualStyleBackColor = True
'
'bt_dv
'
Me.bt_dv.Location = New System.Drawing.Point(237, 170)
Me.bt_dv.Name = "bt_dv"
Me.bt_dv.Size = New System.Drawing.Size(56, 23)
Me.bt_dv.TabIndex = 9
Me.bt_dv.Text = "변경"
Me.bt_dv.UseVisualStyleBackColor = True
'
'tb_fds
'
Me.tb_fds.BackColor = System.Drawing.Color.Gainsboro
Me.tb_fds.Location = New System.Drawing.Point(156, 171)
Me.tb_fds.Name = "tb_fds"
Me.tb_fds.ReadOnly = True
Me.tb_fds.Size = New System.Drawing.Size(76, 21)
Me.tb_fds.TabIndex = 8
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(41, 175)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(109, 12)
Me.Label5.TabIndex = 10
Me.Label5.Text = "데이터뷰 글꼴 설정"
'
'bt_mm
'
Me.bt_mm.Location = New System.Drawing.Point(237, 197)
Me.bt_mm.Name = "bt_mm"
Me.bt_mm.Size = New System.Drawing.Size(56, 23)
Me.bt_mm.TabIndex = 11
Me.bt_mm.Text = "변경"
Me.bt_mm.UseVisualStyleBackColor = True
'
'tb_mf
'
Me.tb_mf.BackColor = System.Drawing.Color.Gainsboro
Me.tb_mf.Location = New System.Drawing.Point(156, 198)
Me.tb_mf.Name = "tb_mf"
Me.tb_mf.ReadOnly = True
Me.tb_mf.Size = New System.Drawing.Size(76, 21)
Me.tb_mf.TabIndex = 10
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(65, 201)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(85, 12)
Me.Label6.TabIndex = 13
Me.Label6.Text = "메뉴 글꼴 설정"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.ForeColor = System.Drawing.Color.Firebrick
Me.Label7.Location = New System.Drawing.Point(15, 397)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(221, 12)
Me.Label7.TabIndex = 16
Me.Label7.Text = "< 특정부분은 재시작 후에 적용됩니다 >"
'
'bt_ok
'
Me.bt_ok.Location = New System.Drawing.Point(12, 343)
Me.bt_ok.Name = "bt_ok"
Me.bt_ok.Size = New System.Drawing.Size(256, 49)
Me.bt_ok.TabIndex = 1
Me.bt_ok.Text = "확인"
Me.bt_ok.UseVisualStyleBackColor = True
'
'bt_c
'
Me.bt_c.Location = New System.Drawing.Point(274, 343)
Me.bt_c.Name = "bt_c"
Me.bt_c.Size = New System.Drawing.Size(222, 49)
Me.bt_c.TabIndex = 2
Me.bt_c.Text = "취소"
Me.bt_c.UseVisualStyleBackColor = True
'
'cmb_pc
'
Me.cmb_pc.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmb_pc.FormattingEnabled = True
Me.cmb_pc.Items.AddRange(New Object() {"일반", "최대화", "최소화"})
Me.cmb_pc.Location = New System.Drawing.Point(156, 117)
Me.cmb_pc.Name = "cmb_pc"
Me.cmb_pc.Size = New System.Drawing.Size(76, 20)
Me.cmb_pc.TabIndex = 5
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(13, 122)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(137, 12)
Me.Label8.TabIndex = 19
Me.Label8.Text = "그림파일 관리 시작 상태"
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Location = New System.Drawing.Point(12, 12)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(484, 329)
Me.TabControl1.TabIndex = 0
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.cmb_sdt)
Me.TabPage1.Controls.Add(Me.Label9)
Me.TabPage1.Controls.Add(Me.tb_ur)
Me.TabPage1.Controls.Add(Me.cmb_pc)
Me.TabPage1.Controls.Add(Me.Label1)
Me.TabPage1.Controls.Add(Me.Label8)
Me.TabPage1.Controls.Add(Me.Button1)
Me.TabPage1.Controls.Add(Me.Label2)
Me.TabPage1.Controls.Add(Me.Label3)
Me.TabPage1.Controls.Add(Me.cmb_ml)
Me.TabPage1.Controls.Add(Me.bt_mm)
Me.TabPage1.Controls.Add(Me.cmb_dl)
Me.TabPage1.Controls.Add(Me.tb_mf)
Me.TabPage1.Controls.Add(Me.Label4)
Me.TabPage1.Controls.Add(Me.Label6)
Me.TabPage1.Controls.Add(Me.tbgdfgd)
Me.TabPage1.Controls.Add(Me.bt_dv)
Me.TabPage1.Controls.Add(Me.bt_fw)
Me.TabPage1.Controls.Add(Me.tb_fds)
Me.TabPage1.Controls.Add(Me.Label5)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(476, 303)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "일반설정"
Me.TabPage1.UseVisualStyleBackColor = True
'
'cmb_sdt
'
Me.cmb_sdt.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmb_sdt.FormattingEnabled = True
Me.cmb_sdt.Items.AddRange(New Object() {"일반", "최대화", "최소화"})
Me.cmb_sdt.Location = New System.Drawing.Point(156, 93)
Me.cmb_sdt.Name = "cmb_sdt"
Me.cmb_sdt.Size = New System.Drawing.Size(76, 20)
Me.cmb_sdt.TabIndex = 4
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(6, 96)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(143, 12)
Me.Label9.TabIndex = 21
Me.Label9.Text = "(수용)세부목록 시작 상태"
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.SORTCHK)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(476, 303)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "전주세부"
Me.TabPage2.UseVisualStyleBackColor = True
'
'SORTCHK
'
Me.SORTCHK.AutoSize = True
Me.SORTCHK.Location = New System.Drawing.Point(15, 16)
Me.SORTCHK.Name = "SORTCHK"
Me.SORTCHK.Size = New System.Drawing.Size(280, 16)
Me.SORTCHK.TabIndex = 0
Me.SORTCHK.Text = "정렬시 번호값이 비어있을경우 위에 표시합니다"
Me.SORTCHK.UseVisualStyleBackColor = True
Me.SORTCHK.Visible = False
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.chb_numcolor)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(476, 303)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "가공출력"
Me.TabPage3.UseVisualStyleBackColor = True
'
'chb_numcolor
'
Me.chb_numcolor.A_CheckValue = Nothing
Me.chb_numcolor.A_OtherValue = False
Me.chb_numcolor.A_UnCheckVal = Nothing
Me.chb_numcolor.AutoSize = True
Me.chb_numcolor.Checked = True
Me.chb_numcolor.CheckState = System.Windows.Forms.CheckState.Checked
Me.chb_numcolor.Location = New System.Drawing.Point(12, 17)
Me.chb_numcolor.Name = "chb_numcolor"
Me.chb_numcolor.Size = New System.Drawing.Size(124, 16)
Me.chb_numcolor.TabIndex = 0
Me.chb_numcolor.Text = "전주번호 색상구분"
Me.chb_numcolor.UseVisualStyleBackColor = True
Me.chb_numcolor.Value = Nothing
'
'Config
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(512, 415)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.bt_ok)
Me.Controls.Add(Me.bt_c)
Me.Controls.Add(Me.Label7)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Config"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "프로그램 설정"
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
Me.TabPage2.ResumeLayout(False)
Me.TabPage2.PerformLayout()
Me.TabPage3.ResumeLayout(False)
Me.TabPage3.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents tb_ur As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents cmb_ml As System.Windows.Forms.ComboBox
Friend WithEvents cmb_dl As System.Windows.Forms.ComboBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents tbgdfgd As System.Windows.Forms.TextBox
Friend WithEvents bt_fw As System.Windows.Forms.Button
Friend WithEvents bt_dv As System.Windows.Forms.Button
Friend WithEvents tb_fds As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents bt_mm As System.Windows.Forms.Button
Friend WithEvents tb_mf As System.Windows.Forms.TextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents bt_ok As System.Windows.Forms.Button
Friend WithEvents bt_c As System.Windows.Forms.Button
Friend WithEvents cmb_pc As System.Windows.Forms.ComboBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents SORTCHK As System.Windows.Forms.CheckBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents cmb_sdt As System.Windows.Forms.ComboBox
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
Friend WithEvents chb_numcolor As NewControlGroup.NewChkBox
End Class

View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@@ -0,0 +1,156 @@
Imports ACC.ARINCLASS
Imports ACC
Public Class Config
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_c.Click
Me.Dispose()
End Sub
Private Sub Config_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.tb_ur.Text = PICmanFile
Select Case MakeState.ToUpper
Case "MAX"
Me.cmb_ml.Text = "최대화"
Case "MIN"
Me.cmb_ml.Text = "최소화"
Case Else
Me.cmb_ml.Text = "일반"
End Select
Select Case PoleState.ToUpper
Case "MAX"
Me.cmb_dl.Text = "최대화"
Case "MIN"
Me.cmb_dl.Text = "최소화"
Case Else
Me.cmb_dl.Text = "일반"
End Select
Select Case PoleEtcState.ToUpper
Case "MAX"
Me.cmb_sdt.Text = "최대화"
Case "MIN"
Me.cmb_sdt.Text = "최소화"
Case Else
Me.cmb_sdt.Text = "일반"
End Select
Select Case PicState.ToUpper
Case "MAX"
Me.cmb_pc.Text = "최대화"
Case "MIN"
Me.cmb_pc.Text = "최소화"
Case Else
Me.cmb_pc.Text = "일반"
End Select
Me.tbgdfgd.Text = FormFont.FontName & "," & FormFont.FontSize
Me.tb_fds.Text = ViewFont.FontName & "," & ViewFont.FontSize
Me.tb_mf.Text = MenuFont.FontName & "," & MenuFont.FontSize
Me.SORTCHK.Checked = SORTNULL
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A As New OpenFileDialog
If A.ShowDialog <> System.Windows.Forms.DialogResult.OK Then Return
Me.tb_ur.Text = A.FileName.Replace(My.Application.Info.DirectoryPath, "")
End Sub
Private Sub bt_확인_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_ok.Click
Dim INI As New MyINI(My.Application.Info.DirectoryPath & "\epole.ini")
Dim SpINI As New MyINI(My.Application.Info.DirectoryPath & "\spread.ini")
INI.Write("main", "picman", Me.tb_ur.Text)
PICmanFile = Me.tb_ur.Text
Select Case Me.cmb_ml.Text
Case "최대화"
INI.Write("main", "MakeState", "max")
MakeState = "max"
Case "최소화"
INI.Write("main", "MakeState", "min")
MakeState = "min"
Case Else
MakeState = "normal"
INI.Write("nor", "MakeState", "nor")
End Select
Select Case Me.cmb_dl.Text
Case "최대화"
INI.Write("main", "PoleState", "max")
PoleState = "max"
Case "최소화"
INI.Write("main", "PoleState", "min")
PoleState = "min"
Case Else
INI.Write("main", "PoleState", "nor")
PoleState = "nor"
End Select
Select Case Me.cmb_sdt.Text
Case "최대화"
INI.Write("main", "PoleEtcState", "max")
PoleState = "max"
Case "최소화"
INI.Write("main", "PoleEtcState", "min")
PoleState = "min"
Case Else
INI.Write("main", "PoleEtcState", "nor")
PoleState = "nor"
End Select
Select Case Me.cmb_pc.Text
Case "최대화"
INI.Write("main", "PicState", "max")
PicState = "max"
Case "최소화"
INI.Write("main", "PicState", "min")
PicState = "min"
Case Else
INI.Write("main", "PicState", "nor")
PicState = "nor"
End Select
SORTNULL = Me.SORTCHK.Checked
NUMCOLOR = Me.chb_numcolor.Checked
INI.Write("MAIN", "SortNull", Me.SORTCHK.Checked)
INI.Write("main", "formfont", Me.tbgdfgd.Text)
INI.Write("main", "viewfont", Me.tb_fds.Text)
INI.Write("main", "menufont", Me.tb_mf.Text)
INI.Write("main", "NUMCOLOR", Me.chb_numcolor.Checked)
FormFont.FontName = Me.tbgdfgd.Text.Split(",")(0)
FormFont.FontSize = Me.tbgdfgd.Text.Split(",")(1)
ViewFont.FontName = Me.tb_fds.Text.Split(",")(0)
ViewFont.FontSize = Me.tb_fds.Text.Split(",")(1)
MenuFont.FontName = Me.tb_mf.Text.Split(",")(0)
MenuFont.FontSize = Me.tb_mf.Text.Split(",")(1)
MSG("저장이완료되었습니다\n\n일부데이터는 프로그램이 재시작되면 반영됩니다.", MsgBoxStyle.Information, "저장완료")
Me.Dispose()
End Sub
Private Sub bt_폼윈도버튼_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_fw.Click
Dim A As New FontDialog
Dim OFont As New Font(FormFont.FontName, FormFont.FontSize, Me.Font.Style)
A.Font = OFont
If A.ShowDialog <> System.Windows.Forms.DialogResult.OK Then Return
Me.tbgdfgd.Text = A.Font.Name & "," & A.Font.Size
End Sub
Private Sub bt_데이터뷰버튼_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_dv.Click
Dim A As New FontDialog
Dim OFont As New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style)
A.Font = OFont
If A.ShowDialog <> System.Windows.Forms.DialogResult.OK Then Return
Me.tb_fds.Text = A.Font.Name & "," & A.Font.Size
End Sub
Private Sub bt_메뉴버튼_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_mm.Click
Dim A As New FontDialog
Dim OFont As New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style)
A.Font = OFont
If A.ShowDialog <> System.Windows.Forms.DialogResult.OK Then Return
Me.tb_mf.Text = A.Font.Name & "," & A.Font.Size
End Sub
End Class

Binary file not shown.

View File

@@ -0,0 +1,137 @@
Imports System.Security.Cryptography
Public Class EnDec
Private TripleDes As New TripleDESCryptoServiceProvider
Sub New(ByVal key As String)
' Initialize the crypto provider.
TripleDes.Key = TruncateHash(key, TripleDes.KeySize \ 8)
TripleDes.IV = TruncateHash("", TripleDes.BlockSize \ 8)
End Sub
Private Function TruncateHash( _
ByVal key As String, _
ByVal length As Integer) _
As Byte()
Dim sha1 As New SHA1CryptoServiceProvider
' Hash the key.
Dim keyBytes() As Byte = _
System.Text.Encoding.Unicode.GetBytes(key)
Dim hash() As Byte = sha1.ComputeHash(keyBytes)
' Truncate or pad the hash.
ReDim Preserve hash(length - 1)
Return hash
End Function
''' <summary>
''' 문자열의 암호화
''' </summary>
''' <param name="plaintext"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function EncryptData( _
ByVal plaintext As String) _
As String
' Convert the plaintext string to a byte array.
Dim plaintextBytes() As Byte = _
System.Text.Encoding.Unicode.GetBytes(plaintext)
' Create the stream.
Dim ms As New System.IO.MemoryStream
' Create the encoder to write to the stream.
Dim encStream As New CryptoStream(ms, _
TripleDes.CreateEncryptor(), _
System.Security.Cryptography.CryptoStreamMode.Write)
' Use the crypto stream to write the byte array to the stream.
encStream.Write(plaintextBytes, 0, plaintextBytes.Length)
encStream.FlushFinalBlock()
' Convert the encrypted stream to a printable string.
Return Convert.ToBase64String(ms.ToArray)
End Function
''' <summary>
''' 복호화'
''' </summary>
''' <param name="encryptedtext"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function DecryptData( _
ByVal encryptedtext As String) _
As String
' Convert the encrypted text string to a byte array.
Dim encryptedBytes() As Byte = Convert.FromBase64String(encryptedtext)
' Create the stream.
Dim ms As New System.IO.MemoryStream
' Create the decoder to write to the stream.
Dim decStream As New CryptoStream(ms, _
TripleDes.CreateDecryptor(), _
System.Security.Cryptography.CryptoStreamMode.Write)
' Use the crypto stream to write the byte array to the stream.
decStream.Write(encryptedBytes, 0, encryptedBytes.Length)
decStream.FlushFinalBlock()
' Convert the plaintext stream to a string.
Return System.Text.Encoding.Unicode.GetString(ms.ToArray, 0, ms.Length)
End Function
''' <summary>
''' 파일로부터 문자열을 읽어옵니다.
''' </summary>
''' <param name="Filename"></param>
''' <remarks></remarks>
Public Function Read_STring(ByVal Filename As String) As String
Dim FI As New System.IO.FileInfo(Filename)
If FI.Exists = False Then
MsgBox("필수파일이 존재하지않습니다", MsgBoxStyle.Critical, "확인")
Return ""
End If
Dim FS As New System.IO.FileStream(FI.FullName, IO.FileMode.Open)
Dim SR As New System.IO.StreamReader(FS, System.Text.Encoding.Default)
Dim cipherText As String = SR.ReadToEnd
SR.Close()
FS.Close()
' DecryptData throws if the wrong password is used.
Try
Dim plainText As String = DecryptData(cipherText)
Return plainText
'MsgBox("해독값은? " & plainText)
Catch ex As System.Security.Cryptography.CryptographicException
Return ""
MsgBox("암호화키가 일치하지않거나 기타 오류입니다")
End Try
End Function
''' <summary>
''' 파일에 해당 문자열을 기록합니다.
''' </summary>
''' <param name="Filename"></param>
''' <param name="Contents"></param>
''' <remarks></remarks>
Public Sub Write_String(ByVal Filename As String, ByVal Contents As String)
Dim cipherText As String = EncryptData(Contents)
Dim FI As New System.IO.FileInfo(Filename)
Dim FS As New System.IO.FileStream(FI.FullName, IO.FileMode.Create)
Dim SW As New System.IO.StreamWriter(FS, System.Text.Encoding.Default)
'MsgBox("암호화된값은? " & cipherText)
SW.Write(cipherText)
SW.Flush()
SW.Close()
FS.Close()
End Sub
End Class

View File

@@ -0,0 +1,66 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form_Work
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar
Me.Label1 = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'ProgressBar1
'
Me.ProgressBar1.Location = New System.Drawing.Point(13, 43)
Me.ProgressBar1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.ProgressBar1.Name = "ProgressBar1"
Me.ProgressBar1.Size = New System.Drawing.Size(388, 16)
Me.ProgressBar1.TabIndex = 0
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(13, 10)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(388, 26)
Me.Label1.TabIndex = 1
Me.Label1.Text = "..."
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Form_Work
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(413, 68)
Me.ControlBox = False
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ProgressBar1)
Me.Font = New System.Drawing.Font("맑은 고딕", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.Name = "Form_Work"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "잠시만 기다려주세요."
Me.TopMost = True
Me.ResumeLayout(False)
End Sub
Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
Friend WithEvents Label1 As System.Windows.Forms.Label
End Class

View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@@ -0,0 +1,21 @@
Public Class Form_Work
Public Sub Msg(ByVal t As String)
Me.Label1.Text = t
My.Application.DoEvents()
End Sub
Public Property pval() As Integer
Get
Return Me.ProgressBar1.Value
End Get
Set(ByVal value As Integer)
If value < Me.ProgressBar1.Maximum Then Me.ProgressBar1.Value = value
End Set
End Property
Private Sub Form_Work_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.Show()
My.Application.DoEvents()
End Sub
End Class

50
SpreadNet.v13/Epole/Frm_Log.Designer.vb generated Normal file
View File

@@ -0,0 +1,50 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_Log
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox
Me.SuspendLayout()
'
'RichTextBox1
'
Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.RichTextBox1.Location = New System.Drawing.Point(0, 0)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(694, 552)
Me.RichTextBox1.TabIndex = 0
Me.RichTextBox1.Text = ""
'
'Frm_Log
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(694, 552)
Me.Controls.Add(Me.RichTextBox1)
Me.Name = "Frm_Log"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "기록창"
Me.ResumeLayout(False)
End Sub
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
End Class

View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@@ -0,0 +1,3 @@
Public Class Frm_Log
End Class

View File

@@ -0,0 +1,2 @@
190223 chi 스타일목록에서 마우스 우클릭으로 숨김/표시 처리가 가능함(단 관리자 로그인 시)
180117 chi *cls_tonshin 에서 간선과 전주번호 길이 최대값을 10에서 20으로 수정

49
SpreadNet.v13/Epole/Log.Designer.vb generated Normal file
View File

@@ -0,0 +1,49 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Log
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox
Me.SuspendLayout()
'
'RichTextBox1
'
Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.RichTextBox1.Location = New System.Drawing.Point(0, 0)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(525, 511)
Me.RichTextBox1.TabIndex = 0
Me.RichTextBox1.Text = ""
'
'Log
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(525, 511)
Me.Controls.Add(Me.RichTextBox1)
Me.Name = "Log"
Me.Text = "Log"
Me.ResumeLayout(False)
End Sub
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
End Class

View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@@ -0,0 +1,3 @@
Public Class Log
End Class

789
SpreadNet.v13/Epole/MakeList.Designer.vb generated Normal file
View File

@@ -0,0 +1,789 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class MakeList
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MakeList))
Dim CheckBoxCellType1 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType()
Dim ButtonCellType1 As FarPoint.Win.Spread.CellType.ButtonCellType = New FarPoint.Win.Spread.CellType.ButtonCellType()
Dim DateTimeCellType1 As FarPoint.Win.Spread.CellType.DateTimeCellType = New FarPoint.Win.Spread.CellType.DateTimeCellType()
Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType()
Dim NumberCellType1 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType()
Dim CurrencyCellType1 As FarPoint.Win.Spread.CellType.CurrencyCellType = New FarPoint.Win.Spread.CellType.CurrencyCellType()
Dim CurrencyCellType2 As FarPoint.Win.Spread.CellType.CurrencyCellType = New FarPoint.Win.Spread.CellType.CurrencyCellType()
Dim ComboBoxCellType1 As FarPoint.Win.Spread.CellType.ComboBoxCellType = New FarPoint.Win.Spread.CellType.ComboBoxCellType()
Me.PRB1 = New System.Windows.Forms.ToolStripProgressBar()
Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox()
Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.bt_commit = New System.Windows.Forms.ToolStripButton()
Me.bt_cancel = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.lb_auth = New System.Windows.Forms.ToolStripStatusLabel()
Me.lb_change = New System.Windows.Forms.ToolStripStatusLabel()
Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel()
Me.bn = New System.Windows.Forms.BindingNavigator(Me.components)
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
Me.DS = New EpoleNetv3.DataSet()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.bt_close = New System.Windows.Forms.ToolStripButton()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.bt_savecolsize = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
Me.bt_find = New System.Windows.Forms.ToolStripMenuItem()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.bt_programs = New System.Windows.Forms.ToolStripMenuItem()
Me.mbt_config = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
Me.mb_exit = New System.Windows.Forms.ToolStripMenuItem()
Me.mbt_addnew = New System.Windows.Forms.ToolStripMenuItem()
Me.mbt_newtongsin = New System.Windows.Forms.ToolStripMenuItem()
Me.mbt_02 = New System.Windows.Forms.ToolStripMenuItem()
Me.mbt_homepage = New System.Windows.Forms.ToolStripMenuItem()
Me.bt_about = New System.Windows.Forms.ToolStripMenuItem()
Me.mbT_about = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator()
Me.bt_howto = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
Me.ta_main = New EpoleNetv3.DataSetTableAdapters.MainTableTableAdapter()
Me.ta_jju = New EpoleNetv3.DataSetTableAdapters.Detail_tongsinTableAdapter()
Me.view1 = New NewFp()
Me.view1_Sheet1 = New FarPoint.Win.Spread.SheetView()
Me.StatusStrip1.SuspendLayout()
CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit()
Me.bn.SuspendLayout()
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
CType(Me.view1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'PRB1
'
Me.PRB1.Name = "PRB1"
Me.PRB1.Size = New System.Drawing.Size(100, 16)
'
'BindingNavigatorCountItem
'
Me.BindingNavigatorCountItem.Enabled = False
Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(29, 36)
Me.BindingNavigatorCountItem.Text = "/0"
Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수"
'
'BindingNavigatorMoveFirstItem
'
Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorMoveFirstItem.Enabled = False
Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True
Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 36)
Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동"
'
'BindingNavigatorMoveLastItem
'
Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorMoveLastItem.Enabled = False
Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True
Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 36)
Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동"
'
'BindingNavigatorMoveNextItem
'
Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorMoveNextItem.Enabled = False
Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True
Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 36)
Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동"
'
'BindingNavigatorMovePreviousItem
'
Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorMovePreviousItem.Enabled = False
Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image)
Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True
Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 36)
Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동"
'
'BindingNavigatorPositionItem
'
Me.BindingNavigatorPositionItem.AccessibleName = "위치"
Me.BindingNavigatorPositionItem.AutoSize = False
Me.BindingNavigatorPositionItem.Enabled = False
Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(25, 21)
Me.BindingNavigatorPositionItem.Text = "0"
Me.BindingNavigatorPositionItem.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center
Me.BindingNavigatorPositionItem.ToolTipText = "현재 위치"
'
'BindingNavigatorSeparator
'
Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 39)
'
'BindingNavigatorSeparator1
'
Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 39)
'
'BindingNavigatorSeparator2
'
Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 39)
'
'BindingNavigatorDeleteItem
'
Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True
Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(95, 36)
Me.BindingNavigatorDeleteItem.Text = "줄삭제(&D)"
Me.BindingNavigatorDeleteItem.ToolTipText = "현재 선퇙된 줄을 삭제합니다.(이것은 SHIFT+DELETE)와 같습니다"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 39)
'
'bt_commit
'
Me.bt_commit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.bt_commit.Name = "bt_commit"
Me.bt_commit.Size = New System.Drawing.Size(99, 36)
Me.bt_commit.Text = "변경내용저장(&S)"
Me.bt_commit.ToolTipText = "변경된 내용을 데이터베이스에 저장합니다"
'
'bt_cancel
'
Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta
Me.bt_cancel.Name = "bt_cancel"
Me.bt_cancel.Size = New System.Drawing.Size(100, 36)
Me.bt_cancel.Text = "변경내용취소(&C)"
Me.bt_cancel.ToolTipText = "변경된 내용을 모두 취소합니다"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 39)
'
'ToolStripButton1
'
Me.ToolStripButton1.BackColor = System.Drawing.Color.Transparent
Me.ToolStripButton1.Checked = True
Me.ToolStripButton1.CheckState = System.Windows.Forms.CheckState.Checked
Me.ToolStripButton1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.ToolStripButton1.Image = Global.EpoleNetv3.My.Resources.Resources.stop_32
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(88, 36)
Me.ToolStripButton1.Text = "닫기(&X)"
Me.ToolStripButton1.ToolTipText = "현재 창을 닫습니다"
'
'ToolTip1
'
Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info
Me.ToolTip1.ToolTipTitle = "간편도움말"
'
'StatusStrip1
'
Me.StatusStrip1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_auth, Me.lb_change, Me.lb_msg})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 579)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(883, 22)
Me.StatusStrip1.TabIndex = 15
Me.StatusStrip1.Text = "StatusStrip1"
'
'lb_auth
'
Me.lb_auth.Name = "lb_auth"
Me.lb_auth.Size = New System.Drawing.Size(53, 17)
Me.lb_auth.Text = "[관리자]"
'
'lb_change
'
Me.lb_change.Name = "lb_change"
Me.lb_change.Size = New System.Drawing.Size(17, 17)
Me.lb_change.Text = ""
'
'lb_msg
'
Me.lb_msg.Name = "lb_msg"
Me.lb_msg.Size = New System.Drawing.Size(29, 17)
Me.lb_msg.Text = "알림"
'
'bn
'
Me.bn.AddNewItem = Nothing
Me.bn.BindingSource = Me.bs
Me.bn.CountItem = Me.ToolStripLabel1
Me.bn.DeleteItem = Nothing
Me.bn.Dock = System.Windows.Forms.DockStyle.Bottom
Me.bn.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.bn.ImageScalingSize = New System.Drawing.Size(30, 30)
Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripSeparator3, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator4, Me.ToolStripButton4, Me.ToolStripButton5, Me.ToolStripSeparator5, Me.ToolStripButton6, Me.ToolStripSeparator6, Me.ToolStripButton7, Me.ToolStripButton8, Me.ToolStripSeparator7, Me.bt_close})
Me.bn.Location = New System.Drawing.Point(0, 542)
Me.bn.MoveFirstItem = Me.ToolStripButton2
Me.bn.MoveLastItem = Me.ToolStripButton5
Me.bn.MoveNextItem = Me.ToolStripButton4
Me.bn.MovePreviousItem = Me.ToolStripButton3
Me.bn.Name = "bn"
Me.bn.PositionItem = Me.ToolStripTextBox1
Me.bn.Size = New System.Drawing.Size(883, 37)
Me.bn.TabIndex = 17
Me.bn.Text = "BindingNavigator1"
'
'bs
'
Me.bs.DataMember = "maintable"
Me.bs.DataSource = Me.DS
Me.bs.Sort = "날짜 DESC"
'
'DS
'
Me.DS.DataSetName = "DataSet"
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(29, 34)
Me.ToolStripLabel1.Text = "/{0}"
Me.ToolStripLabel1.ToolTipText = "전체 항목 수"
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = Global.EpoleNetv3.My.Resources.Resources.skipb_32
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.RightToLeftAutoMirrorImage = True
Me.ToolStripButton2.Size = New System.Drawing.Size(34, 34)
Me.ToolStripButton2.Text = "처음으로 이동"
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton3.Image = Global.EpoleNetv3.My.Resources.Resources.back_32
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.RightToLeftAutoMirrorImage = True
Me.ToolStripButton3.Size = New System.Drawing.Size(34, 34)
Me.ToolStripButton3.Text = "이전으로 이동"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 37)
'
'ToolStripTextBox1
'
Me.ToolStripTextBox1.AccessibleName = "위치"
Me.ToolStripTextBox1.AutoSize = False
Me.ToolStripTextBox1.Name = "ToolStripTextBox1"
Me.ToolStripTextBox1.Size = New System.Drawing.Size(25, 21)
Me.ToolStripTextBox1.Text = "0"
Me.ToolStripTextBox1.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center
Me.ToolStripTextBox1.ToolTipText = "현재 위치"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 37)
'
'ToolStripButton4
'
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton4.Image = Global.EpoleNetv3.My.Resources.Resources.forwd_32
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.RightToLeftAutoMirrorImage = True
Me.ToolStripButton4.Size = New System.Drawing.Size(34, 34)
Me.ToolStripButton4.Text = "다음으로 이동"
'
'ToolStripButton5
'
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton5.Image = Global.EpoleNetv3.My.Resources.Resources.skipf_32
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.RightToLeftAutoMirrorImage = True
Me.ToolStripButton5.Size = New System.Drawing.Size(34, 34)
Me.ToolStripButton5.Text = "마지막으로 이동"
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 37)
'
'ToolStripButton6
'
Me.ToolStripButton6.Image = Global.EpoleNetv3.My.Resources.Resources.remov_32
Me.ToolStripButton6.Name = "ToolStripButton6"
Me.ToolStripButton6.RightToLeftAutoMirrorImage = True
Me.ToolStripButton6.Size = New System.Drawing.Size(93, 34)
Me.ToolStripButton6.Text = "줄삭제(&D)"
Me.ToolStripButton6.ToolTipText = "현재 선퇙된 줄을 삭제합니다.(이것은 SHIFT+DELETE)와 같습니다"
'
'ToolStripSeparator6
'
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
Me.ToolStripSeparator6.Size = New System.Drawing.Size(6, 37)
'
'ToolStripButton7
'
Me.ToolStripButton7.Image = Global.EpoleNetv3.My.Resources.Resources.save_32
Me.ToolStripButton7.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton7.Name = "ToolStripButton7"
Me.ToolStripButton7.Size = New System.Drawing.Size(81, 34)
Me.ToolStripButton7.Text = "저장(&S)"
Me.ToolStripButton7.ToolTipText = "변경된 내용을 데이터베이스에 저장합니다"
'
'ToolStripButton8
'
Me.ToolStripButton8.Image = Global.EpoleNetv3.My.Resources.Resources.cancl_32
Me.ToolStripButton8.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton8.Name = "ToolStripButton8"
Me.ToolStripButton8.Size = New System.Drawing.Size(82, 34)
Me.ToolStripButton8.Text = "취소(&C)"
Me.ToolStripButton8.ToolTipText = "변경된 내용을 모두 취소합니다"
'
'ToolStripSeparator7
'
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
Me.ToolStripSeparator7.Size = New System.Drawing.Size(6, 37)
'
'bt_close
'
Me.bt_close.BackColor = System.Drawing.Color.Transparent
Me.bt_close.Checked = True
Me.bt_close.CheckState = System.Windows.Forms.CheckState.Checked
Me.bt_close.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.bt_close.Image = Global.EpoleNetv3.My.Resources.Resources.stop_32
Me.bt_close.ImageTransparentColor = System.Drawing.Color.Magenta
Me.bt_close.Name = "bt_close"
Me.bt_close.Size = New System.Drawing.Size(86, 34)
Me.bt_close.Text = "종료(&X)"
Me.bt_close.ToolTipText = "현재 창을 닫습니다"
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_savecolsize, Me.ToolStripMenuItem2, Me.bt_find})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(159, 54)
'
'bt_savecolsize
'
Me.bt_savecolsize.Name = "bt_savecolsize"
Me.bt_savecolsize.Size = New System.Drawing.Size(158, 22)
Me.bt_savecolsize.Text = "현재뷰상태저장"
'
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(155, 6)
'
'bt_find
'
Me.bt_find.Name = "bt_find"
Me.bt_find.Size = New System.Drawing.Size(158, 22)
Me.bt_find.Text = "목록갱신"
'
'MenuStrip1
'
Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(30, 30)
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_programs, Me.mbt_addnew, Me.mbt_homepage, Me.bt_about, Me.ToolStripMenuItem4})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(883, 38)
Me.MenuStrip1.TabIndex = 20
Me.MenuStrip1.Text = "MenuStrip1"
'
'bt_programs
'
Me.bt_programs.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mbt_config, Me.ToolStripMenuItem1, Me.mb_exit})
Me.bt_programs.Image = CType(resources.GetObject("bt_programs.Image"), System.Drawing.Image)
Me.bt_programs.Name = "bt_programs"
Me.bt_programs.Size = New System.Drawing.Size(73, 34)
Me.bt_programs.Text = "메뉴"
'
'mbt_config
'
Me.mbt_config.Name = "mbt_config"
Me.mbt_config.Size = New System.Drawing.Size(122, 22)
Me.mbt_config.Text = "환경설정"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(119, 6)
'
'mb_exit
'
Me.mb_exit.Name = "mb_exit"
Me.mb_exit.Size = New System.Drawing.Size(122, 22)
Me.mb_exit.Text = "종료"
'
'mbt_addnew
'
Me.mbt_addnew.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mbt_newtongsin, Me.mbt_02})
Me.mbt_addnew.Image = CType(resources.GetObject("mbt_addnew.Image"), System.Drawing.Image)
Me.mbt_addnew.Name = "mbt_addnew"
Me.mbt_addnew.Size = New System.Drawing.Size(97, 34)
Me.mbt_addnew.Text = "신규제작"
'
'mbt_newtongsin
'
Me.mbt_newtongsin.Name = "mbt_newtongsin"
Me.mbt_newtongsin.Size = New System.Drawing.Size(174, 22)
Me.mbt_newtongsin.Tag = "A"
Me.mbt_newtongsin.Text = "일반번호찰"
'
'mbt_02
'
Me.mbt_02.Name = "mbt_02"
Me.mbt_02.Size = New System.Drawing.Size(174, 22)
Me.mbt_02.Text = "광케이블 주의표찰"
'
'mbt_homepage
'
Me.mbt_homepage.Image = CType(resources.GetObject("mbt_homepage.Image"), System.Drawing.Image)
Me.mbt_homepage.Name = "mbt_homepage"
Me.mbt_homepage.Size = New System.Drawing.Size(97, 34)
Me.mbt_homepage.Text = "홈페이지"
'
'bt_about
'
Me.bt_about.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.bt_about.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mbT_about, Me.ToolStripMenuItem3, Me.bt_howto})
Me.bt_about.Image = CType(resources.GetObject("bt_about.Image"), System.Drawing.Image)
Me.bt_about.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.bt_about.Name = "bt_about"
Me.bt_about.Size = New System.Drawing.Size(159, 34)
Me.bt_about.Text = "사용자인증 및 도움말"
'
'mbT_about
'
Me.mbT_about.Name = "mbT_about"
Me.mbT_about.Size = New System.Drawing.Size(134, 22)
Me.mbT_about.Text = "인증정보"
'
'ToolStripMenuItem3
'
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(131, 6)
'
'bt_howto
'
Me.bt_howto.Enabled = False
Me.bt_howto.Name = "bt_howto"
Me.bt_howto.Size = New System.Drawing.Size(134, 22)
Me.bt_howto.Text = "사용설명서"
'
'ToolStripMenuItem4
'
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(91, 34)
Me.ToolStripMenuItem4.Text = "구스타일변환"
Me.ToolStripMenuItem4.Visible = False
'
'ta_main
'
Me.ta_main.ClearBeforeFill = True
'
'ta_jju
'
Me.ta_jju.ClearBeforeFill = True
'
'view1
'
Me.view1.AAutoAddrowInLast = Nothing
Me.view1.AccessibleDescription = "view1, Sheet1"
Me.view1.ACellImeLabel = Nothing
Me.view1.ACellposLabel = Nothing
Me.view1.ACheckBox_ColIndex = CType(-1, Short)
Me.view1.ADeleteCell = True
Me.view1.ADeleteRow = False
Me.view1.AEditFromSpace = True
Me.view1.AEditStatusLabel = Nothing
Me.view1.AFirstColumn_Index = 4
Me.view1.AllowDragFill = True
Me.view1.AllowUserFormulas = True
Me.view1.AMessageLabel = Nothing
Me.view1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.view1.ANextRow_ColIndex = -1
Me.view1.ASameRowheight = True
Me.view1.BackColor = System.Drawing.Color.Transparent
Me.view1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.view1.ButtonDrawMode = FarPoint.Win.Spread.ButtonDrawModes.CurrentCell
Me.view1.ContextMenuStrip = Me.ContextMenuStrip1
Me.view1.EditModeReplace = True
Me.view1.EnableCrossSheetReference = False
Me.view1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.view1.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded
Me.view1.Location = New System.Drawing.Point(0, 41)
Me.view1.Name = "view1"
Me.view1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.view1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.view1_Sheet1})
Me.view1.Size = New System.Drawing.Size(883, 498)
Me.view1.TabIndex = 18
Me.view1.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded
'
'view1_Sheet1
'
Me.view1_Sheet1.Reset()
Me.view1_Sheet1.SheetName = "Sheet1"
'Formulas and custom names must be loaded with R1C1 reference style
Me.view1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1
Me.view1_Sheet1.ColumnCount = 10
Me.view1_Sheet1.ActiveRowIndex = -1
Me.view1_Sheet1.AllowNoteEdit = False
Me.view1_Sheet1.AutoGenerateColumns = False
Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "제작ID"
Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "선택"
Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "보기"
Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 3).Value = "날짜"
Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 4).Value = "거래처명"
Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 5).Value = "작업내용"
Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 6).Value = "총수량"
Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 7).Value = "단가"
Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 8).Value = "금액"
Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 9).Value = "종류"
Me.view1_Sheet1.ColumnHeader.Rows.Get(0).Height = 37.0!
Me.view1_Sheet1.ColumnHeader.VerticalGridLine = New FarPoint.Win.Spread.GridLine(FarPoint.Win.Spread.GridLineType.Raised, System.Drawing.Color.LightGray, System.Drawing.SystemColors.ControlLightLight, System.Drawing.SystemColors.ControlDark, 3)
Me.view1_Sheet1.Columns.Get(0).BackColor = System.Drawing.Color.Silver
Me.view1_Sheet1.Columns.Get(0).DataField = "ID"
Me.view1_Sheet1.Columns.Get(0).Label = "제작ID"
Me.view1_Sheet1.Columns.Get(0).Locked = False
Me.view1_Sheet1.Columns.Get(0).Visible = False
Me.view1_Sheet1.Columns.Get(0).Width = 50.0!
Me.view1_Sheet1.Columns.Get(1).CellType = CheckBoxCellType1
Me.view1_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
Me.view1_Sheet1.Columns.Get(1).Label = "선택"
Me.view1_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
Me.view1_Sheet1.Columns.Get(1).Width = 39.0!
ButtonCellType1.ButtonColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
ButtonCellType1.ButtonColor2 = System.Drawing.SystemColors.ButtonFace
ButtonCellType1.Picture = CType(resources.GetObject("ButtonCellType1.Picture"), System.Drawing.Image)
Me.view1_Sheet1.Columns.Get(2).CellType = ButtonCellType1
Me.view1_Sheet1.Columns.Get(2).Label = "보기"
Me.view1_Sheet1.Columns.Get(2).Width = 39.0!
Me.view1_Sheet1.Columns.Get(3).AllowAutoSort = True
DateTimeCellType1.Calendar = CType(resources.GetObject("DateTimeCellType1.Calendar"), System.Globalization.Calendar)
DateTimeCellType1.CalendarDayFont = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DateTimeCellType1.CalendarSurroundingDaysColor = System.Drawing.SystemColors.GrayText
DateTimeCellType1.DateDefault = New Date(2007, 7, 15, 11, 18, 31, 0)
DateTimeCellType1.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.UserDefined
DateTimeCellType1.MaximumTime = System.TimeSpan.Parse("23:59:59.9999999")
DateTimeCellType1.TimeDefault = New Date(2007, 7, 15, 11, 18, 31, 0)
DateTimeCellType1.UserDefinedFormat = "yyyy-MM-dd"
Me.view1_Sheet1.Columns.Get(3).CellType = DateTimeCellType1
Me.view1_Sheet1.Columns.Get(3).DataField = "날짜"
Me.view1_Sheet1.Columns.Get(3).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
Me.view1_Sheet1.Columns.Get(3).Label = "날짜"
Me.view1_Sheet1.Columns.Get(3).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
Me.view1_Sheet1.Columns.Get(3).Width = 55.0!
Me.view1_Sheet1.Columns.Get(4).AllowAutoSort = True
Me.view1_Sheet1.Columns.Get(4).DataField = "거래처명"
Me.view1_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
Me.view1_Sheet1.Columns.Get(4).Label = "거래처명"
Me.view1_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
Me.view1_Sheet1.Columns.Get(4).Width = 79.0!
Me.view1_Sheet1.Columns.Get(5).CellType = TextCellType1
Me.view1_Sheet1.Columns.Get(5).DataField = "비고"
Me.view1_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
Me.view1_Sheet1.Columns.Get(5).Label = "작업내용"
Me.view1_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
Me.view1_Sheet1.Columns.Get(5).Width = 63.0!
NumberCellType1.DecimalPlaces = 0
NumberCellType1.ReadOnly = True
NumberCellType1.Separator = ","
NumberCellType1.ShowSeparator = True
Me.view1_Sheet1.Columns.Get(6).CellType = NumberCellType1
Me.view1_Sheet1.Columns.Get(6).DataField = "총수량"
Me.view1_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Right
Me.view1_Sheet1.Columns.Get(6).Label = "총수량"
Me.view1_Sheet1.Columns.Get(6).Locked = True
Me.view1_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
Me.view1_Sheet1.Columns.Get(6).Width = 51.0!
CurrencyCellType1.Separator = ","
CurrencyCellType1.ShowCurrencySymbol = False
CurrencyCellType1.ShowSeparator = True
Me.view1_Sheet1.Columns.Get(7).CellType = CurrencyCellType1
Me.view1_Sheet1.Columns.Get(7).DataField = "단가"
Me.view1_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Right
Me.view1_Sheet1.Columns.Get(7).Label = "단가"
Me.view1_Sheet1.Columns.Get(7).Locked = True
Me.view1_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
Me.view1_Sheet1.Columns.Get(7).Width = 39.0!
CurrencyCellType2.Separator = ","
CurrencyCellType2.ShowCurrencySymbol = False
CurrencyCellType2.ShowSeparator = True
Me.view1_Sheet1.Columns.Get(8).CellType = CurrencyCellType2
Me.view1_Sheet1.Columns.Get(8).DataField = "금액"
Me.view1_Sheet1.Columns.Get(8).Formula = "RC[-2]*RC[-1]"
Me.view1_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Right
Me.view1_Sheet1.Columns.Get(8).Label = "금액"
Me.view1_Sheet1.Columns.Get(8).Locked = True
Me.view1_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
Me.view1_Sheet1.Columns.Get(8).Width = 39.0!
ComboBoxCellType1.ButtonAlign = FarPoint.Win.ButtonAlign.Right
ComboBoxCellType1.EditorValue = FarPoint.Win.Spread.CellType.EditorValue.ItemData
ComboBoxCellType1.ItemData = New String() {"0", "1", "2", "3", "4", "5", "6", "7", "8"}
ComboBoxCellType1.Items = New String() {"가공", "지중", "수용", "일반번호찰", "가로등", "정액등", "보안등", "기타번호찰", "광케이블주의표찰"}
Me.view1_Sheet1.Columns.Get(9).CellType = ComboBoxCellType1
Me.view1_Sheet1.Columns.Get(9).DataField = "번호찰구분"
Me.view1_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
Me.view1_Sheet1.Columns.Get(9).Label = "종류"
Me.view1_Sheet1.Columns.Get(9).Locked = True
Me.view1_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center
Me.view1_Sheet1.Columns.Get(9).Width = 39.0!
Me.view1_Sheet1.DataAutoCellTypes = False
Me.view1_Sheet1.DataAutoHeadings = False
Me.view1_Sheet1.DataAutoSizeColumns = False
Me.view1_Sheet1.DataSource = Me.bs
Me.view1_Sheet1.OperationMode = FarPoint.Win.Spread.OperationMode.RowMode
Me.view1_Sheet1.Protect = False
Me.view1_Sheet1.RowHeader.Columns.Default.Resizable = False
Me.view1_Sheet1.RowHeader.Columns.Get(0).Width = 42.0!
Me.view1_Sheet1.SelectionBackColor = System.Drawing.Color.Transparent
Me.view1_Sheet1.SelectionForeColor = System.Drawing.Color.Black
Me.view1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1
Me.view1.SetActiveViewport(0, -1, 0)
'
'MakeList
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(883, 601)
Me.Controls.Add(Me.view1)
Me.Controls.Add(Me.bn)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "MakeList"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "KT번호찰 관리 프로그램"
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit()
Me.bn.ResumeLayout(False)
Me.bn.PerformLayout()
CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
CType(Me.view1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents DS As EpoleNetv3.DataSet
Friend WithEvents ta_main As EpoleNetv3.DataSetTableAdapters.MainTableTableAdapter
Friend WithEvents bs As System.Windows.Forms.BindingSource
Friend WithEvents ta_jju As EpoleNetv3.DataSetTableAdapters.Detail_tongsinTableAdapter
Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel
Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator
Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox
Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents bt_commit As System.Windows.Forms.ToolStripButton
Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
Friend WithEvents PRB1 As System.Windows.Forms.ToolStripProgressBar
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents lb_change As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents bn As System.Windows.Forms.BindingNavigator
Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripTextBox1 As System.Windows.Forms.ToolStripTextBox
Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton7 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton8 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents bt_close As System.Windows.Forms.ToolStripButton
Friend WithEvents view1 As NewFp
Friend WithEvents view1_Sheet1 As FarPoint.Win.Spread.SheetView
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents bt_savecolsize As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents bt_programs As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents mb_exit As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents mbt_addnew As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents mbt_newtongsin As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents bt_find As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents mbt_config As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents mbt_homepage As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents bt_about As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents lb_auth As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents mbT_about As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents bt_howto As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents mbt_02 As System.Windows.Forms.ToolStripMenuItem
End Class

View File

@@ -0,0 +1,378 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA69AAAOvQFH+5CtAAADyklE
QVRYR72WSUsjQRTHxatbFBfEKCIKatQxqIGADR48eBHUcUFQFA0i4oKIiiBIwAGhD3MUjbvR25gP4L7v
irvGfd8+RM17Bd10p6uTKJlp+NFVr96r/z9Jve54EUK+DFzeLS0txq6uLmtPTw9BcIwxXGPVqMEMOgMF
6urquLa2tqnJyUny9PREWVtbI+3t7X9g3YdVpwYzqAaK19bWcvBJbRMTE1R4enqaguPu7m5M0rJq1WAG
WaB4TU0N19zcbLNarTJxwYDZbMZEHateDWbQERQ3mUxcU1OTbXx8XBSfmZkRwRicA0z+wdpDDWZQCopX
VVVx9fX1VPz5+ZnMzs4qwHhnZ6dnDaB4RUUFB4fONjY2RkXm5uaY4FpHR4fnDKB4WVkZB7+7KL6wsECZ
n5+nCHPk5eWFtLa2uqShocFaXV0ttquqeGlpKQeJttHRUbr54uIiZWlpSRw7xjBPyuvrq4gQW15eJnCe
xHZlipeUlHCVlZVUHIuxyBOgUbw3NjaiEG1XhXhhYSFXXl5Oxd/e3sjKyoqM1dVVBY7rankIrsGZQjHa
rjLxvLw8Dr5628jICHl/f6dPt/X1ddldAOcCjnnSuBQhDucKBelhFcVzc3O54uJiUXxzc5OysbGhepfC
ylED2lphwKegoGBqeHiYfHx8kK2tLbK9vf0t3KmFn1hhQAtfPfn8/CS7u7tO2dnZYca/Amo5GtAVFRWR
/f39/wJqKQxkZmbuDQ0NkYODg29xeHjIjLPIz89XGNBGRkaaDQaDfXBwkBwdHTnl+PiYGXcXOPAKAz5A
enh4OJ+WlkZNnJycMDk9PXU6dwXm5+TkKAx4AxrAEBYWxqemptoHBgbI2dmZjPPzc9lYOneFNDc7O1tu
wNFEaGgon5ycTE1cXFx4nKysLKUBRxMhISF8YmKi3WKxkMvLS4+B+yUlJe2BhvxRzDIRHBzMx8fHUxNX
V1fk+vpahDU3Go0uwf3gw5lhf+XLSEBqIigoiI+Li7P39/eTm5sbJre3t/SekZGBxRbgtwq/ABOgB9iv
YwG4RBOBgYF8TEwMNXF3d6eKXq/Hwp/ADxV0gBbArlP/QyKASQA1odFo+OjoaHtfXx+5v79nkpKSgkX0
cLkLMyhFaiIgIICPioqiJh4eHmQ8Pj4SnU7neQOI1IS/vz8PT01qAkWlJCQk/BsDiNSEn58fHxERYe/t
7RXFcazVasX2chdmUA2pCV9fXx4e3fbY2FiC4BiMie3lLsygMyQm0gFsKWwtRXu5CzPoCrjQBLYSthS2
lqK93IN4/QUjgLsVXMNmNAAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>193, 17</value>
</metadata>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>424, 17</value>
</metadata>
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>542, 17</value>
</metadata>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>360, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>293, 17</value>
</metadata>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>735, 17</value>
</metadata>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>895, 17</value>
</metadata>
<data name="bt_programs.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA69AAAOvQFH+5CtAAAIHklE
QVRYR51XaWxU1xV+ITZRCwFbxkGhBktsBSHaIloXDIZCWQJCCMSSIgeDi8CxKiFUs4OoaqgqFrMFs9hO
a1csEg5S1EKA4PG+jbHxjGfGs3hsj1c2Y7uBINL8OP2+++aNxmasVL3Sp3vfeWe7555z3n2aiPzPwAg7
cOBA8tGjR6vS09OrCa5J47tQMj+EkEQDGO8cOXIkkjMwbOvWrb+9du2aPH/+fADOnj0r8+bNm+zne+fg
wYOTOIfSORihidjNnj17kmG8+vTpM4Idngft/TVr1qTeunVLentfSG1trcKLFy+EtPXr128HzwgY/0fW
lSty+PDhr9PS0taA9m4oGwbeJmja8N27d2deunRJnj17Kt999x/Jy8uTnTt3fr5hw4ZzpkKTdHV1SUFB
gTwA6EB+fr4sXbp0H3lu37kj3377Wjo6OiQjI0OoizoH2zEw8EHTwqHkOBW+evVK6urqpKSkRPr7+yU3
N1dOnjwpXq9XHA6HmApMYjIViNvtFrvdod7l/j1X+vr6lYzVapE3b94oueTk5E+gO2QkBj5oWvTevXuf
ffPypVRWVkphYaFCaWmp9EMxFdK4QTdAJ/iuD46S16BbG6zS3t7O6FVA96hgWwGbAx40LRbn/M8bN25I
T89zKS4qBoqkCHNZWZmai/Bs0IqKsS7WaUS5wUMawGjk5ORIQkLCCej+INhWwOaAB0QA+DgxMdHna/OJ
zWaTYoSTIVUo1ufikmK1VrNaw1HM5NVpJeL2eKShoUHWrVtng86PgNARwBiempp6bteuXf9GqLpwXl9v
3LjR6nK5pLHRKaXYVWlZqQotZ+64ELs1+cOsIgJaWSn4/DycPXDAYrWyOszbt28vh+5OIiUl5c+wGR5w
YObMmT89dOiQvMS59/b1Cg3X11uUgvLy8gDKysvUzu7duydZWVfk2LFjCllZWVJo0vNE5y0Dry6jnLBY
pLWlFcfRp4DNPoUD0QEHVq9enX7n9m3p7OyQh6hrOtDU5JHKikokYoVKRqK8vEIufHZBEJ2e+Pj4uilT
pnxFzJ8/34IG9ZpnXREkU+GXa2pqErvDrnpG9+NuuXnzpqxatWoXnFCdU9u0aZNZL61Gqa6qkupqAHMV
11XV6rmmpkYyTmfIokWLGiB4GGBZrfIjOTw8/K/Lli3zsHeYwUtZHbq8WmNWx4oqwiYKIKdyQtuyZctr
lo/X26S8NJvNOmrMUmOuUbT79+/L8uXLPRBit/s58AEV+PEh8CvgD2vXrn3CSmAkA3qgg3NdbZ20tDSr
soQDbvD/RDmAXRWhbcrDhw/RYntV8+HagN1mF7RkmTRp0mkITQfe6moY7wG/wLiRmZmpsl/J1+o6+Ezd
LGXamj17dg74x/tltQ3R0dF/w7l6kCBorboTBphIOCZyrgBGDjZuACNy9OjRScgHJWPI2+025FenoI1/
P2fOnMaoqKgL4F0ORPjltBhg0dSpU9nrlaf1j+pRCTp8Ph+FyflLYNhgwwYwwoH4pKQkaW1tVbKPAKfT
idC3CHLkMZKW34UEgEeoJ+GKFSvSUQnd/KSS2eNxo49bUT5W1c/b2toEXziZOHEiE27ITywVzpo1K/Vi
5kU40CJWv7wVZchKqLfUq8827H25ZMmS34BfbUZbuXLl0+6ubvWF83iapMHWANjUudmwprDZXC0LFy68
BqEfDTZsAOP9xYsXP2Cmu90uJd/QYBMbZ6XHq2wwMvhy/gv86ji1BQsWeJtQAfpXza5qVs1B4BkeP35c
UPOHIPjWzQdjOBzMYhnSyGB5O0rPgZmb4ccMNmsh86GSnTFjxpcYwt7PGnU6G5UzjsZGtGIH0ChO7Kqj
vUPOnz9HJy7FxcVNgwJ1++EatMu8MzCS7CeUcVAW+qiLM/XxOK9evSrTp0/Pg2yMcgBZuXPHjh3K804/
WpE0HnRD5oQL0HPDI0+ePFW1zK6Hvq6QnZOtrmXd3d2Kz+kiXArcMfPhMTpgB6LY1dmFj9N6GTFiRBIc
iPRHT5uHKFhwc5Ft27bJ3Llzv0edfkNDHijgebpdbgUX1m1oJD09PbiwvFSXFt6ImpubFZ8LuzVmdlfm
A3UhQrwZSVrabpk2bVoVbMYBqp9wsAwTIyMj8+AZQ3MG5WK5e/euKifu/P+Bz9cq+V98IZMnT7ZC52cR
ERE3aQPr3wHsnqqiONjFJgC/BhLGjx//p82bN0ubr03tgtnLUHr9CF4bz03g03n1teJBYre3t7HsBMf8
KXQv9NvghgPd1MjiYSQCUTiOyvr6R6p5UKlCs1d8iAZ31YyjMWjG+xYcAd+1omkFZLzN0NGq7gxIunzo
jgC42QHNLLBQD5o2Dj3/gclkUgZ5tgSPIjsrW06dOqWaFJ0z3nHtQOnyHe8G5A3IwSHKIaoXoTsq2FbA
5oAHTRs7atSoP06YMMF54sQJaUEGcxdXcM+HkpaxY8darl+/rjI72AF2SoS5CjzNvK6zikinjtjYWF7J
VgKjg20FbA540LQfAz8DPh03bpwFzUUuX75M407Q9iOJPt+/f/9bESAN77KRxBkxMTEuylCWOiD3e2Ai
EPLXbeCD3lzoBBvNJ2FhYefGjBlzH+ttQBx2eWTfvn3KqEKzPuMeICNHjkwBTzyQQhnKUgcwFXgv2E4w
QhP1hGSpsF4XANwBkyiBu0JpsbwCAK0e7+b4eaYAlKEsdQz5V0SEJBIYjAYdYUTCgHeBWCAR+Atwxg+u
NwEsL8qQlzKU/cEf1JDEoYDBMuKuZgC8mhFckzZkmIeGaP8FzEvygGv3DIkAAAAASUVORK5CYII=
</value>
</data>
<data name="mbt_addnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA69AAAOvQFH+5CtAAAD2klE
QVRYR8WXvU9TYRTGibsJO0knJggxDJgwsDDgwMLCwsICWDGIgMQCwbTBaAmoSFswGkx0cWDQwYXExOi9
vW1vQWMIITHGaPz+K47ned/z3r5X7rtZHX55ztc9z0noB20hov9KYvFf0ghaWk7Nz8+fy+Vyz/L5PDUD
7IYHvJIOOJ3JZPZeFwr0KwiaAnbDA15JB6RWVlboZ7lM3thYU8BueMAr6YDObDZLPz2PvIlx8sYnmHHy
GW/CiqVug7ru/TkjqvaNq93wgFfSAWeWl5fpx6tX5J8/Tx7jT2j1WE3NgNyuRbMKNrZ7AnbDA16JByws
LNC3ly/JT18g/4LGE7UxtaTeCaxd33k3PJwH8CuUvr54Qf7Fi5pJ0cR80ooTapPxfpnBbng4D5iZmaEv
e3tUnpoiP+KS0rKof0nX4zM6x4yp65xjmQfYDQ/nAVM89On5cypfvqyZnmZETR71tPpKTV3mo9xmmj7z
bng4D0in0/Tx6VMqz85q5gTJA8VcFEe1uTnpYR59nau+2qFr2A0P5wFj/F79sLtLAf+dQPkKAxXsejB/
hQLRpLkkxW54OA8YHR2l90+eUJDJxLkqRPlViVlVTxR5bMaga9gND+cBIyMjdPz4MVWWFilYWqLK4iLD
iphrKuaa3QtUn2Ppqx5jVMXyzPGjRwQP5wHDw8N0tLNDlWvLFteowh8ecRXsfmzG5KIye7TzkODhPGBo
aIgO7z+gKn9cVnNZqkCzOVHkEnMP9WpO5xXRaFae1fCc9A4f3Cd4OA8YHBykd9vbVOUvjOr166xghSoq
Z6A2qNmoujwXy3X/3b1tgofzgIGBAXpb2qLajRuKquKm0kbewMzZvaQ5w9tSieDhPKC/v58OCkWqra5q
8kbzjRpTNYo6U11leBbYfROjj11veDc8nAf09fXRQbFA4doa1daZtXWt66yIpa76Cqmb2VidVT0rNd5x
wP+QwMN5QG9vL+3zUO32beYWhbegmlDBNdEa9xBjTs2emGk8a9jfLBA8nAf09PRQnQ8INzb+4K7m7gbV
VCx1zu252omamdWK3fBwHtDd3U37pSKFm5uKuqIQ07Cg45CX1TlGrmZFQ/SU6udNjLn9Yong4Tygq6uL
6vxKrRf5CMHEUIPdi8DhUg/ZyO5H87wbHs4DOjo61FC4tUV1A78to5gJcaCdW3E0a2bsZzkOt0oED9cB
nalU6miTv7vr/GHUDLAbHvBKOiDV2tq63tbW9qm9vZ2aAXbDA15JB5xmzjJp5iZz5y+DndgNj8QfJqfQ
YFJMJ3PmL4Od2A2Pkz/N/heJxX8HtfwGsbH9ZWyNdE4AAAAASUVORK5CYII=
</value>
</data>
<data name="mbt_homepage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAADcAAAA1CAYAAADlE3NNAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAr/AAAK/wE0YpqCAAAGuklE
QVRoQ92YS2xUZRTHO6XlEXDTlZG4MD4WoglRAqY7o6Yx0UZFAxpCND5ikIVCjNEEQiBGSTVaLYRIxVR5
GdIgMlraDgpCF24kpjFRF1RKoWBxgTvdXL/fxz3TM4dz2+lMC2YWv3xzz318//8953vcqUuSpGZxg7WC
G6wV3GCt4Aar5aee/Y/9/PlHL/9+PP/E6f6uVUP5T1+gBeKnDu58xrtvunGDUyXf23/PbwP7Wy+0Pffx
2NMtA2N33PDPhXmNyVh4/KhiJHC2MZdwnusurn3yMIb7+/LN3nOrxQ2WC6KGD3zwKkIvNTYmo/X1yWhu
dnJu/tyrGJnbUORsY0MyHLo+V1+XnA9mL91922Wec+Jk331eP5XiBifjwNdH7iJTmCJDGLqwYF4Ra+b8
nFkxYxY5F19KkDL2cPMvmDz0bd9ir9+p4gYnordQWBrLr2l+iSlrKAoPBoYb6pORWbmYpTO5umQodElL
5oBzYpZjTP654ZWu6ciiG8yCDqOxcBsZi8ZCizFaDCFSMoXw4WAKY4w3xGNOjAlimmt5GZJFJiZPR7m4
QQ+MMQHQcTSTGosZCmb4TUu2QLKlsaY0Ylrupx/GYjUzqxu0HD1WWIoxMoYxKcGiIWUqmgiQDbLFMUJB
sgf6t41JmWIYg5Vm0A1qGNyj7ZvfR5weXxjLyhYCMSdjS2JZ5vjNNXIdLyeWNOM1HFOivGBP30S4QQ2z
ItM8RiRjAsZkbI1qcSkI87Dn5FiyC2KWZ8dz4QUzS3sas3CDAm+Lt0anzI4xU2nJxGylWYvmEBAQcVow
DKboCUVM6OuFeJ8yR/+/9h5a6enMwg0KcYEOl0g5eqUIsYxSQbRavIApzOm4XKevxyzPKWaOc2nLuGc3
5Gn1cINQzFpYYLUxiCWZGtMiBC22nJh3TpDnA31PJXtuENjsylgTczFjJmu6JCVzAscTibdxfT9m9DPl
mAXe0+vhBoGHFEtSspVhjo6Lbbgny4w+p5Fz2px3DS1Lw0D/kQc9zRY3yIZYJhJmyKIpY44BH68JLcfa
nBZrRQo6LudsrIS0v3JL0w2yaBb3jqYcmSlZfzAiZuhQjFrheh8pM6U1IffYuCBrJsS+wrLg6ba4QT4y
7W6EzxTZOcTpWZVh7DCAEC1UxBZ/qxcipvV1FjmnzRHna8TTbXGDJUuAM94QaDMFYlLHBESJOIu+JivO
vfTLb4aMp9viBjPNGWMaEaIF0erzVrSOCfEFpCbAu49JxdNtcYPUdJY5bUxKDLQB3cpv0LsTD7kWg3Kv
xGKfad/TYm58vI2PNW1Id67xyg9j1pzEBPss/XzdVmWOBTxmRm2UmVAwh3BBC9ExMWHFZsXEnD3Wsfjs
tFyrGnN6thRzlCTm6EBMIDRLrD7W15Rzj71fYvTLvVXNlqxzFxcuvGIozZouS5m1RKQIls61KH1eH+vz
gHhtSl5gCaHfOPaqWed6esZ3KEwqOntirhwT9pwX19iMWcNDs66Yq2qHArwdbU5mSzGoRZSLiLVMdM5C
RTFsPM0WNwiUJsYwxdijNO24E6wJsHEtkCzy4hjXwr+5XFmwoT81+GNZfzm4QeC/EwZuLMOSWfPK3pIS
kdkLwdJiShsBjFiRGOLjNZ/L/Q0v1dX9UQ5vrnj8u2DuXk+zxQ0Kp/d0reObToyB/Mkqy4KXGY51NsiU
NrEsl7u8YM7sJBfilfD6urWfbdqwvp22a9+eFzt3H3L//rsqoCF7fNojdnxBDwbJZlqaYojf2tB0GZmM
pqampOOTtvU7ug6usvpLDjz4MGQQx8+cdOxJWWpDtNqQJ2SmwOCGjVve29y27Q2tvcSIx97ub+6kPJlc
4i4lzZ5kiHFzPQxZbrzp5liuWnuJkSwKPxxfIkuDLTuvo5mGMr/l1kWXWx66fxDaP9y6saPzy+c3tX2x
RusuMTERTL8hg+9i6lpmCSOLF93+F1nZe2DHsxjZvWv7mq8OH17h6dS4QQ+m3+2dO1/zBEwXmFi5/NHv
ycY7W7e8feJk3wO9hcIjYWJr9TRNhhu00AEdeoKqgaxghmxA2PYt9/qvFDeoCRPKU5SEiKlmWudeXhKG
urv3rc739rdWmpVycIMaBIihSo01L1tyhsxQ1kePFVq8fmYCN6ihVBA41azJJECGKGvv2TONG9TokrQG
PDDFZDDd46cS3KCGkkL0ZJnjOqboa1l2k+EGNWRBmxCTYpSWTez1Kr2JcIOabbu6V7NgUp52OaAE+/vy
MzrjVYMbzAKTbR1tb5FNzPK54V33f8EN1gpusFZwg7WCG6wNkrr/AIgmFm7f4r0PAAAAAElFTkSuQmCC
</value>
</data>
<data name="bt_about.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA69AAAOvQFH+5CtAAAEGUlE
QVRIS6WWXUybZRTHuTHOZGaRxEi26N1uFC4W4A7j1bhx8WrgjcnQGw3RMN3ikkbYzNZd0BkizrFOlkCg
hglNtsjiDE72UQoMRmyHNo7STvoxWh2FQvv26+3x/J/nefthO2Pim/w45znnf/6n7Qt9qSGip1LTaG1g
OhgLY2ccCuSooddQbdagerHReoAxMdNdlzwR28yTxKwvlV35S88D5KihB43SHqjqVVFotLYx9s/H1zZu
erP6zFqevv89TyMunQYWJMhRQw8aaDGD2Qq/skOj9V3GOba4nb7pk0Z9s7kic4qSGjTQjt3fSWMWHmWe
JeZ45c5xVzJ7/WGOemeyRRyIGbr9SBf0OjKFnkXFSZ4Zd2lZtaTwTgxzfOb2ofl4+rtfs2S+m6YzdyTI
zXcy5AzoLJWXM5Ar9CUZESd+y9LwvTjeCT4ucU+MBaZPRnwb3yylqWdao55bGp1kjLxnOkWrG8UFyEVP
9FOiL3UaL8nQpzY/7omJpTUwx6/idJ9jWzf9nKATPyUVyIvn/nmNkpk8JbN5zlN0YsrQlei5dooXDS4k
dHgKb/7R8aZ5Kdw9vUNHb2xTlwL50R+5xnTdQA8598RZaVRPInvQHZ/aoTe674XgjQWW94b8W53X4/Q+
mETcknGSI+cfcC7g/mf8Qi7dT6qerBd0ah619gHvJryxwN4+EtKOXIvRkavMtU2mmB+fitPkSoqWo1mK
JuR9CMV12b9qaDnyucPIOb7zbViDNxY4Dl+J6u32J/S2fUMyoXKOH/0QI9uDBK3GssIclzuSofYJaFnH
EbPtYgZnyeGxKO6DQyw4NLquv3XlTxKMVYHrw64dZU/0y3qmol8WmUO29cICe8uAXztoi1DraIQQDVpH
16nVBiI0uLSt7ImWHqeFFvWDmDFyAz63XPAXPiJL/WlX7PWhMEkeS4YVnLcMh+niYlzZEy2G04Ve2Zyo
ybz+tDsGbyzo2Nd5O9g8GKLmy0FquhyipkGOimYVv1rYUvZE86EU16RewHmTyLmGGc73dd4KwhsLxB/a
q+d9uQZrgOqta4IGhThfDFDf/KayJ5oNprjGfaaeZwytoX/tvD8HT+HNeiwx1R2bje6/8Ij2f11C4fwH
WZwx6c7XTEAr13G/VFt3bC4KT5aWf9ntPbOcfKXfR9WwPSjeA3ckLetf+ujlfj9HRp33mpeT8IInSyu/
rl8860nX9a1SXZ+XXmLa7GF4Vr3aJsKsg3ZVaDELD3hxW/oaiTioB86ek+5k7bkVeoGpPefl6KXaL5Ab
tWJEHfmeU2688qc/cAoF+U7suz68G91t9uSe731I/8bus54ctJjBbIXfPwuiKO+JeOg/0zEVfPbjudiu
bpf2nNmjA+SooQeN0v63h34pPPQ//22hmr8BhVovRlQUlYQAAAAASUVORK5CYII=
</value>
</data>
<metadata name="ta_main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ta_jju.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>112, 17</value>
</metadata>
<metadata name="view1_Sheet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>608, 17</value>
</metadata>
<data name="ButtonCellType1.Picture" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAABcElE
QVQ4T52RP2sCQRTE/TD5aoIBG1PkIHhNrGxiEwuFSCSmzNnf2eaEmIiiF3KBaPBsbLTQ4gTDZOft+i8W
Eh/8bnYeOwPHJgAkqtV7HOPc+RZ4f5dNwbFheGBUzWkFpVcclMinUrnjAqufFXz/WeHvwf264G+JFJTL
JRrEcYwoGimijY5GI8TLpQTOrtw9mJWCYvGWBovFYstc63yHl1Zrg8nogkLhhgbT6Qye58L1PKWeVteV
81qns5ncNRldkM/naTCZTBC8B0I/UErod868wzEZXZDLXdMgGo/N/yvlWbzZidfKMRldYNtZGgwGQ9Qd
B46i7jzBqfOslDtz/hryDQA7a1N0gWVd0iAMQ/hNPl1z7xmb3Mnex8dnKHcty6LogsxFhga9oC/w/4V+
gJ5CVPYKdeZkMpLRBel0mgadbhe12sOWR1KTvaYjcExGF6RSKRq8tdtoNBoHcL8Lx2R0QTKZpPnXmMy2
4BQAJH4B0qBEm6dSDJUAAAAASUVORK5CYII=
</value>
</data>
<data name="DateTimeCellType1.Calendar" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAEttc2NvcmxpYiwgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5l
dXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0ZW0uR2xvYmFsaXph
dGlvbi5HcmVnb3JpYW5DYWxlbmRhcgYAAAAGbV90eXBlEW1fY3VycmVudEVyYVZhbHVlD3R3b0RpZ2l0
WWVhck1heBpDYWxlbmRhcittX2N1cnJlbnRFcmFWYWx1ZRVDYWxlbmRhcittX2lzUmVhZE9ubHkYQ2Fs
ZW5kYXIrdHdvRGlnaXRZZWFyTWF4BAAAAAAAK1N5c3RlbS5HbG9iYWxpemF0aW9uLkdyZWdvcmlhbkNh
bGVuZGFyVHlwZXMCAAAACAgIAQgCAAAABf3///8rU3lzdGVtLkdsb2JhbGl6YXRpb24uR3JlZ29yaWFu
Q2FsZW5kYXJUeXBlcwEAAAAHdmFsdWVfXwAIAgAAAAEAAAD/////7QcAAP////8A7QcAAAs=
</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>87</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAIAICAQAAAAAADoAgAAJgAAACAgAAAAAAAAqAgAAA4DAAAoAAAAIAAAAEAAAAABAAQAAAAAAIAC
AAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDAwACAgIAAAAD/AAD/
AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAERAQEBAAAAAAAAAAAAABEREREREBAQAAAAAAAAABESE
hISEhIRAQAAAAAAAAEiIiEhISEhIRIQAAAAAAASIiIiIiIiEhICIQAAAAABIiIiEBAQEBAhEiIQAAAAE
iIh4dH///3cEgHiIQAAASIiHh4hC//cgiESHiIQAAEiIeHh4dH/3CIiEeHiEAASIh4eHh4R/9wiIhHeH
iEAEiHh4eHh0f/cIeIR3eHhABIeHh4eHhH/3CIiEd3eIQEh4eHd3d3R/9wh4gnd3eIRHh4d3d3d0f/cI
iEd3d4eESHh3d3d3dH/3CIhHd3d4hEeHd3d3d3R/9wiCh3d3d4RId3d3d3d0f/cIhHd3d3h0R3d3d3dy
Qn/3CEd3d3d3hEh3d3d3dP//9wiHd3d3eHRHd3d3d3dEf/cEd3d3d3eEBHd3d3d3d0f3B/d3d3d3gAR3
d3d/f3dwB093d3d3d0AEd3d3d3d4RASH93d3d3dAAEd3f39/dPd4T3d3d3d0AABHd/f3dE//9wf3d3d3
dAAABHd/dEcP//cPd3d3d0AAAABEREf/B//3B/d3d3QAAAAABHf/f3B/cI93d3dAAAAAAABHf//3AAj3
d3d0AAAAAAAAAAd3//9/d3d0QAAAAAAAAAAAAIf393dEQAAAAAAAAAAAAAAAAAAAAAAAAAAA//AAD/+A
AAf+AAAP/AAAP/gAAB/wAAAP4AAAB8AAAAPAAAADgAAAAYAAAAGAAAABAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAACAAAABgAAAAYAAAAHAAAADwAAAA+AAAAfwAAAP+AAAH/wAAD/+AAB//4AB///w
D/8oAAAAIAAAAEAAAAABAAgAAAAAAIAEAAAAAAAAAAAAAAAAAAAAAAAA////AP///wD///8A////AP//
/wD///8Azv//AM7//wDO//8Azv//AM7//wAA//8AAP//AAD//wAA//8AAP//AJzO/wCczv8AnM7/AJzO
/wCczv8AzmP/AM5j/wDOY/8AzmP/AM5j/wDv7+8A7+/vAO/v7wDv7+8A7+/vAN7e3gDe3t4A3t7eAN7e
3gDe3t4A///OAP//zgD//84A///OAP//zgD/zs4A/87OAP/OzgD/zs4A/87OAM7OzgDOzs4Azs7OAM7O
zgDOzs4AY5zOAGOczgBjnM4AY5zOAGOczgC9vb0Avb29AL29vQC9vb0Avb29AK2trQCtra0Ara2tAK2t
rQCtra0A//+cAP//nAD//5wA//+cAP//nAD/nJwA/5ycAP+cnAD/nJwA/5ycAJycnACcnJwAnJycAJyc
nACcnJwAjIyMAIyMjACMjIwAjIyMAIyMjABzc3MAc3NzAHNzcwBzc3MAc3NzAHNzcwDOY2MAzmNjAM5j
YwDOY2MAzmNjAGNjYwBjY2MAY2NjAGNjYwBjY2MAUlJSAFJSUgBSUlIAUlJSAFJSUgBCQkIAQkJCAEJC
QgBCQkIAQkJCAGOcMQBjnDEAY5wxAGOcMQBjnDEAY2MxAGNjMQBjYzEAY2MxAGNjMQCcMTEAnDExAJwx
MQCcMTEAnDExAGMxMQBjMTEAYzExAGMxMQBjMTEAMTExADExMQAxMTEAMTExADExMQAAMTEAADExAAAx
MQAAMTEAADExAJwAMQCcADEAnAAxAJwAMQCcADEAMQAxADEAMQAxADEAMQAxADEAMQAAADEAAAAxAAAA
MQAAADEAAAAxACEhIQAhISEAISEhACEhIQAhISEAAAAhAAAAIQAAACEAAAAhAAAAIQAQEBAAEBAQABAQ
EAAQEBAAEBAQAAAAEAAAABAAAAAQAAAAEAAAABAAAL0AAAC9AAAAvQAAAL0AAAC9AAD/nAAA/5wAAP+c
AAD/nAAA/5wAAP+cAACcYwAAnGMAAJxjAACcYwAAnGMAAGNjAABjYwAAY2MAAGNjAABjYwAAnDEAAJwx
AACcMQAAnDEAAJwxAABjMQAAYzEAAGMxAABjMQAAYzEAADExAAAxMQAAMTEAADExAAAxMQAAABAAAAAQ
AAAAEAAAABAAAAAQAAAAEAAAcwAAAHMAAABzAAAAcwAAAHMAAABSAAAAUgAAAFIAAABSAAAAUgAAAEIA
AABCAAAAQgAAAEIAAABCAAAAMQAAADEAAAAxAAAAMQAAADEAAAAhAAAAIQAAACEAAAAhAAAAIQAAABAA
AAAQAAAAEAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPv7+/v7+/v7+/v7+39/
f/l/+X/5f/n5+fn5+fn7+/v7+/v7+/v7+/v7f39/f39/f39/f3/5f/l/+fn5+fn7+/v7+/v7+/v7f39/
XH9cf1x/XH9cf1x/f/l/+fn5+/v7+/v7+/v7+39cXFxcXH9cf1x/XH9cf1x/f1x/+/v7+/v7+/v7+/t/
XFxcXFxcXFxcXFxcXH9cf1z5XFx/+/v7+/v7+/v7f1xcXFxcXI75f/l/+X/5f/lcf39cXGZ/+/v7+/v7
+39cXFxcR1xHji4AABoaGi49+X9c+UdcXGZ/+/v7+/t/XFxcXEdcR1xcjmsAABo4a/lcXH9/XEdcXGZ/
+/v7+39cXFxHXEdcR1xHji4AAD35XFxcXH9HXEdcXH/7+/t/XFxcR1xHXEdcR1yOLgAAOJ1mXFxcf0c9
XEdcZn/7+39cXEdcR1xHXEdcR44uAAA9+VxHXFx/R0c9XEdcf/v7f1xHXEdcR1xHXEdcji4AADidZlxc
XH9HPUc9XFx/+39cR1xHXEdHR0dHR0eOLgAAPflcR1xcazhHPUdHXGZ/f0dcR1xHR0dHR0dHR44uAAA4
nWZcXH9HRzhHPVxHZn9/XEdcR0dHR0cpRylHji4AAD35XFxcf0c4RzhHPVxcf45HXEdHR0cpR0cpRymO
LgAAOJ1mXGtcKUc4RzhHR1x/f1xHR0dHKUcpRykpKY4uAAA9+VxcfylHLkc4Rz1cR3+OR0dHRylHKUcp
KWuOay4AADidZn8uRy5HLkc4R0dcf39cR0cpRykpKSkpjgAAAAAAPflcXCkuRy5HLkc9XEd/jkdHKUcp
KSkpKSkpjo4uAAA4nX8pKSkuRy5HOEdHXH/7jilHKSkpKSkpKSkpKX8uAD35KRopLikuRy5HPUdc+/uO
RykpKSkpKRopGikpKZ2dOH8aKSkpLkcuRzhHR3/7+45HRykpKSkpKSkpKVF/f51/USkaKS4pLkcuR0dH
f/v7+44pKSkpGikaKRopfxouPVF/GikpKS5HLkc4R3/7+/v7jkcpKRopGikpf38aGgAaPfkpGikpKSlH
LkdHf/v7+/v7jkcpKRopjn8p+RoAGhounRopKSkpRy5HR3/7+/v7+/v7jn+Of44pGhr5OBoAAC75KRop
KUcuR0d/+/v7+/v7+/v7fykpGhopGin5OBou+VEaKSkpKUdHf/v7+/v7+/v7+/v7fykpGhoaGin5+flR
GikpKUdHR3/7+/v7+/v7+/v7+/v7+fkpKSkaGhoaKRopKSlHR45/+/v7+/v7+/v7+/v7+/v7+/n5+VEp
GikaKSlHjo6O+/v7+/v7+/v7+/v7+/v7+/v7+/v7+fn5+fn5+fn7+/v7+/v7+/v7+/v/8AAP/4AAB/4A
AA/8AAA/+AAAH/AAAA/gAAAHwAAAA8AAAAOAAAABgAAAAYAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAIAAAAGAAAABgAAAAcAAAAPAAAAD4AAAB/AAAA/4AAAf/AAAP/4AAH//gAH///AP/w==
</value>
</data>
</root>

View File

@@ -0,0 +1,461 @@
Imports ACC
Public Class MakeList
Private Function Terminate() As Boolean
Dim Msg As New System.Text.StringBuilder("프로그램을 종료하시겠습니까?")
If MsgBox(Msg.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "종료") = MsgBoxResult.Ok Then
End
Else
Return True
End If
End Function
Private Sub MakeList_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Me.CHk_Modify()
e.Cancel = Me.Terminate
'If Not Me.IreaDataSet1.HasChanges Then Return '//변경된게 없으면 바로 나간다.
'If MsgBox("변경된 데이터를 저장하시겠습니까?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "저장확인") <> MsgBoxResult.Ok Then
' Me.IreaDataSet1.RejectChanges()
'Else
' Try
' Me.BindingSource1.EndEdit()
' Me.ssableAdapter.Update(Me.IreaDataSet1.Maintable)
' IreaDataSet1.AcceptChanges()
' view1.ActiveSheet.GetDataView(True)
' Catch ex As Exception
' MsgBox("데이터베이스 업데이트중 오류가 발생했습니다" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "ERROR")
' Me.BindingSource1.CancelEdit()
' IreaDataSet1.RejectChanges()
' view1.ActiveSheet.GetDataView(True)
' End Try
'End If
End Sub
Private Sub MakeList_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.Control AndAlso e.Shift AndAlso e.KeyCode = Keys.F1 Then
Dim msg As String = InputBox("개발자 암호를 입력하세요.").ToLower()
If msg = "ARIN2506" Then
' UserInfo.Type = E_AuthType.Demo
MessageBox.Show("개발자 로그인 성공", "확인", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Select Case UserInfo.Type
' Case E_AuthType.Dev
' Me.lb_auth.Text = "[개발자]"
' Me.lb_auth.ForeColor = Color.Green
' Case E_AuthType.adm
' Me.lb_auth.Text = "[관리자]"
' Me.lb_auth.ForeColor = Color.Blue
' Case E_AuthType.Demo
' Me.lb_auth.Text = "[임시사용자]"
' Me.lb_auth.ForeColor = Color.Blue
' Case E_AuthType.Normal
' Me.lb_auth.Text = "[정상사용자]"
' Me.lb_auth.ForeColor = Color.Black
'End Select
End If
ElseIf e.Control AndAlso e.Shift AndAlso e.KeyCode = Keys.F12 Then
Dim msg As String = InputBox("관리자 암호를 입력하세요.").ToLower()
'msg += Now.ToString("yyyyMMdd")
msg = msg.Replace("gorhkd", "해광")
If msg = "해광" + Now.ToString("yyyyMMdd") Then
Admin = True ' UserInfo.Type = E_AuthType.adm
MessageBox.Show("관리자 로그인 성공", "확인", MessageBoxButtons.OK, MessageBoxIcon.Information)
If Admin Then
Me.lb_auth.Text = "[관리자]"
Me.lb_auth.ForeColor = Color.Blue
Else
Me.lb_auth.Text = "[정상사용자]"
Me.lb_auth.ForeColor = Color.Black
End If
'Select Case UserInfo.Type
' Case E_AuthType.Dev
' Me.lb_auth.Text = "[개발자]"
' Me.lb_auth.ForeColor = Color.Green
' Case E_AuthType.adm
' Me.lb_auth.Text = "[관리자]"
' Me.lb_auth.ForeColor = Color.Blue
' Case E_AuthType.Demo
' Me.lb_auth.Text = "[임시사용자]"
' Me.lb_auth.ForeColor = Color.Blue
' Case E_AuthType.Normal
' Me.lb_auth.Text = "[정상사용자]"
' Me.lb_auth.ForeColor = Color.Black
'End Select
End If
End If
End Sub
Private Sub MakeList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'//오래된 스타일파일을 변환합니다
'Dim S As New CEpole.Frm_ConvertINI
'S.GetFileList()
'If S.GetFileCount > 0 Then
' S.ShowDialog()
' End
'End If
Me.view1.ASetting_Load(False)
If Admin Then
Me.lb_auth.Text = "[관리자]"
Me.lb_auth.ForeColor = Color.Blue
Else
Me.lb_auth.Text = "[정상사용자]"
Me.lb_auth.ForeColor = Color.Black
End If
'Select Case UserInfo.Type
' Case E_AuthType.Dev
' Me.lb_auth.Text = "[개발자]"
' Me.lb_auth.ForeColor = Color.Green
' Case E_AuthType.adm
' Me.lb_auth.Text = "[관리자]"
' Me.lb_auth.ForeColor = Color.Blue
' Case E_AuthType.Demo
' Me.lb_auth.Text = "[임시사용자]"
' Me.lb_auth.ForeColor = Color.Blue
' Case E_AuthType.Normal
' Me.lb_auth.Text = "[정상사용자]"
' Me.lb_auth.ForeColor = Color.Black
'End Select
For Each Obj As ToolStripMenuItem In Me.mbt_addnew.DropDownItems
If Not Obj.Tag Is Nothing Then '//태그가있는 아이템의 권한을 확인한다.
' If UserInfo.Type = E_AuthType.Dev Then
Obj.Visible = True
'Else
' Obj.Visible = False
' For Each C As Char In UserInfo.Permission
' ' MsgBox(C & "//" & Obj.Tag.ToString)
' If Obj.Tag.ToString.ToUpper = C.ToString.ToUpper Then '//태그가같다면 사용가능
' Obj.Visible = True
' Exit For
' End If
' Next
'End If
End If
Next
'If UserInfo.Type = E_AuthType.Demo Then
' If DemoDlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then End
'End If
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.view1.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style) '//글자정보 불러오기
' Me.ToolStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '//글자정보 불러오기
Me.bn.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '//글자정보 불러오기
Me.StatusStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '//글자정보 불러오기
Me.Display_Data() '//데이터를 보여준다.
Me.SETTOOLTIP()
Me.SetFarPoint()
End Sub
Private Sub SETTOOLTIP()
Dim TMSG As New System.Text.StringBuilder()
TMSG.AppendLine()
TMSG.AppendLine("더블클릭시에는 세부내역을 표시합니다")
TMSG.AppendLine("[총수량] 은 세부내역의 갯수로 자동변경되므로 수정이 불가능합니다.")
TMSG.AppendLine()
TMSG.AppendLine("<단축키 : ENTER:다음칸 , SHIFT+TAB:이전칸 , ALT+ENTER:윗칸복사>")
TMSG.AppendLine("<단축키 : DELETE:현재칸 지우기 , SHIFT+DELETE 현재줄 삭제>")
TMSG.AppendLine("<단축키 : SPACE-BAR:현재칸 편집>")
TMSG.AppendLine("<단축키 : CTRL + 마우스휠 : 화면크기를 조절합니다>")
TMSG.AppendLine()
Me.ToolTip1.SetToolTip(Me.view1, TMSG.ToString)
'TMSG = New System.Text.StringBuilder()
'TMSG.AppendLine()
'TMSG.AppendLine("데이터베이스의 내용을 다시 조회합니다.")
'Me.bt_find.ToolTipText = TMSG.ToString
'Me.ToolTip1.SetToolTip(Me.SortGroup1, TMSG.ToString)
'TMSG = New System.Text.StringBuilder()
'TMSG.AppendLine()
'TMSG.AppendLine("검색문자의 우선순위 : 숫자->영문자->한글")
'TMSG.AppendLine(" ->0 은 000 보다 우선순위가 높습니다.")
'Me.ToolTip1.SetToolTip(Me.SerchGroup1, TMSG.ToString)
End Sub
Private Sub SetFarPoint()
Me.view1.AEnterToNextItem()
End Sub
Private Sub CHk_Modify(Optional ByVal prompt As Boolean = True)
Dim Cnt As Integer = 0
Me.bs.EndEdit()
If Not Me.DS.HasChanges Then
NOTICE("변경된 내용이 없습니다", Me.lb_msg)
Return
End If
If prompt Then
If MsgBox("변경된 데이터를 저장하시겠습니까?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "저장확인") <> MsgBoxResult.Ok Then Return
End If
NOTICE("잠시만 기다려주세요...(적용하는중)", Color.Blue, Me.lb_msg)
Me.Refresh()
Try
Cnt = Me.ta_main.Update(Me.DS.MainTable)
Me.ta_jju.Update(Me.DS.Detail_tongsin)
Me.DS.AcceptChanges()
NOTICE(Cnt & "개의 데이터가 적용되었습니다", Color.Green, Me.lb_msg)
Catch ex As Exception
MsgBox("데이터베이스 변경중 오류가 발생했습니다" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "ERROR-")
Me.bs.CancelEdit()
Me.DS.RejectChanges()
NOTICE("적용오류 : " & ex.ToString, Color.Tomato, Me.lb_msg)
End Try
End Sub
Public Sub Display_Data() '//뷰에데이터를 표시한다.
NOTICE("데이터 조회중...", Me.lb_msg)
Dim I As Integer = 0
Me.ta_main.Fill(Me.DS.MainTable)
'Dim Dv As New DataView(Me.IreaDataSet1.Maintable, Me.SerchGroup1.GetWhere(False, False, False), Me.SortGroup1.GetSort(False), DataViewRowState.CurrentRows)
Me.bs.DataSource = Me.DS.MainTable 'Dv
NOTICE(Me.view1.ActiveSheet.RowCount & "개의 목록이 검색되었습니다", Me.lb_msg)
End Sub
Private Sub Delete_itm(Optional ByVal prompt As Boolean = True)
If Me.bs.Current Is Nothing Then Return
Dim V_Type As Int16
Dim A As New System.Text.StringBuilder("경고 : 해당데이터와 하위데이터가 삭제됩니다")
A.AppendLine()
A.AppendLine("계속하시겠습니까?")
If prompt Then
If MsgBox(A.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "삭제확인") <> MsgBoxResult.Ok Then Exit Sub
End If
Dim DelIDX As Integer '//관리Id이다.
With Me.view1
DelIDX = .Cells(.ActiveRowindex, "ID").Value '//0번째값은 관리id이다
V_Type = .Cells(.ActiveRowindex, "번호찰구분").Value
End With
'MsgBox(DelIDX)
'MsgBox(V_Type)
'Return
Me.bs.RemoveCurrent() '//현재템을 삭제한다.
'전주세부테이블에서 전부 죽인다.
Dim DelCnt As Integer = 0
Select Case V_Type
Case 3 '//통신주
Me.ta_jju.Fill(Me.DS.Detail_tongsin, DelIDX)
Me.PRB1.Minimum = 0
If Me.DS.Detail_tongsin.Rows.Count > 0 Then
Me.PRB1.Maximum = Me.DS.Detail_tongsin.Rows.Count - 1
Me.PRB1.Value = 0
For Each Z As DataRow In Me.DS.Detail_tongsin.Rows
Z.Delete()
DelCnt += 1
If PRB1.Value < Me.PRB1.Maximum Then Me.PRB1.Value += 1
Next
End If
NOTICE(DelCnt & "개의 세부데이터가 삭제되었습니다", Color.Red, Me.lb_msg)
End Select
End Sub
Private Sub view_detail()
CHk_Modify() '//변경여부를 묻늗느. 종료한다.
Dim Rowindex As Short = Me.view1.ActiveSheet.ActiveRow.Index
Dim ID, NAME, BIGO, DAN, V_DATE As String
Dim V_Type As Work_Type
'//데이터를 가져온다.
Dim Dr As System.Data.DataRowView = Me.bs.Current
ID = Dr("ID") '.Cells(Rowindex, 0).Value
If Dr("날짜") Is DBNull.Value Then
V_DATE = ""
Else
V_DATE = Dr("날짜") '.Cells(Rowindex, 4).Value
End If
If Dr("거래처명") Is DBNull.Value Then
NAME = ""
Else
NAME = Dr("거래처명") '.Cells(Rowindex, 4).Value
End If
If Dr("비고") Is DBNull.Value Then
BIGO = ""
Else
BIGO = Dr("비고") '.Cells(Rowindex, 4).Value
End If
If Dr("단가") Is DBNull.Value Then
DAN = ""
Else
DAN = Dr("단가") '.Cells(Rowindex, 4).Value
End If
V_Type = Me.view1.Cells2("종류").Value '//번호찰 종류 0은 일반 9는 기타번호찰
Select Case V_Type
Case Work_Type.tongsin '//통신주
Dim A As New AddEpole_Tongsin(ID, V_DATE, NAME, BIGO, DAN, V_Type, "일반번호찰") : A.Show()
Case Work_Type.Lcable
Dim A As New AddEpole_LCable(ID, V_DATE, NAME, BIGO, DAN, V_Type, "광케이블주의표찰") : A.Show()
Case Else
MsgBox("현재 정의되지않은 출력형태입니다")
End Select
End Sub
Private Sub CustFP1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles view1.KeyDown
e.Handled = True
e.SuppressKeyPress = False
If e.Shift AndAlso e.KeyCode = Keys.Delete Then '/delete
e.Handled = True
Delete_itm(True)
End If
End Sub
Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
Delete_itm(True)
End Sub
Private Sub bt_commit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_commit.Click
If Not Me.DS.HasChanges Then
NOTICE("변경된 데이터가 없습니다", Color.Red, Me.lb_msg)
Return
Else
CHk_Modify()
End If
End Sub
Private Sub bt_cancel_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click
If Not Me.DS.HasChanges Then
NOTICE("변경된 데이터가 없습니다", Color.Red, Me.lb_msg)
Return
Else
Me.DS.RejectChanges()
NOTICE("변경된 데이터가 복원되었습니다", Color.Blue, Me.lb_msg)
End If
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Me.Close()
End Sub
Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
If Me.DS.HasChanges Then CHk_Modify(False)
Delete_itm(True)
'//삭제하고 바로저장하게
CHk_Modify(False)
End Sub
Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
CHk_Modify()
End Sub
Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click
If Not Me.DS.HasChanges Then
NOTICE("변경된 데이터가 없습니다", Color.Red, Me.lb_msg)
Return
Else
Me.DS.RejectChanges()
NOTICE("변경된 데이터가 복원되었습니다", Color.Blue, Me.lb_msg)
End If
End Sub
Private Sub bt_close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_close.Click
Me.Close()
End Sub
Private Sub view1_CellDoubleClick(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles view1.CellDoubleClick
view_detail()
e.Cancel = True
End Sub
Private Sub view1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles view1.Enter
NOTICE("목록을 더블클릭하면 세부내역을 볼 수 있습니다", Me.lb_msg)
End Sub
Private Sub bt_savecolsize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_savecolsize.Click
Me.view1.ASetting_Save(False)
End Sub
Private Sub bt_refresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_find.Click
CHk_Modify() '//변경여부를 묻늗느. 종료한다.
Display_Data()
End Sub
Private Sub mbt_config_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbt_config.Click
Config.ShowDialog()
End Sub
Private Sub mbt_homepage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbt_homepage.Click
Process.Start(HomePage)
End Sub
Private Sub mbt_newtongsin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbt_newtongsin.Click
Dim f As New AddEpole_Tongsin(GetMaxId() + 1, Work_Type.tongsin, "일반번호찰")
f.Show()
End Sub
Public Function GetMaxId() As Integer
'//현제테이블의 가장큰값을 찾는다.
Dim Cmd As New OleDbCommand("select maX(id) from 전주관리", Me.ta_main.Connection)
If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open()
Dim obj As Object = Cmd.ExecuteScalar
Dim TMaxid As Integer
If obj Is DBNull.Value Then TMaxid = 0
Dim A() As DataRow = Me.DS.MainTable.Select(vbNullString, "ID desc")
Dim MaxId As Integer
Try
MaxId = A(0)(0).ToString
Catch ex As Exception
MaxId = 0
End Try
If TMaxid > MaxId Then MaxId = TMaxid
Return MaxId
End Function
Private Sub mbT_about_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbT_about.Click
DemoDlg.ShowDialog()
End Sub
Private Sub mbt_tomail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim Version As String = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Revision
Dim A As New ACC.MailForm("sender@mail.com", "프로그램문의", "메일본문을 입력하세요", "전주번호관리프로그램V3(Ver " & Version & ")", MailForm.MailType.question)
A.ShowDialog()
End Sub
Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
Dim S As New CEpole.Frm_ConvertINI
S.ShowDialog()
End Sub
Private Sub mbt_02_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbt_02.Click
Dim f As New AddEpole_LCable(GetMaxId() + 1, Work_Type.Lcable, "광케이블주의표찰")
f.Show()
End Sub
Private Sub view1_CellClick(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles view1.CellClick
End Sub
End Class

81
SpreadNet.v13/Epole/MsgForm.Designer.vb generated Normal file
View File

@@ -0,0 +1,81 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class MsgForm
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.bt_clear = New System.Windows.Forms.ToolStripMenuItem
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator
Me.bt_savelist = New System.Windows.Forms.ToolStripMenuItem
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'RichTextBox1
'
Me.RichTextBox1.ContextMenuStrip = Me.ContextMenuStrip1
Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.RichTextBox1.Location = New System.Drawing.Point(0, 0)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(776, 648)
Me.RichTextBox1.TabIndex = 0
Me.RichTextBox1.Text = ""
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_clear, Me.ToolStripMenuItem1, Me.bt_savelist})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(153, 76)
'
'bt_clear
'
Me.bt_clear.Name = "bt_clear"
Me.bt_clear.Size = New System.Drawing.Size(152, 22)
Me.bt_clear.Text = "모두지우기"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(149, 6)
'
'bt_savelist
'
Me.bt_savelist.Name = "bt_savelist"
Me.bt_savelist.Size = New System.Drawing.Size(152, 22)
Me.bt_savelist.Text = "저장"
'
'MsgForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(776, 648)
Me.Controls.Add(Me.RichTextBox1)
Me.Name = "MsgForm"
Me.Text = "메세지폼"
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents bt_savelist As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents bt_clear As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator
End Class

View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

View File

@@ -0,0 +1,22 @@
Public Class MsgForm
Private Sub bt_clearStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_clear.Click
Me.RichTextBox1.Clear()
End Sub
Private Sub bt_savelist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_savelist.Click
Dim SD As New SaveFileDialog
SD.FileName = "log" & Format(Now, "yyyyMMdd") & ".txt"
If SD.ShowDialog() <> System.Windows.Forms.DialogResult.OK Then
MsgBox("취소되었습니다", MsgBoxStyle.Critical, "사용자취소")
Else
Me.RichTextBox1.SaveFile(SD.FileName, RichTextBoxStreamType.PlainText)
MsgBox("저장완료", MsgBoxStyle.Information, "확인")
End If
End Sub
Public Sub ADdLog(ByVal msg As String, Optional ByVal Reset As Boolean = False)
If Reset Then Me.RichTextBox1.Clear()
Me.RichTextBox1.AppendText(msg & vbCrLf)
End Sub
End Class

View File

@@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 이 코드는 도구를 사용하여 생성되었습니다.
' 런타임 버전:4.0.30319.42000
'
' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면
' 이러한 변경 내용이 손실됩니다.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'참고: 자동으로 생성되므로 직접 이 파일을 수정하지 마세요. 변경할 사항이 있거나
' 파일에서 빌드 오류가 발생하는 경우 프로젝트 디자이너로
' 이동([프로젝트 속성]으로 이동하거나 솔루션 탐색기에서 My Project 노드를
'두 번 클릭)한 다음 [애플리케이션] 탭에서 변경하세요.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = false
Me.SaveMySettingsOnExit = false
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterAllFormsClose
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.EpoleNetv3.SplashScreen
End Sub
End Class
End Namespace

View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>SplashScreen</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>1</ShutdownMode>
<EnableVisualStyles>false</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>false</SaveMySettingsOnExit>
</MyApplicationData>

View File

@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' 어셈블리의 일반 정보는 다음 특성 집합을 통해 제어됩니다.
' 어셈블리와 관련된 정보를 수정하려면
' 이 특성 값을 변경하십시오.
' 어셈블리 특성 값을 검토합니다.
<Assembly: AssemblyTitle("전주번호찰(통신)")>
<Assembly: AssemblyDescription("전주번호목록 작성 및 출력을 하는 프로그램")>
<Assembly: AssemblyCompany("제공 : 해광기획")>
<Assembly: AssemblyProduct("전주번호찰(통신)")>
<Assembly: AssemblyCopyright("Copyright (C) SIMP 2017")>
<Assembly: AssemblyTrademark("SIMP")>
<Assembly: ComVisible(False)>
'이 프로젝트가 COM에 노출되는 경우 다음 GUID는 typelib의 ID를 나타냅니다.
<Assembly: Guid("e9e36afe-eab6-4c3b-a22e-2bbb3d42e032")>
' 어셈블리의 버전 정보는 다음 네 가지 값으로 구성됩니다.
'
' 주 버전
' 부 버전
' 빌드 번호
' 수정 버전
'
' 모든 값을 지정하거나 아래와 같이 '*'를 사용하여 빌드 번호 및 수정 버전이 자동으로
' 지정되도록 할 수 있습니다.
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("19.05.05.2200")>
<Assembly: AssemblyFileVersion("19.05.05.2200")>

View File

@@ -0,0 +1,553 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 이 코드는 도구를 사용하여 생성되었습니다.
' 런타임 버전:4.0.30319.42000
'
' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면
' 이러한 변경 내용이 손실됩니다.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'이 클래스는 ResGen 또는 Visual Studio와 같은 도구를 통해 StronglyTypedResourceBuilder
'클래스에서 자동으로 생성되었습니다.
'멤버를 추가하거나 제거하려면 .ResX 파일을 편집한 다음 /str 옵션을 사용하여 ResGen을
'다시 실행하거나 VS 프로젝트를 다시 빌드하십시오.
'''<summary>
''' 지역화된 문자열 등을 찾기 위한 강력한 형식의 리소스 클래스입니다.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' 이 클래스에서 사용하는 캐시된 ResourceManager 인스턴스를 반환합니다.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EpoleNetv3.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' 이 강력한 형식의 리소스 클래스를 사용하여 모든 리소스 조회에 대해 현재 스레드의 CurrentUICulture 속성을
''' 재정의합니다.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property about_16() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("about_16", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property about_161() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("about_161", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property about_24() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("about_24", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property about_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("about_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property apps_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("apps_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property back_16() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("back_16", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property back_24() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("back_24", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property back_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("back_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property calc_16() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("calc_16", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property cancl_16() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("cancl_16", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property cancl_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("cancl_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property confg_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("confg_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property down_16() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("down_16", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property down_24() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("down_24", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property down_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("down_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property edit_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("edit_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property excel() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("excel", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property forwd_16() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("forwd_16", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property forwd_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("forwd_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property go_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("go_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property image_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("image_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property lgicn_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("lgicn_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property new_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("new_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property new_321() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("new_321", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property open_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("open_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property opts_24() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("opts_24", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property opts_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("opts_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' (아이콘)과(와) 유사한 System.Drawing.Icon 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property Picasa() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("Picasa", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property play_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("play_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property prefs_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("prefs_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property print_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("print_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property print_321() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("print_321", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property prtpv_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("prtpv_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property redo_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("redo_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property ref_24() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ref_24", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property ref_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ref_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property remov_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("remov_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property save_16() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("save_16", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property save_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("save_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property skipb_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("skipb_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property skipf_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("skipf_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property smicn_24() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("smicn_24", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property smicn_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("smicn_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property splay_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("splay_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property srch_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("srch_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property start() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("start", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property stop_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("stop_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property up_16() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("up_16", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다.
'''</summary>
Friend ReadOnly Property up_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("up_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

View File

@@ -0,0 +1,268 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="up_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\up_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="start" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\start.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="stop_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stop_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="open_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="forwd_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\forwd_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="new_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\new_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="apps_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\apps_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="up_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\up_16.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="opts_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\opts_24.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="print_321" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\print_321.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Picasa" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Picasa .ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="edit_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\edit_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="srch_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\srch_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="skipb_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\skipb_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="redo_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\redo_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="play_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\play_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="back_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\back_24.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="down_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\down_16.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="remov_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\remov_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="confg_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\confg_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="print_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\print_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="prtpv_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\prtpv_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="about_161" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\about_161.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="save_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="image_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\image_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ref_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ref_24.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cancl_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cancl_16.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="down_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\down_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="smicn_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\smicn_24.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="about_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\about_24.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="back_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\back_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="back_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\back_16.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="excel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\excel.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="forwd_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\forwd_16.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cancl_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cancl_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ref_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ref_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="save_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save_16.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="smicn_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\smicn_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="prefs_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\prefs_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="down_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\down_24.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="skipf_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\skipf_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lgicn_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lgicn_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="new_321" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\new_321.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="go_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\go_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="splay_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\splay_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="about_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\about_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="calc_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\calc_16.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="about_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\about_16.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="opts_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\opts_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

View File

@@ -0,0 +1,84 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 이 코드는 도구를 사용하여 생성되었습니다.
' 런타임 버전:4.0.30319.42000
'
' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면
' 이러한 변경 내용이 손실됩니다.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.4.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings 자동 저장 기능"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bin\Debug\DataBase\i"& _
"rea.mdb")> _
Public ReadOnly Property ireaConnectionString() As String
Get
Return CType(Me("ireaConnectionString"),String)
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.EpoleNetv3.My.MySettings
Get
Return Global.EpoleNetv3.My.MySettings.Default
End Get
End Property
End Module
End Namespace

View File

@@ -0,0 +1,14 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="ireaConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bin\Debug\DataBase\irea.mdb&lt;/ConnectionString&gt;
&lt;ProviderName&gt;System.Data.OleDb&lt;/ProviderName&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bin\Debug\DataBase\irea.mdb</Value>
</Setting>
</Settings>
</SettingsFile>

View File

@@ -0,0 +1,11 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<applicationRequestMinimum>
<defaultAssemblyRequest permissionSetReference="Custom" />
<PermissionSet class="System.Security.PermissionSet" version="1" Unrestricted="true" ID="Custom" SameSite="site" />
</applicationRequestMinimum>
</security>
</trustInfo>
</asmv1:assembly>

View File

@@ -0,0 +1,2 @@
FarPoint.Win.Spread.FpSpread, FarPoint.Win.Spread, Version=5.0.3505.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457
FarPoint.Win.Spread.FpSpread, FarPoint.Win.Spread, Version=13.45.20191.0, Culture=neutral, PublicKeyToken=327c3516b1b18457

Binary file not shown.

After

Width:  |  Height:  |  Size: 328 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 693 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 809 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1023 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.9 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 715 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 590 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1017 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 694 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 8.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 720 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.0 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.0 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.0 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 636 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1010 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 680 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.6 KiB

248
SpreadNet.v13/Epole/StyleEdit.Designer.vb generated Normal file
View File

@@ -0,0 +1,248 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class StyleEdit
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip
Me.lb_filename = New System.Windows.Forms.ToolStripStatusLabel
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox
Me.Button1 = New System.Windows.Forms.Button
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.RichTextBox2 = New System.Windows.Forms.RichTextBox
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.Label3 = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
Me.bt_save = New System.Windows.Forms.ToolStripMenuItem
Me.bt_load = New System.Windows.Forms.ToolStripMenuItem
Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel
Me.StatusStrip1.SuspendLayout()
Me.TableLayoutPanel1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_msg, Me.lb_filename})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 572)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(861, 22)
Me.StatusStrip1.TabIndex = 0
Me.StatusStrip1.Text = "StatusStrip1"
'
'lb_filename
'
Me.lb_filename.Name = "lb_filename"
Me.lb_filename.Size = New System.Drawing.Size(79, 17)
Me.lb_filename.Text = "스타일파일명"
'
'RichTextBox1
'
Me.RichTextBox1.BackColor = System.Drawing.Color.Gainsboro
Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.RichTextBox1.Location = New System.Drawing.Point(3, 24)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(424, 412)
Me.RichTextBox1.TabIndex = 1
Me.RichTextBox1.Text = ""
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(126, 16)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 57)
Me.Button1.TabIndex = 3
Me.Button1.Text = "변경"
Me.Button1.UseVisualStyleBackColor = True
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.ColumnCount = 2
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Controls.Add(Me.RichTextBox1, 0, 1)
Me.TableLayoutPanel1.Controls.Add(Me.Label1, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Label2, 1, 0)
Me.TableLayoutPanel1.Controls.Add(Me.RichTextBox2, 1, 1)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 130)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 2
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 4.933586!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 95.06641!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(861, 439)
Me.TableLayoutPanel1.TabIndex = 4
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("맑은 고딕", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Label1.Location = New System.Drawing.Point(3, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(74, 21)
Me.Label1.TabIndex = 2
Me.Label1.Text = "원본내용"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("맑은 고딕", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Label2.Location = New System.Drawing.Point(433, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(90, 21)
Me.Label2.TabIndex = 2
Me.Label2.Text = "수정된내용"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'RichTextBox2
'
Me.RichTextBox2.Dock = System.Windows.Forms.DockStyle.Fill
Me.RichTextBox2.Location = New System.Drawing.Point(433, 24)
Me.RichTextBox2.Name = "RichTextBox2"
Me.RichTextBox2.Size = New System.Drawing.Size(425, 412)
Me.RichTextBox2.TabIndex = 3
Me.RichTextBox2.Text = ""
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.Button1)
Me.GroupBox1.Controls.Add(Me.TextBox2)
Me.GroupBox1.Controls.Add(Me.TextBox1)
Me.GroupBox1.Location = New System.Drawing.Point(3, 35)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(212, 84)
Me.GroupBox1.TabIndex = 5
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "전주번호 변경"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(55, 23)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(58, 21)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = "0"
Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(55, 49)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(58, 21)
Me.TextBox2.TabIndex = 1
Me.TextBox2.Text = "0"
Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(12, 26)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(37, 12)
Me.Label3.TabIndex = 4
Me.Label3.Text = "X좌표"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(12, 52)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(37, 12)
Me.Label4.TabIndex = 5
Me.Label4.Text = "Y좌표"
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_load, Me.bt_save})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(861, 24)
Me.MenuStrip1.TabIndex = 6
Me.MenuStrip1.Text = "MenuStrip1"
'
'bt_save
'
Me.bt_save.Name = "bt_save"
Me.bt_save.Size = New System.Drawing.Size(147, 20)
Me.bt_save.Text = "현재 내용을 저장합니다"
'
'bt_load
'
Me.bt_load.Name = "bt_load"
Me.bt_load.Size = New System.Drawing.Size(147, 20)
Me.bt_load.Text = "파일을 다시 불러옵니다"
'
'lb_msg
'
Me.lb_msg.Name = "lb_msg"
Me.lb_msg.Size = New System.Drawing.Size(14, 17)
Me.lb_msg.Text = "#"
'
'StyleEdit
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(861, 594)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Name = "StyleEdit"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "StyleEdit"
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel1.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents lb_filename As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents RichTextBox2 As System.Windows.Forms.RichTextBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
Friend WithEvents bt_save As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents bt_load As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel
End Class

View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>135, 17</value>
</metadata>
</root>

View File

@@ -0,0 +1,55 @@
Public Class StyleEdit
Public ListIndex As Integer = -1
Public Path As System.IO.DirectoryInfo
Public Target() As String = {"X1", "X2", "X3", "X4", "X5", "X6", "X7", "X8", "X9", "X10", "X11", "X12", "X13"}
Private Sub StyleEdit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'MsgBox(ListIndex)
Me.lb_filename.Text = StyleList(ListIndex).File
Me.RichTextBox1.LoadFile(Path.FullName & "\" & StyleList(ListIndex).File, RichTextBoxStreamType.PlainText)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim src As String
Dim pos() As String
Dim Cnt As Integer = 0
Me.RichTextBox2.Clear()
For Each A As String In Me.RichTextBox1.Lines
src = A
Cnt = 0
For Each Z As String In Me.Target
If A.ToUpper.IndexOf(Z & "POS") > -1 Then
pos = A.Substring(A.IndexOf("=") + 1).Trim.Split(",") '//위치값을 가졌으니 그 위치값으로 변경해서 다시 저장한다.
pos(0) += Val(Me.TextBox1.Text)
pos(1) += Val(Me.TextBox2.Text)
Cnt += 1
Me.RichTextBox2.AppendText(Z & "POS = " & pos(0) & "," & pos(1) & "," & pos(2) & "," & pos(3) & vbCrLf)
End If
Next
If Cnt = 0 Then
Me.RichTextBox2.AppendText(A & vbCrLf)
End If
Next
MsgBox("변경완료")
End Sub
Private Sub 저장ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save.Click
If MsgBox("기존의 내용이 새로 기록됩니다", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "저장확인") = MsgBoxResult.Ok Then
Me.RichTextBox2.SaveFile(Me.Path.FullName & "\" & StyleList(ListIndex).File, RichTextBoxStreamType.PlainText)
MsgBox("저장이완료되었습니다", MsgBoxStyle.Information, "확인")
End If
End Sub
Private Sub 파일을다시불러옵니다ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_load.Click
Me.RichTextBox1.LoadFile(Path.FullName & "\" & StyleList(ListIndex).File, RichTextBoxStreamType.PlainText)
End Sub
End Class

View File

@@ -0,0 +1,52 @@
<?xml version="1.0"?>
<configuration>
<configSections>
</configSections>
<connectionStrings>
<add name="EpoleNetv3.My.MySettings.ireaConnectionString" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bin\Debug\DataBase\irea.mdb" providerName="System.Data.OleDb"/>
</connectionStrings>
<system.diagnostics>
<sources>
<!-- 이 섹션은 My.Application.Log의 로깅 구성을 정의합니다. -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- 아래 섹션의 주석 처리를 제거하여 응용 프로그램 이벤트 로그에 씁니다. -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information"/>
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
<!-- 아래 섹션의 주석 처리를 제거하여 APPLICATION_NAME을 응용 프로그램 이름으로 바꾼 후 응용 프로그램 이벤트 로그에 씁니다. -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly>
<assemblyIdentity name="FarPoint.Win.Spread" publicKeyToken="327C3516B1B18457" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-3.0.2003.2005" newVersion="3.0.2003.2005"/>
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="FarPoint.Excel" publicKeyToken="327C3516B1B18457" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-3.0.2005.2005" newVersion="3.0.2005.2005"/>
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="FarPoint.PluginCalendar.WinForms" publicKeyToken="327C3516B1B18457" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-3.0.2003.2005" newVersion="3.0.2003.2005"/>
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="FarPoint.Win" publicKeyToken="327C3516B1B18457" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-3.0.2003.2005" newVersion="3.0.2003.2005"/>
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="FarPoint.CalcEngine" publicKeyToken="327C3516B1B18457" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-3.0.2005.2005" newVersion="3.0.2005.2005"/>
</dependentAssembly>
</assemblyBinding>
</runtime>
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2"/></startup></configuration>

View File

@@ -0,0 +1,238 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DemoDlg
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
Friend WithEvents TableLayoutPanel As System.Windows.Forms.TableLayoutPanel
Friend WithEvents LogoPictureBox As System.Windows.Forms.PictureBox
Friend WithEvents LabelProductName As System.Windows.Forms.Label
Friend WithEvents LabelVersion As System.Windows.Forms.Label
Friend WithEvents LabelCompanyName As System.Windows.Forms.Label
Friend WithEvents LabelCopyright As System.Windows.Forms.Label
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DemoDlg))
Me.TableLayoutPanel = New System.Windows.Forms.TableLayoutPanel()
Me.LogoPictureBox = New System.Windows.Forms.PictureBox()
Me.LabelProductName = New System.Windows.Forms.Label()
Me.LabelVersion = New System.Windows.Forms.Label()
Me.LabelCopyright = New System.Windows.Forms.Label()
Me.LabelCompanyName = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.lb_expiredate = New System.Windows.Forms.Label()
Me.lb_msg = New System.Windows.Forms.Label()
Me.TableLayoutPanel.SuspendLayout()
CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.TableLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
'
'TableLayoutPanel
'
Me.TableLayoutPanel.ColumnCount = 2
Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.0!))
Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 67.0!))
Me.TableLayoutPanel.Controls.Add(Me.LogoPictureBox, 0, 0)
Me.TableLayoutPanel.Controls.Add(Me.LabelProductName, 1, 0)
Me.TableLayoutPanel.Controls.Add(Me.LabelVersion, 1, 1)
Me.TableLayoutPanel.Controls.Add(Me.LabelCopyright, 1, 2)
Me.TableLayoutPanel.Controls.Add(Me.LabelCompanyName, 1, 3)
Me.TableLayoutPanel.Controls.Add(Me.Panel1, 1, 5)
Me.TableLayoutPanel.Controls.Add(Me.TableLayoutPanel1, 1, 4)
Me.TableLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill
Me.TableLayoutPanel.Location = New System.Drawing.Point(10, 8)
Me.TableLayoutPanel.Name = "TableLayoutPanel"
Me.TableLayoutPanel.RowCount = 7
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 9.565217!))
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.Absolute, 8.0!))
Me.TableLayoutPanel.Size = New System.Drawing.Size(527, 250)
Me.TableLayoutPanel.TabIndex = 0
'
'LogoPictureBox
'
Me.LogoPictureBox.Dock = System.Windows.Forms.DockStyle.Fill
Me.LogoPictureBox.Image = CType(resources.GetObject("LogoPictureBox.Image"), System.Drawing.Image)
Me.LogoPictureBox.Location = New System.Drawing.Point(3, 3)
Me.LogoPictureBox.Name = "LogoPictureBox"
Me.TableLayoutPanel.SetRowSpan(Me.LogoPictureBox, 7)
Me.LogoPictureBox.Size = New System.Drawing.Size(167, 244)
Me.LogoPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.LogoPictureBox.TabIndex = 0
Me.LogoPictureBox.TabStop = False
'
'LabelProductName
'
Me.LabelProductName.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelProductName.Location = New System.Drawing.Point(180, 0)
Me.LabelProductName.Margin = New System.Windows.Forms.Padding(7, 0, 3, 0)
Me.LabelProductName.MaximumSize = New System.Drawing.Size(0, 16)
Me.LabelProductName.Name = "LabelProductName"
Me.LabelProductName.Size = New System.Drawing.Size(344, 16)
Me.LabelProductName.TabIndex = 0
Me.LabelProductName.Text = "제품 이름"
Me.LabelProductName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelVersion
'
Me.LabelVersion.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelVersion.Location = New System.Drawing.Point(180, 24)
Me.LabelVersion.Margin = New System.Windows.Forms.Padding(7, 0, 3, 0)
Me.LabelVersion.MaximumSize = New System.Drawing.Size(0, 16)
Me.LabelVersion.Name = "LabelVersion"
Me.LabelVersion.Size = New System.Drawing.Size(344, 16)
Me.LabelVersion.TabIndex = 0
Me.LabelVersion.Text = "버전"
Me.LabelVersion.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelCopyright
'
Me.LabelCopyright.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelCopyright.Location = New System.Drawing.Point(180, 48)
Me.LabelCopyright.Margin = New System.Windows.Forms.Padding(7, 0, 3, 0)
Me.LabelCopyright.MaximumSize = New System.Drawing.Size(0, 16)
Me.LabelCopyright.Name = "LabelCopyright"
Me.LabelCopyright.Size = New System.Drawing.Size(344, 16)
Me.LabelCopyright.TabIndex = 0
Me.LabelCopyright.Text = "저작권"
Me.LabelCopyright.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelCompanyName
'
Me.LabelCompanyName.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelCompanyName.Location = New System.Drawing.Point(180, 72)
Me.LabelCompanyName.Margin = New System.Windows.Forms.Padding(7, 0, 3, 0)
Me.LabelCompanyName.MaximumSize = New System.Drawing.Size(0, 16)
Me.LabelCompanyName.Name = "LabelCompanyName"
Me.LabelCompanyName.Size = New System.Drawing.Size(344, 16)
Me.LabelCompanyName.TabIndex = 0
Me.LabelCompanyName.Text = "회사 이름"
Me.LabelCompanyName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.Transparent
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(176, 211)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(348, 26)
Me.Panel1.TabIndex = 2
'
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.Transparent
Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button2.Dock = System.Windows.Forms.DockStyle.Left
Me.Button2.Location = New System.Drawing.Point(0, 0)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(83, 26)
Me.Button2.TabIndex = 2
Me.Button2.Text = "홈페이지(&H)"
Me.Button2.UseVisualStyleBackColor = False
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.BackColor = System.Drawing.Color.Transparent
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.Location = New System.Drawing.Point(284, 1)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(64, 25)
Me.Button1.TabIndex = 1
Me.Button1.Text = "확인(&O)"
Me.Button1.UseVisualStyleBackColor = False
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.ColumnCount = 1
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.TableLayoutPanel1.Controls.Add(Me.lb_expiredate, 0, 1)
Me.TableLayoutPanel1.Controls.Add(Me.lb_msg, 0, 0)
Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TableLayoutPanel1.Location = New System.Drawing.Point(173, 95)
Me.TableLayoutPanel1.Margin = New System.Windows.Forms.Padding(0)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
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.Size = New System.Drawing.Size(354, 113)
Me.TableLayoutPanel1.TabIndex = 3
'
'lb_expiredate
'
Me.lb_expiredate.AutoSize = True
Me.lb_expiredate.Location = New System.Drawing.Point(3, 56)
Me.lb_expiredate.Name = "lb_expiredate"
Me.lb_expiredate.Size = New System.Drawing.Size(77, 12)
Me.lb_expiredate.TabIndex = 0
Me.lb_expiredate.Text = "인증만료일 : "
'
'lb_msg
'
Me.lb_msg.AutoSize = True
Me.lb_msg.Dock = System.Windows.Forms.DockStyle.Fill
Me.lb_msg.Location = New System.Drawing.Point(3, 0)
Me.lb_msg.Name = "lb_msg"
Me.lb_msg.Size = New System.Drawing.Size(348, 56)
Me.lb_msg.TabIndex = 0
Me.lb_msg.Text = "."
Me.lb_msg.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'DemoDlg
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(547, 266)
Me.Controls.Add(Me.TableLayoutPanel)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "DemoDlg"
Me.Padding = New System.Windows.Forms.Padding(10, 8, 10, 8)
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "사용자확인"
Me.TableLayoutPanel.ResumeLayout(False)
CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents lb_expiredate As System.Windows.Forms.Label
Friend WithEvents lb_msg As System.Windows.Forms.Label
End Class

View File

@@ -0,0 +1,603 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="LogoPictureBox.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAHgAAAEGCAIAAAAhWcaAAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AABvkklEQVR4Xu29B1hUd9r+z3X939+7bzax
RQWmnZmhS++9i4KCXRRRsKGoiKKIKIJKlSrSpTdpioWmYm9gLzEao4kliTGmZ3ez6767yb7/+3u+M8fD
DBiTTVE33+u5cKSe85n73M/9nJk5oyEsE4rKRaIKkbhKLKmVMPUM08hIW6Ty3XL5PrlOl45Ot47uEV3d
47p6J/X0TrGFG8f09I7o6Xbr6u7X1W3X1d2nq7NbR2enjk6zjk6jjk69jk6djixDxsxhRJailJSUy5cv
f/vtt3/729/+/ve//+///u8//vGPf/7zn999993333//L3b936u+WNBlInG5WFIhkVRKmCpGWiOV1kpl
O2TyJrm8RS5vlevs1dHt1NU9oAuy4Esoo46yrA+xn8dX29RY1+joVOvI0mXMbEZkIUpPT7958+Zf/vKX
v/71r0+ePPlPw60BylA0Bc1UMgR0lVRWLZPVyuR1cnm9XKeBBdeio9OqA+US/Xbp6h7UJYi5UrLW3aOr
s6sPa3mVXF4pl6ZKJTMlQmNhYWHhhx9++B+Im4B+SrlSSblaJq+Rk6qVwwQIsh06hHiTkvheljjgwjoA
HQXWuAOojbSqsa6Qy8vl0o1SyWSJUEfY0NDwpz/96T8KtwYoiysUoEFZWk1AP6Vcq/O0OOIgCI4qxEEZ
hRucZeMbVFiXyeWlcmY1I/YRR0REHDlyhMP9ynu3hrhMLCmXMBWsnCtZOdcoQPehzBVwqxCHL+9mXQXW
Acq0uPaIgwDfybEulcu3y+WFcmYRI7IXbdmy5c6dO3zcYK2CW7GlL/nSEBeLxaWENaFcJUPJq+WkBgLN
lYqlgPguHXi0gjgKN2DZtD2qsC6Ry4vlsmSZZLpEqC9samr6+uuvgZtLJq+etDXEOWLJNglTxDAljLRM
KquQySoJa3DpUyqUuepX4LAUShzGwrVH3B+1PNbFcnkRK+0oRuwpXr9+/ZUrV4D7z3/+80DGrdjkl3Np
iNPF4gyxJEPC5DDSPKmsSCYrkREzLSdpAfnsuYir44ZBgy8sBaDhIVwUqevLulAuL5AjcUtmkUxSX1//
5ZdffvPNNxQ337hfdmlriFPFkjQJs4VhMhhplhQl2yqTb2MRwExBHFCApur5NK6CWylwUmDNtcdqnT6s
8+WyPBmzihF7iTds2HDjxo2vvvqKc5JXQ9oa4mSxJEXCpDFgLU2XSjOkskyZLJstEM9jD3Ae8efSOB83
tW/gpkV1ja/Csvms8+SybTJpmlQSKBEaCPfs2fPFF1/06yQvqbQ1JIkSJplhUhjMFNhP2RYZZjnCmsNN
ieezRMDl+QWujhuKpqy5KMJjDVHjD8lyZMwyRuQkysrK+vjjj+EkNJO87NJmQScx0mQpqRSpLE1GiuLO
YHFnKXHnyMBCxVJ+QOAq3k1x0+JYVypZw6y3KVhLN0jF/mKBUNDb2/v555+rS/ulCyQaoMyBlqXIFJXK
w60u8FwWN9D8NNwoyho3KGscIiqs2T/EzGaEo4QtLS2ffvrpyy5tAvqpnDnQfNwDCRx+UvBj/EQdN0RN
WdPYh7sNvw2NEaxx9FDWsBFH0bZt2x4/fsyXtnrWVuzQi7o0xIvFTDxhrUqZX8/G3de+f1jdYM3H3S/r
3Kespeuk4jEkaN+6deuzzz7jAsnLZSMazs7OAgOByE0kni5mljOqiPnF95OB1P08ZsKXNj01iI/qrJUG
QlinSCVTJAKJ4PTp05A2AgmytoqNvOCsNerq6vLz82NiYoKCghwdHUVWIom/hAljZBvVQNN6hrqpd2O8
Biy0OHXcHGsV3FzRcaY/1ihi2YbC9vb2Tz755KWzEY2dO3e2trbuZhfSa3Z29pIlS8aMGSMyF0nGSZhF
jCxRjTVKHTdHBMmERu/nNG7OSVC4MbCuUVCAyEKEARLJDx2S2ghNIy84a42Ojo7Ozs6urq79+/fjBhYk
09bWBpkvX76cELcWSSZLmEg1V+GchOIGaw53zg8ZtwprDjetZ7NeTk77FRcXP3z4EDZC00i/lq3YxRdj
aRw5cuTo0aPH2IUbhw8fPnTo0MGDByl3QIfGFyxYIJQJxR5iJlTNUp5h3NRJIG32tMkPS5uPm2Y+yhpD
o7Ix0sKwLnIR5eTkfPjhh8+2bMVevgBL4yy7zp07h4+YDs6cOXPq1KkTJ06AO+4DDjrC7IYNGyZOnEgE
Pl0iXaMWujnc/6a0KW58fCZr6Vop7vjU1NQPPviAb9kvbHvUeOutt65fv46P165du3r16uXLly9dunT+
/HlwB3R0eUCH0kG8u7sbxHNzc0NDQ4UmQskECROl9JNnJ26+tNVdm8+aj5vPuogd0Pmss2TSOKnYW5yY
mPjgwYNHjx4h+am3xxeHtcadO3feU6533333nXfeuXnzJtCD+5UrVy5evAjoUDqInzx5EjKHt4B4RUUF
eiYyAIkoK1ncYP08rg1qz2kj6qwxyHCgUWAdLxX7iDdu3Hj//n2uPapHkReBtcZHygW/w2GILb537x6g
3759m4MOpUPmFy5cgMw54tA4un9kZCTBHSCRrpI+ZT2QtGkgeR4b4XDjBjejq7DGr82USRPIOJOQkIAt
p+2RiyIvFGsNqAAHHTwON7CV8DtIA9wp9Lt373JKf/vttzniVONwFfj4jh07IiIihKZCyVSJdL3ytJQK
a07anI30G/74oLliv6Q491TIDo3qrH3EmzZtgkSw5VwUeaFYa8DX0LKxWfiI29hEQAd6DjqUDhOkMqfE
OY2jhfb09KB5QuBVVVVhYWEiWxEzh3USPmsVG6FjJOaa57FsWvh8NY81F/hY0IQ1PMRbnJycDGXwWSP2
vSCsNXC3cwsJCQanAp0qncqcTxyughYKH+cEfvz48YKCghkzZoi9xMxS5lmsn23ZKpRpUdY4DnA09Msa
vdFDnJGRAdZc7HtxWGvQjcBCKsJtxH4kJEDH9nHQ4XrYaCpzSpy6Chop31IgcOonSUlJxLgnS6Qb2EcS
ONZ9LZs8fPOc7ZGCpmYN1jgaMMhwIYRjHSMVOYvy8vLef//9F421Bv4wXdgIrH6hQ+l84pzGqY9D4Ldu
3bpx4waCCsWNXIixfunSpSInETltMjBrNLc+7ZEPGvUM1jRc01+CYkGjkDhFdqLy8vJnsP5NZhkNevfS
hS3A6he6OnG4CnYDAZYKHDvG+QmHG6FbqCuUTJLAQ38G1spPEtbw92JeCFGKmrBeyojMRc3NzSqssf2/
IWsNxb/KRYljUeIUugpxzlXg41TgaJuIVnBw+IkK7q6uLkRAsQvr2j8Xa5g1WNNwzYUQjnWGjFnACA2E
Bw4c4Fir55BfmbUqaP7iiFPofOJwFb7AsRvUwVVwUzNB+s7OzhaOEjJBjAK0OmvEvudhrfwMAa0eQiho
yjqIEUgEuKdfENbPAs2tfomrCJzvJ3zc8G60SkyYLS0tmN3F48Qka3Ogfyxr3mcIa3wnQkiBsjHyRI0/
IZkoiYqKQrvGltDMhy2kcyM2HruAffnVWD8XaG5xxPsVOPUT7AynburdaJVIJpcvX0YKjI2NRTBgIlhp
q7PmPEQlh3CK7pc1QgjXGDnW6TJpolQ8WpySkqLOGvr4lVn/ONB0cbixgJsTOB83NRN4N22VNAhS487J
yRGaC5m5DAE9EGv4L0DzZ/T+QCvMWqUx0l/Iilq6RiqyJyEEdzYmANz36Cj03BNljY0Ha7pHit37ZdZP
Ac0tDjffTzjc1LuxY0gmCILYT+okmHHq6upIGgmUPAXNZ50nU+Tr5xC1gjXfrHmiRjHhjNBI2NHRgb+O
uxypFAoAazQYbCq2GVuOXXihQdPFqqGPn1Dc1LtpMsExiz2EcSN0U2l3dnbOmzdPMkGCA/wpawqam2XY
GV0BlA+6L2sCul+zZkVNWKMxCgTwLsoadzx6CXSALfzVWP8MoOlSx821Ss644SQIAJD27du3IW0E7RUr
VojHiskASUFzoqYzOsyXa4wqoFHqrPlmTX8hCxqxEk04Pj4erQImhvsbW6ISrn9ps/7ZQNNFWWNR1hQ3
30lUpI38t379erGXWBqrxnqr8jwf9+xhFdAojrV6su4ravx+kYOorKwMdzD+NKwMW8IFvl+hMf7MoOlS
kTbnJNgrOAkOW07aOJahssTERLGrmIlmFKwpaI41/HcgUaOUrAloLllTA6G/TSlqZjEj1BceOnQIAZ8L
1/wQgq3FNr9MoLGwuSq4qZOgBUHa1LVp/sOxjD1PT08nsW81y5oTNQohhG/W3KMBaqAVrKmB5PMMhIqa
Pd8imSbBmIpcj4OJH0J+hcb4S4Gmi8OtLm3q2jSQUBvB9EhOQoE1QKuYNVhXsAYCsj/ImqY9voEoRS3d
LBW7i5Ev0Y25EMI1xl/UrH9Z0HRR1nxpU9fm2wgGCkRdwhq6hofwRa1iIBS0Cm6ONcxa3UB4omaWkbTX
1tZ2/fp19GSVxsiZ9UsJGosIu6+0qY1g92iHpHMNVJaZmSl2E0vXSZ+CRvGnGGB9JmuFgaCL8hOIUtSy
NPJSsCVLlmB0oo2xX7P+2UX9K4Gmi7LmpA0bgYiojcArcRSDNVSWmppKckg8jzUMhCZrGAhogi997kd/
oBWsYSBIIHSEAWjKmhW1dJMUvXfr1q0YnWBZOJhg1r/0FPOrgsZSYc23EewqTX5ojxs3bhT7ismTiTnW
XNqjBsI9p6lf1pyBYIShP04NhAUNUZNxUU948OBB5Ev+FPPLGcivDRoLW09x822Es2yuPUZHR0smSp6C
huEqDYR0RSrqgVkrDIQ7B8J1RRY0MZAJktWrV1+8eJFOMVyy/oUM5DcATRdlDdVwrGnyo+0Ruw2thYeH
S2byWEPUynGR0ARi+gRUvocoQStYw9ZVuqJS1GSEsRZVVlZiNKfJGn3il0t7vxloLI419gesueRHUzZY
nz59WqgrZBYwCtBU1DAQ2hUBl3uyb3+sFaKG29BYrSZqZjYze/bsc+fOIVkj83Bp75cwkN8SNBafNfZK
nTVymNBCSJ51RllTUXNdEZTpqwWeYSAqXZGKmj4VIlmGWI1ZCQaCtPeLGshvDBrrB1lXVFSIXEWKEMKJ
msZq8KUvzlBhrQT9tCvyZ0VO1KnsXC4jcznSnoqB/LwjzG8PGgv7gMWxxu6psE5OThb7ixWg1UXNveKo
P9YKA0FX7FfUqTLEm/Xr1/MNBA2ZP8Jgq/59A3khQGNR1hBOv6yx80uXLoWlElLgxT1ZkoqagqasBzIQ
Oiv2K+pI8tKY1tZWlQRCR5ifqyu+KKCxnsEaOeTkyZNCYyGzgiGgqXtw8QOIm9iCjTxb1PQESF/QshSZ
JECycuXKnp4eJBB6vok7BwJRcwbyioDGUmHN+TXN17W1tWQ6xxSTy7oHN5RDyPTFz882EBr1+KKm7pEi
k66SCk3IlZ7Onz9PzzfRcyBcV/z3Rf1igcbqlzXN11BZQkKCZJqEgMZETgfFSjbnATH/Zc9qoElXhKhL
lPOLuqgnSZYtW3bmzJlnd8VXBzQWZc31RrDGBEFn9Bs3bpBkHcEoQLOnqglHmAYotyhZ/6CoaabmgZZG
E1HX19efPXv2GV3xJ4v6RQSNxWeNPeRmdEisubkZaQ9oFKC5lgjEO1nW9LoJHGiONSdqdadmX4mDiR+i
xpREuyJ3Yo/Oiv+mqF9Q0FjYH8hHhTWSAPY8Pj6emcEQ0LBpuAfXEvnXXunPQFRFzeU8FjRxaiNhY2Nj
b28vPbGnPiv+ZFG/uKCxONaQEnYSu4odRoNCNgARHOwENLIH3KOaJQvEu5Ss+00gVNT8TE1bIuseRNT+
5Flkp06dunDhAn9WpKKmUe+nifqFBo3FZ42Dl7KGxDAuiseIiagBmjv1QUG3sqxVDERF1PT0KUD3FTWz
nBHqCPfu3ase9f5NUb/ooLEoa+yeSmMMDw9nwhkCGjaN7AGa1D12s6y5C2X9oKh5oFHi0eK4uDjEdhr1
fi5RvwSgsfisObPu7OwUOYlAioCmNg27YEE/vdjeQKLGj9CzH1xLVLoHE8aMGzfu6NGjiHo/o6hfDtBY
2CuuMVIDQfCC9JgQhlgBQMOmafag1++kF5F8hqiL2PPUai0RhfsvMzPz5xX1ywSab9Z0ikHmFVmKMCsS
cJxN08sv04ujPkPU2/sOLzzQTBAza9asn1fULw1oLMpaxaxTU1MlMyVPQbM2TUCzF0d9KmoKWsmagC5X
5jw195CuI8NLVVUVFbV6/PgJmfplAo3FsYamYNbQFw5tobFQmiQloMGRgqYXW0bBQAYSdSU7vAzQEiXj
Sc6DqBE/uEzNDYr8sx+KLfuh9ZKBxgJrFQOBn0pmSBSg2VkcfAnljh8SNcyd3xL57hFOnunb3d1NMzU3
KPLPfvwo93gpQfMNBAkEhzaOdGAiEOnYgn4I0F0s64FEzbVEgEZL7OseKJEDuZrksWPH6KBIz36onNJ7
fvd4+UBj8Q2EJhA4NTObISg50PBoepH2NqWoOdBK1kTUaIncqY++oCXTJHPnzj106BA9+3Hjxg16Sg8R
np6n/lEt8aUEjYV94xvIpUuXED/kW9m3fgBoBA8Kmr7LAxV1vzkPLZGbElXcI4o8nNja2nr8+HHEG/pU
mwcPHqAl8h98eU5Rv8SgOQOhIwzJ1IsYolwKGsEDoOm7PLSzosZ9oC5qtERMiZx78ECjxC7kigmHDx+G
qOl56oFynmKzBl4vK2gsFVEfOXJE5CwiLZEPupt99xLcgKibBmiJpbxA3dc9mBlMcHDwwYMHT5w4oT68
/KiW+HKD5kRNu2JYWBgTw6iCPszqGk7dMnBL5AJ135BHTpzKhDt37lTPeT+2Jb7EoLE41rQrNjQ0SAIk
xCUoaLjzIfJWSIR1F/vuMAO1ROoeajaNwjgO90BLRM7jWiJ99umPco+XGzQW9pAaCESN/RfqCuG2itMd
FPRR8oZTRNrI1LQlqoOGe9DJhZ734IFG9ggNDT1w4AC/JVL3QEt8/inxpQetImqojwljyMBCrQOgj+np
nWDf1quTbYl896CsqXtwk4uKTS8nk0tHRwdaIn3ott8p8dUHjYU95EQN3Yldxbot7LkODvQpwpo4NVpi
v+6B7EEnl37dw0qUm5uLKfHkyZPclNhvoFZsUH/rFQHNF/WsWbNkybKnoI/r6Z1mC6JGzhvIPTC50LOm
aqAl4yTLly/fv38/nRKvXr3KD9Sce2AbniHqVwE0Fl/U+fn5TAhDhu/9CtD6p/UNTxsSUe9XugcHmrKG
e5SxF4vsz6aZuUxAQEBnZycXqLkTp8/vHuRSP4qbL/PiixpHt8hBRIIHRhWAPqFncNrA+IwxcOO/A7qH
Ssjj2bQ0ViqUk0fH/x33eEVAY2FHsKtQFvSFKQOHPzHlwwQ05GzWYwbWUPez3IMLeX1Bo3DPpaWlUfeg
z7D5se6h8Yw74eVaVNTYW+wzehezgCFyPkI6IRBb9lpa9FgQUVP34INmWStC3kA2HSAJDw+n7qGePZ5n
ciGgXxlRY1+oe8BJxW5i8satCNEsaKteK9uztiZnTBTu0e95j3KeTfcFzcwnj9i2tbXx3aPfyWVA0D8Y
AF+ihR3hWuL48eMRJGjkgG+AsuM5R+AmLRHj+EAhj2/TPNDSGKmAEbS0tNDJ5dy5c2+99dbt27f55z2e
bdMaz7bwl2sBNCfquLg40KGd0LzH3OGcg+t5V7CGX5NxXMWmWdaqNs0DjUKazs7OhnscOXIE7qH+UADu
3WfYtMazLfylW5yooT5Mz/ANkIVBO5138rzo6XHBA9DhHuRZH2qgSchDmh6gH4pHi1etWtXe3k4fClA/
a/psmyagXzH3gG6wUziuRZYivQPEoK17rSHn0ZdG+1zygbRJ9tjL2rQKaIgaaXpr//2QCWSCgoJg09xZ
0+vXr/cb8voHzTnLK8Oac4+pU6fql+jDoO3O2kHL4y6NC7gcgBskeyDkDZSm6Uv11UGHM56ennv37uVC
3rVr11Rsmjs9rdgU3tKgzvJKtsT4+Hi9dXrUNyDniVcmTr061feSL9CTkAeb5oNmWRObpv1QLXhI15N+
2NTUxIU8+tya57Rpcv3oZ7fLl25hJ7Ev2GFAkQfJkTfgG+ALyjPfmjn5ymS4B7HpgdL0M/qhOXl7tJ9m
0xrPeU7k5VrYF0gHwYBxYoAVdjH+8vjAa4Eh10PAGv+FTZMnjP1gP+wLGtkcYYZv0/xZ/NlpWoO7H/r9
8ku6sCOQFQ5kgUjgsMfB+6I3fGP29dkLbyyc+/ZcmDUyH3kcQP3sEu2HmA/7A435MCwsbN++fZxNP3+a
1kC75H/51WBNQUM9oaGhdoV2IDv92vT5N+Yve2fZkneWTLs6jYS8TrYf8kGzrNEPSfAAaPTDvgmPmc1M
mTJlz549NE3TRxHVT3r0D5rv4q9SS6TusXnzZus4a8g5+Hpw+Dvhq99djQp9O5TY9IEB+iHmQwQPmvBU
QC9h3N3dd+/e3dHRwdm0ysO1A/VDDfUTfa+MqLE7dXV15nPNIed5b89bcWvF+jvr496Lg6i9LnrpHdEj
j4s/I3ioJTzpWqmZmdmuXbtg09zDteiHd+/e/cF+qEE1/+qJGnuBfQELo7FGkPOim4tibsckvp+YfDc5
+t1oBGpM52Q+7Bc0fVhLLeHJkmVCXWFlZeVAYwvXD/sB/fDhw3/n+dUv7MIuYEfQpuTm8rnX5i5/Zzm0
nH4vPft+dsJ7CUgg6If9Bw+wpglPHTSb8HJyclT64Z07d/hPNKUYVUH3+2QybKLi6y/zwl5ghx0dHUMO
h0DF0PK2B9uKPihKv5++4MYCMrYgeKiAZlk/TXjqoJ1EGzduRD/s6uqiz6qhDwJwwWOgfqjBXYzslRQ1
9mXy5MkhLSHx78VDy2UflVV9XFX4QWHkO5GYy8kgrpLwKOjSgaO0tzgqKgr9kD8fcqfxqF65uUSxHezS
4NIJv2m+Gqyx/Tg6lyxZMqt4Vtq9tOIPi3c82rHz8c7qj6vj7sRhbCGDeL8JD1F6ANA0Sre2tvLnQ5VH
W7jgodgOdmnQpklFTTM1vUNega5IQeNID0wNzH2QC767H+/u/Kxz1+Nd4I6hXLd74Cg90MwSKJk5cyYN
HvTRlucMHhrcFfZ+3stTvCALu1BYWDhpzaTSj0qbP2k+8PmBo18e7fqsK+9B3pSrU0jCQ5TuFzSdWdRA
MyHkqQc7d+7kggf/YS0uVvQDGsrnnsv+M16e4gVZAN3U1DQ+bHztx7Xtn7Uf/+r42W/O4mPlw0pM5OSM
R7+gq9gn8vYLOowZPXo0QCN4cA9rPc+JafKes7/E5SlekIWNh+68Z3jDLg5/cRiUaUHdYTfC9E6xM4sK
aPY9nMmjtP2CjmCcnZ1bWlr4J6afJ+FpZGdn08tTcE+x5ke9l501thyKcxnnArvo+bqHAw11I3gYnjYk
J0v7A02e84gpXA20NEpqbW3d3NzMJTz6JLF+Ty31Ac0w5rh/+K8PfZW6IrYc+2XraktNgys4deztWJMz
JmQ4VANNTpYOBHqt1NTUlILmP1D7g6eWNMzMloSGhuJugf7pd9OuSLvni2Yg2IwfXIpvZRf+C6GZWZvx
KaOg7s3vb7bosSDPTlehjALoQuV5JRXQcVIDAwOA7jdKPwu0q2u9kVFgbGws7Yowdf71bX5RA8GhgzaC
bW1sbMzPz9+0adOKFStwr2PEQMNxcnKysLAwNDSUyWQSiUTILtzAf/FJfAnf4O3tPWnSJPxIZGQkYty2
bdt27NiBeIsohV3ANmPhrxiMMuj9updfYI1x3KrXikzhKpRR6IcDgJZtlMnlcjTYfs/hqT+mpdhVFvQO
R8c8Pb3RGOFxCHAGgqSiYiD4sZ/MGr8HbQCRKC8vb/Xq1YGBgcBkbjxqrIdryNSJq8Pmpq1ZuT1lY0t+
dnd1ydld9Tf2775/vOvx2aN/unz6ydvn//HOpe/fvYzCDfwXn8SX8A032prO1pV0F6S3JK/bHr0kNSx4
VWDAHB+3sbaW5ga6GL7xh5YvX/7m8DczdmTUnak78uGRni97SH3Vk3Mvx67HjiiaPb9B6nlAJ8oYhgHo
gWaWZ4FG2dhslkqt6+rq6EMG1EBUEsiPMmv8FP489JWQkICEr6cjH+PuGh48Y0tMVMPW9FNNVcD0j3cu
/uv2lX+3bvT+6/Kx73u7vj/e+v2hhu87Kr9vLfy+IevvFZvvpq84GRNaP39ilLPxPDdzD1M5I9bynuw9
d83cjds3xrTF2B2zk+9krz+B4nCjYB0FA4BOlolEIoBWP1kKgT5jOAToBrZ2WFquEov14Tt8A6EJ5DlH
GNyZyJXQ7KJFi3Tl8gAf7zWL5pelbj7RUPXxmUOqgH7GunXxX9dO/evCoe9Pt31/uPn7rqrvdxPW31Ul
fVca911B9KN1M55smfckefa9NRO753sVTrKLdBvlbSIaqvWHQT6DhgcPF6wVMAUMCRts6VSxoGm8S2aL
xxoOBq9THw77fZRWgYYF3eTq2khxm5qGzZs3D+5ODYTO5c82a9zGn9m+fXt4eLiJkeGsiQHQbHtZwb1j
Xao4ftF699K/rvf869KR73s6ibQP1H6/t+T75q3f1aZ9V77x0aa5T3LCWdbBTzZO/9uGSX+L9f/zau/z
c83K/WVRjlrehoNHav73IM9BI0JHCBOE9NmO0gypNFUqS1KyVhYFTYdD7jmPUGe/U7gCE0C7uTXzWY8a
FYyOxM3lOBa4sZJv1qCPv5GcnIy/OsHHe/PKZftKtj04cUB1/3/NeufCv946rWS9i7BuK/1+V/73OzIf
pUc8KV79JHfZk4yFT1LnPNk042/xU/4cM/bxSodHS60eLTJ7tND47Az9ojHixTYj7HRe/6+h/9+w8cO0
FmhJNpD3TCOVRIpATyLWAUtEJqZT+LNBc6IkoHmsG52cyg0Np6xfv54bYbi0B9YQOH57XFyckYH+3OmT
ixI3XNjToLrDv34BMeR89SQo/+vcwe/PdCj8urPq+7bt3+3M+yQ35kll/JPtMU/yVjzJXkyknTTr2/hJ
j6PdH0XaP1rCsl4w6sP5RvfnGb0fatjkL13rqOmjP3jY8P8e4j5Ec7amZJ1Eii4G4hulaIb19fUAzU3h
9HkH/NMd/YJu4bEmuB0dCw0M/BMTE+E71KzBGlEGbc1AX2/e9KllqZve7tr93S2SBFT3+WcvNEyi06MK
gif3ErUeaf7+UCOp7h3fd9d/f7CO6Be1v+b7rmqWb/n3+7Z/v7vo+10F/2zKebwt5knN5ifl65+URD/J
X0FsJH3+t0lBn8aNeQTWK5weLbV5tMgcuias5xrdCTF8d47hO8EGe/xl6x21xugNHjbsv4d6DdWap4Uc
jXxZW1uLfoiZhZvC6emOZ5xX0nB3363Gusnefque3pj09HRMmUlJSVpaWlN8x2Stj0bw+utbZ/9+A3nr
4j+VkUsVzU+oqydJHwM10GnK/q46mTSxwujvtkZ+l7Xku/Sw71Lnf5cc+l1SyHeJs0ltDmZvzPkuOeS7
lLnfpc0n35Ox+LvsZeRHtq38Ln8V+fGitd+VrPtHUezjlEUEcdHqJwVRT/Iin+QufZK16Nu0kE83BXyy
Hqw9CesIu0fhlo8WmjycPwq6fi/E8FawwY1ZBteD9K/O1G/wY1bajnSSv/Ffb/x/mpqaW7ZsaWhoQMKj
wyEd97jTHfS8kipoT8+Oflmbm6doatrpSqWRc2c3b8t8eKr707NHv7p44s9Xz/zt+rn//TdYkygG0dWn
f1cU8136ou82Bf1z3aR/Ro39Z6T3/y7z+HaJ+5/C3b5c7Pr5YtfHi1wfh7k8Wujy8UKXhwtdPlpACjfw
X9QnYS746meLXL9Y7Pp1uBt+6q9L3f++zP2fER7/XOFNfuEaf/zmJ2snfxrh82RT4JPEoCcpc56khTxJ
C0V9mzLr8Sb/T+J8P4n1eRTt8Wil86Pl9oT1ItOPF4x6EGp0d46C9VtB+ldm6l+coX8hUD/fUzhHb7iV
WDMgIACHOBeluSkcRz93uqMPaG/vQyzrPZS1i0ujrW21qWmJqUmRqXGCTOKSFbvq1sE9SBFg/dm5Y19f
OvmXaz0ca2ogz2ZN1Lozj+grZS7L1Ac4wAWMwOuDBc735zm/P9fpTqjTu6FO74Q63QxxuhHi9HaI4/U5
jm/NcbzWX+Hz+Cq+B4Vvxk+h8OPvzXW6O8/p/nxn/Fr8ctwTn8xzuBto/M0Sx78uc/pbhOvfVnr9LXrM
39aO/3PsuE/Wejxa40kUvdr9UZQr0TVYE8s2fzTf+MO5hPWd2YZU12AN0Oem6p3z1z800SzJWW+8gdDL
yysmJgZ9i5/w6MxCswMX0gD6KMu608Vll41NtZFRgYV5qb1tpatjHcrOKkVX6p4ZE/Vu9977x/d/fJqw
/ubSqR9gjc8caviuctN3aQsI2eVef1niTrECAZhSoADER3l19s9Q3D1B7wbcZ9dmWp+baPROqO2deXZ3
59t9sMD+UZjDZ4scvwi3e7TIGPolKoZHwzpo4TbRNWH9Ueio+yFGYA2/VrCepndhgsH1mVbXZlhemWFV
5GUUYs7oCTTXrFmDxgj3+Oijj2DTcA/0Q+6MB1gD9HEPj257+z2mpjU2VjWOdrVuTjuUVY+ys0rTl3ul
rlp+u3vfgxP7H5059Pn545Q1pmE+6+9O7CH2mjofx+w/lnngcMZRzyeLPf95sT5PnZtmcWKC4aVga9SV
2TbX5ti8HWJzM9T2Zqjl5Tn61+cYvDPH8L1QQ/gyHAP98FGYKaEcZv5ogemjecYfzyWs359NbOTtWQZX
p+tfnWx0c6bV24S11dWZ1pdnWNX5miy10bWUCmNjY48ePYpBD/MhHT64oVrD0XG/lWWrg91ed5cOT9d9
Hi673JwaVFg72GQa6PgmRCy6c6gNrD/pOcxn/fe9pX/PXfG/66f8Y7kn4MI6AReH8C3WBDi4Kvv/q1XP
ZLMTE0ddmGVN62IwKUA/F2x2fKbuqUDdnhl652bqXZqlfy3Y4Ca8IsTw3lwj+MbDuaNAGUV1fXe24buw
kUCDG1OMb8+yfifI+u0gaxwuV2aAtfWlmTY7/c2jHPTtdMTwbrRHbtADa3iIhqN9p6fbodGeh709ur3c
93u5tXm4tLo7N/bFvcPRLs9Qb2L0gpCrbc2U9Wf12V+lhH2zatyfwl0J3HmA60jg8pSrss+/SZ2eaHJq
sgkHmqszQaaHZ+gcmqZzZJrO0Wk6J6brnmahXwjSvxSkf32W/s1gA5gG+IIy6t4cwvr2DMM7gab3Z1u/
F2zzbrDNjSCb60HWV2faXJ5pc3Gm7YWZtq0TLKMcDe11Jampqch8MGskEODWGO15jK2joz2PeHsc8nI/
4OXW7um6x925SYW1s0OZscHMReO9T6wIvLd0zAfznO7MdbgZYv/2bPtrsx2ukb1yuELKEaWyt79hnQwY
dWaqqQpl1KmZJoem6xyaqqxpOodZ4sen6Z6crntmmt65QD0kDWQ7OAZ8A9BJBRren2n2YYjN/Tk278+2
BetbwTZvz7K5FmR7JciWsA6yOxdk1xJgudzBwEIuLigoQOaDtDnQlPVRsPb2OOjlBhsB6xaWNYvbsc7N
psLNcrspM104aHjl6FGnA23OBNr2zLDtnWl7Nsjuwiz7C7McLgU7XCb1ArE+Nt6wZ7q5CmXUyZnGfUDz
6vBUnaNTdI5N0T05RfcMYsZ0PeQNEEc/vDHV4P5M84chNh+F2H4QYndvju17c2zfnW17M9juerDdlVl2
F4PszgfZnZ1p1xtkVzPOYoGNgT4jQujmg+Zww0YOerl3sZbd6u5Q52Zd7mZR7Gpe5GJe5GxWZCqbLxoq
S3TSOTjF+uh0mxOBNqcJbvwBsLZXZ001zhX7VVL4zouzSJ2f5XAuyP5skH3PTFKnUTPsUKdm2J0MtDvB
K/wXhc/Tb8B34vt72Z/Fb8A9jd+GX6vcBnJ4HfbVOzvD8vwsaxQf9ImZRv2DnqLTPZnUock6hycT4sf5
xCfqvTvD/P5smwdzbD8MsfsgxPZ+iN3dELs7c+xvzWYP7mD7S7PsLpBNsqP7kudjNs1cF6CPs3zpR441
bKTby2mfp22jh1WNq0W5s3mJs1mxk1kRLQu9KOkIqwgLSeckq8NTbY5Ptzk1A+q2OzeTsKbSvhTseFmJ
lTLF54GD/nnAOh5odyTQ9tB02wPTbDqn2HSw1T7Fml9tk1VL5RvoT+HH90+16Z5GftvRQFvcJbgbyN02
w6ZzjE7PTKveIKuzQVbn2KLQj84w7J6mRnmqTjcFPUlRwM0RPzFF99R4navTzNEJbwdbwzruz7F9EGL3
INT+Xqj9+6EO74Y43Jjj8NZse+wyOODuP8OKBrtJQfctj2OjnfePtm/ztm31tNnpbtXgalnjYlHhbL7d
0azE0ayYrSJbo0Q97dEzDLQrfIy7p9ocg7Rn2J6ZYdcL3MSniMTOBjlAbhTrsUA7PlMwouD2KWvvJOs9
bO1+jqLfiR9Bcb+Bf09Q+vsCzJu8dQ5Oszg03eJooMWJGZanZlr2BBHuhwP1Dk6VH5wi7wZctvoFzRXF
fcRXfn6q+ZVAy7dmWN2cBdy278+xvRdifz/U4f5ch7tzHe+EON4Kcbg+x+EKYe1AWWP3+4IGYqcDo+3b
ve3avGwh572etrvdbXa5WTe5WtW5WFY7mZc59cU9igkSDhYlOunCRo5MswbuY9NQtvh4eBrB2jXVun2y
TRu78xQrBUp5tU602jXRaievWiYoqlmtuC+h+D+C34DCr+LuA45+s69xnbfO7klmqL2TzNummHdNteie
ZnEk0KJtqk77ZFnnZPn+KfIDU3jEp+gc7A80qQk6h311z06zOD/N4mIgGVjeCrK+Ocv29mzb90Ls7811
uDfX8d5cTKdIX45vk9BFjmOwhtSUHq2KmFabh80+D5s97ta73K13ulrtcLGsdbao5OEmxM11V0pH2Cww
EdX5me2baLl7kiUiDtlt3CY7jxso61YWK0Wj4Bjws1bfO4Cirx1tUOOj3zLRbOckUrtY4qhdk0zqJjCN
/szOAOnuCdK2SbL2SbKuySzxyfKDk1A6tPqADtA54qffO9UCrM9Nt7ww3fLSDKtrSHizbN8JtrsTAvcg
oO/Nc8KMdpuMESTjwjbBmgVNjcJuH4fYA2VDQNPicLPSroe0n+I2J7htjdP1hBNGvvHmWjt53Tizen/z
hvEWDf4Wjf4WDQGWTQGW5KO/VVMAKVVAv1Cx92WZu071WMOGCaZNqIlmqGYW+o4JhhXjJZV+kio/SfU4
yY7xTLM/Ib5voqx9oqxronz/RPlBWnzi/jrHxhkQ0IS15blplucDrS7OsL4SZPPWLLsbwXa35jjcCXV8
f67jXbBG/GXnYYwUYK0x2qFtNEEMlyBFEXNFKCvL3Wavu81uNyLtJhfLOmeLakfzSkfzcgezMnuzUpSJ
PEI83DLQQJDpYVTua1bpZ17jZ143zqJ+vMWO8ZYN/paN/grcqlB+mcIfyrMXVfuNqvM3rQ8w3RFgCuKN
LPRqf73tfpLSsZIyX0m5b1/i46W7/aV7A2TtAbKuCfIDfNzjdI77G/UBPd3qfKD1RQwsQbbXSMKzvzkH
LdHxDjEQha7B+vocRw0v292etntQHqBsQ6sPayXodrYIbjebVlfrFmerRifLOkfgtqhyMK9wAHHzchvj
bF3hlJFvaIebM2VjzSp8zar9zGv9LOoJbsIa9atJu97PrNCZAWV+UeJl4+VFvuLiMeKSsZLtYxXEK0Dc
V1w5VlLjK2nwY3aOk+7xl7UFyDonKAR+wFd+YoJxz1QL1j0s4R4AfSHQ+sIMMhZenmV3dZYdIgeCxzsh
ju+GOkLRwE1Za3jY7PSwbYUzsNWHtTtbStBt7qTa3WxQ+1yt97hY7XKxanGybHC0qHcwr3EwB25Fmemt
lWq6+khHxNrrQtpVvpC2Rb/S/kVxV/uMKnGXq4CmVeQrLRgrLvQRF40hxREvGysuHyOuYKtqjKTel2ny
Y3aPl+71JwLvHCM7OdHkzBRzgO6dZnl2utU5FvTFGTaXZtpeCrK7Emx/NZjMyUgdN+Y4srjJCTWUhpt1
ozsynM0uD5vdHGvWJRSgSdm2Aa6bDT6CcoerotpcrPc4W+1yJrgbHS12OFrUOZjXstBr7M0qjaSLhMNM
p+hpJ7sYVPqaq0sbuBv8rQrGmKd4msQ4G4XbGQZb6k001RltJHPSZ6x0GGOpWE8ikoqEYqFQKBCgcAP/
xSfxJXwDvg3fjB/BD+LH8UvwqwrHmDeyoMs99cu89FQQo2r9TQp8Jfk+4vzRpAp8nhIvQfmIS33EZT7i
CtQYceUYSa2vpNGP2eUn3eslPTbR9NRk8zNTFazPBRLrgKIp6Muz7K/MskfYAOu3ZjvQ87SQ8y2ARmdD
nHCzbkGvA2t3ND0FaFJEvDZ7Xa1JsbfbXG3aQdnNthPF4XaxbmVxN7ECB/F6WrYm+friWdpD5EFGwgx3
I0g7y9NkrZPRQhuDiaZyF33GiBGbmJg4OTn5+fkFBgYuWLAgMjJy3bp1SUlJWVlZeXl527dvr6ioqK6u
rmNXbW1tVVVVWVlZYWFhdnZ2SkpKXFxcVFTUokWLZs6cOX78eBcXF1NT01GM2NVA6iEeNsdcstZFP3u0
ER905XjD/LFiDjRXwE1qtKh4tKhktHj7aIK7XIm7erSk2Ut+IMD0yESzE5PNT0+x6KGiBmj2jBIHGgn6
ajBhjcjBnRbXQHJwtqhClnCzakajc7dpZVnvcVPw3UMpu7DlSlijONZdbFHi+1ysdysFDuJw8AbC3bLR
3CiDEUwd9EeBePhQzZEj3N3dp06dunjx4vXr1+fk5FRWVoJdTU0NIALlDnY1sKuxsbFJuZr7Wy3sUvyH
t0pKSqKjo0dqj/Se7G3vZT9Se4SFXNvPWLLARp7gZrBtjE6/oEl5iwu8RWBd6C0q9u6L21Nc56nTOs64
3d/k4ASzo5PNTxLWVmcDrc/PsAFrgL40y56wZkFD11fZByKQOkgzxNCBfOZsUYGM7GrVCGm7Wu9ytd7N
IibFClYBegDW+9mixKnAdztY7rS1aLYybzI3a7Kw2Glt3WpqmiOTBY8caTBt2rTNmzeXlpaWl5cDMdQK
xPX19RxZkAK+nTt37mJXa2vrbnbtUa69AyzFl/fswTfHxsY6jXZKrU1FpVSnrExbOXvF7LGBYy2dLcWi
1+303phmNmy1g2aeGuh8LxGqgC3gLlLiLnUX13nptfiN2uVnsme8SWeA2aFJ5senWJ4mrG3OzySn7gjo
YAKasGZBU9YoChqFMa/MyaLKyXKHs1UzGp2rdSt4sUVZP8WtZA0boaz3u9sdQLnZHnCy2W9n1WFl0WZl
1WZj02Fn1+no2OXsvN/JiZSz8wFr6+36+gu0tEwnTZoUHx8PIUPFVL/gC7jAClKgtm/fvra2tnZ2dXR0
dLKrS7n2qy3FF7q66HfOmjUrcHFgVnNWVlNWZmNmRkNGxo6M9Pr0LXVbZLGyodOGvu78+v/o/Y+e+DUf
w8HhtiMyPYUsaEKZlCcpylqhbhdx3WiDJt9RmDZ3jjNuHW+6L8D0wCTzo1MsT06z7p1hew6siajREgno
K0rQtDQcTAsczAodTIvsUWYlDuaVThb1zpaNcAD4wECslbgJa1fbTkfrTnvr/dZWB2xsjjg4HHd2PuHm
dtLV9TjKxeWoi8thlLMz+YhydT1ib7/DyGilWOzs4+OzatUquAcQU82CL8V64MCBgwcPdrPr0KFDhw8f
PsKuo+w6prbo5+n34JsdHBxicmLy9uZt27Mtd3dubmvu1l1bs3dmR9VGCdOFWrFaWlFaWiu0hgcNH+w9
+DWT1xjh/3gbDA63HpHt8RT0U9woR1Gdj9GOsaMafI2b/cDaBKz3+Jt1TrQ4NMXqxDTrHsKanC6GexBd
s6fmcRtB8GTAKA170wI7kwJ700I7RRWzibgG9joA66e4naz32VnutbLYZw3Q9t0s3zNubr3u7mfZ6nVz
63FzO+3mdsrNDV8iRenjhrv7CReXAxYWKTo6U0aOZObOnUsvdgZtgizFCnwnTpw4efLkqVOnTp8+febM
mZ6enl7lOstbik/19uIb8G3on9ZO1iX7S1DFXcVFnUWowo7CgraCaVXTBOkCQZxAe4229mq2orQJ8eDh
gz0Gv2bwmr7gtQDDodH2mnzW+e5QtLR2jFHdGMrapNnPpGW8aau/2Z4A87YJlgenWB2bRk4XnwXrIPtL
wfYIJKcnmXaP1T3mP+rMZAsNO5N8lK1JAcoO0AnrIjvTUsRh5Ae0NeBGqODjdrbeY2+5x9pij7nZbviD
o+NBF5cjLi7HWIigeRqI3d3PeXhcYOs8W4Q7ysPjjLJ62Or19Dzn4FBrbLyKYdypwOmbVIEXwAHi+fPn
L168eIldV65cuXr16rVr195SW/gkFr6K70Fumb5wevWJ6urj1VXHqiqPVlYcrag4UlF2qMy50lmUKRIm
CIXrhYJ1AkGsQBAj0I5mcS/V0lyg+ab/m2/YvDFo2P+zl74x1/zNTHchQOe5iLa76VT7GNX4jKobO6re
17jRz6R5nOlOf7PWAPO9Eyz2TbTsmmJ1ZJoNnOTIRJPucYbdfvonJpj0TEX4c0ABdJ4tKbAmpWRNpG1v
hnmvli9tJ6vdtpa7Lc13w4Lhv05OUPEhFPUE1iWAG2olrMHX0/Oip+dlL68r7EfUJRQ+6eXVp7y9L48e
fcXL65yd3fZRo5ZKJE4IauhmsG9QA77r16+//fbbN2/efOedd26x6za77vAW/cy77Jo8eXJ8QXzT+abG
c42NZxsbzjbU99TXnakrP1luWG0ozhGLkkSijSJRgkgYT4gL1wkF0QLtZdpaYVpa87S0QrVGBo0c6jH0
NaPX9IWvTRk1LN5aq8xDr2q0Uc2YUbVjCOh6XxPCerzZLn/z1gkWcJKmMYY7vHSbPOVtvkaHJlicnmbb
G2h/bob9+Rn2BLS+eLqtyTa21HE/lba9RZONebO5WYuNTZuDA/obENMioClrmC9bxBlgF2Dt6XkeZL29
r3p7v+XtfX30aK7e8vG55uODj09rzJjrY8a8PXbsO6NHX3J0rDI2DpPJ3Dw9PSMiIpCajx8//t57791l
17179+6z68GDBx+oLRi6jbMN+O55a8/ua7tbr7W2Xm3ddWVXy6WWtUfXSuukkq0S8RaxOEUsThaLE8Wi
zazAY4WC5QLBMoF2mLb2Am2t+Qrib45/8w3TN4Sv//d0I2Gykx6mTbCuG0tAQ9o1ow2qvPTK3WSVbrI6
L/3msca7/a3aJ1p3T7Y5NtX21HS7nkD7syxrjWH/85qOwM/KaEt/uIm0rU2KLUzKTIyrrKxaHBzanJxI
inB2PsgWAe3iwikadcTN7aib2zHWhU/BHOAMlPXo0W/7+NwcM+bWmDHv0ho7ltYttnDjtq/vHT8/1Ht+
fnd9fC6gXFx2WFltNDAIkkis/P39YSzIhbDvDz/88OHDhx+z69GjR5988gn9iJWZmRkSGdJ5u7Pjdkf7
u+2kbrXvu7lv3419k7snM7WMJF8iyZJIMiWSDIlki0SSJhEniUVxIuEqoXC5ULBEIFgsECxiiS/U1p6v
rTlGE1OVl5eXrtbwyfqCBFtmu5u82JkpdJRsd5VVeurX+Rg3jbNsGWe509+q1d9qT4DVvgDr/ZNsj0yx
PTnN7kygPaStkeJqMF5HkxnpbKYXq2StwG1lnG82Kt/IMN/MrMzGptbOrtnBodXREaxhGoS1i0s3S5nK
mVP0UXf3Y2wdd3c/6el52sur19v7AswBsoVgKVBf3/dBEzVu3D227rP1gK0Pxo37cOzYG2PH3vTzu+Xn
d3vcuPd8fa+5u++0t081M5uvq+umrS1EgIMXY3RE/4SxfM6uL774AiNiRn1G973u7vvd+Hjw7kHU/vf2
d93pst1vK62RMkUMk8cwuQyzlSHEsyTiNLFog0i0RiSKEokiRcAtXCYULhFqL9IeOX/kEKshBgYGGDhf
f/31YcOGCwa9PkFHM8lBp3q0ce0Y03pfs3pf80Y/C8J6vNUuBWvrvRNsOifaHp5iewKsp9tp5HmZ5HiO
mmkoFAwdNUq2mIK2Nt5mZpRrZJhralpsZVVua1vNVo2dXYODQ4uj414npw5n5y4XF7A+5OqKIpTd3Kic
FaA9PI6jPD0p6x5v73PwhDFjroKgr++7fn7vs2Q/HD/+o/HjH44f/8jf/1FAAOqTgIDHKEp//PgPAgI+
mDDhg0mTPpoy5aPAwIdBQQ+Dgz+eNq3H37/J23uLo+MSc3N/XV0LOzu7gICAiRMnWmPKurGn672u/Xf3
H7x3kOBGPejOuJ4h65IBtLREKi2UMvmMJE8izhULs4SCFIHmOs2Rq0YOXz58WPiwIWFD3pj3xushr/9x
9h9fn/3G/4j+aGnpNG7czFmzli1ZEh8aGuXpGWAk0JpjKsvzgIeY7fAz3+Fn0TjOonm8FVjvBO4A6z0T
COv2iTbdk21hIxpFo03zvAnrxeaM5iCBnmi6mdHWUYZbTU0LLC2329hAy+U2NpUoJe46e/tmR8dWJ6c2
lvUBV9duN7fDbAExLQVlCtrLC3XKy+uMt3evj8/5MWMujx37lq/vO7AI0Bw//kMW8eMJEz6bMOGLiRO/
mDTpi8mT8fHjyZMfTZ36ybRpnwQGPp458/GsWZ/OmfPp3Lmfzp//aVjYZ0uXfhYZ+fnq1Z/Hxn4eF/d4
zZprkZEH7e2D5kaHtd/uarvdue9W+9532nbf2NP6duuu67vGdI15o+KN17Nefz3t9deTSb2R9MagpEGD
Ng0avG7I4KjBgyOHDl325rBlw99cPnJEhObICG2t5cKRMwXDho2IiEhYtmxTRMTmyMjkqKjU1avTw8LW
entPsJOKIqz1a30J6IZxYG0J1s3+Vjv9rcF6N4u7bYLNgUm2GmVjTYt9COutnsazTZk//Nd/aWqOHjUq
ydq6FKUETVjb2lbZ2VXb2UHXtfb29Y6OLU5Oe1xcOlxdD7i5dbu7H3Z3P+LhcdTDA5SPeXoC8QlaLOiT
3t6nvL1Pe3v3jB59dsyYC8Dt6/uWn987sAV///v+/g9Z1gTx1KlfBgZ+OWPGpzNnfhocDLifhYR8Nm/e
5wsXfrFo0RdLl34REfHFihVfRkd/uW7dlwkJXyYmfrVly9fZ2V9nZn4oYnSL91ceeXj6yEenjjw8dfTj
U0cfnTrGlvVxO6ZFLqmQS0rlkhJS4iKZuFAmypWKUqXCjYwwTiJcKxHESARrJILVYpT2KvFIH21XVz/A
XbkybdWqtDVrstauzV63buuGDQWbNhUvXrze3X28r4F0k/OohnGWKMLa3xrFsW7xs2oaba1R4WsG1uke
xtPN5HpCLRjchAkTBAI7Q8OV1tZltADa1halYG1vX2NvX+vgANaNzs6tLi5tbm5d7u4HwRqgPT0p5eNe
XkDMp0xq9OjTbPX4+JxVqvuan9/NcePujB9/PyDg4YQJn06a9CVYz5jx+ezZn4eEfDl//pdhYV8tXvxV
RMRXUVHfREd/Exv7TVzcN5s2/Skl5U8ZGX/euvXPhYV/KSv7duXKxolzAo89OnPskzPHH5858bjn5Kc9
J/HxcU/SrTTpIR2mQQkatZ1lXSgT58pEKVLRZkYYzwjXM8J1jDCW4YgPt9QKDFy8Zk1GTExWbOzW9evz
4uMLN20qSU4uT0urycioz85unD8/Wl8oDLHQK/Exaxxv2QQD8bfe4WtV621V42lV7WFZ62GhUe1nvtrR
0E1PguwZFxeXlpaWnJw8b9684cOlOjozLS23saJWsLazq7Szq7K3J6xZ0KgdTk7Nrq573Nw63N0PeHgc
8vQ84uV1zMuLgPb2BmJafUD7+Jxhi+AeM+bc2LEXx4694uf39rhx744ff9ff/8MJEz6BgUyf/uWsWV+F
hn4dFvZ1ePg3K1b8KTr6T+vW/Sk+/k+JiX/esuXPOTl/KSj4trT026qqvzY2/s3PLzy5MuPkp70nP+s9
9fnZ02ydwu3PeidemCpt12HqdZgqHaacrTI5iog6h4KWijYoK05BXLBYMlyoBTmvW7ctLi4/IQEqLklM
rEhLq87M3JGT07xtW2t+/t6iorbU1Mrp0xe660qjbUdVeVlWuJMqd7eocDOvckeZacy21NUTC1esWJGb
m7t161Zko4yMjC1btqCh+/r6isUexsZrbW3LWEUDdAVY29tXOThUY5xzdKxzcgLoBmfnRheXXW5u+9zd
Oz08Dnp5HfbyOurtfdzbm7IGX1pUzk9LSRzeDeLnx4695Ot7lRL3978bEPARBD55MtT9VUgIwR0R8c2q
VYQ15JyaSkAXFX1bXv7Xurq/pqaedBnjvf/9I4TyZwrKtNo/6TI5ZSFt1WFqWdAVbBHWOpIiuThTJk6R
ihOlogS24tliiWtPFHt4+G/YkA8Vb9xYvHlzWWpqVXp6XXZ2U15ea2FhGyJPWdnBlJQDS5d2Tp3aaWWV
POIN7ck68kwHkzJXs3I3RVUCdFBQUFZWVlFREYaC/Pz8vLw8EMfKzs7G5+fPn6+pqaenN9vaOs/ODqDL
7e0ButLBocrRscbRsdbJibBmQaOaXF13ubu3eXh0eXp2e3kd8fY+Nnr0idGjT7I1IG5UX40T4kqN34LG
AwKg8cewlMBAIvBFi75ZvvybNWuItIF769a/FBd/O2VK/Mq02BOPe0/0VTQq8sYq6SFdpkmHqdZhKtli
WRMDyZeLtwC0TJwoE2+k9ZS4pp1w9uxIVsWlyckQck1mZn1OTkt29p74+PYlS7oCAw/4+cEzD8A/nZx2
4fgGKIaZaactWm1mUOZqWu5mWuZGPmqUsQtTAAIpVgm7itkF+lhJSUnITAzjYWoaY29f4eAAyqQcHavB
2tm51tm5ztkZrBvYF9CBdbObG8Xd6eXVzb6iQB23Kmh+KYn3wlWUMoeP3+DJ/DGVOaAvXkwsZdGiy6Ms
7Wp7Wo9+3HvsUe+xT3qPc8Q/O+vS6yFt02F2qIFGS8yVi9NZ0Jtl4k282igTLmVGigToe/HxpdHRFUuX
Vs2ZUz1lSr2fX4uHx26kAGfnvc7OuIEAhlzQAMpwVPagL9XXjxQP0QrWl4MyLY0KdtGHOaqrq+nHmpoa
7iMWPrl69WptbR19/Rk2NpmYj1FOTtVsEdYuLnUuLvUuLg3QtZJ1i7v7Lg+PfZ6enZ6exExY4seVrFXh
9ls8mT+FrlT6O+PHk7gSEPAx7MXMLDVk1fIDD3oPPujt/qC3+8PeQx/1Hn7Ye+Rhb9LNLNFBPcEOHUGF
XFgmF5aSEuFjiUyYLxNskQlSZILNMkGCVDuelNYGqWacdOR66dAxIgODSe7uBc7ORXZ2SLq0iIXCPMEU
LYrappOTovAZOCq+ikPf1DRJIPAbyzBpdqMIaAqUPozU0NBAHzfiP8CBhdtY5eXlCxYsYBh7E5Mljo7l
Tk5Vzs6gzBXB7epaz76Kn7w2lL7My81tp7v7Hk/Pdi+vA97eh/rifl7itPjclQ6DLnrZw+OAVM+0sLOu
697prntn9pPqUdT9Ho9jE99skr9ZKnuzQPZmnuzNfNnwPFJv5siGpcmGJkiHxkmHxkiHrpEOiWZ4JXlN
X0tHJ9zcPNXcPI2tDEvLLGvrbba2Rba2pax5AjT4tjg773R23sV+RDVB2g4OmDYQ0rZLpbNttYQx5gYa
QLxjx47Gxsbm5mb66EZbW1tHR0cX+ygGPfuOj1j4b2dnJxrmtGnTdHXHWlrGOjtXs1Xj4gLKtIi0WdYK
J1HipgJvg8C9vA56e/8UgasXRW9ktHrmsrCuuye77p5S1D1F5d2oEnUYDatihhYyQ7cxQ3OZoVtJDcmR
DEmXDN4kHhwnHrxWPHg1LRFXbwQK/vCHEcbGG0xM4k1NN5qZJVpYpFlaZlpZ5draltjZlTk41Dg5NYEv
rMPVda+r6z5kAfYG8u5OfIlVN8aOcn39ZTpDtTQ4xHv37m1vbwfNQ4cOHT169AS7zpw5c/r06Z6eHnrq
HZ85fvw4vpqYmCgS6RgaTrWxSaK4XVyAeyDi5IWLPOK7WeJdrIOThvnvEMd+MromeW1VLGjV8jseOLRZ
MnS7eGieeOg28dBc8dCtpIZkiYakiAbHCQfHCgevEQ5erVp/dNASCscbG69Xgk42N99iZZVtY5MPC2Z9
Y4eLSwuba9sxRrCTRCebcTvc3PYig7HSxrRRgSNg1KjVGvAEqmJo9vDhw8eOHQPQs2fPXrhw4dKlS5cv
X77GnmXHxytXruC/58+f7+3txR0Aya9du1YiMRk1KtjOLl2pbg66Cm7qJxxuSpxYCo/4T9G4gcHK4MjF
fLhcVd7aKe00GVojGVrEglZSHpojHpIuGrKJBb1WFTFq0CLBHwQjdHXDjY3jTEwSTE03m5mlWFhAzvCN
YogUudbZucXFZTcou7sDMQaIg2wdYEFD3dA1LBtWXmJjk2ttnaGxb98+GEJ3dzd0CtkCMfgC640bN27d
uvXuu+/euXPnPXbhBj6Dz4M7oFPicHBkcIaxMDaeY2eX4ewM46b1o4i38lyF83EElR/wcchKz9Sq+EC9
CmJaU06GDNvJDC0TD81Xk3OqaPAGVs4xqpRRr4/VHjHC1dh4HawDcjY1TYScWYPOg+2i16EH8uaGA8iy
+MhWp7s7DASujVGuwtER3wxDz7OxydGAMOEV8AT4w8WLF69evQqU4Pv+++8/ePCAnvbF+uijj3D7gw8+
uH//PiX+9ttvQ+AQPn4QXXTZsmUMYzlq1Bxb2y083D9MnO8q6JweHnt5MlexclXourqLF65bqcKXVs27
rfIus6G1kqHF/cl584ByRv2PwUipNFjpG5uUvpFjY1PAujNGB2x2KyIsTbEs37301ccuLki60Du8BSEY
JoPEAtDZGrCLkydPUiGDHRDfvXsXiAH3k08++eyzz+h5XroeP3788ccfgzhwQ+McbqgbZlJfX8/iNjUy
QgpM7IubloqVD9Q51aGrKJ1wx1Fs7eZe27NbBTEtIuddA8g5TTQ4Xjh4Xf9yfmOKYOhQaypnExPIGb6R
amGRwbZBUCN5A3MDpjN2QINNNyt3ATLH5+uxm4hkjo64S0rs7QsB2s4uVwOODEywgps3b0KqIEgRA+tX
X331zTff/OlPf/ozu3Dj66+//vLLL0Ef3wCNU3W/8847MBPcT7i38NvQXaOiosRifUPDiZaWa9VYczWQ
zNWhE+6svSCVP+UukUxfnbVRhS+tsneaiDv3K+cM0ZBEpZyjVSmjXrPSFIkmsXKOMzWFogE6CZHDyirT
xmarrS2aYREIgiPMgc21ZOOVO4L/wlgqnJzw1VKUknW+Bo59ODJgQaFwhkePHoEjEAPrX/7yl7/+9a9/
U64nT57gv5Q4cH/66af4ZvzIvXv3cBzgfoLtwHxg3PB6ZJi4uLhx48bp6nqZmS1xcMjtS1mlVKCrKl2d
+6hR0WOmT26/fbTz7gmuuhSFsDF92E7JkNIfL+dZ2n8YMhyBDDkBf2LUqBhj41gTk/VmZvEWFpssLdNs
bLKgUBgCyxpdsdLJqZK3I7hNimWNrxLcDg7bHRyKNSBGOADsAoZAhQzZgiaY/v3vf6cvr8XCDbo43Pi2
L774gpoJrAaeTp0EBwc1bjgSGmxmZuasWbNg30ZGgVZWcbxtGqj6sRcVvWM/RTL9tB3bOu8eV6+st4pE
7QZDq0VDioVDtgmHbFXU4Gzh4HTh4EThoDjBoFjBoGjBoNW0tAetUtQfHUdoaXkYGCwxMFhmaLjcyGgl
cJuYrDUz22BuvtnSMgX5wdY2x94erAtZ1qUQL7CyfLld4FgrpA3W5ELdcAD4AJDRS/pAyNAvmIIvfXE+
1nfswn8pdHzDt99+i2+G9nHfcE6CwwIHx/Xr1znjprgxxMNPBAKhjo67icl8W9tU3mY9u1R6KUEvkwWF
rl7SefdYv+V22Hdoo3BIqWBIvmBIrmDIVsGQHFKDswSDUwSDNmgPWqc9aM1TuFy9Ear1h5HD8Mv19ReD
taEhWK8YNSrKxGSNmdl6c/ONFhZJ1tZb0Nns7LaxoLezoCllPmgU/cxTaWuADiQJH6B2AbVCsxQxyNJL
IPyf8lqV+C/HGnqn0oaPc05C+yRn3Cq4ESKzsrLmzp2LYUdPz8fUdLFaRPnhMjGJcfTxrjvb2vn+MfVa
c2HjiH3M0CrhkELBkG18ytqDt2gP3qw9aL3WoLVag1ZrDVqlWq+5DB850klPb6G+fhhlbWQUwYKOMTUl
oKFoGxsoeqvSPQBaXc78UrC2sUnVAGWYMt8u1Clzi7LmS7tfJ6HGrYKbjpfHjh1DmsQgmpycHBwcDOK6
ut7QuI3NZrWt7KewhyMF0oTSLSp8uTI74DB0h2BIiWBIXl85Z2gPTtYeFKc1KFZr0BpVxKg35mn+QXso
w0zT01ugpwfQ4VC0kVGksfEqU1NYBzw60cqKejTkXADbZeVc/gzQ2CnsGroUdlODM2UVu2AV3IcyXfTz
fNy4bzgnwa/iUiAfN8yEejdaJZIJ5njEyoMHD2IuBfHQ0FC4ikzmCB+3sFhlb5+jssVc4bieHbVIBS5X
M0/PH7ZbOLSCNQ2+nDNZOW96ppxdh48Y4airC8oL9PUXsdYBOa+Eb5iarmPlnGxtnQ6DZuVMfYOT81PQ
2HjsAnYEu4OdCgwMjImJKSwsJO+VxTflfoWsvlRYU9yQNn7VM3DTVolkQoMgpiT4CQSO6b+joyM3N3f5
8uUBAQFisR6sfNSoWZaWq+3ts7l9gLjcxvkOZBrbrpcyHUZD6wRDivvKOVswOF17cJKScr9yDlWR82JW
zstZOcegE1pYbGblnIlEbGfHyVkBGhuJTcUGY7Ox8WPHjl2wYMHmzZu5c861tbUaUCIOf1AeyC4GWkTY
ak7yDNy0VdIhHoESuZvzEypwODg9QYgknpaWFh4ejnQoEjEymQMiuYHBTKmeQWpdjgpfrlwOjxnaLBhS
ptYDIedU7UEJWoPWaQ2KUUVM6zUnuLMzT87wDch5hbFxNCvnBFbOW2xtFW3Q1jbTwmKticlCQ8MJ2Dxs
pI+PD45LJNqioiL+mWcMcfTkqOIdOn8sZW71i5satwpurlUiCNLcTc+ZUIHThgkH5xNva2traWnJzs5e
uXKlsbHxssRlbbfb2u50tN/pan/vQMd73R3vHep4/0jn+0cX9EYM2ysaWikYUsSaBkBzPRBy5npgtCpi
1OvBI/8wYqhMNoOTs4HBUipn2gZNTVeNGhU+alSInt5kudxLIrEQChlXV9epU6cuWbIkKSmpvLxchSyF
y3/1Anlz359MmVvPgxutEsmEBkHkbs5POIFzDs4nDlcBcUz2syNnH/vkGOrIx0cOfXTo4IOD++/v77zb
2f5ee961fFm7zqCaoYOKhg7KfXNQzvDBOSMGZ49EDUofOShZc9AGzUGxmoNiNPsixn9J/Y/N0BEj7KTS
iQwznmHGSCToXS5CoZ1AYKGtbaCpKdHT07OxsYFmZ86cGRERAU+AbKktAC5HlnvYhIPLvXoBiiHvCw46
lJQC209d9Jc8Gzed4Pl+QgVOHRyzJSXOaRyukpKS4jvNt+Viy4lPT5x4TOr44+NP65PjY3rGCNoEmrWa
I7aPGF44/M28N4fmDh26dejgzMGDUge9kfDG67Gv/3HNH/8Y9cc/ruhbK//42qTX/t8b/08ikejq6uKg
sbKycnR09PLyQqtAKIJ9rVu3Lj09HUdVfn5+cXExfd0N9EsfkKJn8zmyu3bt4l63ALjt7e1QCY5OtH0N
KmQsBa1/e9HfpoKbSyY0d9Mxh/rJw4cPOQdXJw7V2LrYFrYXnvz0JIqw5oqFvvjaYvFhsWinSFgjFFYI
hWVCYalQuF0oKBYICgSCbIF2irZ2orb2Rm3teFJa8VpPK05ruN1wPz+/xYsXg+nSpUvRjWFT0dHR4JuQ
kIBElJGRgS5dUFBQVlZWWVkJxBAvlS3VLJ8sFn1dCIWLPo/jEkcn2r4G5aKA9PMt+mv5uLEobggcuFUE
DuKcpXDEsZV6hnrJFcmnPj916jNSJz87SYqFjtp6Z6vxcWPxHrGoXiSqEonKRU9BFwkEuQLtNG0CerOC
skqNnDoSngCfhTUB8YoVK1atWoU0tn79+o0bN4JyZmYmKMMoIGTc5RQx+AIuyGJRzdKH/ShZLO5FIbBB
HJc4OtH2CWgFm19gqeDmBE79hAocxCFwODhnKZQ4vBsIojOjT39xmtTnpwluWiz0A58ccOlxkXRKxE1i
cbVYXCkGaFGZSFQqEpYIhflC8jTRVIEgSSDYJBAkqJZ2pPZwk+Gw3cjISKgYiNesWRMbGxsfH5+YmIjY
w72iFEKGEUPC0C+FC7JoHmghVLMIqZQsfcAPUYrCxUGJYQ0dCGOEhgLJL7k43HyBc37COTi1FI74hg0b
lsQtOfPlGVJfkFIQZ6GjplycIj0kZXYxkjqJpEoirhCLy8XiMrFou0hUJBJtFQnThMJkoXCzULhRKNgo
UJQStOYYTfqSGRgF1tq1a/EXN23ahJYAU+aEDC+Giili8IVsqRugeaCFUM1yZOlrbRClEKhggPS1ILdv
38Yx+muA5hZHXEXg6sShppDIkIP3Dire++DLHgVxJfSIGxE6J3Ske6RMA8NUM0wVI6mQSMolkjKJuEQs
zhOLMkSiNJEoSSTcJCS1sU9pz9MewYyAXUDCsGPkXzgygtqWLVtycnLQ9yBkeAXaHfobfcya8oVmKVb0
D4oVmkVHAVnIlpKF71G4sEH0HnQgHKO/Kmi6ONx8gfOJYycDwwL3vb2v96teVM9X5E0mSCmhp72fZnrK
VNYukzZJpXVSCpqpIAXQkkKJJEciTheLUxUvURFt6lPCdUItB61Zs2bBJcAXKgbi1NRU3Lvbtm1DtKio
qIBXwIvR3IAYngvxgi91A4qVEyxGMJBFVAXZu3fvgix8j8KFDSLO4ujEMfobgOYWRxy4OeLYw0lzJiHM
PX3bFBY3B732Ya3DWQd5l1y2UyarZ5/BXyWVVpJiyhimhGG2MeTFKWkSSbIEoElt7lPak7R9fX0BF+0O
fKFiIKZegWiBaAw7RvgFYpgvJHzu3DnwBVy0Dc4KkEopVqpZzGKULLo6yFK4SFbo9uj5OEZ/S9Dc4ojD
DQOCAnac2XH267Oop6yVdfiLw6MvjNY5rCNvlcsaZbJamaxGJqsiJa2QSkul0gIpk8Uw6YwkVSJJ7KdE
i0Ra+lpwDBgxQgWMgqY3HEYIyPAK2DEiGowCKgZiGC7EC77QLOBSrGCKVEqxUs1iFuPIotMALjwQC90e
PR+u+EKApgs68p/hX3eqjlJWKQp68pXJusd0dfbqyJvk8nq5vFYur5HLq+WEdZlMWiRlchgmk2G2MEwK
wySplmSDROAiCAsLA18sGEVhYWFJSQm8ggoZHQ9ChhfDKKiK4Qzgy7cCjikWWjfFyieLTkPhwgaRr+CH
cMUXBTRGLGi57nQd93ZWiuKxnnN9ju5JXZ12HXlLH8rkXfEqZLISmWybTJollaaTt/WQJvcpJpmAFk0S
TZkyBaENiyKGV0DICMjUkREqIGT0OhgxjAIWAcOFeKkVcFhhBRzWgchi0d7Ddv1/vhCgsauTQyYTx1Ch
zKvFNxcbnDbQ7dAlb4y3Q/l+3uwbAZH3pt8ul+XLZNnsm6ekqVKmJVkoEegKEJDhxRQxFTJNb5g7YBdw
ZMQJCBlGjMwAFUO/1BAAF0wBlDLlY+2XLBYaD9vyyez924PGbs9YNKPlUosKWX6tvLVy1JlRul0s5Ubl
m3lzlMvk5I2ABng7XlrSNVKhvXD16tVAXFpaCsRIb2i8oIwxj6OMxIaUBsoQMvwXlKFfqlmKlQLFokzp
4rByZLFo48Giu/lbgsYOoCOFrgxtu9mmQpZfMbdjyHt479clbyCmTrmcfWP6HJnira1SVRHTEvmK5s2b
B8T0lAWEDLtoYd9oE2MIAhzmDlBG30PTo08IgFFAxdAvRcwBpWsgrFiK3eu7fjPQaC+YFJYlLDv04JAK
WX6tu7NOlTJMg1Kukssr5ORd6bcS0+j3jelpSWZIBAIBcgV9yn1NTQ3SBVrfHvZdNkEZAx4cA5Q5LYMy
LBj+AFugiClWBUvlUuzMc6zfBjQaupGpUWxOrApWlQJl8x5z3QPPpLyNpQzTGIAys4gRGgkRlrkzyJQy
HAMx7hD79m2cL4My1TIoQ8iwCCCmfBWb/lPXbwAau+fk5ZRem66CVaUUjgHKu3V0mpSU6ZsNUsol7Fvw
PtuaV0lFdqK1a9fS147Qk5yUMgbr7u7uEydOICwjYyDGISMjwKH1US1TI4aQ/33KWL8qaKgDvWhC8ISy
g2UqWFUK3e+pY/SlTN5sEJS3y+V5P9QAE6Rib/HixYs5yrT77WLfIe/AgQM0L1++fBnDNMIyzRjofmh9
nCn/LHLG+vVAo8msX79+YczCfdf3qWBVqfCb4SRjqPgyR5kNc+TNdyll9fd2VJYkgLwrPaUM06irq0Na
R16m5+GoNXMNED0DYRkxDi365zUNun4l0Bi3bJxsEgoTMN2pYFWpkOshhqcNSZL79ygzMxiBRIDZmm/N
iBlogAhzsGYMJufPn7/W3xsK/rymQdcvDhpbj2EX88j2/dtVmKrUkS+PkLf5P6WnmEqeTbnf9ylVFhPK
CA0UDRCLhjm+NR8/fhzj3xX2PXbv3r2L2Q+D3y9kGnT9sqBxeCJdrExe2XWnSwWrStU/qve55KN3XE+3
vS9lNmP0T3mAyMyEMyIzUXx8PL8BqlgzUjOSDx2ykZphGpitfyHToEtje1HiL1HpqdHTpoz1muCRVpdy
9OPDz65NN+ItjpkJ27UEDVra1ZraZZrapZraJZraxaS0Ckdq5Y3U2jpSa8tIzaQRmptHaG4coblhhGZc
PzViwZvDjAf7+DiHzJ4UOmfS3NAp8+dODVswfdHCGUvDgyIj5kStmBezeuG6teEJG5YlblyRlrw6c8ua
7MzYbTlx+dviC/MSivI3FhdsKincrLJH/2b9IopubW01tzFflbrqB4WMQsCw6LHQPairu0dXp1ntPAZN
cs+nZRLmnETLly/ntMw1QEyA1JqRmmHNSM3UmmmeoxMgnU24wUSxMz/T6qPo0uIkWmUlycpKKd+OSkVV
lKLSKsrSKsu2oKrK0xVVkVFNKrOmMjM+LsLX121SyIRtu7cee3REtT7pU10POyac9ZccFglbBcJ6bWG1
trBcW1imLSzVFm4nJSjWEhRoCXK1BBla2ila2kla2pu1tBO0tOO1BLQSnpZ2pOYI++Hj/EZHrVy8Kip8
9aqlMdERsWsjN8RFbUxYk5y4Lj0tPic7qSA/vbQkp7oyv2HH9p3NFXt313a0NR7o2nmoe/eRw3uPH207
cbzz1InOM6f2nzl1oOf0wZ4zB3vPdPf2HDrbe/gc6uyR82ePXjh37ML5YxfPH7944cSliycvXzx1+dKp
K5dPX7185uqVnmtXet662vvWtbPXr527/ta5t6+ff/v6hZ9N0Qj8qampPpN8UqpSznxxRkW26lX0QZHX
Ra9+TFlFy5j9uKlk4O4nXScVe4kXLFjAhTluAkTM4Bpgb28vl5r7teafN2nw18+g6KyM9cFBE8xsTZYn
Ltt5pVlVxfxSannRlYVGRw2EbdrCJm1BjbagUilkTstFWoJ8LcFWLe10Te0UTYWW458WX9HaqzRHuAz3
9naLWrEoagXkvCR69bK1ayLi1q2M3xCduGltWmpcZsbmvG0pxYWZFWW5dTVFTQ2lu3dV79tT19XRdHD/
zsOcnI91nDzRefpk14ul6AcPHhQVFVnaWy7fvLz5QrOKZvut5k+aJ16ZqHdajyRlzNZqpkwCBrRcxp6T
o2eLBp79UNL1UvFocUhISEVFBadlGubQKlRiBp1N+Cc0uNNGv5A1c+snKjotOXrWzABDU/15q0PLDm1X
Ve4AFXktwuy4iahDIGzWFtRqCSq1BGXaglJtAatiUiXagkItQZ6WIEtLO5XVcqKm9iZNvpZpUUVrRxEt
e3k6r4gMW7liMdyZWPOaZetiYc2rNiXEpCSvz0jfmJuTVJifXrY9uwrWXF/SQqy5pn3fjv2dzd0HdkHO
Rw/vPXYMcm6HO5862fVCKPrcuXNJSUn2rvYrklY09jaqCHagQkyGkPVP62OwVqSLhgFMGQGDnsVHDXzm
EyWNIb4cGhpKtYzFaZlGZvpMAXoKlB8zfunZpN/1vIrOz01YtmS2l6ej02iHFSnL63trjz06rCxV5arU
/MtziSO3s46sELKWoFRLsF1LAAmjqCkjYGzVEqQjYMCUNbU3a2pvhJZpqSpae5nmCLs3fXzcVywPo3Je
HbVkTfTStTHLYc2bEDOSYrekxudkJeZtS91enFlZvq2+trCpoax1J7HmzvaGg/tbug/sPHKIyBnufPxY
28njHb+lopE6MzMz9Q31Zyyakbkj8+hHR1XU+ozacm8LiRYn+zpyXyH3MeVcXsAYICyjmOUM8nJ4eDg/
Y/DHv66uLvrQFDb+6tWrdM7+iH2JHz9m/ArWzK0BFb0pYTmGKycHS0cv+yXxi0oOFh19dJhfz1Z04Xv5
vj1jmENi4R5tYSOihZaggidkomVS2lxSVjVllXqqZa25I4ebDvP391kesRByZmPG4jWrl8TGLF+/bkVC
/OrEzYgZG7IyN27bipiRUV62tbamAKl5V0vFntaajrYGNmm0HDrYCjkfO7L32JF9cOcTx9t/VUVfvHgR
QQLG5+ztHL4uvGBfwcnHJ1V0+uza/Xj37OuzySMjh3R125QZmUYLdSGXk6SsOLOMqe+ZpoxiQsl5jOjo
aBUtc77MaZmezoeWucj8JftyVf6jU7+Olukiik5NXrU0PMh/vKe5maGDh+3cVSEZDVs6brcpzkX0FTJX
6opu+aAp+EIQ7JjkihZtQb2WoEpLUM53ZKWQizS1CzW1t2lpZ/cV8lNTVimiZc2JI95khs4InLA8YkHk
8oWw5qiVi6JXLVkbs4xoecOqpM0xqcnrMzM25m5NLirYUsZOgDvqiluaylt3VbfthTVjCGxGcD50cNfR
w3tQx4/uY+PzL6/owMBASwfLwIWBcXlxNSdqfvB8cb+179N9C28stDlro3eUPcnZytoxP1dwQuY9EKU4
fUFNeeCkjJImSCUBEoFEsGXLFv55DDr70byMjDGQltUfaf01tUyXxrbdW9tu7eVOpPVTalqmReVc+n7J
1HOTjY4YCDu0hTu1iIqr+6pYRcgFELKmdramFl/ICSr67VNaSzVHOL3p4my3aGEwq+UFKyPDVhEth69d
s2x9LLQclbiJajlhKyJzQVppSXZVxbZ6MgGWwZqVqZnIGUnjcDfnzsgbv5aiVbT5/JV9P3vylcnkkT14
cfsPqLiPIz+3kFHMIkZkJ+Ie96Narq+vb2xspA+X0Nnv6NGjyMtcxlDRMndmjjub8SvLGUtDVb/q1VfI
ux60hF9eZH/SVtQtEOzREjRqCWo1BVWaRMWchHkqJkKGHUPIuZraWRDySK3kkVqJmlo/JGTUSJiybOjk
Sb4RS+dFLJun0HLUoujVS9auiVgfG0m0vDEmNUWp5fy07cVZVRW5dTWFjQ3bdzaV724l1tzV0bC/E0lD
IWcU3PnFVXTG/YxpV6dZ9lrqHSO5mAx4LcpE0a+KqR1XKjMyfQIGosVzCJlMfb5igeCpKfPDMj2/3NHR
0d3dTc9jICzRZ35yeZlmjBdBy3T9sKIzb6VPPz/V/Jip8KA2kXCTlnatpnY1JKwpKNUUbGerBNVXxTRX
5Glq52hqZ2gSFSdByCO1No3UShiptUETpY1SUzFKc/aI4ebDvD2dwxeHRCydq9DyioVEy4qMEZkQv4r4
csq6zPQE9lRGamkJtLy1trqgkZxoLt+9q6ptT11H2w7I+UAXDc4kbMCd2WnwxVD0ia9OZN3PQhx2OudE
zrR181xYXcJ9VfzUjpErCthnxVE7xrD3zIyMIuliikSoL4yNjeWEzDfl3bt304BBH8bu7e2l5+ToeQz6
/FrMfioZ47fVMl19FF30XsGSK4u9T3sYHtEXHlDqt05Tu0pTu0L5UN529tE8ImG2ipU3IORi1o7zWTvO
5Ox4pNbmkVoboWJ+9aNozXkjhtu+6exsGxoyfemSkGVLQpcTLc9fuSJs9crFa6Ix+0VsWL9iY/yqpMS1
W1LXZ2Vg9ksszN9Suj2rkvgytIzIXAYt79tT276vrpPIGUmjqfsAOa1xuHsXzRu/jaKLPyyOuhWF/OBw
zoE8AfmwLvHffexEN5B+n6Hi7XJ5ofI8Mp30YMcDn7WgRYQ8TSI0EkZFRfHTBZeUMfXtU14IEabMBYyb
N2/S54o/Yq+5RZ9iq56Xf1st06UhPKAl2KslQARuUIq3nCdepX77FPvgNNEybhSNVHjxVtaLVVQcryJk
rp4qWjNkxHCbYY4O1rNnTVkSPgdahi8vj5i3MnIBO/iFx6xZuj52+Ya4lZs3Ricnrd2SFpeduSkvl539
tmdWlSu03NxY2rqTROa2vbWw5s72HQc6m9g5sJm682+s6H6Uqy5eWnwJ8xMFjcbUi59bxShEC8x7Qj3h
Kvad9tSFjHRBH/FDUj7CvgbtLHshxOvXr8OU7927x4Xlb/pe3uU3mf2evTQGlC2/WAkrisSJkdr5I7Vz
R2pnk+daEAmjIGGaKAZUMa/iNEdOGf7mqKFurvZzQ6YTIYfPYU157gqYciQJGGtWh8euXRbHBoykzWtS
kxEw4rdmb87fllxcmF62neTl+tqCxnr4cunuXdBy9b499IQGGQJRB4mc4c6KvPFbK1pFtvwaSMKIE5wR
c4nih6IxVxj2xO7igICAhIQElWihLuTDhw+fUF43lbsQIkz54+e4stkLtTRUxYvi65c+UahgpFY++1yh
rJFaaSO0ktn6YSNWLc2wEcPdhw3TGuLn67F4UXD44tnQ8jKY8rK5kcvmrVi+YNXKsOjVi2Njlq6LXR4P
U94UnZK4Np2YcgIbMDD4pVeUZVdXbSNaJhmjtJWcZa5ktQxrJnKmwZlk5xdU0er6RVXI5aVkriOnjDkX
5iT8HEZMS7qKtWNDYVhYWGFhIWfHdNhDRqbRAvOeupBpurijvG7qs035BdQyXRp99FukqRAvfa5b5kjN
LSM0k0eQZ7wljtDaPEJr0withBFa8SO04kaoqHWg0lw2YsTYN4fpDHFxsZ01a+LiMAg5eMni2UuXzIlg
kzJMOWrlwuhVi9ZGL1m3NiI+bsXmjUjKa7akrsvM2LA1exNrymmlJGBg8MvbUVfQ1FCysxkZA+NfJay5
bW8NtNzRVt/ZXs+e1iDZ+cVTtIp4ESHgv/SxO06/NEj80FynUkTFEyVCE2FwcHBaWhpVMT1lQe2YnrWg
wx4y8sGDB2m0UBcyPX3xed/rpr7gpqyyNLRyR2ohPGSM1ExjlcuKlzxjkz5pM2GEZrziiZpExfxSEy9X
IxcMH+41bJh0iJOjdeD08YsWBi0OmxW+KHgphBwesmwpmy4i56+CkFcvXrtmybpYCDlyU0JU8uaYtJTY
zPS4nOyNeblJRQUppcXp5WVZNZVba2vyGuoKqZZ3tZTDl6k1t+/FEFgLLbPuTAz6BVW0QrkoKJczX4j3
uf2XX0wYIx4tFuoI586dm5mZ2a+KW1paWvu+dwMd9mhGfuuttxAtBhIy0oXKo9cvvpbp0iCy5ZSrFG+/
9QxFa64YMWLim8MshhgZ6Xp7Os2ZNTls4UxOyHDkZXDkpaErls9duWLBqqiFayDkmKVxEPKGFZsSWEdO
WZuRFrc1a+O23M2F+SklRWnlMOWKnJoqhOX8xvqi5saSnU3QchkiM9UykfO+2o59cGeEjRdf0T9JuVwx
4YxkPDHiiRMnxsTEcBKmAx6XKODFnIq72HcVOHr0KLXjCxcu0Es10OsI0IxMo4W6kF/8dDHQ0lCR7TOK
L+eRi4cPHzdsmNmQIUMGubrYTp82buG8GWHzZ4QtCFoUFhS+aBaixdLw2cuWzomMmLsyct6qFQtXRy1a
uyZ83dqlG9ZHJGwg0SIlMXpLKufImwvykkuKtpRtz6gsz66u3FoPU64vbNpBtbydaHknsea9u2lqrkG9
VIpWE+kzCkGCmcGIXcRCGbmObFxcHH+0oxLmjBi5mD6m19HRQb2YqvjMmTPnz5+/fPky344//PBD+iJ3
7joCNFq87ELm1nMpeuSCN4l+LYYM1RxsbWXiO8ZtTvCkBfMCF8wPXDg/kNhx2EyoeGk4UXHEspDIiNAV
kfOiVixYHRUWE70oNmbJhnVsQE6IStq8OjU5Jj11XVbGhtychLxczHsQclrZ9i0VpVnVFTl1Ndsa6vIb
dxRAyy1NVMul0PLuXeV7iZyr9u1BvUKKlsZKmbmMZJxEZCUSCAT0OshF7DU5IV6qXwQJzoU5Ce9TXhmO
Xrns+PHjSBS9vb3Ui69fv05VfO/evQ8++IDaMc0V9CE+DHvqGfnlFTK3+ih6ZMTwETOHDfceCvMdqjXY
2FjPxdlmQoD3vNCp8+dOWzBv2oL50xcuCFyklPCSxUTFMOLlS6Fi1otXLohetTAmevG6tUviYpex6XhF
0uZVKUmY9GKz0tfnZMXn5mws2JZYVJBcWgwhp1eWZVVX5tRWs6bMarm5Ab5cvLOpBFpuhZx3le8hSaPi
5VY0YgMTSMIvUS4j+MHrIMN/aYrg9EvnOrhwd3c3lfAp9uJwMGLk4mvKd4N677334MXqKv4L+yYkfDt+
lYTMLQ19XamVpbGHu92EAK+Q4Enz2BfmKcRLCvqdAf0uDpu5ZHHQEjZLREDCy0IQiqNWQMLzWQmTRLE+
lk0U8cs3b1wJFacSFa/NSl+XnRnH2vHmovykksKU7cWp5SRaZLJCzq2vQVLOa6xHWC6ElluaiJZ3NpdA
y607kTQQnF8JRUOwfM1i0dhAlQvnpREY4kUKhnjhv9DvAfbKnNAvhjoECc6FOQlzRoxcjAGPXlyLRmNO
xfx0/EqqmL80FsyfBuWGLUAR8S5eSMQbvgjiZf13CfQ7m9Vv6MrIuatWzotetWDNKpolwuNil8SvXwYJ
w4gTN0WlJK1OS1mTnrY2M319dlZcbnZCfu6mwnzYcdL2otTSEuSKjKpyOHJ2bRUx5R2123bAlOvzmxqg
ZSJnquVdzUga2181RVO3hWZ3P991kCFeBOFz585R/V69ehVDHfT77rvvci788OFDhGJqxF+xb7iFXMwl
iv8cFfOXxtLwWcuWoIKXL5sdGYFBLmRlZGjUirmrqP+S8xJha9dAv4vj1i3ZsH5p/IaITfGRiRtXJpMs
sSotJXoLJLwlNjsDEt6wbWtC/raNBXmbiwqh4pRSYsdbKsvI62qrK7Ig5LrqrXU1udByQz3ryyRjFDY3
FrWQUrjzq6loCBZuSzX7PNdBvnnzJiLE7du332evH0ktmAYJ7hJ8cGEqYRUj/k9TMX9prI5CbJi/ZvWC
mOiFsWvC1q1dtH6tUrxxyzbGR27eGJm4aUXy5qhU6DcZ+o3J2EKyRA5x4bhtOfF5ucjFmwrzEoupikuI
iivIq2vhyBk1lVk1ldl11TlIFztqiZZ31G1jtZzfhPGPuvN/gqJhtRd/zHWQIV5ECL5+YcFckFBx4f9k
CassjY0blm1KiNicsDxxY2TSJkxxMF9WvDDf1DXpqTGZ6WuzMmJzMtdtzVrPuvCG/NyEgm0bi/I3Fxcg
FydtL04pK0GlkdfVlqZXlqdXwZErM2urkC6IllFUyw11qDylO/+HKRpW+6Oug8z3X75+qYSh398l3O/S
SE+NzkiLztiyJnPLmqz0tdkZyA+xrHjhv8SCqX4L8jYVF0DCiSXkFYlJpcXkRbVlxI5TWTveAjumV+1Q
aLlaoeX6mq2o3xVN3v0Ni7otNEsnNypb2C6nXIQHFfFy/vu7fp9naeQS2cblbd2Ays+NL9iWUMBeV4gt
ouKSQhTiBH2BeErZ9hTWixVX7SBa5l2BhmSMKuTl3xWtpmi+YKlmVWSLpaJcLMXd9Pt67qVRmLcRRSXM
ipcU73XhimscoJ7nmkq/K3pARbMxQSFYLIVi2aW4L35fP8fS4CSscnUDZfV/BZrfFf2jFa0A/vv6hdfP
cJWw3xX9u6JfoPW7on9X9Ku1flf074p+tdbviv5d0a/S+r//+/8BPTxUq6Ub7iwAAAAASUVORK5CYII=
</value>
</data>
</root>

View File

@@ -0,0 +1,86 @@
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
End Sub
Private Sub DemoDlg_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' 폼의 제목을 설정합니다
Dim ApplicationTitle As String
If My.Application.Info.Title <> "" Then
ApplicationTitle = My.Application.Info.Title
Else
ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
End If
Me.Text = String.Format("{0} 정보", ApplicationTitle)
' 정보 상자에 표시되는 모든 텍스트를 초기화합니다.
' TODO: "프로젝트" 메뉴에서 선택하여 표시되는 프로젝트 속성 대화 상자의 "응용 프로그램" 창에서 응용 프로그램의
' 어셈블리 정보를 사용자 지정합니다.
Me.LabelProductName.Text = My.Application.Info.ProductName
Me.LabelVersion.Text = String.Format("버전 {0}", My.Application.Info.Version.ToString)
Me.LabelCopyright.Text = My.Application.Info.Copyright
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
'Me.TextBoxDescription.Text = My.Application.Info.Description
End Sub
Private Sub Display_info()
Me.lb_expiredate.Text = "인증만료일 : " & RunDate.ToShortDateString() ' UserInfo.ExpireDate
'Select Case UserInfo.Type
' Case E_AuthType.Dev
' 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
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Process.Start(HomePage)
End Sub
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 '//뭔가있고 정상이라면
ini.Write("main", "key1", NewKey)
Me.DialogResult = System.Windows.Forms.DialogResult.OK
MsgBox("인증번호1을 정상적으로 등록했습니다" & vbCrLf & "프로그램을 재실행하세요")
Else
MsgBox("취소되었거나 정상적인 키가 아닙니다", MsgBoxStyle.Critical, "오류")
Me.Close()
End If
End Sub
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 '//뭔가있고 정상이라면
ini.Write("main", "key2", NewKey)
Me.DialogResult = System.Windows.Forms.DialogResult.OK
MsgBox("인증번호2를 정상적으로 등록했습니다" & vbCrLf & "프로그램을 재실행하세요")
Else
MsgBox("취소되었거나 정상적인 키가 아닙니다", MsgBoxStyle.Critical, "오류")
Me.Close()
End If
End Sub
End Class

View File

@@ -0,0 +1,156 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_ViewSetup
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.tb_nulltext = New System.Windows.Forms.TextBox()
Me.tb_hangul = New System.Windows.Forms.TextBox()
Me.tb_nextrow = New System.Windows.Forms.TextBox()
Me.bt_ok = New System.Windows.Forms.Button()
Me.bt_cancel = New System.Windows.Forms.Button()
Me.tb_defstyleidx = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(44, 27)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(393, 12)
Me.Label1.TabIndex = 0
Me.Label1.Text = "데이터없이 엔터키를 눌렀을때 전줄의 값을 복사할 열이름을 입력하세요"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(44, 74)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(409, 12)
Me.Label2.TabIndex = 0
Me.Label2.Text = "해당 필드에 커서가 왓을때 입력형태를 한글로 지정할 열이름을 입력하세요"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(44, 121)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(353, 12)
Me.Label3.TabIndex = 0
Me.Label3.Text = "엔터키를 눌렀을때 다음줄로 커서를 이동할 열이름을 입력하세요"
'
'tb_nulltext
'
Me.tb_nulltext.Location = New System.Drawing.Point(46, 43)
Me.tb_nulltext.Name = "tb_nulltext"
Me.tb_nulltext.Size = New System.Drawing.Size(699, 21)
Me.tb_nulltext.TabIndex = 0
'
'tb_hangul
'
Me.tb_hangul.Location = New System.Drawing.Point(46, 89)
Me.tb_hangul.Name = "tb_hangul"
Me.tb_hangul.Size = New System.Drawing.Size(699, 21)
Me.tb_hangul.TabIndex = 1
'
'tb_nextrow
'
Me.tb_nextrow.Location = New System.Drawing.Point(46, 136)
Me.tb_nextrow.Name = "tb_nextrow"
Me.tb_nextrow.Size = New System.Drawing.Size(699, 21)
Me.tb_nextrow.TabIndex = 2
'
'bt_ok
'
Me.bt_ok.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.bt_ok.Location = New System.Drawing.Point(46, 217)
Me.bt_ok.Name = "bt_ok"
Me.bt_ok.Size = New System.Drawing.Size(407, 33)
Me.bt_ok.TabIndex = 4
Me.bt_ok.Text = "저장"
Me.bt_ok.UseVisualStyleBackColor = True
'
'bt_cancel
'
Me.bt_cancel.Location = New System.Drawing.Point(462, 217)
Me.bt_cancel.Name = "bt_cancel"
Me.bt_cancel.Size = New System.Drawing.Size(283, 33)
Me.bt_cancel.TabIndex = 5
Me.bt_cancel.Text = "취소"
Me.bt_cancel.UseVisualStyleBackColor = True
'
'tb_defstyleidx
'
Me.tb_defstyleidx.Location = New System.Drawing.Point(46, 183)
Me.tb_defstyleidx.Name = "tb_defstyleidx"
Me.tb_defstyleidx.Size = New System.Drawing.Size(699, 21)
Me.tb_defstyleidx.TabIndex = 3
Me.tb_defstyleidx.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(44, 168)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(441, 12)
Me.Label4.TabIndex = 6
Me.Label4.Text = "출력시 사용할 기본 스타일의 번호입니다. (번호는 위에서부터 0으로 시작합니다)"
'
'Frm_ViewSetup
'
Me.AcceptButton = Me.bt_ok
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.bt_ok
Me.ClientSize = New System.Drawing.Size(787, 259)
Me.Controls.Add(Me.tb_defstyleidx)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.bt_cancel)
Me.Controls.Add(Me.bt_ok)
Me.Controls.Add(Me.tb_nextrow)
Me.Controls.Add(Me.tb_hangul)
Me.Controls.Add(Me.tb_nulltext)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Frm_ViewSetup"
Me.Text = "뷰설정창"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents tb_nulltext As System.Windows.Forms.TextBox
Friend WithEvents tb_hangul As System.Windows.Forms.TextBox
Friend WithEvents tb_nextrow As System.Windows.Forms.TextBox
Friend WithEvents bt_ok As System.Windows.Forms.Button
Friend WithEvents bt_cancel As System.Windows.Forms.Button
Friend WithEvents tb_defstyleidx As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
End Class

View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@@ -0,0 +1,32 @@
Public Class Frm_ViewSetup
Public Sub New(ByVal 빈값복사줄() As String, ByVal 한글필드줄() As String, ByVal 다음줄열 As String, ByVal 기본스타일인덱스 As Short)
' 이 호출은 Windows Form 디자이너에 필요합니다.
InitializeComponent()
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
Me.tb_nulltext.Text = ""
Me.tb_hangul.Text = ""
Me.tb_nextrow.Text = 다음줄열
For i As Short = 0 To 빈값복사줄.GetUpperBound(0)
Me.tb_nulltext.Text &= 빈값복사줄(i)
If i < 빈값복사줄.GetUpperBound(0) Then Me.tb_nulltext.Text &= ","
Next
For i As Short = 0 To 한글필드줄.GetUpperBound(0)
Me.tb_hangul.Text &= 한글필드줄(i)
If i < 한글필드줄.GetUpperBound(0) Then Me.tb_hangul.Text &= ","
Next
Me.tb_defstyleidx.Text = 기본스타일인덱스
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub bt_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_ok.Click
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
End Class

View File

@@ -0,0 +1,142 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class SplashScreen
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents MainLayoutPanel As System.Windows.Forms.TableLayoutPanel
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.MainLayoutPanel = New System.Windows.Forms.TableLayoutPanel
Me.lb_msg = New System.Windows.Forms.Label
Me.DetailsLayoutPanel = New System.Windows.Forms.TableLayoutPanel
Me.Copyright = New System.Windows.Forms.Label
Me.Version = New System.Windows.Forms.Label
Me.ApplicationTitle = New System.Windows.Forms.Label
Me.MainLayoutPanel.SuspendLayout()
Me.DetailsLayoutPanel.SuspendLayout()
Me.SuspendLayout()
'
'MainLayoutPanel
'
Me.MainLayoutPanel.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.MainLayoutPanel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.MainLayoutPanel.ColumnCount = 1
Me.MainLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 286.0!))
Me.MainLayoutPanel.Controls.Add(Me.lb_msg, 0, 2)
Me.MainLayoutPanel.Controls.Add(Me.DetailsLayoutPanel, 0, 1)
Me.MainLayoutPanel.Controls.Add(Me.ApplicationTitle, 0, 0)
Me.MainLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill
Me.MainLayoutPanel.Location = New System.Drawing.Point(0, 0)
Me.MainLayoutPanel.Name = "MainLayoutPanel"
Me.MainLayoutPanel.RowCount = 3
Me.MainLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 70.0!))
Me.MainLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 18.0!))
Me.MainLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.0!))
Me.MainLayoutPanel.Size = New System.Drawing.Size(424, 252)
Me.MainLayoutPanel.TabIndex = 0
'
'lb_msg
'
Me.lb_msg.BackColor = System.Drawing.Color.Transparent
Me.lb_msg.Dock = System.Windows.Forms.DockStyle.Fill
Me.lb_msg.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.lb_msg.ForeColor = System.Drawing.Color.Black
Me.lb_msg.Location = New System.Drawing.Point(3, 221)
Me.lb_msg.Name = "lb_msg"
Me.lb_msg.Size = New System.Drawing.Size(418, 31)
Me.lb_msg.TabIndex = 2
Me.lb_msg.Text = "[]"
Me.lb_msg.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'DetailsLayoutPanel
'
Me.DetailsLayoutPanel.BackColor = System.Drawing.Color.Transparent
Me.DetailsLayoutPanel.ColumnCount = 1
Me.DetailsLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 490.0!))
Me.DetailsLayoutPanel.Controls.Add(Me.Copyright, 0, 1)
Me.DetailsLayoutPanel.Controls.Add(Me.Version, 0, 0)
Me.DetailsLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill
Me.DetailsLayoutPanel.Location = New System.Drawing.Point(3, 179)
Me.DetailsLayoutPanel.Name = "DetailsLayoutPanel"
Me.DetailsLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 53.0303!))
Me.DetailsLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 46.9697!))
Me.DetailsLayoutPanel.Size = New System.Drawing.Size(418, 39)
Me.DetailsLayoutPanel.TabIndex = 1
'
'Copyright
'
Me.Copyright.BackColor = System.Drawing.Color.Transparent
Me.Copyright.Dock = System.Windows.Forms.DockStyle.Fill
Me.Copyright.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Copyright.ForeColor = System.Drawing.Color.Black
Me.Copyright.Location = New System.Drawing.Point(3, 20)
Me.Copyright.Name = "Copyright"
Me.Copyright.Size = New System.Drawing.Size(484, 19)
Me.Copyright.TabIndex = 2
Me.Copyright.Text = "저작권"
'
'Version
'
Me.Version.BackColor = System.Drawing.Color.Transparent
Me.Version.Dock = System.Windows.Forms.DockStyle.Fill
Me.Version.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Version.ForeColor = System.Drawing.Color.Black
Me.Version.Location = New System.Drawing.Point(3, 0)
Me.Version.Name = "Version"
Me.Version.Size = New System.Drawing.Size(484, 20)
Me.Version.TabIndex = 1
Me.Version.Text = "Version {0}.{1:00}.{2}.{3}"
'
'ApplicationTitle
'
Me.ApplicationTitle.BackColor = System.Drawing.Color.Transparent
Me.ApplicationTitle.Dock = System.Windows.Forms.DockStyle.Fill
Me.ApplicationTitle.Font = New System.Drawing.Font("맑은 고딕", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.ApplicationTitle.Location = New System.Drawing.Point(3, 0)
Me.ApplicationTitle.Name = "ApplicationTitle"
Me.ApplicationTitle.Size = New System.Drawing.Size(418, 176)
Me.ApplicationTitle.TabIndex = 0
Me.ApplicationTitle.Text = "응용 프로그램 제목"
Me.ApplicationTitle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'SplashScreen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(424, 252)
Me.ControlBox = False
Me.Controls.Add(Me.MainLayoutPanel)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "SplashScreen"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.MainLayoutPanel.ResumeLayout(False)
Me.DetailsLayoutPanel.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents ApplicationTitle As System.Windows.Forms.Label
Friend WithEvents lb_msg As System.Windows.Forms.Label
Friend WithEvents DetailsLayoutPanel As System.Windows.Forms.TableLayoutPanel
Friend WithEvents Copyright As System.Windows.Forms.Label
Friend WithEvents Version As System.Windows.Forms.Label
End Class

View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@@ -0,0 +1,362 @@
Public NotInheritable Class SplashScreen
Dim install, installkey As Long
Dim auth As New ACC.MyAuth
' Dim Runcnt As Integer = 0
Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If My.Application.Info.Title <> "" Then
ApplicationTitle.Text = My.Application.Info.Title
Else
'응용 프로그램 제목이 없는 경우 확장명 없이 응용 프로그램 이름을 사용합니다.
ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
End If
Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision)
'저작권 정보
Copyright.Text = My.Application.Info.Copyright
Me.Show() : My.Application.DoEvents()
If Not LoadINI() Then End '//환경파일 불러오기실패시 종료한다.
If Command() <> "ARIN" AndAlso Not ReadAuth() Then '//에러났을떄는 카운터를 확인
'//사용횟수가 10번ㅇ르 초과했는지 확인
Runcnt = Me.ReadAuthcount
Dim f As New fAuth()
If (f.ShowDialog <> System.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
'If Command().ToUpper = "ARIN2506" Then
' UserInfo.Type = E_AuthType.Dev '//파라미터로 운영자모드 가능하게
'End If
My.Settings("ireaConnectionString") = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DataBase\irea.mdb"
'If Not ReadAuth() Then DemoDlg.ShowDialog()
If Not LoadReg() Then End '//레지스트리정보 실패시 종료
If Not Connect() Then End '//연결정보 실패시 종료
Me.lb_msg.Text = ""
MakeList.Show()
Me.Dispose()
End Sub
Private Function ReadAuthcount() As Integer
Dim RunCnt As Integer = 0
Dim ini As New MyINI(My.Application.Info.DirectoryPath & "\epole.ini")
Dim RegDate As String = ini.Read("main", "regdate2", "")
Dim CurDate As String = Me.auth.GetDateNumberEnc(Today.AddDays(-10))
If RegDate = "" Then '//등록일이없으면 10번카운터를 셋팅한다.
RunCnt = 1
ini.Write("main", "reg2", RunCnt) '//1일로한다.
ini.Write("main", "regdate2", Me.auth.GetDateNumberEnc(Today)) '//1일로한다.
Else
'//상요자가 숫자를 임의로 고칠수있으니 설치된 날짜랑 오늘이랑 10일이상차이나면 횟수에상관없이 사용불가로한다.
If CurDate > RegDate Then
MsgBox("프로그램을 사용할 수 없습니다" & vbCrLf & "배포업체에 문의하세요", MsgBoxStyle.Information, "확인")
Return 10
End If
RunCnt = ini.Read("main", "reg2", 10) '//없으면 10으로한다 즉 사용못하게하겠다는거다
If RunCnt < 10 Then
RunCnt += 1
ini.Write("main", "reg2", RunCnt) '//1일로한다.
End If
End If
If RunCnt >= 10 Then Return 10
Return RunCnt
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)
Dim auth As New MyAuth
Dim Arinini As New MyINI(My.Application.Info.DirectoryPath & "\epole.ini")
Arinini.Write("main", "install2", auth.GetDateNumber(NewDate))
Arinini.Write("main", "installkey2", auth.GetDateNumberEnc(NewDate))
MsgBox("기록완료")
End Sub
'Private Function ReadAuth() As Boolean
' '//먼저파일에 있는 키를 체크한다.
' Dim Key1 As String = ini.Read("main", "key1", "")
' Dim key2 As String = ini.Read("main", "key2", "")
' Dim KeyCnt As String = ini.Read("main", "keycount", "11" & CStr(11).GetHashCode) '//없으면 최대로한다.
' 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
' Catch ex As Exception
' UserInfo.Cnt = 11
' UserInfo.Type = E_AuthType.Demo
' UserInfo.Permission = "A"
' 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
' 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 Function
'Private Sub SetAuth(ByVal NewDate As Date)
' Dim auth As New ACC.MyAuth
' Dim Arinini As New MyINI(My.Application.Info.DirectoryPath & "\epole.ini")
' Arinini.Write("main", "install", auth.GetDateNumber(NewDate))
' Arinini.Write("main", "installkey", auth.GetDateNumberEnc(NewDate))
' MsgBox("기록완료")
'End Sub
Private Function LoadINI() As Boolean
Me.lb_msg.Text = "환경설정 데이터를 읽어옵니다"
Dim Arinini As New MyINI(My.Application.Info.DirectoryPath & "\epole.ini")
Dim buf() As String
If Not Arinini.Exist Then
MsgBox("환경설정파일 EPOLE.INI 가 존재하지 않습니다" & vbCrLf & "[시작-설정-프로그램설정]을 다시 실행해주세요", MsgBoxStyle.Information, "환경설정오류")
Arinini.Create()
Return True
End If
Try
Auto_Log = CType(Arinini.Read("MAIN", "log"), Boolean)
Common.PICmanFile = Arinini.Read("MAIN", "PICMAN")
Common.MakeState = Arinini.Read("main", "makestate")
Common.PoleState = Arinini.Read("main", "polestate")
Common.PoleEtcState = Arinini.Read("main", "poleetcstate")
Common.PicState = Arinini.Read("main", "picstate")
Common.NUMCOLOR = Arinini.Read("MAIN", "NUMCOLOR", True)
SORTNULL = Arinini.Read("MAIN", "SortNull", True)
buf = Arinini.Read("main", "viewfont", "굴림,9").Split(",")
Common.ViewFont.FontName = buf(0)
Common.ViewFont.FontSize = buf(1)
Me.install = Arinini.Read("main", "install2", 0)
Me.installkey = Arinini.Read("main", "installkey2", 0)
buf = Arinini.Read("main", "menufont", "굴림,9").Split(",")
Common.MenuFont.FontName = buf(0)
Common.MenuFont.FontSize = buf(1)
buf = Arinini.Read("main", "formfont", "굴림,11").Split(",")
Common.FormFont.FontName = buf(0)
Common.FormFont.FontSize = buf(1)
Common.HelpWebSite = Arinini.Read("main", "helpweb")
Common.HomePage = Arinini.Read("main", "homepage")
Catch ex As Exception
MsgBox("환경설정 파일을 불러올수 없습니다" & vbCrLf & vbCrLf & "오류메세지=" & ex.Message.ToString _
& vbCrLf & "[시작-설정-프로그램설정]을 다시 실행해주세요", MsgBoxStyle.Critical, "오류")
End Try
Return True
End Function
Private Function LoadReg() As Boolean
Me.lb_msg.Text = "레지스트리 데이터를 읽어옵니다"
Me.Invalidate()
Try
Catch ex As Exception
MsgBox("레지스트리를 확인할 수 없습니다", MsgBoxStyle.Critical, "오류")
End Try
Return True
End Function
Private Function Connect() As Boolean
Me.lb_msg.Text = "데이터베이스확인중..."
Dim Dbpath As String = My.Application.Info.DirectoryPath & "\database"
If Not System.IO.File.Exists(DataBaseFile) Then Return False
Dim Dbini As New MyINI(Dbpath & "\patch.ini")
'Return True
'//데이터베이스 버젼을 확인한다.
Dim Cn As New OleDbConnection(My.Settings.ireaConnectionString)
Try
Cn.Open()
Catch ex As Exception
MsgBox("데이터베이스를 열수 없습니다" & vbCrLf & "데이터베이스 파일이 손상되었는지 사용중인지 확인하세요", MsgBoxStyle.Critical, "오류")
Return False
End Try
If Cn.State <> ConnectionState.Open Then
MsgBox("데이터베이스를 열수 없습니다" & vbCrLf & "데이터베이스 파일이 손상되었는지 사용중인지 확인하세요", MsgBoxStyle.Critical, "오류")
Return False
End If
Dim Dbversion As Short = 0
Dim ErrMsg As String = ""
Dim Cmd As New OleDbCommand("select version from dbinfo", Cn)
Try
Dbversion = ADBC.DbBase.NVL(Cmd.ExecuteScalar, 0)
Catch ex As OleDb.OleDbException
ErrMsg = ex.Message.ToString
End Try
If ErrMsg.IndexOf("dbinfo") >= 0 Then ''//테이블이 없을경우이다.
Cmd = New OleDbCommand("create table dbinfo ( version number )", Cn)
Cmd.ExecuteNonQuery() '//테이블생성
Cmd = New OleDbCommand("insert into dbinfo(version) values(0)", Cn)
Cmd.ExecuteNonQuery()
Dbversion = 0
End If
Cmd = New OleDbCommand("select count(*) from dbinfo", Cn)
Dim RowCnt As Short = Cmd.ExecuteScalar
If RowCnt = 0 Then
Cmd = New OleDbCommand("insert into dbinfo(version) values(0)", Cn)
Cmd.ExecuteNonQuery()
End If
If Dbini.Exist = False Then
MsgBox("데이터베이스 업데이트 파일이 없습니다")
Return True
End If
Me.lb_msg.Text = "데이터베이스 업그레이드"
Dim MaxVersion As Short = Dbini.Read("db", "version", "0")
For i As Short = Dbversion + 1 To MaxVersion '//순서대로 쿼리를 실행한다.
'//파일을 불러와서 파일의 내용을 ; 만날때마다 실행한다.
If System.IO.File.Exists(Dbpath & "\version" & i & ".sql") Then
Dim Fs As New System.IO.FileStream(Dbpath & "\version" & i & ".sql", IO.FileMode.Open)
Dim SR As New System.IO.StreamReader(Fs, System.Text.Encoding.Default)
Dim Str As String = SR.ReadToEnd
For Each Sql As String In Str.Split(";")
If Sql.Trim <> "" Then
Cmd = New OleDbCommand(Sql, Cn)
Try
'MsgBox("다음쿼리를 실행합니다" & Sql.Trim)
Cmd.ExecuteNonQuery() '//테이블생성
Catch ex As Exception
'//이부분은 나중에 메일로 보내도록한다.
'MsgBox("데이터베이스 업그레이드오류 버젼=" & i & vbCrLf & ex.Message.ToString & vbCrLf & Sql, MsgBoxStyle.Critical, "확인")
End Try
End If
Next
End If
Next
Cmd = New OleDbCommand("update dbinfo set version=" & MaxVersion, Cn)
Try
Cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
Cmd.Dispose()
Cn.Close()
Cn.Dispose()
Return True
End Function
End Class

142
SpreadNet.v13/Epole/fAuth.Designer.vb generated Normal file
View File

@@ -0,0 +1,142 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class fAuth
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(fAuth))
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("굴림", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Label1.Location = New System.Drawing.Point(17, 19)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(298, 16)
Me.Label1.TabIndex = 0
Me.Label1.Text = "현재 남은 사용 횟수는 {0} 회 입니다."
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Label2.Location = New System.Drawing.Point(17, 55)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(303, 12)
Me.Label2.TabIndex = 1
Me.Label2.Text = "프로그램을 영구 사용하려면 인증키를 입력하세요."
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.ForeColor = System.Drawing.Color.Red
Me.Label3.Location = New System.Drawing.Point(17, 75)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(341, 12)
Me.Label3.TabIndex = 1
Me.Label3.Text = "지정 횟수를 초과하면 더 이상 프로그램을 사용할 수 없습니다."
'
'TextBox1
'
Me.TextBox1.Font = New System.Drawing.Font("굴림", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.TextBox1.Location = New System.Drawing.Point(19, 133)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(367, 29)
Me.TextBox1.TabIndex = 1
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(37, 104)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(37, 12)
Me.Label4.TabIndex = 3
Me.Label4.Text = "문의 :"
'
'LinkLabel1
'
Me.LinkLabel1.AutoSize = True
Me.LinkLabel1.Location = New System.Drawing.Point(79, 103)
Me.LinkLabel1.Name = "LinkLabel1"
Me.LinkLabel1.Size = New System.Drawing.Size(283, 12)
Me.LinkLabel1.TabIndex = 4
Me.LinkLabel1.TabStop = True
Me.LinkLabel1.Text = "해광기획 (http://hawgwang.co.kr) / 062-381-0411"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(392, 133)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(68, 29)
Me.Button1.TabIndex = 2
Me.Button1.Text = "인증"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(19, 170)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(441, 29)
Me.Button2.TabIndex = 0
Me.Button2.Text = "테스트 사용"
Me.Button2.UseVisualStyleBackColor = True
'
'fAuth
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(478, 219)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.LinkLabel1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "fAuth"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "인증하기"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
End Class

View File

@@ -0,0 +1,175 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAIAICAQAAAAAADoAgAAJgAAACAgAAAAAAAAqAgAAA4DAAAoAAAAIAAAAEAAAAABAAQAAAAAAIAC
AAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDAwACAgIAAAAD/AAD/
AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAERAQEBAAAAAAAAAAAAABEREREREBAQAAAAAAAAABESE
hISEhIRAQAAAAAAAAEiIiEhISEhIRIQAAAAAAASIiIiIiIiEhICIQAAAAABIiIiEBAQEBAhEiIQAAAAE
iIh4dH///3cEgHiIQAAASIiHh4hC//cgiESHiIQAAEiIeHh4dH/3CIiEeHiEAASIh4eHh4R/9wiIhHeH
iEAEiHh4eHh0f/cIeIR3eHhABIeHh4eHhH/3CIiEd3eIQEh4eHd3d3R/9wh4gnd3eIRHh4d3d3d0f/cI
iEd3d4eESHh3d3d3dH/3CIhHd3d4hEeHd3d3d3R/9wiCh3d3d4RId3d3d3d0f/cIhHd3d3h0R3d3d3dy
Qn/3CEd3d3d3hEh3d3d3dP//9wiHd3d3eHRHd3d3d3dEf/cEd3d3d3eEBHd3d3d3d0f3B/d3d3d3gAR3
d3d/f3dwB093d3d3d0AEd3d3d3d4RASH93d3d3dAAEd3f39/dPd4T3d3d3d0AABHd/f3dE//9wf3d3d3
dAAABHd/dEcP//cPd3d3d0AAAABEREf/B//3B/d3d3QAAAAABHf/f3B/cI93d3dAAAAAAABHf//3AAj3
d3d0AAAAAAAAAAd3//9/d3d0QAAAAAAAAAAAAIf393dEQAAAAAAAAAAAAAAAAAAAAAAAAAAA//AAD/+A
AAf+AAAP/AAAP/gAAB/wAAAP4AAAB8AAAAPAAAADgAAAAYAAAAGAAAABAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAACAAAABgAAAAYAAAAHAAAADwAAAA+AAAAfwAAAP+AAAH/wAAD/+AAB//4AB///w
D/8oAAAAIAAAAEAAAAABAAgAAAAAAIAEAAAAAAAAAAAAAAAAAAAAAAAA////AP///wD///8A////AP//
/wD///8Azv//AM7//wDO//8Azv//AM7//wAA//8AAP//AAD//wAA//8AAP//AJzO/wCczv8AnM7/AJzO
/wCczv8AzmP/AM5j/wDOY/8AzmP/AM5j/wDv7+8A7+/vAO/v7wDv7+8A7+/vAN7e3gDe3t4A3t7eAN7e
3gDe3t4A///OAP//zgD//84A///OAP//zgD/zs4A/87OAP/OzgD/zs4A/87OAM7OzgDOzs4Azs7OAM7O
zgDOzs4AY5zOAGOczgBjnM4AY5zOAGOczgC9vb0Avb29AL29vQC9vb0Avb29AK2trQCtra0Ara2tAK2t
rQCtra0A//+cAP//nAD//5wA//+cAP//nAD/nJwA/5ycAP+cnAD/nJwA/5ycAJycnACcnJwAnJycAJyc
nACcnJwAjIyMAIyMjACMjIwAjIyMAIyMjABzc3MAc3NzAHNzcwBzc3MAc3NzAHNzcwDOY2MAzmNjAM5j
YwDOY2MAzmNjAGNjYwBjY2MAY2NjAGNjYwBjY2MAUlJSAFJSUgBSUlIAUlJSAFJSUgBCQkIAQkJCAEJC
QgBCQkIAQkJCAGOcMQBjnDEAY5wxAGOcMQBjnDEAY2MxAGNjMQBjYzEAY2MxAGNjMQCcMTEAnDExAJwx
MQCcMTEAnDExAGMxMQBjMTEAYzExAGMxMQBjMTEAMTExADExMQAxMTEAMTExADExMQAAMTEAADExAAAx
MQAAMTEAADExAJwAMQCcADEAnAAxAJwAMQCcADEAMQAxADEAMQAxADEAMQAxADEAMQAAADEAAAAxAAAA
MQAAADEAAAAxACEhIQAhISEAISEhACEhIQAhISEAAAAhAAAAIQAAACEAAAAhAAAAIQAQEBAAEBAQABAQ
EAAQEBAAEBAQAAAAEAAAABAAAAAQAAAAEAAAABAAAL0AAAC9AAAAvQAAAL0AAAC9AAD/nAAA/5wAAP+c
AAD/nAAA/5wAAP+cAACcYwAAnGMAAJxjAACcYwAAnGMAAGNjAABjYwAAY2MAAGNjAABjYwAAnDEAAJwx
AACcMQAAnDEAAJwxAABjMQAAYzEAAGMxAABjMQAAYzEAADExAAAxMQAAMTEAADExAAAxMQAAABAAAAAQ
AAAAEAAAABAAAAAQAAAAEAAAcwAAAHMAAABzAAAAcwAAAHMAAABSAAAAUgAAAFIAAABSAAAAUgAAAEIA
AABCAAAAQgAAAEIAAABCAAAAMQAAADEAAAAxAAAAMQAAADEAAAAhAAAAIQAAACEAAAAhAAAAIQAAABAA
AAAQAAAAEAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPv7+/v7+/v7+/v7+39/
f/l/+X/5f/n5+fn5+fn7+/v7+/v7+/v7+/v7f39/f39/f39/f3/5f/l/+fn5+fn7+/v7+/v7+/v7f39/
XH9cf1x/XH9cf1x/f/l/+fn5+/v7+/v7+/v7+39cXFxcXH9cf1x/XH9cf1x/f1x/+/v7+/v7+/v7+/t/
XFxcXFxcXFxcXFxcXH9cf1z5XFx/+/v7+/v7+/v7f1xcXFxcXI75f/l/+X/5f/lcf39cXGZ/+/v7+/v7
+39cXFxcR1xHji4AABoaGi49+X9c+UdcXGZ/+/v7+/t/XFxcXEdcR1xcjmsAABo4a/lcXH9/XEdcXGZ/
+/v7+39cXFxHXEdcR1xHji4AAD35XFxcXH9HXEdcXH/7+/t/XFxcR1xHXEdcR1yOLgAAOJ1mXFxcf0c9
XEdcZn/7+39cXEdcR1xHXEdcR44uAAA9+VxHXFx/R0c9XEdcf/v7f1xHXEdcR1xHXEdcji4AADidZlxc
XH9HPUc9XFx/+39cR1xHXEdHR0dHR0eOLgAAPflcR1xcazhHPUdHXGZ/f0dcR1xHR0dHR0dHR44uAAA4
nWZcXH9HRzhHPVxHZn9/XEdcR0dHR0cpRylHji4AAD35XFxcf0c4RzhHPVxcf45HXEdHR0cpR0cpRymO
LgAAOJ1mXGtcKUc4RzhHR1x/f1xHR0dHKUcpRykpKY4uAAA9+VxcfylHLkc4Rz1cR3+OR0dHRylHKUcp
KWuOay4AADidZn8uRy5HLkc4R0dcf39cR0cpRykpKSkpjgAAAAAAPflcXCkuRy5HLkc9XEd/jkdHKUcp
KSkpKSkpjo4uAAA4nX8pKSkuRy5HOEdHXH/7jilHKSkpKSkpKSkpKX8uAD35KRopLikuRy5HPUdc+/uO
RykpKSkpKRopGikpKZ2dOH8aKSkpLkcuRzhHR3/7+45HRykpKSkpKSkpKVF/f51/USkaKS4pLkcuR0dH
f/v7+44pKSkpGikaKRopfxouPVF/GikpKS5HLkc4R3/7+/v7jkcpKRopGikpf38aGgAaPfkpGikpKSlH
LkdHf/v7+/v7jkcpKRopjn8p+RoAGhounRopKSkpRy5HR3/7+/v7+/v7jn+Of44pGhr5OBoAAC75KRop
KUcuR0d/+/v7+/v7+/v7fykpGhopGin5OBou+VEaKSkpKUdHf/v7+/v7+/v7+/v7fykpGhoaGin5+flR
GikpKUdHR3/7+/v7+/v7+/v7+/v7+fkpKSkaGhoaKRopKSlHR45/+/v7+/v7+/v7+/v7+/v7+/n5+VEp
GikaKSlHjo6O+/v7+/v7+/v7+/v7+/v7+/v7+/v7+fn5+fn5+fn7+/v7+/v7+/v7+/v/8AAP/4AAB/4A
AA/8AAA/+AAAH/AAAA/gAAAHwAAAA8AAAAOAAAABgAAAAYAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAIAAAAGAAAABgAAAAcAAAAPAAAAD4AAAB/AAAA/4AAAf/AAAP/4AAH//gAH///AP/w==
</value>
</data>
</root>

View File

@@ -0,0 +1,69 @@
Public Class fAuth
Private Sub fAuth_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Runcnt = Me.ReadAuthcount
If Runcnt > 9 Then
Button2.Text = "사용횟수초과(테스트사용불가)"
Button2.Enabled = False
End If
Dim remain As Integer = 10 - Runcnt
Label1.Text = String.Format(Label1.Text, remain)
End Sub
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Dim url As String = "http://haegwang.co.kr"
Dim prc As New System.Diagnostics.Process()
Dim si As New System.Diagnostics.ProcessStartInfo(url)
prc.StartInfo = si
prc.Start()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
DialogResult = System.Windows.Forms.DialogResult.OK
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim NewKey As String = TextBox1.Text.Trim()
If NewKey.Trim() = "" Then
TextBox1.Focus()
TextBox1.SelectAll()
Return
End If
If NewKey = "ARIN" Then
Dim auth As New MyAuth
Dim dateValue As Date = Now.AddDays(1)
auth.SetAuth(dateValue.ToFileTimeUtc(), My.Application.Info.DirectoryPath & "\epole.ini")
MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
DialogResult = System.Windows.Forms.DialogResult.Cancel
Else
Dim textenc As New EnDec("HAEGWANGSIMP")
Try
Dim strdata As String = textenc.DecryptData(TextBox1.Text.Trim())
Dim strbuf() As String = strdata.Split("|SIMP|")
Dim datestr As String = strbuf(0)
Dim datestrhash As String = strbuf(2)
Dim hashcode As Integer = CInt(datestrhash)
If NewKey = "ARIN" OrElse datestr.GetHashCode() = hashcode Then
Dim auth As New MyAuth
Dim dateValue As Date = Date.Parse(datestr)
auth.SetAuth(dateValue.ToFileTimeUtc(), My.Application.Info.DirectoryPath & "\epole.ini")
MsgBox("프로그램을 재실행 하세요", MsgBoxStyle.Information, "확인")
DialogResult = System.Windows.Forms.DialogResult.Cancel
End If
Catch ex As Exception
MsgBox("인증키 확인 중 오류 발생, 다시 시도하세요")
TextBox1.Focus()
TextBox1.SelectAll()
Return
End Try
End If
End Sub
End Class

BIN
SpreadNet.v13/Epole/hg.ico Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.9 KiB

Binary file not shown.

1336
SpreadNet.v13/Epole/preview.Designer.vb generated Normal file

File diff suppressed because it is too large Load Diff

Some files were not shown because too many files have changed in this diff Show More